liminnet
发表于 2008-10-6 14:12:00
龙龙仔
发表于 2008-10-7 08:01:00
(entget<br/> (entnext<br/> (cdr<br/> (assoc -2<br/> (tblsearch "block"<br/> (cdr (assoc 2 (entget (ssname (ssget) 0))))<br/> )<br/> )<br/> )<br/> )<br/>)
liminnet
发表于 2008-10-7 09:20:00
龙龙仔
发表于 2008-10-7 16:12:00
<p>你的程序是查屬性定義(attdef),组码1的預設值=空</p><p>你要改查圖塊參考中的屬性(attrib)才行</p><p>指令: (SETQ A (CAR(ENTSEL)))</p><p>選取物件: <圖元名稱: 7edc0010></p><p>指令: (SETQ A1(ENTNEXT A))<br/><圖元名稱: 7edc0050></p><p>指令: (ENTGET A1)<br/>((-1 . <圖元名稱: 7edc0050>) (0 . "ATTRIB") (330 . <圖元名稱: 7edc0010>) (5 . "82") <br/>(100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (100 . "AcDbText") (10 <br/>3.55895e+008 5.49317e+008 0.0) (40 . 1500.0) (1 . "Y=355912.844") (50 . 0.0) <br/>(41 . 0.8) (51 . 0.0) (7 . "_DIMFONT") (71 . 0) (72 . 4) (11 3.55901e+008 <br/>5.49318e+008 0.0) (210 0.0 0.0 1.0) (100 . "AcDbAttribute") (2 . "X=") (70 . 0) <br/>(73 . 0) (74 . 0) (280 . 0))</p>
jxlsp
发表于 2008-10-7 17:25:00
版主就是版主,
liminnet
发表于 2008-10-8 11:54:00
jxlsp
发表于 2008-10-8 16:03:00
<p>(setq a (entget (entnext (entnext (car (entsel))))))</p><p>OK</p>
liminnet
发表于 2008-10-8 16:24:00
龙龙仔
发表于 2008-10-8 17:23:00
<p>;;By LUCAS<br/>(defun C:READATTRIB (/ TMP M2)<br/> (setq TMP (entsel "\n選取帶屬性圖塊: "))<br/> (if (and (/= TMP NIL)<br/> (setq TMP (vlax-ename->vla-object (car TMP)))<br/> (= (vla-get-objectname TMP) "AcDbBlockReference")<br/> (= (vla-get-hasattributes TMP) :vlax-true)<br/> )<br/> (foreach M2 (vlax-safearray->list<br/> (vlax-variant-value<br/> (vla-getattributes TMP)<br/> )<br/> )<br/> (print (vla-get-textstring M2))<br/> )<br/> (prompt "\n所選物件不帶屬性")<br/> )<br/> (princ)<br/>)<br/></p><p></p><p>(entmake (list '(0 . "TEXT")<br/> '(10 0.0 0.0 0.0)<br/> '(40 . 5)<br/> '(1 . "SDFSD")<br/> )<br/>)</p>
liminnet
发表于 2008-10-8 17:27:00