求一个选择任意多段线（多选）的程序！

lite

求一个选择任意多段线（多选）内图形的程序，要求最后把物体选上！

252218

很简单呀，通过选择集来实现啊

ysq101

这是入门级别的程序啊。。。手上没原码。。搜索ssget 吧

edata

2. ;;返回多段线顶点表
   
3. (defun vertexs (ename / plist pp n)        
   
4.   (setq obj (vlax-ename->vla-object ename))
   
5.   (setq plist (vlax-safearray->list
   
6.   (vlax-variant-value
   
7.     (vla-get-coordinates obj))))
   
8.   (setq n 0)
   
9.   (repeat (/ (length plist) 2)
   
10.     (setq pp (append pp (list (list (nth n plist)(nth (1+ n) plist)))))
    
11.     (setq n (+ n 2))
    
12.   )
    
13.   pp
    
14. )
    
15. (defun MJ:SS->LIST (SS)
    
16.   (vl-remove-if-not '(lambda(X)(= (type X) 'ENAME)) (mapcar 'cadr (ssnamex SS)))
    
17. )
    
18. (defun c:tt(/ EN EN_LST MAXPT MINPT N_SS OBJ OBJ_APP PTLST SS SSX X)
    
19.   (vl-load-com)
    
20.   (if(setq ss (ssget '((0 . "*polyline"))))
    
21.     (progn
    
22.       (princ"\n开始!")
    
23.       (setq en_lst '() obj_app(vla-get-Application (vla-get-ActiveDocument (vlax-get-acad-object))))
    
24.       (while (setq en(ssname ss 0))
    
25.         (setq ptlst (vertexs en))
    
26.         (setq obj (vlax-ename->vla-object en))
    
27.         (vla-GetBoundingBox obj 'minpt 'maxpt)
    
28.         (vla-zoomwindow obj_app  minpt maxpt)
    
29.         ;(vl-cmdf "_.zoom" "o" en "")
    
30.         (setq ssx(ssget "_wp" ptlst))       
    
31.         (if ssx
    
32.           (progn
    
33.             (setq en_lst (append  (MJ:SS->LIST ssx) en_lst))
    
34.             ))
    
35.         (vla-ZoomPrevious obj_app)
    
36.         ;(vl-cmdf "_.zoom" "P")
    
37.         (setq ss(ssdel en ss))
    
38.         )
    
39.       (vlax-release-object obj)
    
40.       (vlax-release-object obj_app)
    
41.       (setq n_ss(ssadd))
    
42.       (while (setq n(car en_lst))
    
43.         (setq n_ss(ssadd n n_ss))
    
44.         (setq en_lst(cdr en_lst))
    
45.         )
    
46.       (redraw)
    
47.       (sssetfirst nil n_ss)
    
48.       (redraw)
    
49.       (princ"\n完成!")
    
50.       )
    
51.     )
    
52.   (princ)
    
53.   )

;;返回多段线顶点表<br /> (defun vertexs (ename / plist pp n)        <br />   (setq obj (vlax-ename->vla-object ename))<br />   (setq plist (vlax-safearray->list<br />   (vlax-variant-value<br />     (vla-get-coordinates obj))))<br />   (setq n 0)<br />   (repeat (/ (length plist) 2)<br />     (setq pp (append pp (list (list (nth n plist)(nth (1+ n) plist)))))<br />     (setq n (+ n 2))<br />   )<br />   pp<br /> )<br /> (defun MJ:SS->LIST (SS)<br />   (vl-remove-if-not '(lambda(X)(= (type X) 'ENAME)) (mapcar 'cadr (ssnamex SS)))<br /> )<br /> (defun c:tt(/ EN EN_LST MAXPT MINPT N_SS OBJ OBJ_APP PTLST SS SSX X)<br />   (vl-load-com)<br />   (if(setq ss (ssget '((0 . "*polyline"))))<br />     (progn<br />       (princ"\n开始!")<br />       (setq en_lst '() obj_app(vla-get-Application (vla-get-ActiveDocument (vlax-get-acad-object))))<br />       (while (setq en(ssname ss 0))<br />         (setq ptlst (vertexs en))<br />         (setq obj (vlax-ename->vla-object en))<br />         (vla-GetBoundingBox obj 'minpt 'maxpt)<br />         (vla-zoomwindow obj_app  minpt maxpt)<br />         ;(vl-cmdf "_.zoom" "o" en "")<br />         (setq ssx(ssget "_wp" ptlst))        <br />         (if ssx<br />           (progn<br />             (setq en_lst (append  (MJ:SS->LIST ssx) en_lst))<br />             ))<br />         (vla-ZoomPrevious obj_app)<br />         ;(vl-cmdf "_.zoom" "P")<br />         (setq ss(ssdel en ss))<br />         )<br />       (vlax-release-object obj)<br />       (vlax-release-object obj_app)<br />       (setq n_ss(ssadd))<br />       (while (setq n(car en_lst))<br />         (setq n_ss(ssadd n n_ss))<br />         (setq en_lst(cdr en_lst))<br />         )<br />       (redraw)<br />       (sssetfirst nil n_ss)<br />       (redraw)<br />       (princ"\n完成!")<br />       )<br />     )<br />   (princ)<br />   )

llsheng_73

ysq101 发表于 2014-1-9 15:50
这是入门级别的程序啊。。。手上没原码。。搜索ssget 吧

如果不考虑屏幕缩放率对ssgte"W"和"WP"方式的影响就是入门的，如果要考虑这点的话，如果不进行局部放大那就不是一个入门级的了

llsheng_73

对于任意多线段来说它是没有内外之分的，既然能分内外就得闭合（当然自相交形成一部分封闭区域和一部分开放区域也可以说成它有内外，不过这样就更复杂了）

自贡黄明儒

我总觉得LZ说得不清不楚，多段线是否闭合（真闭合和假闭合），与多段线相交的对象算不算，闭合多段线内任何对象吗？呵呵，我也说得不清不楚，我说的什么，你的明白？

lite

自贡黄明儒 发表于 2014-1-9 18:49
我总觉得LZ说得不清不楚，多段线是否闭合（真闭合和假闭合），与多段线相交的对象算不算，闭合多段线内任何 ...

楼上的很细心，在此详细的解释下：
1.多段线是闭合的，相当于一个区域范围，多段线的形状有可能不是矩形那样简单的形状！如果多段线非闭合，需要增加错误判断提示。
2.与多段线相交的对象不算，只选多段线内部的任何图形！
3.多段线有可能没有全部可视在屏幕窗口内（由于窗口缩放），选择的结果也需要能够把那未视部分的图形选上。
4.对于选择的多段线需要能够提供多选(ssget),而不是(entsel)

自贡黄明儒

lite 发表于 2014-1-10 09:20
楼上的很细心，在此详细的解释下：
1.多段线是闭合的，相当于一个区域范围，多段线的形状有可能不是矩 ...

你是不是想框选，然后获得封闭多段线，然后你想处理每个封闭多段线内的对象?

lite

自贡黄明儒 发表于 2014-1-10 10:43
你是不是想框选，然后获得封闭多段线，然后你想处理每个封闭多段线内的对象?

最后只要能够选上这些图形就可以了。