제가 LISP 에 대해서 잘 몰라서요..
(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)
)