728x90 ■ 유용한 캐드&리습/▫ AutoLISP16 선택한 블럭의 좌표 뽑기-1 (7-0814) 2024. 12. 31. 선택한 블럭의 좌표 뽑기(7-0812) ; 선택한 블럭의 좌표 뽑기(2007.8.12 주말농부); ->블럭을 한개 선택하면 같은이름의 블럭좌표을 정렬하여 표로 작성해줌; ->정렬순서 1)좌측하단기준 2)x-좌표순 3)Y-좌표순 2024. 12. 31. 각도가 같은 선만 추출하기 ;;======================; 각도가 같은 선만 추출하기(2008.02.18 주말농부); ->선택된 객체와 동일한 각도의 선만 선택됨;;--------------------------------------(defun c:q(/ en en1 ss1 ss2 ed ed1 ag1 ag2 pt1 pt2 k) (setq en1 (car (entsel "\n기준선 선택->"))) (setq ed1 (entget en1))(if (= "LINE" (dxf 0 ed1)) (progn (prompt " 객체선택->") (setq ss1 (ssget '((0 . "LINE"))) ) (setq pt1 (dxf 10 ed1) pt2 (dxf 11 ed1)) (setq ag1 (angl.. 2024. 12. 31. 리습 - 모든레이어 화면에 목록 만들기 모든레이어 화면에 목록 만들기 2024. 12. 31. 리습 - 전체 Block list를 txt 및 dwg로 내보내기 ;=============================; Block list를 txt 및 dwg로 내보내기 (2020.7 주말농부); ->1. 작업폴더에 dwg화일명.txt를 생성해주고; ->2. 내부블록을 외부dwg파일로 생성하는 리습;------- Block list Txt & Dwg -------------(defun c:btd(/ bed1 bed2 bst1 bst2 bst-lst path npath bla_wr1 n bst dname) (setq bed1 (tblnext "block" t)) (setq bst1 (cdr (assoc 2 bed1)));block name (setq bst-lst (list bst1)) (setq bed2 (tblnext "block")) (while be.. 2024. 12. 20. 리습 - 전체 Block list를 txt로 내보내기 ;=======================================================; Block list를 txt로 내보내기 (2020.7 주말농부); ->dwg 폴더에 dwg화일명.txt를 생성해주는 리습;------- Block list Txt ----------------------------------------------------------------------(defun c:btx(/ bed1 bed2 bst1 bst2 bst-lst path bla_wr1 n bst dname) (setq bed1 (tblnext "block" t)) (setq bst1 (cdr (assoc 2 bed1)));block name (setq bst-lst (list bst1)) .. 2024. 12. 20. 이전 1 2 3 다음 728x90
