728x90 치수3 문자, 치수 스타일 설정 리습 ;; 현 도면 문자들 스타일변경 (defun C:mystyle () (setvar "cmdecho" 0) (setvar "ltscale" 2) ; 라인타입 스케일 2 2023. 2. 14. 카운터보어 리습 ;카운터보어 치수기입 dcb (defun dtr(a)(* pi (/ a 180.0))) (defun C:dcb (/ cla osm dms l l1 l2 alen hd hd1 su def_hd def_su def_dp dp h7 sp ap txt txt1 arrang h1 h2 h3 h4 h5 h6) (setvar "CMDECHO" 0) (setvar "BLIPMODE" 0) (setq osm (getvar "osmode")) (setq cla (getvar "clayer")) (setvar "osmode" 544) (setq dms (getvar "dimscale")) (setq L (* 2.5 dms)) (setq L1 (* DMS 1.9)) (setq L2 (* DMS 2.1)) (setq alen .. 2023. 2. 14. 치수 레이어를 자동으로 바꿔주는 리습 ;이 리습은 치수뽑을때 자동으로 도면층이 사용자가 지정한 치수 레이어로 바뀝니다. 치수기입 끝나면 복귀... ;리습 로딩은 APPLOAD 명령으로 하시거나 메뉴-도구-오토리습-응용프로그램 로드 하시면 됩니다. ;주의하실 점은 경로지정된 폴더 안에 넣으시면 됩니다. ;아래 내용중 (setq laynam "치수선") 이부분은 사용자의 치수선 도면층 이름으로 넣으시면 됩니다. ;메모장에 아래 복사하셔서 저장하면 됩니다.확장자는 [ 아무이름.LSP ] (vl-load-com) (vlr-command-reactor nil '((:vlr-commandWillStart . start_Dimm))) (vlr-command-reactor nil '((:vlr-commandEnded . end_Dimm))) (vlr-co.. 2023. 2. 14. 이전 1 다음 728x90