《悬赏3明经币》求“搜索多边形内的线”的程序

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

二楼的程序对我有用，谢了

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

《悬赏3明经币》求“搜索多边形内的线”的程序

本帖子中包含更多资源