[求助]：转贴一个很好的“标注程序”，帮忙“升级”一下。

userzhluserzhl

(defun c:da (/ p1 p2 tf p3 an)
(setvar "cmdecho" 0)
(SETQ OLDL (GETVAR "CLAYER"))
(setvar "clayer" "DIM")
  (if (and (setq p1 (getpoint "\n点取第一点: "))
    (setq p2 (getpoint p1 "\n点取第一点: "))
      )
    (progn
      (setq an (+ (/ pi 2) (angle p1 p2)))
      (vl-cmdf ".dim" "al" p1 p2 pause "")
      (setq tf t)
      (while tf
(vl-cmdf "co")
(if (setq p3 (getpoint p2 "\n下一点<exit>: "))
   (progn (setq p3 (inters p1 p2 p3 (polar p3 an 1.) nil))
   (vl-cmdf p3)
   (vl-cmdf "")
   (setq p2 p3)
   )
   (progn
     (command)
     (command)
     (setq tf nil))
)
(command "chprop" "la" "DIM" "")
      )
    )
  )
(SETVAR "CLAYER" OLDL)
  (princ)
)

在点取第二点时，如果距离第一点比较近的话它有时会出错(标不出来)，而且如果在操作途中按Esc的话，要按好几次才行，执行(setvar "clayer" "DIM")，如果按Esc就会把当前层改为“DIM”了，(SETQ OLDL (GETVAR "CLAYER"))好像没用。

cy956

都用了change了，可以先dim－con后再一起ch，不必设clayer

userzhluserzhl

问题解决，谢谢楼上。