AutoLISP

도면번호 형식 또는 패턴의 문자를 검색하는 예제문 입니다

(setq ss_ent (ssget '( (0 . "text") (1 . "*-*-* ")  ) ) )

; * 는 모든문자를 의미

; *-*-* 는 aaa-bbb-000 등의 도면번호 패턴의 문자에 해당합니다

현 도면상에 원하는 블록이 없으면 새로 작도및 블록화 삽입을 하고 존재하면 바로 삽입을 합니다

(if (= (tblsearch "block" blkname) nil ) ; 조건은 해당 블록이 없으면 입니다

(sublisp) ; 블록이 없으면 작도 및 블록화 삽입늘 수행하는 서브리습 호출실행합니다

(command "-insert" blkname p10 1 1 0)  ; 블록이 존재하면 바로 삽입합니다

) ; end if

리습으로 자동 작도 전에 캐드 화면 크기를 적당히 할 필요가 있는 경우가 있습니다

trim extend fillet chamfer 등 객체선택과 동시에 해당점이 작용하는 경우입니다

적당하지 않은 캐드화면크기로 인한 오류가 발생하므로 화면크기 제어를 합니다

예제문

적당한 위치의 정의된 두점을 중심으로한 캐드화면을 조정합니다 

(command "zoom" "w" p10 p30)  

(command "zoom" "0.6x" )

CADBOX  AUTOBOX 는 오토캐드에 강력한 기능들을 추가합니다

linetype 을 load 하는 리습 예제 입니다

현 도면내에 원하는 라인타입이 존재하는지 먼저 검색후 존재하면 "이미 존재함"을 표현후 종료하고 존재하지 않으면 해당 라인타입을 로드하는 command 문을 작성 합니다

(defun loadcenter()   

(if (tblsearch "LTYPE" "center") (prompt "  Loaded Linetype Center  ")  (command "-linetype" "L" "center" "" "") ) 

) ; end defun

리습 문장 내용이 길거나 많아지면 리습 작성을 간편화할 필요가 있습니다

반복되는 단순 문장을 서브리습로 미리 만들고 필요시 마다 호출하여 사용하면 간편합니다

메인리습 은 c:를 첨가하여 선언하며 캐드 명령에 실행합니다

(defun c:maillsp()

)

서브리습은 c: 없이 선언 하며 캐드 명령에 응답하지 않습니다

(defun sublsp()

(prompt "\n Sub lsp ")

)

메인에서의 서브호출

(defun c:mainlsp()

(prompt "\n Main lsp ")

(sublsp)

)

캐드 명령 mainlsp 결과

Main lsp

Sub lsp

(defun c:aaa()

(sublsp)

(prompt "\n AAA")

)

캐드 명령 aaa 결과

Sub lsp

AAA

메인리습은 서브리습으로 호출이 불가합니다

기능과 목적에 따른 리습 문장 예제 입니다

참고하여 자신에게 맞게 리습을 작성바랍니다

링크는 상세 설명 페이지 입니다