求一个lisp程序,其实只要一个语句就够了,我希望我输入一个命令,把块中的某个特定的属性值不显示在屏幕上
 

求一个lisp程序,其实只要一个语句就够了,我希望我输入一个命令,把块中的某个特定的属性值不显示在屏幕上
www.dimcax.com
求一个lisp程序,其实只要一个语句就够了,我希望我输入一个命令,把块中的某个特定的属性值不显示在屏幕上
正如我上传的图一样,图中有个块名叫"机械块",块中有个属性标记是"设备码",它的值为"bbb", 我要经常进行一个操作,就是时而让bbb显示在屏幕上,时而不让它显示.
正常情况下我的操作就是先在命令行中输入命令"battman",然后出来 一个对话框,我就用鼠标选中"设备码",然后再选择"编辑",然后就会出来一个编辑属性的对话框,我要把模式的前面选中"不可见",然后再"确定"，这样bbbb就不在屏幕上不可见了．
我想能不能写个lisp程序，类似这样的　　　defun c:mm()
　　　　　　　　　　　　　　　 (command "battman" "?" "?" "?")),我这里就不知道问号要怎么填，填什么才能实现:在命令行输入＂mm＂, 机械块中设备码的属性值＂ｂｂｂｂ＂就不显在屏幕上．
by the way,哪里可以找到象这样带着参数的命令的参考资料啊，网上ｃａｄ命令大全都是这样line,layer这样的，象（layer "h" "某个层名＂）这样的带着参数的参考资料哪里有得找
d
该文件为 autocad r14 文件，请使用idrop将图形拖放到autocad中直接打开。
图在这里
d
battman命令无命令行方式。只能另写程序。
注意：该程序在r14上可以运行，但不能将代码直接贴到命令行。
以下内容需要帖子数达到5才可以浏览
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
( ( ss ( "x" '((0 . "insert") (66 . 1)))) (
( i -1)
( ( ss)
( ent ( ( ss ( i ( i))))
ent1 ent)
( ( ( ( 0 ( ent1 ( ( ( ( -1 ent1))))))) "attrib")
( ( ( ( 2 ent1)) "设备码") (
( ent1 ( '(70 . 1) ( 70 ent1) ent1))
( ent1)
( ent)
))
)
)
))
()
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
( ( ss ( "x" '((0 . "insert") (66 . 1)))) (
( i -1)
( ( ss)
( ent ( ( ss ( i ( i))))
ent1 ent)
( ( ( ( 0 ( ent1 ( ( ( ( -1 ent1))))))) "attrib")
( ( ( ( 2 ent1)) "设备码") (
( ent1 ( '(70 . 0) ( 70 ent1) ent1))
( ent1)
( ent)
))
)
)
))
()
)
踅摸
d
很好,可以执行,能对这些语句给个解释好吗?
d
能执行吗，我也来试试
d
d.............