티스토리 뷰
아래 리습을 이용하면 치수기입 처음 부터 지름부호(Ø)를 가진 치수를 넣으실 수 있습니다.
치수 입력후에도 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 |