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

王与韩1 · 发表于 2014-9-15 10:53

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

Andyhon · 发表于 2014-9-15 11:10

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

王与韩1 · 发表于 2014-9-15 11:34

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

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

王与韩1 · 发表于 2014-9-15 11:48

大概看懂点,
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 · 发表于 2014-9-15 12:38

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 · 发表于 2014-9-15 15:18

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

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

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

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

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

王与韩1 · 发表于 2014-9-15 16:42

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

多谢g版,都很好用

cqu20104225 · 发表于 2020-2-1 23:07

好帖子，刚好有需要！

sandyvs · 发表于 2024-3-27 17:34

本帖最后由 sandyvs 于 2024-3-27 18:27 编辑

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))))))

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

[已解答] 怎么判断图纸中是否存在外部参照