连续标注问题，找表中是否是标注？感谢高手指点！
连续标注：有哪位高手抽点时间，想实现下面的功能。不能确定最后的图元是否是标注？？？(defun c:d1 (/ ss)
(setvar "cmdecho" 0)
(setq ent3(entlast))
(setq ss(ssadd))(setq ss(ssadd ent3 ss))
(setq na (cdr (assoc 0 (entget (ssname ss (setq i 0))))));---找不到标注???
;(setq ss (ssget "p" '((0 . "dimension"))));---也选不中???
;(if(/= ss nil)(progn(setq ss1(car(entsel "\n重选标注对象：")))(setq ss(ssadd))(setq ss(ssadd ss1 ss))));
(if(/= na "dimension")(progn(setq ss1(car(entsel "\n重选标注对象：")))(setq ss(ssadd))(setq ss(ssadd ss1 ss))));如最后图园不是标注重新选择
(command "DIMCONTINUE")(while (/= 0 (getvar "cmdactive"))(command pause));程序开始
(setvar "cmdecho" 1)
(princ))
不太明白你想做什么，(entget (entlast))一下？
以经自己想到方法决绝了
页:
[1]