标注 - AutoCAD工具插件 - AutoCAD论坛 - 明经CAD社区

tear 发表于 2002-3-27 17:42:00

标注

在标注时，比如说轴的剖面图，要标注成直径，就是说尺寸数字前得加一个直径符号，每次都得输入T，再写%%C，太烦了，有没有更方便的方法，我是说比如二次开发的程序！

前生发表于 2002-3-27 20:43:00

本帖最后由作者于 2002-3-27 20:43:27 编辑

(DEFUN C:HOD ( / ls en str)
(setq ls nil en nil)
(SETQ LS (ENTSEL "\n请选择一个dim:.."))
(if ls
(progn
(setq en (car ls))
(setq str (cdr (assoc 0 (entget en))))
)
)
(if (= "DIMENSION" STR)
(COMMAND "DIM1" "new" "%%c<>" en "")
(PRINC "\n 没有选中dim")
)
)

Raheleh 发表于 2002-3-27 19:39:00

单独创建一个新的标注（专门用于直径标注），在prefix里填写%%c即可。方便吧。

前生发表于 2002-3-27 20:14:00

这样行不行

(Defun C:Hd ()
;;;____________________________________
(defun hd1 ()
(setvar "dimtoh" 0)
(setvar "dimexe" 0.4)
(setq p1 nil
   p2 nil
)
(setq p1 (getpoint "\n Ö¸¶¨µÚÒ»Ìõ³ß´ç½çÏßÆðµã"))
(if p1
   (setq p2 (getpoint p1 "\n Ö¸¶¨µÚÒ»Ìõ³ß´ç½çÏßÆðµã"))
)
(if (and p2 p1)
   (progn
(Command "Dim1" "Hor" p1 p2 pause "")
(setq ls (entlast))
(setq p1 nil
      p2 nil
)
   )
   (progn
(setq en (entsel "\n ÇëÑ¡È¡Óû±ê×¢µÄÊµÌå:.."))
(if en
   (progn
   (Command "Dim1" "Hor" "" en pause "")
   (setq ls (entlast))
   (setq en nil)
   )
)
   )
)
)
;;;____________________________________
;;;(SETLAY "DIM" 1 "CONTINUOUS")
(setq ls nil)
(hd1)
;;;(setq ls (entlast))
(if ls
(progn
   (setvar "dimpost" "%%C<>")
   (command "dim1" "update" ls "")
   (setvar "dimpost" "")
   (setq ls nil)
)
)
(setq hd1 nil)
(princ)
)

mccad 发表于 2002-3-27 20:18:00

还是做一个单独的程序来增加直径符号好，标注完后一次性选择需要直径符号的标注

前生发表于 2002-3-27 20:33:00

随手编的，未试

东哥发表于 2002-3-28 08:05:00

还可以用修改文字的方法

修改尺寸标注上的文字，一次命令可以连着对多个标注去修改，第一次输入“%%c”后把它放到剪贴板上（ctrl+c），改好一个标注后再选后一个标注，将光标移至最前面后用（ctrl+v），就好了。

mccad 发表于 2002-3-28 08:51:00

用特性框也可以，选中所有需要加直径符号的对象，改再特性中的替代文字项。

页: [1]