Lisp Command ActiveX

; 测试(vl-cmdf） (command)
(defun c:cmdf()
  (setq old (getvar "osmode"))
  (mapcar '(lambda(x)(setvar x 0))(list "cmdecho" "osmode" "delobj"))
  (setq sec (getint "输入 1 vl-cmdf旋转 \n输入 2 command旋转 \n输入 3 command面域 \n输入 4 vl-cmdf 面域" ))
    (if ( = 1 sec)(rotate1)
        (if (= 2 sec)(rotate2)
          (if (= 3 sec)(reg3)(reg4)))
       ; (while(setq ss (ssget ":L"))
      ;     ;(vl-cmdf "_region" ss  "")
      ;     (command "_region" ss  "")
           
     )
  (setvar "osmode" old)    
 princ()
)
(defun rotate1()
   (while(setq ss (ssget))
     (setq b (getpoint "\n选择基点:"))
     (vl-cmdf "rotate"  ss  "" b (getreal "旋转角度：")))
  )
(defun rotate2()
  (while(setq ss (ssget))
      (setq b (getpoint "\n选择基点:"))
      (command "_.rotate" ss ""  b  (getreal "旋转角度："))
  )
  (defun reg3()
     (while(setq ss (ssget ":L"))
           (command "_region" ss  ""))
     )
  (defun reg4()
     (while(setq ss (ssget ":L"))
           (vl-cmdf "_region" ss  ""))
    )