最突出的一点。
这可以用来在块（xref）定义中找到句柄，可以随意转换为等效的vb代码：
(defun FindHandleInBlockDef ( name handle / data ename result )
(setq ename (cdr (assoc -2 (tblsearch "block" name))))
(vl-catch-all-apply
'(lambda ( )
(while ename
(if (eq handle (cdr (assoc 5 (entget ename))))
(setq
result ename
data (exit)
)
)
(setq ename(entnext ename))
)
)
)
result
)
但是Spaddie先生 - 你的最终目标是什么？回到你原来的帖子中，你说 -
如果对象埋在外部参照中，你不太对，你需要称之为nentsel：
(entget (car (nentsel)))
但是，最终目标是什么？Autoplant方案涉及使用组件（它们本身并不托管大量数据），这些组件通过主对象（AT_Master）链接，这些对象可以在组件的xdata中找到（查找“AT_GRP”），随后托管指向主数据库条目的链接（通过xdata条目“GN”）...但是这一切你要去哪里呢？
如果我可以这么大胆地问。
例如，在vlisp中，我似乎记得有一个函数可以将对象转换为vla对象，然后将该vla对象转换为ename......然后您可以访问这个小混蛋......这将为您提供实体的定义列表。
我还想知道为什么您需要dxf列表以及您的目的地。
干杯，
GleNN。 万一SpagEddie将从Autoplant DXF地图中受益...
显然还有更多桶，但这是一个开始。
页:
1
[2]