W1314118 发表于 2007-12-8 15:58:00

[求助]期望很久的根据句柄来反查的程序

已知图元(直线或多段线)的句柄,是否有程序来根据句柄反查出该图元在cad图中的位置并要求亮显找到的对象,恳求老师们帮助

W1314118 发表于 2007-12-8 16:11:00

<p>有高手写的</p><p>;<br/>;可以用(handent hand)函数<br/>;<br/>(defun h2v(whand / ent ed eType pt)<br/>&nbsp; (setq ent(handent whand))<br/>&nbsp; (setq ed(entget ent))<br/>&nbsp; (setq eType(cdr(assoc 0 ed)))<br/>&nbsp; (cond<br/>&nbsp;&nbsp;&nbsp; ((= eType "INSERT")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq pt(cdr(assoc 10 ed)))<br/>&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp; ;其它类型的ent<br/>&nbsp; )<br/>&nbsp; (command "_.zoom" "c" pt 20)<br/>&nbsp; (redraw ent 3)<br/>)<br/>;<br/>但我不会用,是lisp吗</p>

xxxtttxxx 发表于 2007-12-17 21:59:00

vba里面也有handle属性
页: [1]
查看完整版本: [求助]期望很久的根据句柄来反查的程序