0
을 그려 Y는 원점에서 조정하는 방법을 다음과 같이AutoCAD를 리스프 - Y 내가 현재 X를 표시하기 위해 다음과 같은 리스프 코드를 사용하고 수직
이(defun c:xy(/ pt pt1 pt2 x y xy)
(setq pt (getpoint "\nPoint : "))
(setq x(rtos(car pt)))
(setq y(rtos(cadr pt)))
; x- leader horizontaal
(setq pt1 (getpoint pt "\nHORIZONTAL: "))
(command "leader" pt pt1 "" x "")
; y- leader verticaal
(setq pt2 (getpoint pt "\nVERTICAL: "))
(command "leader" pt pt2 "" y ""))
(princ)
이 스크립트는 현재 Y가 (6050.00)를 좌표 보여줍니다 :
나는 Y는 다음과 같이 수직으로 그려 좌표를 가지고 싶습니다 비록 :
Lisp을 통해 이것을 달성 할 가능성이 있습니까? 그렇다면 어떤 변화가 있어야합니까? 치수 텍스트가 자동으로 연관 및 업데이트되도록 _DIMORDINATE 명령 대신 _LEADER을, 또는
(command "_UCS" "_Z" "90d")
사용 : 원하는대로 두 번째 지도자를 배치하기 전에