求一个选择图档里的全部外部参照的代码

wgij007 · 发表于 2020-6-25 22:00:07

本帖最后由 wgij007 于 2020-6-28 00:19 编辑

求一个选择图档里的全部（框选出可以）外部参照的代码

yoyoho · 发表于 2020-6-25 22:00:08

本帖最后由 yoyoho 于 2020-7-1 23:56 编辑

(defun C:test ()
(setq ss (ssget "X" '((0 . "INSERT")))
      nn (sslength ss)
   ss2 (ssadd)
)
(while (setq ee (ssname ss (setq nn (1- nn))))

   (IF (= (vlax-property-available-p (vlax-ename->vla-object ee) "path") T)
      (ssadd ee ss2)
   )
)
(sssetfirst nil ss2)
)

wgij007 · 发表于 2020-6-25 22:51:46

顺问一下，快速引线的是那个代码

wgij007 · 发表于 2020-6-27 08:22:30

自己顶一下吧，看来能又是流贴了

wgij007 · 发表于 2020-6-28 00:20:21

睡前再顶一下

satan421 · 发表于 2020-6-28 09:21:17

本帖最后由 satan421 于 2020-6-29 08:50 编辑

;;只想说呵呵

wgij007 · 发表于 2020-6-28 16:15:26

satan421 发表于 2020-6-28 09:21
;;返回外部参照组成选择集,无则返回nil
(defun xs ( / i ins n tmp xs)
(setq ins (ssget "X" '((0 . " ...

你好，这个不行呀
弹出xs <Selection set: 4c> 后面数字会变

satan421 · 发表于 2020-6-28 16:54:44

wgij007 发表于 2020-6-28 16:15
你好，这个不行呀
弹出xs 后面数字会变

返回的是选择集名称，不同选择集名称当然不一样，你下一步要做什么

wgij007 · 发表于 2020-6-28 23:28:34

本帖最后由 wgij007 于 2020-6-28 23:29 编辑

satan421 发表于 2020-6-28 16:54
返回的是选择集名称，不同选择集名称当然不一样，你下一步要做什么

我只是要选中所有的外部参照，不是只有一种。你这个没选取呀，名称也不对.就像选取图里所有的圆一样，但圆的直径不一样的。

xvjiex · 发表于 2020-6-29 12:09:54

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

[提问] 求一个选择图档里的全部外部参照的代码

最佳答案

本帖子中包含更多资源

浏览过的版块