pusslica 发表于 2017-8-13 13:30:43

command命令简化CAD命令的问题

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


水吉空 发表于 2017-8-13 14:31:58

命令: -VPORTS

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

没有“L”啊

水吉空 发表于 2017-8-13 14:32:38

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

pusslica 发表于 2017-8-14 09:03:14

水吉空 发表于 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 "完成")
)
目前弄成这个样子

水吉空 发表于 2017-8-14 09:38:11

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 23:39:18

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


谢谢回复谢谢回复谢谢回复谢谢回复
页: [1]
查看完整版本: command命令简化CAD命令的问题