[编程交流] 受控视口平移Lisp

(defun c:rf (/ vp dir dis vpn pdr dms vc1 vx1 vy1 vz1 vc2 vx2 vy2 vz2)
 (command "zoom" "w" "-0.5,-0.5" "11,8.5")
 (setq vp  (getstring "\nWhich Viewport would you like to pan?<Top(T), Front(F), Right(R)>: "))
 (setq dir (getstring "\nWhich direction would you like to pan the viewport?<Up(U), Down(D), Left(L), Right(R)>: "))
 (setq dis (getreal   "\nHow far would you like to pan the viewport? "))
 (setq vpn (if (= vp "Top") (2)
      (if (= vp "T") (2)
 (if (= vp "Front") (5)
   (if (= vp "F") (5)
     (if (= vp "Right") (4)
       (if (= vp "R") (4)
  (0))))))))
 (setq pdr (if (= dir "Up") ("Up")
      (if (= dir "U") ("Up")
 (if (= dir "Down") ("Do")
   (if (= dir "D") ("Do")
     (if (= dir "Left") ("Le")
       (if (= dir "L") ("Le")
  (if (= dir "Right") ("Ri")
    (if (= dir "R") ("Ri"))))))))))
 (setq dms (getvar "dimlfac"))
 (if (= vpn 2) (if (= dir "Up")
   (progn
     (command "_.mspace")
     (setvar "cvport" vpn)
     (command "ucs" "top")
     (setq vc1 (getvar "viewctr"))
     (setq vx1 (car vc1))
     (setq vy1 (cadr vc1))
     (setq vz1 (caddr vc1))
     (setq vy2 (+ vy1 (* dis dms)))
     (setq vc2 '(vx1 vy2 vz1))
     (setvar "viewctr" vc2))
   )
   )
 )

(initget 1 "Top Front Right")
 (setq wvp (getkword "\nWhich Viewport would you like to pan?<Top(T), Front(F), Right(R)>: "))