[求助]：如何实现智能剪切？

xyzjint_cn

实现功能如下图，选中矩形框后将穿过矩形的直线剪切掉
请XD帮忙！

kfboyxwa

bonus 里有

eachy

最初由 xyzjint_cn 发布
[B]实现功能如下图，选中矩形框后将穿过矩形的直线剪切掉
请XD帮忙！ [/B]

[color=blueExpress->Modify->Cookies Cutter Trim

1. 命令: extrim
   
2. Initializing...
   
3. 
   
4. Pick a POLYLINE, LINE, CIRCLE, ARC, ELLIPSE, IMAGE or TEXT for cutting edge...
   
5. 选择对象: 找到 1 个
   
6. 
   
7. 命令:
   
8. Specify the side to trim on:
   

复制代码

lsjjm

老板本的只能用笨方法了...

2. 
   
3. (defun c:test (/ plist pp)
   
4.   (setq rect (car (entsel "\nSelect Rectangle:")))
   
5.   (foreach i (entget rect)
   
6.     (if (= 10 (car i))(setq pp (append pp (list (cdr i)))))
   
7.   )
   
8.   (setq ll (ssget "x" '((0 . "LINE"))))
   
9.   (setq nl (sslength ll))
   
10.   (setq n 0)
    
11.   (while (< n nl)
    
12.     (setq ed (entget (ssname ll n))
    
13.          pt1 (cdr (assoc 10 ed))
    
14.          pt2 (cdr (assoc 11 ed)))
    
15.     (if (setq ptj (inters pt1 pt2 (car pp)(nth 2 pp)))
    
16.       (setq plist (append plist (list ptj)))
    
17.     )
    
18.     (setq n (1+ n))
    
19.   );w
    
20.   (vl-cmdf "trim" rect "")
    
21.   (setq n 0)
    
22.   (repeat (length plist)
    
23.     (command (nth n plist))
    
24.     (setq n (1+ n))
    
25.   )
    
26.   (command "" "")
    
27. )

<br /> (defun c:test (/ plist pp)<br />   (setq rect (car (entsel "\nSelect Rectangle:")))<br />   (foreach i (entget rect)<br />     (if (= 10 (car i))(setq pp (append pp (list (cdr i)))))<br />   )<br />   (setq ll (ssget "x" '((0 . "LINE"))))<br />   (setq nl (sslength ll))<br />   (setq n 0)<br />   (while (< n nl)<br />     (setq ed (entget (ssname ll n))<br />          pt1 (cdr (assoc 10 ed))<br />          pt2 (cdr (assoc 11 ed)))<br />     (if (setq ptj (inters pt1 pt2 (car pp)(nth 2 pp)))<br />       (setq plist (append plist (list ptj)))<br />     )<br />     (setq n (1+ n))<br />   );w<br />   (vl-cmdf "trim" rect "")<br />   (setq n 0)<br />   (repeat (length plist)<br />     (command (nth n plist))<br />     (setq n (1+ n))<br />   )<br />   (command "" "")<br /> )

lh8888

楼上的能否说明白一点？是不是编一LSP程序，内容如上，在ACAD中调入使用？谢谢！

lsjjm

是的, 先加载, 在调用.

xyzjint_cn

lsjjm 的方法很实用，
谢谢各位帮忙