command命令简化CAD命令的问题

pusslica

作为初学者，自行简化一个视口锁定命令如下
(defun C:tt ( )
        (vl-load-com)
        (command "-VPORTS" "L" "on" )        
)
但是发现总提示nil
求教各位神仙

水吉空

命令: -VPORTS

输入选项 [保存(S)/恢复(R)/删除(D)/合并(J)/单一(SI)/?/2/3/4] <3>: L
无效的选项关键字。

没有“L”啊

水吉空

(vl-load-com)，这一句也不用加上去，这个是activex函数才用的。

pusslica

水吉空 发表于 2017-8-13 14:32
(vl-load-com)，这一句也不用加上去，这个是activex函数才用的。

在布局里面用 就会有了
(defun C:sksd (/ ss os cmdecho)
        (setq os (getvar 'osmode))
          (setq cmdecho (getvar 'cmdecho))
        (setvar 'osmode 0)
        (setvar 'cmdecho 0)
        (setq ss (ssget))
        (command "-VPORTS" "L" "on" ss "")
        (setvar 'osmode os)
        (setvar 'cmdecho cmdecho)
(princ "完成")
)
目前弄成这个样子

水吉空

pusslica 发表于 2017-8-14 09:03
在布局里面用 就会有了
(defun C:sksd (/ ss os cmdecho)
        (setq os (getvar 'osmode))

(defun C:sksd (/ os ss)
        (setq os (getvar "osmode"))
        (setvar "osmode" 0)
  (setvar "CMDECHO" 0)
        (setq ss (ssget))
        (command "-VPORTS" "L" "on" ss "")
        (setvar "osmode" os)
        (princ "完成")
)
那可以用了就行。

pusslica

水吉空 发表于 2017-8-14 09:38
(defun C:sksd (/ os ss)
        (setq os (getvar "osmode"))
        (setvar "osmode" 0)

谢谢回复谢谢回复谢谢回复谢谢回复