Lisp

문자를 z값으로 읽어 z값을 가지는 포인트 생성

홍사훈     0건     424회

첨부파일

본문

◆ 출처 : 이전에 모아둔 자료라 잘 모르겠음.


◆ 명령어 : aa


◆ 소개 : 

   - z값이 살아있는 z점이 필요한데, z점이 없고 텍스트로 표기되어있는 도면이 있을경우 사용 

   - 텍스트의 기준점에 z값을가지는 점이 생성됨에 유의

 

◆ 사용법 : 

   1. aa명령어 실행

   2. z값이 적힌 텍스트를 모두 선택

   3. 엔터나 스페이스바를 누르면 텍스트의 기준점에 z값을 가지는 점이 생성됨

   d60bec2631bc6e2edf94ede7214bf562_1462640 

 

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

)

등록된 댓글이 없습니다.



Copyrightⓡ1996~2017, sahoon.com All Rights Reserved.