728x90 전체 글406 리습 - 범위선택 pdf 자동출력하기 ;;=============================; 범위선택 pdf자동출력하기(2016.5 ChoiDongWoo); ->DWG To PDF.pc3를 이용하여 축척을 자동계산하여 A3 pdf출력 하기; ->선택순으로 작업디렉토리에 화일명-1,화일명-2,...으로 자동으로 이름를 부여하여 출력; ->model & paper space에서 모두작동(2016.7 오류수정);;--------------------------------------------(defun c:qa3p(/ ds ctb prt sheet n k1 k ss wpt pt1 pt2 px1 px2 py1 py2 p1 d1 sc sc1 yn num) (setvar "cmdecho" 0) (setq ds 514.420) ; A3대각.. 2024. 12. 31. 텍스트로 된 X,Y 좌표을 찍어 위치표현하기 ;;텍스트로 된 X,Y 좌표을 찍어 위치표현하기(defun c:pt() (setq ss1 (entsel "\n-x좌표->")) (setq ss2 (entsel "\n-y좌표->")) (setq pt1 (cadr ss1)) (setq en1 (car ss1) en2 (car ss2)) (setq ptx (cdr (assoc 1 (entget en1)))) (setq pty (cdr (assoc 1 (entget en2)))) (setq pt2 (list (atof ptx) (atof pty))) (command "line" pt1 pt2 "")(prin1))[사용설명]텍스트로 된 x,y 문자을 선택하면첫번째 선택문자위치(pt1)와 찾은 좌표점(pt2) 사이에 선을 그려줌 2024. 12. 31. 좌표표기하기 ; 좌표표기하기(2008.3.20 주말농부); ->텍스트로 된 X,Y 좌표을 찍어 위치에 박스을 표현하기(defun c:pt(/ os ss1 ss2 pt1 pt2 ptx pty en1 en2 ds p1 p2) (setq os (getvar "osmode")) (setq ss1 (entsel "\nX좌표값을 선택->")) (setq ss2 (entsel " Y좌표값을 선택->")) (setvar "osmode" 0) (setq pt1 (cadr ss1)) (setq en1 (car ss1) en2 (car ss2)) (setq ptx (cdr (assoc 1 (entget en1)))) (setq pty (cdr (assoc 1 (entget en2)))) (setq.. 2024. 12. 31. 속성블럭 되돌리기 ; 블록 되돌리기(2007.4 주말농부); ->미러/로테이트 된 블록을 되돌려주는 리습; ->삽입점(dxf10)의 좌표도 되돌려줌; ->제외블럭(fr1,fr2) 추가 (2007.8.17); ->속성블럭도 되돌림(2007.8.27)(defun c:q(/ ss ssn cm k ed db10 db41 db43 db210 blist);q가 명령어,변경후 사용 (prompt " mirror & rotate된 블럭을 되돌림...") (setq ss (ssget (list (cons 0 "insert")))) (setq cm (getvar "cmdecho")) (setq blist '())(if ss (progn (setvar "cmdecho" 0) (setq k 0 ssn (ssle.. 2024. 12. 31. 리습 - 선택한 블럭의 좌표 뽑기-2 (7-0815) 2024. 12. 31. 선택한 블럭의 좌표 뽑기-1 (7-0814) 2024. 12. 31. 이전 1 ··· 14 15 16 17 18 19 20 ··· 68 다음 728x90
