cb820 发表于 2010-6-24 14:47:00

<p>我也想看下是怎么做到的。</p>

季节深处 发表于 2010-6-28 20:54:00

我也想这个程序呢

季节深处 发表于 2010-6-28 20:55:00

<p>一定看看，块带多个属性内容</p>

季节深处 发表于 2010-6-28 20:56:00

<p>好的，好贴要顶</p>

季节深处 发表于 2010-6-28 20:56:00

<p>加油</p>

季节深处 发表于 2010-6-28 20:57:00

<p>可能看到了？</p>

季节深处 发表于 2010-6-28 20:58:00

真的还是假的？5个我发够了呀

季节深处 发表于 2010-6-28 20:59:00

<p>能看见了</p>

lincctw_ccl 发表于 2010-10-16 02:03:00

努力回覆 希望可以早點看見這帖<div>我也很想知這功能</div>

sxh_why 发表于 2010-10-16 09:50:00

<p><font face="Verdana"><font face="Verdana">;;;=============================================*<br/>;;;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 通用函数&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; *<br/>;;;功能：属性块中属性值的修改&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; *<br/>;;;参数：&nbsp;&nbsp;&nbsp;&nbsp; EN -----包含属性的块的图元名称&nbsp;&nbsp;&nbsp; *<br/>;;;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; AttName -----属性名称&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; *<br/>;;;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Value -----修改为的值&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; *<br/>;;;返回：T表示修改成功；否则返回nil&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; *<br/><br/>(defun ZL-INSERT-SETATTVALUE (EN ATTNAME VALUE / RETURN E TEST ENT)<br/>&nbsp;&nbsp;&nbsp; (setq E EN<br/>&nbsp;&nbsp; RETURN NIL<br/>&nbsp;&nbsp; TEST t<br/>&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp; (while (and&nbsp;TEST<br/>&nbsp;&nbsp;(setq E (entnext E))<br/>&nbsp;&nbsp;&nbsp; )<br/>&nbsp;(setq ENT (entget E))<br/>&nbsp;(cond<br/>&nbsp;&nbsp;&nbsp;&nbsp; ;;<br/>&nbsp;&nbsp;&nbsp;&nbsp; ((not (= (cdr (assoc 0 ENT)) "ATTRIB"))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq TEST NIL)<br/>&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp;&nbsp; ;;<br/>&nbsp;&nbsp;&nbsp;&nbsp; ((= "SEQEND" (cdr (assoc 0 ENT)))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq TEST NIL)<br/>&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp;&nbsp; ;;<br/>&nbsp;&nbsp;&nbsp;&nbsp; ((= (cdr (assoc 2 ENT)) ATTNAME)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq ENT (subst<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (cons 1 VALUE)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (assoc 1 ENT)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ENT<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (entmod ENT)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (entupd EN)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq RETURN t)<br/>&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;) ;_结束cond<br/>&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp; ;;返回<br/>&nbsp;&nbsp;&nbsp; RETURN<br/>)</font></font></p>
<p><font face="Verdana">;;;=============================================*<br/>;;;测试&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; *<br/>;;;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; *<br/>(defun C:RC (/ SS)<br/>&nbsp;&nbsp;&nbsp; (if&nbsp;(setq SS (entsel "\n点取要修改的属性块: "))<br/>&nbsp;(princ<br/>&nbsp;&nbsp;&nbsp;&nbsp; (ZL-INSERT-SETATTVALUE (car SS) "NAME-DRAWN" "上海港巨机械设计事务所")<br/>&nbsp;)<br/>&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp; (princ)<br/>)</font></p>
页: 1 2 3 4 [5] 6 7 8 9 10 11
查看完整版本: [已解决][求助]如何读取块属性？