谁能给个lisp程序，功能是块属性显示的开或关的
 

谁能给个lisp程序，功能是块属性显示的开或关的
www.dimcax.com
谁能给个lisp程序，功能是块属性显示的开或关的
我想在cad命令行中输入cc ,如果块中有个属性名称是：文件名称，此时如果属性值原来不显示在屏幕上，就把它显示出来，如果原来是显示出来的，就把它关掉，怎么写的？
d
可能我说的不够清楚，我是想这样，我有个图形文件，里面有个1000个块，块的名字叫aa，块中有个属性标记为“类型”，值就有很多了，如“阀门”“三通”等等。一般情况下，这个值是不在图上显示出来，如果我要把它显示出来，输入“battman", 可以用鼠标操作把显示那个开关打勾。
我是不想要鼠标操作这么麻烦，我想在命令行中输入cc，就把值显示出来，输入dd，就不把值显出来
d
试试看
以下内容需要帖子数达到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 . 5) ( 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
我加载了,好象没有效果.
其实我就是想把 知道一下 输入 battman 后,出来的对话框我们所做的对某个属性显示模式的选择,用代码怎么表达,
就是在lisp中写上(defun c:cc()
(command "_battman" "这里要写什么参数,才能把某个属性的显式模式打开或关闭"))
d
attdisp 不知道有没有用 是控制全部属性的显示的
d
;;;*************************************
;;; no.7 修改图块属性值显示/关闭 函数
;;; --- by ayunger studio