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

zhongys · 发表于 2004-3-17 21:49:00

对比较乱的座标式标注进行对齐式标注,但只执行了一次循环，后面的不能执行，请各位多指教.
(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)
)

龙龙仔 · 发表于 2004-3-18 08:20:00

(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

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

发表回复

精选推荐