[LISP]请问各位版主……

tukuitk · 发表于 2003-11-30 09:10:00

请问各位版主：
怎样用VL和DBX实现：有几百张外来图纸，也不知它们有哪些字体样式，现要把每张图的各种文字样式若是汉字就都批量改为宋体，数字就都批量改为 txt 体？？？
谢谢！！！

tukuitk · 发表于 2003-11-30 09:16:00

飞哥，我想可以借用你以前给我编的批量替换文字的框架，它利用了DBX技术，很不错。

meflying · 发表于 2003-11-30 10:15:00

你需要做的是替换getatt函数，将它变为你想做的事情，这里我只是把属性读出并显示出来

tukuitk · 发表于 2003-11-30 10:21:00

但是，我不会改变文字样式！

meflying · 发表于 2003-11-30 10:40:00

给你一个例子，至于怎样建立一个字体是宋体TEXTSTYLE，你自己查看ACTIVEX的TEXTSTYLE对象，
(defun Getatt (ent / slist sname )
  (setq sname ent)
  (While (= (cdr (assoc 0 (entget (setq sname (EntNext sname))))) "ATTRIB")
(setq v (vlax-ename->vla-object sname))
(vla-put-stylename v "standard");TEXTSTYLE名
  )
)

tukuitk · 发表于 2003-11-30 10:51:00

谢谢飞哥，我先试一下！

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

[LISP]请问各位版主……

本帖子中包含更多资源