DXF代码

Kerry · 发表于 2005-9-19 04:14:03

最突出的一点。
这可以用来在块（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：

copy

(entget (car (nentsel)))

但是，最终目标是什么？Autoplant方案涉及使用组件（它们本身并不托管大量数据），这些组件通过主对象（AT_Master）链接，这些对象可以在组件的xdata中找到（查找“AT_GRP”），随后托管指向主数据库条目的链接（通过xdata条目“GN”）...但是这一切你要去哪里呢？
如果我可以这么大胆地问。