求助：将与所选择的曲线相交的实体收入选择集（lisp）！

87282374 · 发表于 2013-12-6 15:01:53

Andyhon · 发表于 2013-12-6 16:05:27

在实务上有着公差容许度考量
以 Divided 取得曲线上的点集
(ssget "f" PtLst)取得相交的实体

87282374 · 发表于 2013-12-6 16:59:07

感谢Andyhon，能讲的更细些吗？

Andyhon · 发表于 2013-12-6 17:10:39

举实例供探讨如何

87282374 · 发表于 2013-12-6 18:07:17

本帖最后由 87282374 于 2013-12-6 18:08 编辑

  基本解决：
(if  (setq enp (entsel "Please select a object: "))
(progn
   (setq en (car enp))
   (setq obj (vlax-ename->vla-object en))
      (setq plist  (vlax-safearray->list (vlax-variant-value (vla-get-coordinates obj))))
      (setq j 0)
   (setq mypt nil )
      (repeat (/ (length plist) 2)
      (setq mypt (append mypt (list (list (nth (* 2 j) plist) (nth (1+ (* 2 j)) plist ) 0.0))))
      (setq j (+ j 1))
      );end_repeat

   (setq obj (ssget "f" mypt '((0 . "INSERT") )))
感谢Andyhon，但有时选不上！！

Atsai · 发表于 2013-12-7 08:08:26

个人经验，(ssget "f")没有在可见的视窗内会选不到，
如果有虚线，刚好你的(ssget "f")的选择线穿过虚线的空白处也会选不到。
如果有时选不到，可能就有这种情况。

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

[提问] 求助：将与所选择的曲线相交的实体收入选择集（lisp）！

浏览过的版块

[提问] 求助： 将与所选择的曲线相交的实体收入选择集（lisp）！

浏览过的版块

[提问] 求助：将与所选择的曲线相交的实体收入选择集（lisp）！