(defun c:i3 (/ pt1 pt2 pt3 ang1 oldosm oldcmd)
(initget 32)
(setq oldosm (getvar “osmode”))
(setq crt-l (getvar “clayer”))
(setq oldcmd (getvar “cmdecho”))
(setvar “cmdecho” 0)
(setvar “osmode” 120)
(setq pt1 (getpoint “nINSOO LOVE ONE POINT!!!”))
(setvar “osmode” 0)
(setq pt2 (getpoint pt1 “nINSOO LOVE TWO POINT!!!”))
(setq ang1 (angle pt1 pt2))
(setq pt3 (polar pt2 ang1 (* 1.75 (getvar “ltscale”))))
(progn
(command “layer” “m” “e” “c” “1” “” “”)
(command “pline” pt1 “w” “0” “0” pt2 “w” (* 0.6 (getvar “ltscale”)) “0” pt3 “w” “0” “0” “”)
)
(setvar “osmode” oldosm)
(setvar “cmdecho” oldcmd)
(setvar “clayer” crt-l)
(prin1)
)

이거 오류가 있는지 적용이 않되는데 한번 봐주세요.

오토캐드 2021버전 이용중입니다.