cad中批量更改尺寸标注文字

zjf00 · 发表于 2010-1-16 16:31:04

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

您需要登录才可以下载或查看，没有帐号？注册

x

本帖最后由 zjf00 于 2010-1-17 15:20 编辑

在CAD中作图时，经常将尺寸标文字替换成相应的数字，目的是为了拉伸标注的对象时标注的数值不改变。
单个修改的话很容易，只要在标注属性的文字替代中写入相应的数字就可以了。不过在修改大量标注时，这就有点力不从心了。编写插件应该可以解决，这样的插件怎样编写，请教各位版友

哥哥很善良 · 发表于 2010-1-17 08:23:42

CAD不是文字编辑软件，你说的功能暂时不能实现，建议导入到其他软件后（比如Word，记事本，写字板等）更改，再导入CAD。

zhuzaihb · 发表于 2010-1-17 12:11:52

可以用查找替换功能试试

zjf00 · 发表于 2010-1-17 15:19:47

本帖最后由 zjf00 于 2010-1-17 15:22 编辑

等了好久也没有等到有价值的回复。
其实这对于会一些lisp的人来说真的是一件很容易的事
我没有学过lisp,不过依靠N久以前学过的一点点C语言的编程基础，再参照其他高手写的类似的lisp代码，总算凑齐了一段代码，解决了这个问题，现在发出来和有需要的同志共享一下：
(defun c:dimdd (/ measure real result ss text)
(vl-load-com)
(vla-endundomark
(vla-get-activedocument
   (vlax-get-acad-object)
)
)
(vla-startundomark
(vla-get-activedocument
   (vlax-get-acad-object)
)
)
(setq ss (ssget '((0 . "DIMENSION"))))

(foreach obj
(mapcar
   'vlax-ename->vla-object
   (vl-remove-if 'listp (mapcar 'cadr (ssnamex ss)))
)
   (if (and (setq text (vla-get-textoverride obj))
      (setq measure (vla-get-measurement obj))
      (/= text "")
      (numberp (read text))
)
(setq real (read text))
(setq real measure)
   )
   (and real
(setq result (vl-princ-to-string (+ real 0.0)))
(vla-put-textoverride obj result)
   )
)

(vla-endundomark
(vla-get-activedocument
   (vlax-get-acad-object)
)
)
(princ)
)
(princ "\n本程序作者: zjf00 ")

zhuzaihb · 发表于 2010-1-17 15:37:36

LZ能不能加些注解啊！让我们初学者能看明白

xingshuo · 发表于 2010-1-17 15:58:20

楼主的程序命令是什么啊。

zjf00 · 发表于 2010-1-17 17:03:47

6# xingshuo

dimdd
“defun c：”后面跟着的字符串

djl1025 · 发表于 2011-4-13 18:14:26

程序的命令：dimdd
找了很久，谢谢楼主的分享

djl1025 · 发表于 2011-4-13 18:36:07

程序在使用中，发现批量文字替换后都要精确小数点后两位
当标注精确到整数位时，替换后面也带零
是否能优化下程序，使替换后的标注数据和替换前一样

朱钦 · 发表于 2011-4-13 22:06:37

也来学习一下

tupobi · 发表于 2011-4-14 18:13:35

可以用查找替换功能试试

luospring · 发表于 2011-4-16 20:57:33

这个工具也很强大了，呵呵，谢谢楼主

		自动登录	找回密码
密码			注册

通知

[已解决] cad中批量更改尺寸标注文字

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

浏览过的版块