보통은 위 치수처럼 하실려면 DIMPOST 값을 바꾸거나 치수 입력 후 변경을 해야 되지만
아래 리습을 이용하면 치수기입 처음 부터 지름부호(Ø)를 가진 치수를 넣으실 수 있습니다.
치수 입력후에도 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" "")

등등....
등등....
등등.... 
캐드 노가다 탈출을 꿈꾸며....[캐드노가다방지위원회] ㅋ