문자를 z값으로 읽어 z값을 가지는 포인트 생성홍사훈 0건 4,306회 16-05-05 10:15 |
첨부파일
zpo.lsp
(506byte)
- 349회 다운로드
관련링크
본문
◆ 출처 : 이전에 모아둔 자료라 잘 모르겠음.
◆ 명령어 : aa
◆ 소개 :
- z값이 살아있는 z점이 필요한데, z점이 없고 텍스트로 표기되어있는 도면이 있을경우 사용
- 텍스트의 기준점에 z값을가지는 점이 생성됨에 유의
◆ 사용법 :
1. aa명령어 실행
2. z값이 적힌 텍스트를 모두 선택
3. 엔터나 스페이스바를 누르면 텍스트의 기준점에 z값을 가지는 점이 생성됨
(defun c:aa(/ ss k ed po num npo os)
(prompt "\n문자를 값으로 z값주고 좌측하단에 포인트찍기")
(setq os (getvar "osmode"))
(setq ss (ssget (list (cons 0 "text"))))
(setq k 0)
(setvar "osmode" 0)
(repeat (sslength ss)
(setq ed (entget (ssname ss k)))
(setq po (cdr (assoc 10 ed)))
(setq num (atof (cdr (assoc 1 ed))))
(setq npo (list (car po) (cadr po) num))
(entmod (subst (cons 10 npo) (assoc 10 ed) ed))
(command "point" npo)
(setq k (1+ k))
)
(setvar "osmode" os)
(princ)
)
등록된 댓글이 없습니다.