하나의 dim을 두개로 나누는 리습인데, regen을 하면 분리된 디멘젼중 하나가 숨어버립니다. 고수님들의 보완 부탁합니다.
(DEFUN C:Dimtrim()
(SETQ ss (entsel))
(while ss
(SETQ een (entget (car ss)))
(setq NAME (cdr (ASSOC 0 een)))
(if (= NAME “DIMENSION”)
(progn
(SETQ P1 (GETPOINT “nPICK DIMENSION DIVIDE POINT :”)
Y (CADR P1)
X (CAR P1)
)
(IF (= (cadr (assoc 10 een)) (cadr (assoc 14 een)))
(PROGN;hhh
(SETQ P13 (ASSOC 13 een)
P14 (ASSOC 14 een)
PP13 (LIST 13 x (CADDR P13))
PP14 (LIST 14 x (CADDR P14))
een1 (SUBST PP13 P13 een)
een (SUBST PP14 P14 een)
);SETQ
);PROGN
(PROGN;vvv
(SETQ P13 (ASSOC 13 een)
P14 (ASSOC 14 een)
PP13 (LIST 13 (CADR P13) y)
PP14 (LIST 14 (CADR P14) y)
een1 (SUBST PP13 P13 een)
een (SUBST PP14 P14 een)
))
);if
(ENTMAKE een1)
(ENTMOD een1)
(ENTMOD een)
);;progn