界内选择工具

kdanqu

结构神器，支持！！！！！！！

zhr1994

学习

偶尔郁闷

很好很强大 谢谢分享
来自: 微社区

orange_X1NVU

very very good

wrf610051

谢谢大师的分享，回复查看代码。

至尊宝宝

感谢楼主分享

whdong76

多谢分享....

fqb0215

这个需要！

xdcad9819

谢谢正需要好工具谢谢楼主

xdcad9819

您好，我使用你开发的界内选择工具，我使用了，怎么不能选择界面内的图元呢？我的边线是封闭多段线。同时请问界内选择是否可以选择文字？

xdcad9819

楼主好，请问我使用了界内选择工具，点选封闭多段线画出的界线，可是为什么不能选择界面内的对象呢？请指导，谢谢

xdcad9819

(defun c:XDTB_SSInPoly ( / box e pts ss ss1 x)
  (setq pts nil)
  (while (setq e (car (xdrx_entsel "\n拾取封闭的多段线<退出>:" '((0 . "*polyline")
                                    (-4 . "&=")
                                    (70 . 1)
                                   )
                      )
                 )
         )
    (redraw e 3)
    (setq pts (cons (list e (xdrx_getsamplept e)) pts))
  )
  (if pts
    (progn
      (setq ss (ssadd))
      (mapcar
        '(lambda (x)
           (if (setq ss1 (ssget "wp" (cadr x)))
             (setq ss (xdrx_pickset_union ss ss1))
           )
           (redraw (car x) 4)
         )
        pts
      )
      (sssetfirst nil ss)
      (setq box (apply
                  'xdrx_points_box
                  (apply
                    'append
                    (mapcar
                      'cadr
                      pts
                    )
                  )
                )
      )
      (xdrx_document_zoomw (car box) (caddr box))
    )
  )
  (princ)
)
执行点选多段线后，显示出错，拾取封闭的多段线<退出>:
; 错误: *error* 函数中出错无函数定义: AERROR_END

jtgsai

不错，要是能把外轮廓直接变成一个整体的命令就更好了！

wssczxf

弧段不知道是不是考虑

来了老妹

学习一下，借鉴之用。