lengliqun 发表于 2011-5-10 00:02:20

同求
没有源码的也可以呀。

chenjian2159 发表于 2011-5-10 13:00:30

回复 xxzwtr 的帖子

可以的兄弟，发上来看看

yshf 发表于 2011-5-11 21:38:42

试试一下这个：
(setq ssa (ssget "wp" 白色多边形顶点列表 '(0 . "LWPOLYLINE") (62 . 1)))

xxzwtr 发表于 2011-5-11 23:43:37


搜索多边形内的线可以搜索 *line arc 等生成一个选择集。
可以支持多个多边形搜索

xxzwtr 发表于 2011-5-13 23:15:47

11楼的，用了没，满足要求不

zbs 发表于 2011-6-15 16:59:47

12#的方法可行，但多边形顶点列表难得。

zbs 发表于 2011-6-15 17:23:23

(ssget "wp"
       (progn (setq a nil)

             (last(vl-remove nil (mapcar
                '(lambda (x)
                   (if (= (car x) 10)
                     (setq a (append a (list (cdr x))))
                   ))
                   (entget (car (entsel "\n请选择一条多段线:")))
               )))
             
       )
       ( list( cons 0   "LWPOLYLINE,line") )
)

crazylsp 发表于 2011-6-22 12:26:50

本帖最后由 crazylsp 于 2011-6-22 12:27 编辑

这个不用编程
用快速选择
      全部图形或指定 对象类型: 多段线 特性: 闭合 运算符: =   值: 是   
      回车
      当前选择 对象类型: 多段线 特性:颜色 运算符: =   值: 白
      回车
      当前选择 对象类型: 多段线 特性:颜色 运算符: =   值: 红
      回车
几次这样就OK了

jfxia 发表于 2012-1-5 08:28:31

    二楼的程序对我有用，谢了
页: 1 [2]
查看完整版本: 《悬赏3明经币》求“搜索多边形内的线”的程序