라인조인을 할 시에..
라인을 조인후에 오스냅은 처음설정 처럼 그대로 됩니다.
하지만 J를 치고 라인을 조인하지않고 ESC를 누르고 명령어를 빠지면 오스냅이 전부 해지되네요
어떤 부분을 수정해야 하는건지…
(defun c:j(/ ot1 os e1 e2 p1 p2 p3 d1 ang1)
(setq ot1 (getvar “orthomode”)
os (getvar “osmode”))
(setvar “orthomode” 0)(setvar “osmode” 0)
(prompt “nCommand: Line Joint…”)
(setq e1 (entsel “nPick first line–>”))
(setq e2 (entsel “nPick second line–>”))
(setq p1 (osnap (cadr e2) “END”)
p2 (osnap (cadr e2) “MID”)
ang1 (angle p1 p2)
d1 (distance p1 p2)
p3 (polar p2 ang1 d1)
)
(setq e2 (car e2))
(entdel e2)
(command “change” e1 “” p3)
(setvar “orthomode” ot1)
(setvar “osmode” os)
(prompt “nCommand:”)
(prin1)
)