请问高手如何用lisp实现创建一个属性，并将这个属性与鼠标选取的图形绑定成一个块？

冶躁

请问高手如何用lisp实现创建一个或者多个属性，并将这个属性与鼠标选取的图形绑定成一个块？

新手上路，请给程序思路或者实现代码

Gu_xl

1. (defun c:tt()
   
2.   (setq blkname (getstring "\n输入块名:")
   
3.         insp (getpoint "\n块插入点:")
   
4.         ss (ssget)
   
5.         )
   
6.   (if (and blkname insp ss)
   
7.     (command "block" blkname insp ss "")
   
8.     )
   
9.   )
   

(defun c:tt()<br />   (setq blkname (getstring "\n输入块名:")<br />         insp (getpoint "\n块插入点:")<br />         ss (ssget)<br />         )<br />   (if (and blkname insp ss)<br />     (command "block" blkname insp ss "")<br />     )<br />   )<br />

创建属性 用命令 attdef ！

冶躁

Gu_xl 发表于 2012-7-9 11:41
创建属性 用命令 attdef ！

请问 如何用autolisp实现多个用attdef生成的属性和用鼠标选取的图形绑定成一个块？

VBALISPER

多个,就用循环吧.....

冶躁

VBALISPER 发表于 2012-7-9 20:24
多个,就用循环吧.....

非常感谢您的帮助！

qq2863060045

好,程序写得好