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


页: [1] 2
查看完整版本: 求一个选择图档里的全部外部参照的代码