[0111]怎样求出选取的两线夹角?

tctabc

[0111]怎样求出选取的两线夹角?
请教各位版主及高手
该怎样选取两线段
求出其夹角中心点,及角度值呢?
烦请帮忙解决一下
谢谢!!!

附图说明~

xyp1964

2. [FONT=courier new]
   
3. (load "xyp_lib.vlx")  ;版本 V.20051230 (1873)
   
4. ;|下载和加载通用函数(可在签名栏直接下载后放到搜索路径下)
   
5. 利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序：
   
6. ★1·在acad.lsp中增加(load"xyp_lib.vlx")
   
7. ■2·在每个程序内增加(load"xyp_lib.vlx")
   
8. ■3·在command下，输入(load"xyp_lib.vlx")
   
9. ■4·在菜单.mnl中增加(load"xyp_lib.vlx")
   
10. ■5·将xyp_lib.vlx文件直接拽到cad屏幕
    
11. [COLOR=red] ★通用函数下载地址：[/COLOR]
    
12. [url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]
    
13. |;
    
14. 
    
15. ;;两线夹角角度
    
16. (defun c:test ()
    
17.   (cmdla0)
    
18.   (setq        e1 (usel1 0 "LINE" "LINE线")
    
19.         s1 (car e1)
    
20.   )
    
21.   (grdraw (xyp-get-DXF 10 s1) (xyp-get-DXF 11 s1) 1)
    
22.   (setq        e2 (usel1 0 "LINE" "LINE线")
    
23.         s2 (car e2)
    
24.   )
    
25.   (grdraw (xyp-get-DXF 10 s2) (xyp-get-DXF 11 s2) 1)
    
26.   (setq        pt0  (inters (xyp-get-DXF 10 s1)
    
27.                      (xyp-get-DXF 11 s1)
    
28.                      (xyp-get-DXF 10 s2)
    
29.                      (xyp-get-DXF 11 s2)
    
30.                      nil
    
31.              )
    
32.         pt1  (osnap (cadr e1) "near")
    
33.         pt2  (osnap (cadr e2) "near")
    
34.         dist (distance pt0 pt1)
    
35.         ang  (rad2ang (- (angle pt0 pt2) (angle pt0 pt1)))
    
36.   )
    
37.   (if (< ang 0)
    
38.     (setq ang (+ ang 360))
    
39.   )
    
40.   (setvar "osmode" 0)
    
41.   (mkla "tmp" 1)
    
42.   (command "arc"
    
43.            (polar pt0 (angle pt0 pt1) dist)
    
44.            "c"
    
45.            pt0
    
46.            (polar pt0 (angle pt0 pt2) dist)
    
47.   )
    
48.   (redraw)
    
49.   (princ "\n两线夹角角度 = ")
    
50.   (princ ang)
    
51.   (cmdla1)
    
52. )[/FONT]

[FONT=courier new]<br /> (load "xyp_lib.vlx")  ;版本 V.20051230 (1873)<br /> ;|下载和加载通用函数(可在签名栏直接下载后放到搜索路径下)<br /> 利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序：<br /> ★1·在acad.lsp中增加(load"xyp_lib.vlx")<br /> ■2·在每个程序内增加(load"xyp_lib.vlx")<br /> ■3·在command下，输入(load"xyp_lib.vlx")<br /> ■4·在菜单.mnl中增加(load"xyp_lib.vlx")<br /> ■5·将xyp_lib.vlx文件直接拽到cad屏幕<br /> [COLOR=red] ★通用函数下载地址：[/COLOR]<br /> [url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]<br /> |;<br /> <br /> ;;两线夹角角度<br /> (defun c:test ()<br />   (cmdla0)<br />   (setq        e1 (usel1 0 "LINE" "LINE线")<br />         s1 (car e1)<br />   )<br />   (grdraw (xyp-get-DXF 10 s1) (xyp-get-DXF 11 s1) 1)<br />   (setq        e2 (usel1 0 "LINE" "LINE线")<br />         s2 (car e2)<br />   )<br />   (grdraw (xyp-get-DXF 10 s2) (xyp-get-DXF 11 s2) 1)<br />   (setq        pt0  (inters (xyp-get-DXF 10 s1)<br />                      (xyp-get-DXF 11 s1)<br />                      (xyp-get-DXF 10 s2)<br />                      (xyp-get-DXF 11 s2)<br />                      nil<br />              )<br />         pt1  (osnap (cadr e1) "near")<br />         pt2  (osnap (cadr e2) "near")<br />         dist (distance pt0 pt1)<br />         ang  (rad2ang (- (angle pt0 pt2) (angle pt0 pt1)))<br />   )<br />   (if (< ang 0)<br />     (setq ang (+ ang 360))<br />   )<br />   (setvar "osmode" 0)<br />   (mkla "tmp" 1)<br />   (command "arc"<br />            (polar pt0 (angle pt0 pt1) dist)<br />            "c"<br />            pt0<br />            (polar pt0 (angle pt0 pt2) dist)<br />   )<br />   (redraw)<br />   (princ "\n两线夹角角度 = ")<br />   (princ ang)<br />   (cmdla1)<br /> )[/FONT]

画角平分线，可以试试签名栏下的“等分角”程序。

tctabc

那中心点座标可以求出吗?

ljpnb

用inters函数可以求得

xyz518mm

請問版主使用您的程序
出現這樣的訊息該怎樣處理呢?


指令: test
字體無法使用。不明的指令「0」。請按 F1 取得說明。
不明的指令「1」。請按 F1 取得說明。
不明的指令「0」。請按 F1 取得說明。
不明的指令「TEST」。請按 F1 取得說明。
不明的指令「TEST」。請按 F1 取得說明。

ljpnb

楼上的大概没有加载2楼的通用函数的关系吧，仔细看一下

aeo

最初由 tctabc 发布
[B][0111]怎样求出选取的两线夹角?
请教各位版主及高手
该怎样选取两线段
求出其夹角中心点,及角度值呢?
烦请帮忙解决一下
谢谢!!!

附图说明~ [/B]

其实只有用cad标下角度看一下不就有了.

xyz518mm

楼主说的也对啦!但物件多了就烦了~
另再请教一下
如何判断我选取这两线段时点选顺序是顺时针点选
还是逆时针点选呢