获取所有的XREF（包括嵌套的）

marting · 发表于 2017-5-27 20:35:23

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

(defun GetXrefs (/ tempData tempEnt XrefList)
(while (setq tempData (tblnext "block" (not tempData)))
(if (equal (logand (cdr (assoc 70 tempData)) 4) 4)
(progn
(setq tempEnt (tblobjname "block" (cdr (assoc 2 tempData))))
(setq tempData (entget (cdr (assoc 330 (entget tempEnt)))))
(setq XrefList
(cons
(cons
tempEnt
(
(lambda ( x / InsList NestList )
(foreach i x
(cond
((equal (car i) 331)
(setq InsList (cons (cdr i) InsList))
)
((equal (car i) 332)
(setq NestList (cons (cdr i) NestList))
)
)
)
(list InsList NestList)
)
(member '(102 . "{BLKREFS") tempData)
)
)
XrefList
)
)
)
)
)
XrefList
)

(defun GetXrefs (/ tempData tempEnt XrefList) 
    
    (while (setq tempData (tblnext "block" (not tempData))) 
        (if (equal (logand (cdr (assoc 70 tempData)) 4) 4) 
            (progn 
                (setq tempEnt (tblobjname "block" (cdr (assoc 2 tempData)))) 
                (setq tempData (entget (cdr (assoc 330 (entget tempEnt))))) 
                (setq XrefList 
                    (cons 
                        (cons 
                            tempEnt 
                            ( 
                                (lambda ( x / InsList NestList ) 
                                    (foreach i x 
                                        (cond 
                                            ((equal (car i) 331) 
                                                (setq InsList (cons (cdr i) InsList)) 
                                            ) 
                                            ((equal (car i) 332) 
                                                (setq NestList (cons (cdr i) NestList)) 
                                            ) 
                                        ) 
                                    ) 
                                    (list InsList NestList) 
                                ) 
                                (member '(102 . "{BLKREFS") tempData) 
                            ) 
                        ) 
                        XrefList 
                    ) 
                ) 
            ) 
        ) 
    ) 
    XrefList 
)

Command: (setq lst (GetXrefs))
((<Entity name: 7ed545c0> nil nil) (<Entity name: 7ed54530> (<Entity name:
7ed54548>) (<Entity name: 7ed545b8>)) (<Entity name: 7ed54500> (<Entity name:
7ed54520>) nil))

1、xrefs里没有其他的inserts

(<Entity name: 7ed545c0> nil nil)

2、一个 insert, 没嵌套的xref

(<Entity name: 7ed54500> (<Entity name: 7ed54520>) nil)

3、一个 insert, 一个xref

(<Entity name: 7ed54530> (<Entity name: 7ed54548>) (<Entity name: 7ed545b8>))

qqqincccken · 发表于 2017-5-27 20:42:25

谢谢提供，有空试度！！！！！！！

yufeng37 · 发表于 2017-5-28 16:27:48

marting老师的代码如果有注释就更加完美了

账号		自动登录	找回密码
密码			立即注册

[每日一码] 获取所有的XREF（包括嵌套的）

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

浏览过的版块