[原创] 对比较乱的座标式标注进行对齐式标注

zhongys

对比较乱的座标式标注进行对齐式标注,但只执行了一次循环，后面的不能执行，请各位多指教. (defun c:p_dim()
(setvar "cmdecho" 0)
(setq old_la (getvar "clayer"))
(setvar "clayer" "尺寸线层")
(prompt "\n选择基准尺寸")
(setq ent1 (entsel))
(while (= nil ent1)
(prompt "\n选择基准尺寸")
(setq ent1 (entsel))
)
(setq en1 (entget (car ent1)))
(setq uc1 (trans (cdr (assoc 10 en1))0 1))
(command "ucs" "o" uc1)
(setq po1 (trans (cdr (assoc 13 en1)) 0 1))
(setq po2 (trans (cdr (assoc 14 en1)) 0 1))
(prompt "\n选择更新尺寸")
(setq i 0)
(setq ent2 (ssget '((0 . "DIMENSION"))))
(while (= nil ent2)
(prompt "\n选择更新尺寸")
(setq ent2 (ssget '((0 . "DIMENSION"))))
)
(repeat (sslength ent2)
(progn
(setq en2 (entget (ssname ent2 i)))
(setq uc2 (trans (cdr (assoc 10 en2)) 0 1))
(setq e3 (trans (cdr (assoc 13 en2)) 0 1))
(setq e4 (trans (cdr (assoc 14 en2)) 0 1))
(command "erase" ent1 "")
(command "erase" ent2 "")
(command "DIMORDINATE" po1 po2)
(command "DIMCONTINUE" e3 "" "")
)
(setq i (1+ i))
)
(setvar "clayer" old_la)
(princ)
)

龙龙仔

(repeat (sslength ent2)
(progn
(setq en2 (entget (ssname ent2 i)))
(setq uc2 (trans (cdr (assoc 10 en2)) 0 1))
(setq e3 (trans (cdr (assoc 13 en2)) 0 1))
(setq e4 (trans (cdr (assoc 14 en2)) 0 1))
(command "DIMORDINATE" po1 po2)
(command "DIMCONTINUE" e3 "" "")
)
(setq i (1+ i))
)
(command "erase" ent1 "");move
(command "erase" ent2 "");move