[求助]請教怎樣找出動態圖塊的AcadBlockReference正確名稱
<p>用"功能選項板"做了一些簡單的"動態圖塊",把外部參考dwg圖檔圖塊貼進新圖,</p><p>貼入若干圖塊後,想直接把圖面貼的"動態圖塊"刪除,</p>
<p>寫一vba</p>
<p> </p>
<p><font face="Verdana">Dim blk As AcadBlock</font></p>
<p><font face="Verdana">Dim blkref As AcadBlockReference<br/>Dim str As String<br/></font></p>
<p><font face="Verdana">ListBox1.Clear<br/></font><font face="Verdana">For Each blkref In ThisDrawing.ModelSpace</font><font face="Verdana"><br/><font face="Verdana"> ListBox1</font>.AddItem blkref.Name<br/>Next blkref<br/><br/><font face="Verdana">ListBox2</font>.Clear<br/>For Each blk In ThisDrawing.Blocks<br/><font face="Verdana"> ListBox2</font>.AddItem blk.Name<br/></font><font face="Verdana">Next blk<br/></font></p>
<p>奇怪!</p>
<p>在 <font face="Verdana">ListBox1顯示的</font>AcadBlockReference名稱</p>
<p>1.有很多匿名塊參照出現(*U3,*U42.....)</p>
<p>2.圖面出現的引用的AcadBlockReference.NAME, 反而沒看到</p>
<p> </p>
<p>3.在 <font face="Verdana">ListBox2顯示的</font>AcadBlock名稱包含所有用到的圖塊名(和預期一樣)</p>
<p> 只是多出了少許匿名塊(*T14,*T43.....)</p>
<p> </p>
<p>請教:怎樣找出使用中動態圖塊的AcadBlockReference正確名稱</p>
<p>謝謝!!</p> AcadBlockReference对象的EffectiveName属性
感謝指教
<p>來論壇提問獲益良多,</p><p>盼望有天自己也具備</p>
<p>"取之明經,用之明經"的能耐</p>
<p>在論壇點提後進</p>
<p> </p>
<p><font face="Verdana">感謝大大指教!!</font></p>
页:
[1]