; 測試(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 ?""))
? ? )
?

總結

以上是生活随笔為你收集整理的Lisp Command ActiveX的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。