怎么判断图纸中是否存在外部参照

王与韩1

RT,关于外部参照的函数不熟,请各位前辈教一下

Andyhon

check here:
http://discussion.autodesk.com/thread.jspa?messageID=1131046

王与韩1

Andyhon 发表于 2014-9-15 11:10
check here:
http://discussion.autodesk.com/thread.jspa?messageID=1131046

这..英文水平不行,看百度翻译都看得倒懂不懂的,谢谢了

王与韩1

大概看懂点,
setq ss (ssget "x" (list (cons 0 "insert")(cons 2 "*"))))

If the selection set is nil, there are no xrefs, otherwise
(sslength ss) tells you how many objects are attached
xrefs.
这句命令为何和他描述的不一样...有参照和没参照SS都不是nil

Andyhon

Reply From: Bethel, David
Re: Check if Xref's exist in drawing

Ron,
via Lisp;

(defun FindXref (/ td xrf)
  (while (setq td (tblnext "BLOCK" (not td)))
    (and (= (logand (cdr (assoc 70 td)) 4) 4)
         (setq xrf (cons (strcase (cdr (assoc 2 td))) xrf))
    )
  )
  xrf
)

王与韩1

Andyhon 发表于 2014-9-15 12:38
Reply From: Bethel, David
Re: Check if Xref's exist in drawing

谢谢,英文好能看国外技术网站真好

Gu_xl

王与韩1 发表于 2014-9-15 15:18
谢谢,英文好能看国外技术网站真好

1. (vlax-for a (vla-get-blocks (vla-get-ActiveDocument (vlax-get-acad-object)))
   
2.   (if (= :vlax-true (vla-get-IsXRef a))
   
3.     (princ "\n图形有外部参照...")
   
4.     )
   
5.   )

(vlax-for a (vla-get-blocks (vla-get-ActiveDocument (vlax-get-acad-object)))<br />   (if (= :vlax-true (vla-get-IsXRef a))<br />     (princ "\n图形有外部参照...")<br />     )<br />   )

王与韩1

Gu_xl 发表于 2014-9-15 15:26

多谢g版,都很好用

cqu20104225

好帖子，刚好有需要！

sandyvs

Gu_xl 发表于 2014-9-15 15:26

G版，请教下，如何判断一个块是块参照还是外部参照啊？

找到一个，不知道可以不
(setq *adoc* (vla-get-activedocument (vlax-get-acad-object)))

(setq blk (car (entsel)))
(= :vlax-true (vla-get-isxref (vla-item (vla-get-blocks *adoc*) (cdr (assoc 2 (entget blk))))))