CAD Autolisp의 2차 개발은 어떻게 진행하나요?
CAD autolisp 2차 개발 방법
;;;램프 T4
(C:T4206()
재미없다사용자는 매개변수 없이 T4206 실행 명령을 입력하여 후속 프로그램을 로드하고 즉시 실행합니다.
(graphscr)
(setvar "cmdecho" 0)
;;명령줄 표시가 꺼졌습니다
(setq P1(getpoint "n램프의 배치 위치를 지정하십시오(T4 206.5mm 6W):"))
;;삽입점 P1과 복귀점 설정
(명령 "-INSERT" "D:/YZ_ZCAD/TK/DGT/T4206.dwg" "S" "1" P1 "0")
CAD 표준 명령을 실행할 때 명령 앞에 "-"를 추가하면(CAD 명령 참조) 대화 상자를 사용하지 않고 명령줄에서 직접 명령을 실행할 수 있습니다.
프로그램 실행 시 대화상자를 이용하여 조작할 수 없습니다. 명령 앞에 "-" 기호를 추가하거나 FILEDIA 변수를 사용하여 제어할 수 있습니다. 다른 방법으로 제어할 수 있는 특별한 경우도 있습니다.
(setvar "cmdecho" 1)
;;명령줄 표시가 켜져있습니다
(프린스)
;;;결론
)
;;;위 텍스트를 LISP에 넣고 아무 영문이름으로 저장하세요
파일을 저장한 후 AP를 사용하여 CAD에서 파일을 로드할 수 있습니다.
;; T4206 명령을 실행하여 insert 명령을 실행합니다. (파일 존재 확인)
개인적인 생각으로는 LISP보다 VBA 개발이 더 편리한 것 같아요. LISP를 배우려면 기본 지식만 익히면 되고, 깊게 공부할 필요는 없습니다. LISP 대화 상자 개발(DCL)은 VBA보다 훨씬 복잡합니다. 그러나 VBA 기능을 실행하기 위해 LISP 기능을 사용해야 하는 경우도 있습니다. AutoCAD 도움말 문서에는 개발자를 위해 특별히 제공되는 도움말이 있으며 여기에는 자세한 내용이 많이 포함되어 있습니다. 많은 편집자들은 이러한 문서의 리소스를 직접 사용하기도 합니다. 한 번 살펴보시는 것이 도움이 될 것 같습니다.
LISP CAD 2차 개발 및 수정
(defun c:dz (/oce1 n1 zn h1 sxh1 p1)
(vl-load-com)
(setq oce1 (getvar "cmdecho"))
(setvar "cmdecho" 0)
(setq ms(vla-get-modelspace
(vla-get-activedocument (vlax-get-acad-object)) 이 코드 줄은 AutoCAD에서 현재 활성 문서의 객체를 가져오는 데 사용됩니다. AutoCAD의 VLAX(Visual LISP ActiveX) 인터페이스를 사용하고 vlax-get-acad-object 함수를 통해 AutoCAD 응용 프로그램 개체를 얻은 다음 vla-get-activedocument 메서드를 사용하여 현재 활성 문서의 개체를 가져옵니다. 이러한 방식으로 현재 문서에서 속성 액세스, 객체 수정 등과 같은 다양한 작업을 수행할 수 있습니다. 이 코드 줄은 AutoCAD의 LISP 프로그래밍에서 매우 일반적이며 문서 객체로 작업할 때 매우
)
)
(만약 qz
()
(setq qz "")
)
(hz라면
()
(setq hz "")
)
(initget "c")
(setq nqz (getstring (strcat "n 접두사 /c(비어 있음): " )))
(조건
((= nqz "c") (setq qz ""))
(T (if (/= nqz "")(setq qz nqz)))
)
(setq hz "")
(if (not (setq n1 (getint "n시작 시퀀스 번호를 입력하세요 : ")))
(setq n1 1)
)
(setq zn 1)
(if (not (setq h1 (getreal "n 텍스트 높이를 지정하세요 : ")))
(setq h1 2.5)
)
(setq sxh1 (strcat qz (itoa n1) hz))는 일반적인 LISP 표현식입니다. 이 표현식에서 qz, n1, hz는 변수이고, 이들 값을 연결하여 새로운 문자열 sxh1이 생성됩니다. 이 표현이 무엇을 의미하는지 정확하게 설명해 드리겠습니다. - qz는 "prefix"와 같은 문자열을 저장하는 접두사를 나타내는 변수입니다. - n1은 10
과 같은 숫자 값을 저장하는 정수 변수입니다.(setq p1 (getpoint "n삽입 지점을 지정하세요: "))
(while (/= p1 nil)
(setq p1 (vlax-3d-point p1))
(setq txt(vla-addtext
ms
sxh1
p1
h1
)
)
(setq
n1 (+ n1 zn)
sxh1(strcat qz(itoa n1) hz)
p1(getpoint "n다음 삽입 지점을 지정하십시오: ")
)
)
(setvar "cmdecho" oce1)
(vlax-release-object ms)
(프린스)
)
CAD 2차 개발 LISP 전문가가 프로그램 작성
다음으로 변경:
(c:sdd(dwg)를 무시하세요
(setq dwg (getfiled "경로 및 파일 이름 선택" "" "Dwg" 1))
(if (wcmatch dwg "* ####-##-## ##:##.dwg")
(setq dwg (substr dwg 1 (vl-string-search " " dwg)))
문자열 변수 `dwg`가 주어지면 `(setq dwg (substr dwg 1 (- (strlen dwg) 4)))`를 사용하여 처리할 수 있습니다. 이 코드 줄의 기능은 `dwg` 문자열의 마지막 4자를 자르고 결과를 `dwg` 변수에 다시 할당하는 것입니다. 이는 파일 이름이나 기타 식별자에서 파일 확장자를 제거하기 위해 수행될 수 있습니다. 이 코드 줄을 통해 `dwg` 문자열을 수정하여 특정 요구 사항이나 형식을 충족할 수 있습니다.
)
(setq dwg (strcat dwg " " (menucmd "M=$(edtime,$(getvar,date),YYYY-MO-DD HH:MM)") ".dwg"))
(명령 "_.saveas" ""dwg)
(프린스)
)
위 내용은 CAD Autolisp의 2차 개발은 어떻게 진행하나요?의 상세 내용입니다. 자세한 내용은 PHP 중국어 웹사이트의 기타 관련 기사를 참조하세요!

