티스토리 뷰

CAD/AutoLisp

치수에 "pi" 기호 넣기

그냥이 2009. 3. 20. 03:03

아래 리습을 이용하면 치수기입 처음 부터 지름부호(Ø)를 가진 치수를 넣으실 수 있습니다.

치수 입력후에도 DIMPOST는 변함없이 초기상태 유지를 합니다.

 

(DEFUN C:VHD(/ a b)    ;;;수직/수평 지름치수           
                 (COMMAND "LAYER" "S" "사용자레이어이름" "")(SETVAR "DIMTOL" 0)
                 (setq a (getpoint "\n First point"))
                 (setq b (getpoint a "\n Second point"))
                 (COMMAND "dimlinear" a b  "t" "%%c<>" pause)   )

 

 

아래 리습은 이미 작성된 치수에 지름(Ø) 기호 넣기입니다.

 

(DEFUN C:PI ()  

(PRINC "=pi()")  

(COMMAND "dimoverride" "dimpost" "%%c<>" "")

(prompt "\n표시할 치수를 선택하세요")

(PRINC))

 

이 리습은 다양하게 응용이 가능합니다.

-PCD : (COMMAND "dimoverride" "dimpost" "PCD<>" "")

-중심에 대한 : (COMMAND "dimoverride" "dimpost" "<> CENTRAL" "")

-괄호 : (COMMAND "dimoverride" "dimpost" "(<>)" "")

-참고 : (COMMAND "dimoverride" "dimpost" "<> REF" "")

-사각 : (COMMAND "dimoverride" "dimpost" "□ <>" "")

-등간격 : (COMMAND "dimoverride" "dimpost" "<> EQ. SPACED" "")

-깊이 : (COMMAND "dimoverride" "dimpost" "<> DEPTH" "")

-요 : (COMMAND "dimoverride" "dimpost" "凹<>" "")

-철 : (COMMAND "dimoverride" "dimpost" "凸<>" "")

-바깥쪽 : (COMMAND "dimoverride" "dimpost" "<> OUT SIDE" "")

-안쪽 : (COMMAND "dimoverride" "dimpost" "<> IN SIDE" "")

'CAD > AutoLisp' 카테고리의 다른 글

공차 기입 메뉴  (0) 2009.03.21
블럭 만들어서 제자리 붙이기  (1) 2009.03.20
선종류/레이어/라인타입/색상 바꾸는 리습  (2) 2009.03.20
최근에 올라온 글
최근에 달린 댓글
Total
Today
Yesterday
«   2024/04   »
1 2 3 4 5 6
7 8 9 10 11 12 13
14 15 16 17 18 19 20
21 22 23 24 25 26 27
28 29 30
글 보관함