이 리습은 치수 뽑은 후 dc 명령어를 치면 치수선을 뽑는 리습입니다.
거리 치수 넣은후 dc 넣은후 볼트 근처점에서 클릭을 안하고 자동적으로 잡히게 할수 있는지요?
감사합니다.
;;by Lt Dan’s legs
(defun c:DC (/ *error* snap ent e en gr pt)
(vl-load-com)
(defun *error* (msg)
(cond ((wcmatch (strcase msg) “*BREAK*,*CANCEL*”)(princ “*Cancel*”))
((wcmatch (strcase msg) “*EXIT*”)(princ “*Exit*”))
(t (princ msg))
)
(if e
(entdel (cdr (assoc -1 e)))
)
(princ)
)
(defun snap (/ txt)
(if (< (getvar ‘osmode) 15360)
(foreach x (list (cons 0 “_non”)(cons 1 “_end”)(cons 2 “_mid”)(cons 4 “_cen”)(cons 8 “_nod”)(cons 16 “_qua”)(cons 32 “_int”)
(cons 64 “_ins”)(cons 128 “_per”)(cons 256 “_tan”)(cons 512 “_nea”)(cons 1024 “_qui”)(cons 2048 “_app”)(cons 4096 “_ext”)(cons 8192 “_par”))
(if (not (zerop (logand (getvar ‘osmode) (car x))))
(if txt
(setq txt (strcat txt “,” (cdr x)))
(setq txt (cdr x))
)
)
)
)
(if txt txt)
)
(defun ent ( ename )
(entget
ename
‘(“ACAD”)
)
)
(while
(not
(and
(setq en (car (entsel “nSpecify dimension to continue: “)))
(eq “DIMENSION” (cdr (assoc 0 (entget en))))
)
)
(prompt “nMissed! Try again!”)
)
(setq en (ent en))
(prompt “nSpecify second point <Press any key to exit>: “)
(while (and en (or (eq gr nil)(eq (car gr) 3)))
(while (eq 5 (car (setq gr (grread ‘t 15 0))))
(if (not (and (snap)(setq pt (osnap (cadr gr) (snap)))))
(setq pt (cadr gr))
)
(if e
(entmod
(subst
(cons 14 pt)
(assoc 14 e)
e
)
)
(progn
(foreach x en
(if (or (eq (car x) -1)
(eq (car x) 2)
(eq (car x) 5)
(eq (car x) 330)
)
(setq e (vl-remove x en))
)
)
(setq e
(entmakex
(subst
(cons 13
(if (< (distance pt (cdr (assoc 13 e)))(distance pt (cdr (assoc 14 e))))
(cdr (assoc 13 e))(cdr (assoc 14 e))
)
)
(assoc 13 e)
(subst
(cons 14
(if (< (distance pt (cdr (assoc 13 e)))(distance pt (cdr (assoc 14 e))))
(cdr (assoc 13 e))(cdr (assoc 14 e))
)
)
(assoc 14 e)
e
)
)
)
)
(setq e (ent e))
)
)
)
(if (eq (car gr) 3)
(setq en (ent (entlast)) e nil)
)
)
(if e
(entdel (cdr (assoc -1 e)))
)
(princ)
)
확인을 못해 죄송합니다. 이제 확인하네요 수야님 감사합니다. 이거도 리습인가요?
흠 가능하긴 한데 단지 클릭 한번 하지 않기 위해 사용한다는것은 의미가 없는데요
안됨