向大家推荐一个不错的粗糙度标注程序

cag

一个用VBA写的粗糙度标注程序，
1.当选中粗糙度时，在右键编辑菜单自动添加“修改粗糙度(M)..."选项。
2.自动添加"其余:"。
3.动态标注!!!动态修改。
4.文字样式任你选。
5.为不同的文字样式自动调整文字高度。

;;;请将此文件和"粗糙度标注.dvb"copy到AutoCAD的支持路径下
;;;请在acad.lsp中添加vl-vbaload (findfile "粗糙度标注.dvb"))和(load "ccd")
;;;命令:ccd
(defun c:ccd()
  (vl-vbarun "ccdsz")
  (princ)
  )
;;;现仅仅只是用VBA单独编写,如果充分与AutoLisp结合，则用起更觉得心应手了，
;;;这就以后有时间再做了.