IT 정보와 함께합니다.

AutoLISP를 사용하여 선택한 블록의 위치 출력합니다.AutoCAD에서 AutoLISP 실행:명령줄에서 VLISP를 입력하여 Visual LISP 편집기를 열어 아래의 코드를 작성합니다.LISP 코드 작성: 아래의 코드는 선택한 블록의 위치를 가져와 출력하는 간단한 예입니다.코드(defun C:GetBlockPosition ( / selSet blkName blkHandle blkEnt blkInsertPt) ;; 선택한 블록 집합 만들기 (setq selSet (ssget "_I" '((0 . "INSERT")))) ;; INSERT는 블록을 의미 (if selSet (progn ;; 선택한 블록 정보 가져오기 (setq blkEnt (ssname selSet 0)) ;; 선택된 첫 번째 블록 가져..

AutoLisp을 공부하는 분들께 도움이 되고자, 사각형(Rectang)을 그리는 Lisp 예제를 만들어 보았습니다.아래의 내용을 이해해 주시고, 문법 및 함수는 [AutoLisp 문법 설명 참조]를 확인바랍니다.;;Rectang 사각형 그리기를 Lisp으로 구현함. (defun c:rec1() (setq ptLB(getpoint "\n좌측 하단점:")) (setq ptRT(getcorner ptLB "\n우측 상단점:")) (setq ptLT(list (car ptLB) (cadr ptRT) 0)) (setq ptRB(list (car ptRT) (cadr ptLB) 0)) (command "pline" ptLB ptLT ptRT ptRB "c") (princ) ) GetPoint : 사용자에게 Poi..

AutoCAD의 모든 객체는 DXF 정보를 가지고 있다.AutoLisp으로 객체의 DXF 정보를 가져올 수 있는 방벙은명령: (entget(car(entsel "메시지 입력")))  이와 같이 사용할 수 있다.그렇다면, Line, Arc, Circle, Text, Polyline 등의 DXF 정보를 확인해 본다. AutoCAD Command에 아래와 같이 입력하여 각 객체들을 선택한다.명령: (entget(car(entsel "객체선택:"))) 폴리선 (Polyline 선택)객체선택:((-1 . ) (0 . "LWPOLYLINE") (330 . ) (5 . "2D2") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (62 . 2) (100 . "AcD..

지금부터 AutoLisp의 규칙을 알아보도록 합니다.1. 숫자정수와 실수로 나뉜다.정수는 1,2,3,4,5….. 실수는 1.2345 등정수는 32bit범위를 갖는다. ( -2147483648 ~ +21474883647)(참고, 일부의 정수는 -32768 ~ +32767의 16Bit 범위) 2. 문자열Lisp에서는 사용자에게 전달을 하거나 데이터값으로 문자열을 사용한다.“” 을 이용하여 표현하며 다음과 같이 사용한다.예) “ABC” “홍길동”문자열은 대소문자를 구분하지 않는다.다만, 사용자에게 보여질 Prompt는 문자열 그대로를 보여주며, 변수와 상수는 구분하지 않는다. 3. () 괄호AutoLisp은 반드시 괄호를 통하여 정의 시작부터 끝까지 표현한다.표현식 : (함수 변수1 값1 변수2 값2 . . ..