텍스트로 된 X,Y 좌표을 찍어 위치표현하기
본문 바로가기
■ 유용한 캐드&리습/▫ AutoLISP

텍스트로 된 X,Y 좌표을 찍어 위치표현하기

by 아키모아 주말농부 2024. 12. 31.
728x90

;;텍스트로 된 X,Y 좌표을 찍어 위치표현하기
(defun c:pt()
   (setq ss1 (entsel "\n-x좌표->"))
   (setq ss2 (entsel "\n-y좌표->"))
   (setq pt1 (cadr ss1))
   (setq en1 (car ss1) en2 (car ss2))
   (setq ptx (cdr (assoc 1 (entget en1))))
   (setq pty (cdr (assoc 1 (entget en2))))
   (setq pt2 (list (atof ptx) (atof pty)))
   (command "line" pt1 pt2 "")
(prin1))

[사용설명]

텍스트로 된 x,y 문자을 선택하면

첫번째 선택문자위치(pt1)와 찾은 좌표점(pt2) 사이에 선을 그려줌

pt.lsp
0.00MB

728x90