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

wuzheng80425

(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

(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

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

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

999999

支持支持，，，学习学习