[求助]如何用lisp修改块内文字的字体给样式
 

[求助]如何用lisp修改块内文字的字体给样式
www.dimcax.com
[求助]如何用lisp修改块内文字的字体给样式
如何用lisp修改块内所有文字及尺寸标注的字体给样式？
d
go through all object in the block definition...
for example...
(= (vla-get-objectname obj) "acdbblockreference")
(setq blkdefobj (vla-item blks (vla-get-name obj)))
(if (and (= (vla-get-isxref blkdefobj) :vlax-false)
(= (vla-get-islayout blkdefobj) :vlax-false)
)
(progn
(vlax-for obj1 blkdefobj
(if
(or
(= (vla-get-objectname obj1) "acdbtext")
(= (vla-get-objectname obj1) "acdbmtext")
(= (vla-get-objectname obj1) "acdbattributedefinition")
)
(progn
(vla-put-stylename obj1 "isocp")
) ;progn
) ; end if
) ; vlax-for
...
d
附件为修改任何文本程序,希望可以帮到你!
记得下载后，把文件名改成 superedit.dcl superedit.lsp
对话框文件必须配合 superedit.lsp 文件才能显示相应对话框。
文件预览:
( 5.97 kb，已被下载 25 次 )
通过工具菜单->加载应用程序 可加载该程序，然后可直接在命令行输入相关命令运行。如需要每次启动时均加载该程序，则可以将该文件放在启动组中。
文件预览:
d
谢谢楼上的，程序不错
d
不错程序
d