AutoCAD를 리스프 - Y 내가 현재 X를 표시하기 위해 다음과 같은 리스프 코드를 사용하고 수직

Question

을 그려 Y는 원점에서 조정하는 방법을 다음과 같이

이

(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") 

사용 : 원하는대로 두 번째 지도자를 배치하기 전에

Answer 1

당신은 UCS를 회전 할 수 있습니다.