【求助】CAD里面标直径

CAD里面标直径很不方便,老是用%%C,听说二次开发可以解决,望高手出手.我用的是2004.

要想标注方便，最好用caxa!!!!

楼上的你还是把acad玩懂了再发话吧

我自己遍了一个,可以用,不过还有点儿小毛病,我不知道怎么修改了,那位大虾帮忙再调试一下,多谢!
用法:
    将下面的LISP语句复制到你电脑里的ACAD.LSP文件里,(如果你电脑里有多个ACAD.LSP,选择AUTOCAD目录下的那个. 如果你AUTOCAD目录里没有ACAD.LSP文件,将下面的LISP语句复制到记事本里,保存为ACAD.LSP,放在AUTOCAD目录下.) 重新启动AAUTOCAD, 输入命令: DW  回车.
LISP语句:
(Defun c:dw ()
(SETQ PT1 (GETPOINT "ENTER THE FIRST POINT:"))
(SETQ PT2 (GETPOINT "ENTER THE SECEND POINT:"))
(command "dimpost" "%%C<>""")
(command "dimlinear" PT1 PT2 "t" "" PAUSE)
(COMMAND "DIMPOST" " ")
  )

下载也可以:
下载解压缩后,在AOTUCAD中输入APPLOAD,选择刚才下载的DW.LSP.
输入命令: DW, 回车.

真是太感谢了,以前标很多镶针时,累的要死,现在好了.谢了

  

(Defun c:dw ()  
  (SETQ PT1 (GETPOINT "兄弟（姐妹），请你选择第一个坐标点，我靠，听到没有呀……:"))  
  (SETQ PT2 (GETPOINT "这样就对了，快选择第二个点，妈的，快点！^V^:"))  
  (command "dimpost" "%%C<>""")  
  (command "dimlinear" PT1 PT2 "t" "" PAUSE)  
  (COMMAND "DIMPOST" " "))

新建一种标注样式，在线性标注钟前缀一栏输入%%C,确定。以后标注线性直径时，将此标注样式设为当前即可

我有一个方法，我们经理教的。
(defun c:dimcircle()
      (command "dim")
      (command "newnext" "%%c<>")
)
把程序换成上面的内容，所有要标注的尺寸一下子就OK了，试试看

請參考《关于仿宋体和CAD的不兼容性》一帖。