[编程申请]：请高手帮忙做相交线的平分面问题

crazypig

请高手帮忙做一个LSP小程序简化一下下面的操作步骤，能否实现只要选取已知的相交线就能生成需要的圆？
作一个半径200的圆，使该圆所在的面平分已知的两条相交线，以交点为圆心。
步骤一：3点UCS，以相交线交点为原点，当前UCS设置到相交线所在的面
步骤二：构造线平分已知角
步骤三：过交点做相交线所在面的垂线
步骤四：3点UCS，以交点为原点，当前UCS设置到构造线与垂线所在的面
步骤五：以交点为圆心画半径为200的圆

hbxiaofeng

两条直线只能在wcs下的xy平面内，如果不是的话就不正确，没时间调了，有时间再改改，

xyp1964

2. [FONT=courier new]
   
3. ;; 相交线的平分面
   
4. (defun c:test762 ()
   
5.   (CMDLA0)
   
6.   (setq s1 (car (entsel "\n选择: ")))
   
7.   (setq        s2   (car (entsel "\n选择: "))
   
8.         p1   (xyp-get-dxf 10 s1)
   
9.         p2   (xyp-get-dxf 11 s1)
   
10.         p3   (xyp-get-dxf 10 s2)
    
11.         p4   (xyp-get-dxf 11 s2)
    
12.         p5   (inters p1 p2 p3 p4 nil)
    
13.         rad1 (angle p1 p2)
    
14.         rad2 (angle p3 p4)
    
15.         p6   (polar p5 rad1 100)
    
16.         p7   (polar p5 rad2 100)
    
17.         p8   (xyp-get-MidPoint p6 p7)
    
18.   )
    
19.   (command "circle" "non" p5 200)
    
20.   (command "rotate3d" (entlast) "" "2" p5 p8 90)
    
21.   (CMDLA1)
    
22. )[/FONT]

[FONT=courier new]<br /> ;; 相交线的平分面<br /> (defun c:test762 ()<br />   (CMDLA0)<br />   (setq s1 (car (entsel "\n选择: ")))<br />   (setq        s2   (car (entsel "\n选择: "))<br />         p1   (xyp-get-dxf 10 s1)<br />         p2   (xyp-get-dxf 11 s1)<br />         p3   (xyp-get-dxf 10 s2)<br />         p4   (xyp-get-dxf 11 s2)<br />         p5   (inters p1 p2 p3 p4 nil)<br />         rad1 (angle p1 p2)<br />         rad2 (angle p3 p4)<br />         p6   (polar p5 rad1 100)<br />         p7   (polar p5 rad2 100)<br />         p8   (xyp-get-MidPoint p6 p7)<br />   )<br />   (command "circle" "non" p5 200)<br />   (command "rotate3d" (entlast) "" "2" p5 p8 90)<br />   (CMDLA1)<br /> )[/FONT]

效果：