[LISP程序]：急!!!如何选择两条线段作为圆的剪切边界？

tangdeyu

作一个圆，从圆心引出两条半径，其夹角为α，其余部分的圆需要剪切掉，我的大体思路是这样的：
……
(command "line" oo gwai1 "")  ;;连接圆心与圆周上一点形成一夹角线
          (setq el1 (entlast))  
(command "line" oo gwai2 "")
        (setq el2 (entlast))  ;;连接圆心与圆周上一点形成另一夹角线
  (setq el (ssget  el1 el2)) ;;构成剪切边界的选择集

……

(command "circle" oo rnei "")   ;;作圆(rnei已计算赋值)
  (command "trim"  el "" nei0 "")  ;;剪切命令

但就是走不通，可能是选择集有问题？还是别的什么问题，我刚学习，恳请高手赐教。急用!!!

yshf

将“(setq el (ssget el1 el2)) ;;构成剪切边界的选择集”删除；
将“(command "trim" el "" nei0 "") ;;剪切命令”改为：
“(command "trim" el1 el2 ""
             (polar oo (angle oo (mapcar '* '(0.5 0.5) (mapcar '+ gwai1 gwai2))) rnei)
             ""
    )”即可。
不能用ssget加两个图元实体构成选择集，正确的方式如下：
          (ssget  [方式]  [点列表]  [过滤列表]

tangdeyu

很好，但剪切方向反了。
rnei是在需要剪切掉的圆弧上。

xyp1964

2. [FONT=courier new](load "xyp_lib")
   
3. ;|加载通用函数(可在签名栏直接下载)
   
4. 如果已经下载xyp_lib并放到搜索路径下可以不再下载!
   
5. 利用以下任何一种方式即可加载和运行通用函数内的所有子程序：
   
6. 1.在acad.lsp中增加(load"xyp_lib")
   
7. 2.在每个程序内增加(load"xyp_lib")
   
8. 3.在command下，输入(load"xyp_lib")
   
9. 4.在菜单.mnl中增加(load"xyp_lib")
   
10. 5.将xyp_lib.vlx文件直接拽到cad屏幕
    
11. [COLOR=red] ★通用函数下载地址：[/COLOR][url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]|;
    
12. 
    
13. ;;;作一个圆，从圆心引出两条半径，其夹角为α，其余部分的圆需要剪切掉
    
14. ;;;tangdeyu
    
15. (defun c:test ()
    
16.   (CMDLA0)
    
17.   (setq        rnei (UREAL 7 "" "\n半径" rnei)
    
18.         oo   (getpoint "\n圆心点 : ")
    
19.   )
    
20.   (command "circle" oo rnei)
    
21.   (setq s1 (entlast))
    
22.   (setq        pt1 (getpoint oo "\n夹角线1方向 : ")
    
23.         pt2 (getpoint oo "\n夹角线2方向 : ")
    
24.   )
    
25.   (command "line"
    
26.            (polar oo (angle oo pt1) rnei)
    
27.            oo
    
28.            (polar oo (angle oo pt2) rnei)
    
29.            ""
    
30.   )
    
31.   (mkla"弧"1)
    
32.   (command "arc"
    
33.            (polar oo (angle oo pt1) rnei)
    
34.            "c"
    
35.            oo
    
36.            (polar oo (angle oo pt2) rnei)
    
37.   )
    
38.   (vl-erase s1)
    
39.   (CMDLA1)
    
40. )[/FONT]

[FONT=courier new](load "xyp_lib")<br /> ;|加载通用函数(可在签名栏直接下载)<br /> 如果已经下载xyp_lib并放到搜索路径下可以不再下载!<br /> 利用以下任何一种方式即可加载和运行通用函数内的所有子程序：<br /> 1.在acad.lsp中增加(load"xyp_lib")<br /> 2.在每个程序内增加(load"xyp_lib")<br /> 3.在command下，输入(load"xyp_lib")<br /> 4.在菜单.mnl中增加(load"xyp_lib")<br /> 5.将xyp_lib.vlx文件直接拽到cad屏幕<br /> [COLOR=red] ★通用函数下载地址：[/COLOR][url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]|;<br /> <br /> ;;;作一个圆，从圆心引出两条半径，其夹角为α，其余部分的圆需要剪切掉<br /> ;;;tangdeyu<br /> (defun c:test ()<br />   (CMDLA0)<br />   (setq        rnei (UREAL 7 "" "\n半径" rnei)<br />         oo   (getpoint "\n圆心点 : ")<br />   )<br />   (command "circle" oo rnei)<br />   (setq s1 (entlast))<br />   (setq        pt1 (getpoint oo "\n夹角线1方向 : ")<br />         pt2 (getpoint oo "\n夹角线2方向 : ")<br />   )<br />   (command "line"<br />            (polar oo (angle oo pt1) rnei)<br />            oo<br />            (polar oo (angle oo pt2) rnei)<br />            ""<br />   )<br />   (mkla"弧"1)<br />   (command "arc"<br />            (polar oo (angle oo pt1) rnei)<br />            "c"<br />            oo<br />            (polar oo (angle oo pt2) rnei)<br />   )<br />   (vl-erase s1)<br />   (CMDLA1)<br /> )[/FONT]

tangdeyu

很好，但不如二楼的简洁，单独运行没有什么问题，插入程序中时，找不到一个函数，将二楼的再改正一下，可能更有助于初学者使用。我说的很直吧。谢谢了。