PC가 AMD 칩셋에서 실행되면 사용할 때 "Windows 업데이트가 AMD를 자동으로 교체했을 수 있습니다"오류 메시지를받을 수 있습니다. 괜찮아요! Php.cn 의이 게시물은 귀하를위한 몇 가지 솔루션을 제공합니다.

Microsoft Sway는 무엇이며 PowerPoint 란 무엇입니까? 이 두 가지는 사람들의 일과 공부를 촉진하기위한 다른 프레젠테이션 도구입니다. 따라서 그들과 그들 사이의 선택의 차이점은 무엇입니까? Php.cn 웹 사이트 의이 게시물은 일부를 제공합니다
![[Must-Know] 승리 10 오프라인 설치 프로그램 : 설치 WIN 10 22H2 오프라인](https://img.php.cn/upload/article/001/242/473/174490855357657.png?x-oss-process=image/resize,p_40)
최신 Windows 10 오프라인 또는 인터넷없이 설치할 Windows 10 오프라인 설치 프로그램이 있습니까? 물론 그렇습니다. PHP.CN 소프트웨어는이 게시물에서 Windows 10 오프라인 설치 프로그램을 얻는 방법을 보여줍니다.

일부 사용자는 라이센스가 만료 된 후 Windows Server 자동 분쇄 문제를 충족한다고보고합니다. Php.cn 의이 게시물은 만료 된 Windows Server 자동 분리를 중지하는 방법을 알려줍니다. 이제 계속 독서를하십시오.

특정 폴더에 액세스 할 때 "파일이 표시 될 수 없음"오류로 어려움을 겪고 있습니까? 일부 사용자는이 문제에 대해 불평하고 유용한 조치를 찾고 있습니다. 파일에 대한이 기사는 php.cn wil에서 Onedrive를 표시 할 수 없습니다.

Street Fighter 6은 Capcom이 출판 한 전투 게임이며 Street Fighter 프랜차이즈에 속한 많은 게임 팬을 끌어 들였습니다. 어떤 사람들은 PC 에서이 게임을하기를 희망합니다. 그렇게하려면 Street Fighter 6 시스템 요구 사항을 충족해야합니다.

드라이브 이름 (볼륨 레이블)은 Windows에서 기본적으로 드라이브 문자 앞에 표시됩니다. 드라이브 이름 전에 드라이브 문자를 보여주는 방법을 알고 있습니까? Php.cn 의이 게시물은 파일 탐색기에서 먼저 드라이브 문자를 보여주는 방법을 알려줍니다.

언어 막대는 다중 언어 Windows 사용자에게 유용합니다. 간단히 클릭하여 언어를 변경할 수 있습니다. 어떤 사람들은 작업 표시 줄의 언어 표시 줄을 끄고 싶어합니다. 당신은 그것을하는 방법을 알고 있습니까? 모르는 경우 P를 찾으려면이 php.cn 게시물을 읽으십시오.


핫 AI 도구

Undresser.AI Undress
사실적인 누드 사진을 만들기 위한 AI 기반 앱

AI Clothes Remover
사진에서 옷을 제거하는 온라인 AI 도구입니다.

Undress AI Tool
무료로 이미지를 벗다

Clothoff.io
AI 옷 제거제

AI Hentai Generator
AI Hentai를 무료로 생성하십시오.

인기 기사

뜨거운 도구

스튜디오 13.0.1 보내기
강력한 PHP 통합 개발 환경

WebStorm Mac 버전
유용한 JavaScript 개발 도구

SublimeText3 Mac 버전
신 수준의 코드 편집 소프트웨어(SublimeText3)

DVWA
DVWA(Damn Vulnerable Web App)는 매우 취약한 PHP/MySQL 웹 애플리케이션입니다. 주요 목표는 보안 전문가가 법적 환경에서 자신의 기술과 도구를 테스트하고, 웹 개발자가 웹 응용 프로그램 보안 프로세스를 더 잘 이해할 수 있도록 돕고, 교사/학생이 교실 환경 웹 응용 프로그램에서 가르치고 배울 수 있도록 돕는 것입니다. 보안. DVWA의 목표는 다양한 난이도의 간단하고 간단한 인터페이스를 통해 가장 일반적인 웹 취약점 중 일부를 연습하는 것입니다. 이 소프트웨어는

Dreamweaver Mac版
시각적 웹 개발 도구
