반응형 autocad132 radian 리습에서 각도는 라디안으로 계산한다. 도(º)를 라디안으로 변환하는 함수다.;;(defun KM:RAD ( _DEGREE / deg ang)(setq deg _DEGREE)(setq ang (* pi (/ deg 180.))));; 2025. 9. 8. 문장 내부에 마지막 숫자만 무조건 1 증가; 감소 ;; 문장 안에 있는 마지막 숫자만 무조건 1 증가; 1감소;; AFC.1 을 'np' 명령으로 선택하면 AFC.2; 'nm' 명령으로 선택하면 AFC.0으로 수정.;; 날짜를 2025 .09. 04 를 선택하면 2025. 09. 05 또는 03 으로 수정함.;; 숫자가 중간에 있어도 가능 "평면도(3)" → "평면도(4)" | "평면도(2)";; 주의) 9 증가는 10 이 아니고 0 입니다; 0 감소는 -1 이 아니고 9 입니다.;; +- 1 The Last Numer(defun KM:POSASC ( _STR _N / str asc )(setq str _STR n _N)(setq asc (ascii (substr str n 1))))(defun KM:getNUM ( / )(setq strdxf (ent.. 2025. 9. 4. 대소문자 바꾸기 아스키 코드파일:attachment/1275273992_asciitable.gif 2열 이후의 코드들은 위키에서 사용할 수namu.wiki;; by ASCII(chr (+ (ascii "C") 32)) ;; "C" -->"c"(chr (- (ascii "c") 32)) ;; "c" --> "C";; by Lisp fuction(strcase "CcCc") ;; "CCCC"(strcase "CcCc" T) ;; "cccc";; 소문자는 대문자보다 ascii 10진법으로 32 크다.;; strcase 함수로 일괄 대소문자 변경.;; Changing the capitalize the first letter(defun KM:CAPI ( _STR / str0 str1 str2 str3 Nstr)(setq str0.. 2025. 9. 3. Find Centroid of reg.Triangle ;;정삼각형의 도심 찾기. 리비전마크 중심으로 텍스트 위치 시키기 위해 개발(defun KM:TRICENTROID ( / OSM p1 p2 mid len) (setq OSM (getvar 'osmode)) (setvar 'osmode 1)(setq ang 0 tc '(0 0 0))(setq p1 (getpoint "\nFirst point: ")) (setq p2 (getpoint "\nSecond point: ")) (setq mid (polar p1 (angle p1 p2) (/ (distance p1 p2) 2.))) ;; mid point of side = 아랫변의 중간점(setq len (* (sqrt 3) (/ (distance mid p2) 3.))) ;; root(3) x length/2 .. 2025. 9. 2. 엔티티 수정; Modify entity(entmod) entmod; entmode 아님; modify임; 오타주의 Help help.autodesk.comsubst Help help.autodesk.comentget Help help.autodesk.com;; 표제란 정보 수정. 단순 반복 타이핑 줄이기 위해 개발;; 선택만으로(타이핑 없이) 지정한 날짜로 수정하기. Revision 날짜; 제출 날짜;; 선택만으로(타이핑 없이) 지정된 문자로 수정하기. AFC REV.1; APPROVAL FOR CONSTRUCTION;; 2025. 08. 27 완성.;; by Lee Snaghoen @KM Lab;;(entmod elist) ;; INPUT elist, Modify entity;;(subst newitem olditem lst) ;; eXchange Pro.. 2025. 8. 26. 납품: Xref; revision Layer; issue Date 관리 ;; 1) Revision or Reference Layer 작성;; 2) 표제란 Rev 가장 오래된 항목 삭제/최근 항목 아래로 복사;; 3) Reference xref stamp detatch;; 4) 모든 Xrefs 바인딩 시키고 바인디드 폴더에 저장하기(defun c:bbb ( / cd ph dname sa ) ;; 4) binding all xrefs (vl-load-com) (setq cd (rtos (getvar "cdate") 2 0)) ;; Binding all xref (setvar "filedia" 0) (command "-xref" "bind" "*") ;; SaveAs to Binded folder (setq ph (strcat "d:\\BINDED_" cd)) (setq dnam.. 2025. 8. 25. 이전 1 2 3 4 ··· 22 다음 반응형
