cag 发表于 2003-2-23 14:18:00

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

一个用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结合,则用起更觉得心应手了,
;;;这就以后有时间再做了.
页: [1]
查看完整版本: 向大家推荐一个不错的粗糙度标注程序