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) 사이에 선을 그려줌
728x90
'■ 유용한 캐드&리습 > ▫ AutoLISP' 카테고리의 다른 글
리습 - 시트선택 pdf 자동출력하기 (0) | 2024.12.31 |
---|---|
리습 - 범위선택 pdf 자동출력하기 (1) | 2024.12.31 |
좌표표기하기 (0) | 2024.12.31 |
속성블럭 되돌리기 (0) | 2024.12.31 |
리습 - 선택한 블럭의 좌표 뽑기-2 (7-0815) (0) | 2024.12.31 |