李青松 发表于 2013-9-29 11:29:34

执行完以下复制命令后 自动设置正交为打开模式

执行完以下复制命令后 自动设置正交为打开模式，在程序后面怎么加。注明：这个程序我是用在acad2004中
(defun c:c() (command "copy" (ssget) "" "m"))

自贡黄明儒 发表于 2013-9-29 11:32:37

加一句(setvar "osmode" ...)就可以了
用极轴更好，包括了正交

lincctw_ccl 发表于 2013-9-29 11:34:33

(defun c:c()
(command "copy" (ssget) "" "m")
(setvar "orthomode" 1)
)

李青松 发表于 2013-9-29 11:47:34

复制命令运行的时候正交是关闭的，运行完复制命令后，自动打开正交命令
看1下下面的程序(defun c:c() (command "ortho" "off" "copy" (ssget) "" "m"))
三楼给的程序是复制命令运行时打开正交命令，

Andyhon 发表于 2013-9-29 13:16:22

(command "copy" (ssget) "" "m")       ; 命令未完
(while (=(getvar "CmdActive") 1)(command pause))
;; 直待命令完成

;; 设置正交为打开模式
(setvar "orthomode" 1)

李青松 发表于 2013-9-29 16:40:03

完整程序是这样的吗，我测试的时候运行不了，请长老费心

(defun c:12() (command "copy" (ssget) "" "m")   ; 命令未完
(while (=(getvar "CmdActive") 1)(command pause))
;; 直待命令完成

;; 设置正交为打开模式
(setvar "orthomode" 1))

Andyhon 发表于 2013-9-29 17:06:19

Ok Here Cad2004

错误讯息是啥

李青松 发表于 2013-9-30 09:38:54

今天重新测试 成功， 完全符合我的需求 谢谢你长老
页: [1]
查看完整版本: 执行完以下复制命令后 自动设置正交为打开模式