엔지니어 기술블로그

;;==========================================
; 접선 그리기
;;----------------------------------------------------------------
(defun c:TTL(/ pt1 pt2 os)
   (SETQ OS (GETVAR "OSMODE"))
   (SETVAR "OSMODE" 512) ;;;원과 원의 접선을 그립니다
   (setq pt1(getpoint "first tangent point: "))
   (setq pt2(getpoint "second tangent point: "))
   (command "line" "tan" pt1 "tan" pt2 "")
   (SETVAR "OSMODE" OS)

)