[求助]：关于遮罩wipeout 选择的问题

mr cool

能否通过程序实现---执行 遮罩wipeout  命令时可以一次选多个封闭的多段线同时做成遮罩...........
每次只能选择一个封闭的多段线来操作十分麻烦！请各位高手帮忙实现！

ljttjl

将您做成的遮罩图形，发一个过来，我看看能否实现，邮箱：ljttjl@tom.com

snsj

2. 
   
3. (defun c:cs (/ ss n)
   
4. (vl-cmdf "undo" "be")
   
5. (setq ss(ssget '((0 . "LWPOLYLINE")(70 . 1))) n 0)
   
6. (repeat (sslength ss)
   
7. (vl-cmdf "._wipeout" "p" (ssname ss n) "n")
   
8.   (setq n(1+ n))
   
9.   )
   
10.   (vl-cmdf "undo" "e")
    
11.   (princ)
    
12.   )
    

<br /> (defun c:cs (/ ss n)<br /> (vl-cmdf "undo" "be")<br /> (setq ss(ssget '((0 . "LWPOLYLINE")(70 . 1))) n 0)<br /> (repeat (sslength ss)<br /> (vl-cmdf "._wipeout" "p" (ssname ss n) "n")<br />   (setq n(1+ n))<br />   )<br />   (vl-cmdf "undo" "e")<br />   (princ)<br />   )<br />

mr cool

太感谢三楼的斑竹了!太好用了!十分感谢!!!!!大大的提高了工作效率!
那么 修订云线revcloud 是否也可以实现多选呢!!! 等待您的回复!!多谢!

snsj

稍微变通一下就行了

2. 
   
3. 
   
4. (defun c:cs (/ ss n fh)
   
5. (vl-cmdf "undo" "be")
   
6. (setq ss(ssget '((0 . "LWPOLYLINE"))) n 0)
   
7. (initget "Y N")
   
8. (if(null(setq fh(getkword "反转方向 [是(Y)/否(N)] <否>:")))
   
9.   (setq fh "N")
   
10.   )
    
11. (repeat (sslength ss)
    
12. (vl-cmdf "._revcloud" "o" (ssname ss n) fh)
    
13.   (setq n(1+ n))
    
14.   )
    
15.   (vl-cmdf "undo" "e")
    
16.   (princ)
    
17.   )
    

<br /> <br /> (defun c:cs (/ ss n fh)<br /> (vl-cmdf "undo" "be")<br /> (setq ss(ssget '((0 . "LWPOLYLINE"))) n 0)<br /> (initget "Y N")<br /> (if(null(setq fh(getkword "反转方向 [是(Y)/否(N)] <否>:")))<br />   (setq fh "N")<br />   )<br /> (repeat (sslength ss)<br /> (vl-cmdf "._revcloud" "o" (ssname ss n) fh)<br />   (setq n(1+ n))<br />   )<br />   (vl-cmdf "undo" "e")<br />   (princ)<br />   )<br />

米克

snsj 发表于 2008-5-12 07:46

遮罩只能选择直线和只能选择封闭的直线，大师能给我个能选择不规则的封闭线做成遮罩吗？？？真的非常感谢了！！！！！！！！！！

newer

米克 发表于 2013-9-3 16:45
遮罩只能选择直线和只能选择封闭的直线，大师能给我个能选择不规则的封闭线做成遮罩吗？？？真的非常感谢 ...

谁说只能选择封闭的直线，可以选择多段线的。

米克

newer 发表于 2013-9-3 17:35
谁说只能选择封闭的直线，可以选择多段线的。

但是 只能选择直线啊    这样的线  不能选择啊、、、、、、

newer

米克 发表于 2013-9-3 17:42
但是 只能选择直线啊   这样的线  不能选择啊、、、、、、

你要用多段线画。 如果不是多段线，比如SPLINE，用下晓东工具箱的曲线转换工具就行了。

米克

CAD本身  是不自带的  晓东里面没有的   谁有单独的LSP发我一个嘛？？？

newer

米克 发表于 2013-9-3 17:53
CAD本身  是不自带的  晓东里面没有的   谁有单独的LSP发我一个嘛？？？

你是说哪个没有？ SPLINE转多段线？
下面代码转换曲线到封闭的直线段组成多段线

1. (defun c:tt()
   
2.    (if (setq ss (ssget '((0 . "circle,*polyline,ellipse,spline"))))
   
3.       (progn
   
4.          (xdrx_setsstodb ss 0)
   
5.          (while (setq e (xdrx_getentdata 0))
   
6.             (apply 'xdrx_polyline_make (cons t (xdrx_getsamplept e)))
   
7.          )
   
8.          (xdrx_entity_delete ss)
   
9.       )
   
10.    )
    
11.    (princ)
    
12. )
    
13. 
    

(defun c:tt()<br />    (if (setq ss (ssget '((0 . "circle,*polyline,ellipse,spline"))))<br />       (progn<br />          (xdrx_setsstodb ss 0)<br />          (while (setq e (xdrx_getentdata 0))<br />             (apply 'xdrx_polyline_make (cons t (xdrx_getsamplept e)))<br />          )<br />          (xdrx_entity_delete ss)<br />       )<br />    )<br />    (princ)<br /> )<br /> <br />

1034072509

同求,能够一键全选多个PL线最完美

jiang__jin

感谢分享，学习学习！