autocad lisp 예제

;DLD.lsp — 여러 줄 옆에 세로 선을 그립니다. 을 선택하지 않습니다. (defun C:DLD() ;턴 시스템 에코 끄기(setvar «cmdecho» 0) ;지시선 선의 시작점(setq pt1(getpoint «n 시작 점: «)))을 얻습니다. [tp1]은 임시 지점입니다. [cntr]은 카운터입니다. [tht]는 현재 텍스트 크기(setq tpt pt1 cntr 0 tht(getvar «textsize»))를 보유합니다.다음 줄을 주석 을 지정하지 않고 YOUR_LAYER_NAME을 레이어 이름으로 바꿉니다. ;14 이상의 autoCAD 버전을 사용하는 경우 교체해야 할 수 있습니다.» «레이어» 또는 «_레이어»를 가미할 수 있습니다. 함수를 작성하고 autoCAD 버전을 확인하고 해당 시점에서 사용할 함수를 결정할 수 있습니다. ;(명령 «레이어» «SET» «YOUR_LAYER_NAME» «»») ;루프 사용자가 포인트 선택을 종료할 때까지(반면/= nil(setq tpt(getpoint tpt «n Next Point: «))))))))))))))))))))))가 선택한 첫 번째 점인 경우(if(= cntr 0) 및 첫 번째 화살표 헤드를 얻기 위해 지시선 명령을 시작합니다. line ;then (명령) 함수를 사용하여 리더 명령(명령 «dim1» «lea» pt1 tpt(명령))을 종료합니다.; )을 저장 마지막 점 (setq oldpt tpt) 이 샘플 파일은 Visual LISP 온라인 설명서 전체에서 참조됩니다. 6장에서 디버깅하고, 7장의 응용 프로그램을 빌드하고, Visual LISP AutoLISP 함수 참조의 일부 함수를 정의하는 예제로 사용됩니다.

내 사이트에서 프로그램을 다운로드하는 경우 AutoLISP 파일을 저장하는 방법은 사용 중인 브라우저에 따라 다를 수 있습니다. 예를 들어, IE8은 컴퓨터에 직접 파일을 저장하라는 메시지를 표시할 수 있지만 Firefox를 사용하면 브라우저 자체에서 파일 내용을 볼 수 있다고 생각하며, 이 경우 파일 »페이지 저장으로 이동하여 유형 으로 저장 패널이 모든 파일로 설정되어 있는지 확인합니다. 또는 내용을 열린 메모장 파일로 복사하여 `filename.lsp`로 저장할 수 있습니다(파일 형식이 `모든 파일`로 설정되어 있는지 확인). ) ;;텍스트 크기 시간 0.25 (setq txpt (setq txpt (극성 oldpt angl (* tht 0.25)))를 사용하여 텍스트의 위치를 찾으십시오.) ;t는 사용자가 외에 무언가를 입력하는 동안 텍스트 문자열의 공백을 허용합니다 (동안 (동안 /= «»)(setq str(getstring T «n 텍스트: «)))) 다음 줄을 따라 YOUR_LAYER_NAME을 레이어 이름으로 바꿉니다.