标注问题

e719

我想问一下标注是半径，怎么改成直径。

1. (DEFUN C:DM ()
   
2.     (command "DIMPOST" "M<>" )
   
3.    (command "DIMDEC" "0")
   
4.     (COMMAND "dimtad" "1" "dimtoh" "1" "DIMGAP" "0" "dim1" "ra" PAUSE "<>" PAUSE )
   
5.     (command "DIMPOST" "<>" )
   
6.     (command "dimstyle" "r" "lm-dim"))
   

(DEFUN C:DM () <br />     (command "DIMPOST" "M<>" )<br />    (command "DIMDEC" "0")<br />     (COMMAND "dimtad" "1" "dimtoh" "1" "DIMGAP" "0" "dim1" "ra" PAUSE "<>" PAUSE )<br />     (command "DIMPOST" "<>" )<br />     (command "dimstyle" "r" "lm-dim"))<br />

xudongchu

(DEFUN C:tt ()
        (command "DIMPOST" "M<>" )
        (command "DIMDEC" "0")
        (COMMAND "dimtad" "1" "dimtoh" "1" "DIMGAP" "0" "dim1" "D" PAUSE "<>" PAUSE )
        (command "DIMPOST" "<>" )
        (command "dimstyle" "r" "lm-dim"))