连续标注问题，找表中是否是标注？感谢高手指点！

cn0yahoo

连续标注：有哪位高手抽点时间，想实现下面的功能。不能确定最后的图元是否是标注？？？
(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)  )

satan421

不太明白你想做什么，(entget (entlast))一下？

cn0yahoo

以经自己想到方法决绝了