(in-package :fs-package) (use-package :oli) (sd-defdialog 'VP_Worplane :dialog-title "ViewportWorkplane" :toolbox-button t :variables '( (CREATE_WP :title "Create" :toggle-type :wide-toggle :push-action (let* ( (camera (sd-inq-vp-camera (sd-inq-current-vp))) (view-from-pt (sd-vp-camera-struct-from-pt camera)) (view-to-pt (sd-vp-camera-struct-to-pt camera)) (view-up-dir (sd-vp-camera-struct-up-dir camera)) (view-corner (sd-inq-vp-corners (sd-inq-current-vp))) ) (sd-call-cmds (create_workplane :new :pt_dir :origin view-from-pt :normal :two_pt view-to-pt view-from-pt :u_dir view-up-dir)) ;; How i can convert the 2 point inquired on screen coordinate??? (sd-call-cmds (rectangle (first view-corner) (second view-corner))) ) ) ) :ok-action '() )