API教学 API遍历图块方法(包括图纸空间)

st788796

以前都是用 ActiveX 遍历一些集合，如 Layers、Modelspase、Linetypes、Papers 等等，对API如何在这方面使用一直没有测试过，今天试了试更加方便了，这里首先要用到这个函数 XD::Object:Get
1 找出所有的图纸空间

1. (vl-remove-if-not
   
2.   '(lambda (x)
   
3.      (wcmatch (car x) "`*Paper*")
   
4.    )
   
5.   (XD::Object:Get "Block")
   
6. )
   

(vl-remove-if-not<br />   '(lambda (x)<br />      (wcmatch (car x) "`*Paper*")<br />    )<br />   (XD::Object:Get "Block")<br /> )<br />

返回：
(("*Paper_Space2" <图元名: 7ef07708>) ("*Paper_Space0" <图元名: 7ef04ef0>) ("*Paper_Space" <图元名: 7ef04ed0>))
2 获取图纸空间的所有实体

1. (xd::object:get "*paper_space2")

(xd::object:get "*paper_space2")

(("AcDbBlockReference" <图元名: 7ef07588>) ("AcDbViewport" <图元名: 7ef07538>) ("AcDbViewport" <图元名: 7ef07518>))
_$

得到了实体列表就找符合条件的实体进行修改了!

XD::Object:Get 函数
http://bbs.xdcad.net/forum.php?mod=viewthread&tid=671679

Lisphk

跟大师学API

gzgbzh

这个好，正需要这个功能

sanpoul

能在不打开图的前提下遍历图元吗