wuzheng80425 发表于 2020-9-2 09:08:06

求大神指点左键线型标注结束，右键启动连续标注

(defun c:da(/ oldlay)
(setq oldlay (getvar"clayer"))
(if (= nil (tblsearch"layer" "dim"))
(command "layer" "n" "dim" "c" "4" "dim" "l" "continuous" "dim" "")
)
(setvar "clayer" "dim")
                (command "dimtoh"   "off");非半径标注---------------------------------------------------
(princ"\n请选择标注点:")
(command "dimlinear" )      ;发出标注命令
(while (> (getvar "CMDACTIVE") 0) (command PAUSE));等待前一命令完成
                (command "_dimcontinue")                ;-------------------------------------------------------2020-08-31增加连续标注
                (while (> (getvar "CMDACTIVE") 0) (command PAUSE)); ;------------------------------------2020-08-31增加连续标注
(princ)
)


ZZXXQQ 发表于 2020-9-2 14:25:54

(defun c:da(/ oldlay)
(setq oldlay (getvar "clayer"))
(command "-layer" "m" "dim" "c" "4" "" "l" "continuous" "" "")
(command "dimtoh" "off");非半径标注
(princ "\n请选择标注点:")
(command "dimlinear")   ;发出标注命令
(while (> (getvar "CMDACTIVE") 0) (command PAUSE)) ;等待前一命令完成
(if (/= (getpoint "\n右键连续标注: ") nil) (progn
    (command "_dimcontinue") ;2020-08-31增加连续标注
    (while (> (getvar "CMDACTIVE") 0) (command PAUSE))
))
(setvar "CLAYER" oldlay)
(princ)
)
(princ)

wuzheng80425 发表于 2020-9-2 21:27:29

ZZXXQQ 发表于 2020-9-2 14:25
(defun c:da(/ oldlay)
(setq oldlay (getvar "clayer"))
(command "-layer" "m" "dim" "c" "4" "" " ...

谢谢版主，学习了，反观自己，看来还是自己的基础没打好

999999 发表于 2020-9-3 20:41:32

支持支持，，，学习学习
页: [1]
查看完整版本: 求大神指点左键线型标注结束，右键启动连续标注