포인트캠-AD > 묻고답하기 > 추가적으로 하나더요 ^^; 치수선...

	게시물 1,200건

[CAD] 추가적으로 하나더요 ^^; 치수선...

글쓴이 : JC악동 날짜 : 2012-08-16 (목) 10:09 조회 : 2499

치수선도 원하는 폰트,화살표, 크기, 컬러등도 열리는 도면마다 같게할수있을까요?

^^;;

JC악동 님의 묻고답하기 최신글 [더보기]

관리자

2012-08-17 (금) 09:38

;; 아래는 열려진 파일의 선택한 부분만 환경을 변화시키는 소스입니다.

(defun c:My-Dim ()
    (setvar "dimblk" "Open30")
    (setvar "dimblk1" "Open30")
    (setvar "dimblk2" "Open30")


   (setvar "dimclrd"         251) ;; 치수선,지시선 컬러
   (setvar "dimclre"         251) ;; 치수보조선
   (setvar "dimclrt"         256) ;; 치수문자
   (setvar "dimdec"            2) ;; 소숫점 자릿수
   (setvar "dimdle"       0.0000) ;; 치수선 연장
   (setvar "dimdli"       3.7500) ;; 치수선 간격
   (setvar "dimdsep"         ".")
   (setvar "dimexe"       1.2500)
   (setvar "dimexo"       0.6250)
   (setvar "dimgap"       0.6250)
   ;;(setvar "dimlfac"         1.0)
   ;;(setvar "dimscale"       sc)
   (setvar "dimtad"            1) ;; 치수선 위에 문자 놓기
   (setvar "dimtofl"           0) ;; 치수보조선 내부로 선 밀기
   (setvar "dimtxt"          2.5) ;; 문자 높이
   (setvar "dimzin"            8) ;; 0 억제

   (command "-style" "My-PCAM" "romans.shx,ghs.shx" "0" "0.75" "0" "" "")
   (setvar "dimtxsty" "My-PCAM")
   (command "_dim" "_update" (ssget) "" "_exit")
   (princ)
)

;; 아래는 열려진 파일의 선택한 부분만 환경을 변화시키는 소스입니다. (defun c:My-Dim () &nbsp;&nbsp;&nbsp; (setvar "dimblk"&nbsp; "Open30") &nbsp;&nbsp;&nbsp; (setvar "dimblk1" "Open30") &nbsp;&nbsp;&nbsp; (setvar "dimblk2" "Open30") &nbsp;&nbsp; &nbsp;&nbsp; (setvar "dimclrd"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 251)&nbsp; ;; 치수선,지시선 컬러 &nbsp;&nbsp; (setvar "dimclre"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 251)&nbsp; ;; 치수보조선 &nbsp;&nbsp; (setvar "dimclrt"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 256)&nbsp; ;; 치수문자 &nbsp;&nbsp; (setvar "dimdec"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 2)&nbsp; ;; 소숫점 자릿수 &nbsp;&nbsp; (setvar "dimdle"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 0.0000)&nbsp; ;; 치수선 연장 &nbsp;&nbsp; (setvar "dimdli"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 3.7500)&nbsp; ;; 치수선 간격 &nbsp;&nbsp; (setvar "dimdsep"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ".") &nbsp;&nbsp; (setvar "dimexe"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 1.2500) &nbsp;&nbsp; (setvar "dimexo"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 0.6250) &nbsp;&nbsp; (setvar "dimgap"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 0.6250) &nbsp;&nbsp; ;;(setvar "dimlfac"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 1.0) &nbsp;&nbsp; ;;(setvar "dimscale"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; sc) &nbsp;&nbsp; (setvar "dimtad"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 1)&nbsp; ;; 치수선 위에 문자 놓기 &nbsp;&nbsp; (setvar "dimtofl"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 0)&nbsp; ;; 치수보조선 내부로 선 밀기 &nbsp;&nbsp; (setvar "dimtxt"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 2.5)&nbsp; ;; 문자 높이 &nbsp;&nbsp; (setvar "dimzin"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 8)&nbsp; ;; 0 억제 &nbsp;&nbsp; (command "-style" "My-PCAM" "romans.shx,ghs.shx" "0" "0.75" "0" "" "") &nbsp;&nbsp; (setvar "dimtxsty" "My-PCAM") &nbsp;&nbsp; (command "_dim" "_update" (ssget) "" "_exit") &nbsp;&nbsp; (princ) )

JC악동

2012-08-18 (토) 09:50

정말 감사합니다 멋진 기능이네요 ^^

sa22

2012-08-18 (토) 10:00

사용방법좀....

JC악동

2012-08-18 (토) 10:08

사용하다보니 또다른 궁금한게 생기는데요..

1. 저위와 같은 색,텍스트 변경과 더불어 치수선을 한 레이어로 변경까지 가능할까요?

2. 텍스트도 이와같이 변경 할수 있을까요??

3. 아~그리고 arrow size 는 어떻게 조절할까요?

계속 번거롭게 해드려 죄송해요

도면을 받아서 작업하다보면 치수선 정리하는 시간도 좀 걸리다보니 좀 더 수월하게

JC악동

2012-08-18 (토) 10:10

c:/autocam 폴더에가시면 ㅡㅡㅡ> PcamUserSetup.Lsp 파일여시고 붙여넣기하심 됩니다 ^^

또한 친절하게 옆에 무엇인지 알려주신곳 문자사이즈나 컬러등도 수정해서 넣으셔도 됩니다.