[求助]：如何用Vl编程编辑各种尺寸文字

hqd9639 · 发表于 2003-5-28 10:50:46

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

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

×

如题

ll_j · 发表于 2003-5-28 11:26:06

到底是什么意思？
编程序的话，可以研究一下dxf组码，其中组码1就是文字内容，对于自动标注，组码1的内容是空字符，R2000后对应增加了组码42（R14没有），可以通过修改对于组码修改内容。如果是修改比例、颜色等，就比较麻烦了，需要使用扩展数据（详见联机帮助）。
如果只是一般使用，修改标注文字，可以使用下面的R12代码：
(defun c:Nt()(command "dim1" "new"))

hqd9639 · 发表于 2003-5-28 12:30:08

长老，我是指VLA-OBJECT类型的尺寸实体其有关文字属性 Measurement (RO)是只读的，不知有什么方法来编辑文字

lijiao · 发表于 2003-5-28 12:59:56

修改TextOverride属性。

hqd9639 · 发表于 2003-5-28 15:27:39

最初由 lijiao 发布
[B]修改TextOverride属性。 [/B]

老李，谢谢。感觉上，用VL比直接用DXF写程序会更简单。

原是想写个修改尺寸的小程序：

<normalfont>
(defun c:chdimtxt ()
(vl-load-com)
(setq k T)
(while k
(setq entdim (entsel "\n请选取尺寸<退出>: "))
(if entdim
(progn
(setq entdim (car entdim))
(setq str1 (cdr (assoc 0 (entget entdim))))
(if (= str1 "DIMENSION")
(progn
(setq newstr (getstring "\n请输入新尺寸文字:"))
(setq dimvla (vlax-ename->vla-object entdim))
(setq nam (vla-put-TextOverride dimvla newstr ))
)
)
)
(setq k nil)
)
)
(princ)
)
</normalfont>

lsjjm · 发表于 2003-5-28 17:38:51

如果单单是修改尺寸文字的话，没必要编程，用ddedit即可。

ll_j · 发表于 2003-5-28 18:08:05

最初由 hqd9639 发布
[B]

老李，谢谢。感觉上，用VL比直接用DXF写程序会更简单。

  原是想写个修改尺寸的小程序：

  (defun c:chdimtxt ()
  (... [/B]

说实话，Vlisp我没有研究，不过仅仅是修改标注文字的功能好像还是使用我贴的代码更方便些，这是可以批量修改的。

lsjjm · 发表于 2003-5-28 18:28:11

Vlisp批处理尺寸标注，如添加前后缀字符，公差，修该尺寸精度，隐藏箭头和尺寸线等等，间接实用。但就是要修改尺寸文字，所有的尺寸会一样？用的着批处理吗？

lijiao · 发表于 2003-5-29 10:23:21

最初由 hqd9639 发布
[B]

老李，谢谢。感觉上，用VL比直接用DXF写程序会更简单。

  原是想写个修改尺寸的小程序：
[code]<normalfont>
  (defun ... [/B]

不要称我老李了，在公司，同事们都叫我A JIAO。
................................................................................................................
VL的功能的确非常强大，不仅可以访问CAD图元，而且可以访问VBA能够访问的一切，唯一不足的是做对话框不方便。

hqd9639 · 发表于 2003-5-29 11:06:49

呵，A JIAO。我的朋友和同事喜欢叫我黄工或老黄。。。。。。

aeo · 发表于 2003-5-30 23:41:37

ll_j的方法
(defun c:Nt()(command "dim1" "new"))
我很早也说过.这个的好处是如果回空,尺寸就恢复原值.

(defun c:dt (/ ww w)
(setq ww (ssget))
(setq w (getstring "new"))
(command ".dim1" "_newtext" w ww "")
)

账号		自动登录	找回密码
密码			立即注册

[求助] [求助]：如何用Vl编程编辑各种尺寸文字

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

浏览过的版块