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

李青松 · 发表于 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

今天重新测试成功，完全符合我的需求谢谢你长老

账号		自动登录	找回密码
密码			注册

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

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