社区 › Auto Lisp › 属性将值更改为mat

cadmando2 发表于 2022-7-6 08:28:50

属性将值更改为mat

我在一家暖通空调工程公司工作，每年的前5个月都在疯狂地升级学校，没有很多时间。
所以我总是想办法让这项工作变得更容易。
我一直在寻找自定义程序。有一件事有点耗时，那就是插入ID气泡和标题栏。
 
块中的属性是否可以插入到DWG文件中，其中一个值会更改以匹配DWG名称？
 
实例
创建机械详图图纸。将ID气泡插入Dwg文件，底部编号“值”更改为匹配图纸编号？
但如果需要，可以修改！
 
如果将顶部的值自动更改为下一个数字，而底部的数字“值”将更改为DWG文件，那就太好了。
我想用标题栏做同样的事情？插入标题栏，文件“无值更改”和“按值绘制”更改为用户首字母。
 
有人能帮忙吗？

flowerrobot 发表于 2022-7-6 08:35:11

抱歉收到了RUFF代码，现在是周五，时间紧迫
但你明白了
 

(DEFUN C:BLAH()
(SETQ LO (getvar "dwgname"))
(SETVAR ATTDIA 0)
(COMMAND "-INSERT" FILL IN THE REST )
"" "" LO"
(SETVAR ATTDIA 1)
(PRINC)
)

CmdrDuh 发表于 2022-7-6 08:42:53

完全可行。如果你感兴趣的话，我有VBA代码

ASMI 发表于 2022-7-6 08:49:56

似乎不需要编程。使用属性创建块并将其更改为字段：
 
%%
 
只需将蓝色文本粘贴到属性值。它将始终显示您的文件名。
My_sample_绘图。图纸

ASMI 发表于 2022-7-6 08:55:48

%%对于作者。

russell84 发表于 2022-7-6 09:00:33

哈哈太容易了阿斯米-很好：）

ASMI 发表于 2022-7-6 09:05:49

原谅AutoCAD 2004。没有字段。。。

cadmando2 发表于 2022-7-6 09:10:21

是的，我对两者的VBA代码都感兴趣
谢谢，这会节省一些时间。

CmdrDuh 发表于 2022-7-6 09:13:59

你的块名和标记名是什么，我将编写一个简短的例程进行测试

cadmando2 发表于 2022-7-6 09:19:33

块名“DT-IDLABEL”和标记名“DNO#”。

查看完整版本: 属性将值更改为mat