在关联和上编程

Ahankhah · 发表于 2022-7-5 20:45:19

嗨，球童们，

我有很多尺寸重叠的图纸。
有人应该让我知道如何通过编程摆脱这个职位吗？

我尝试了一些编码来移动维度的文本，但在关联维度上没有成功。


;|
(MT:Move:DimensionText<-Ename (car (entsel)) nil 0 1 0)
|;
(defun MT:Move:DimensionText<-Ename
      (%ename% %absolute|relative% %x% %y% %z% / *entlist* *assoc11*)
(setq *entlist* (entget %ename% '("*")))
(cond
 ((/= (cdr (assoc 0 *entlist*)) "DIMENSION") nil)
 (T
  (setq *assoc11* (cdr (assoc 11 *entlist*))); text position
  (setq *assoc11*
   (if %absolute|relative%
    (list %x% %y% %z%)
    (list (+ %x% (car *assoc11*)) (+ %y% (cadr *assoc11*)) (+ %z% (caddr *assoc11*)))
   )
  )
  (setq *entlist* (subst (cons 11 *assoc11*) (assoc 11 *entlist*) *entlist*))
  (entmod *entlist*)
 )
)
)