[求助]：边长交会的问题

ouyangsong

小弟不懂这个几何问题
已知二点的坐标。还有两个边长。求交点怎么求，以前就是在已知两点绘圆再求交点，但是那样很不方便。请大吓帮忙。

ljpnb

求这个交点的思路就是几何作图的方法，编程的思路也就是用这个方法，

xyp1964

2. [FONT=courier new](load "xyp_lib.vlx")  ;版本 V.20060303(2153)
   
3. ;|下载和加载通用函数(可在签名栏直接下载后放到搜索路径下)
   
4. 利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序：
   
5. ★1·在acad.lsp中增加(load"xyp_lib.vlx")
   
6. ■2·在每个程序内增加(load"xyp_lib.vlx")
   
7. ■3·在command下，输入(load"xyp_lib.vlx")
   
8. ■4·在菜单.mnl中增加(load"xyp_lib.vlx")
   
9. ■5·将xyp_lib.vlx文件直接拽到cad屏幕
   
10. [COLOR=red] ★通用函数下载地址：[/COLOR]
    
11. [url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]
    
12. |;
    
13. 
    
14. 
    
15. (defun c:test ()
    
16.   (CMDLA0)
    
17.   (if (setq pt1 (getpoint "\n第1点<退出>: "))
    
18.     (progn
    
19.       (if (setq pt2 (getpoint pt1 "\n第2点<退出>: "))
    
20.         (progn
    
21.           (setq        no1 (UREAL 7 "" "\n边长1" no1)
    
22.                 no2 (UREAL 7 "" "\n边长2" no2)
    
23.           )
    
24.           (if (> (+ no1 no2) (distance pt1 pt2))
    
25.             (progn
    
26.               (command "circle" pt1 no1)
    
27.               (setq s1 (entlast))
    
28.               (command "circle" pt2 no2)
    
29.               (setq s2 (entlast))
    
30.               (setq ptlst (xyp-get-Inters s1 s2 0))
    
31.               (command "erase" s1 s2 "")
    
32.               (setvar "osmode" 0)
    
33.               (mkla"test"3)
    
34.               (command "line" (car ptlst) (cadr ptlst) "")
    
35.               (grvecs (list 1 (car ptlst) (cadr ptlst)))
    
36.             )
    
37.             (princ "\n边长太小! ")
    
38.           )
    
39.         )
    
40.       )
    
41.     )
    
42.   )
    
43.   (CMDLA1)
    
44. )[/FONT]

[FONT=courier new](load "xyp_lib.vlx")  ;版本 V.20060303(2153)<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 />   (if (setq pt1 (getpoint "\n第1点<退出>: "))<br />     (progn<br />       (if (setq pt2 (getpoint pt1 "\n第2点<退出>: "))<br />         (progn<br />           (setq        no1 (UREAL 7 "" "\n边长1" no1)<br />                 no2 (UREAL 7 "" "\n边长2" no2)<br />           )<br />           (if (> (+ no1 no2) (distance pt1 pt2))<br />             (progn<br />               (command "circle" pt1 no1)<br />               (setq s1 (entlast))<br />               (command "circle" pt2 no2)<br />               (setq s2 (entlast))<br />               (setq ptlst (xyp-get-Inters s1 s2 0))<br />               (command "erase" s1 s2 "")<br />               (setvar "osmode" 0)<br />               (mkla"test"3)<br />               (command "line" (car ptlst) (cadr ptlst) "")<br />               (grvecs (list 1 (car ptlst) (cadr ptlst)))<br />             )<br />             (princ "\n边长太小! ")<br />           )<br />         )<br />       )<br />     )<br />   )<br />   (CMDLA1)<br /> )[/FONT]

ouyangsong

能不能不用COMMAND画圆，因为我已经在COMMAND函数里面了

ljpnb

不用command，那就用vla-AddCircle 来画圆喽

snoopychen

最容易还是画圆，假如一定要用代数解法，可以如下

tgh56

[php]
(defun c:bcjh ()
  (setq
   a1(getpoint "\n第一点:")
b(getdist a1 "\n第一点距离:"))
(setq
   b1(getpoint "\n第二点:")
    a(getdist b1 "\n第二点距离:"))
  (setq c(distance a1 b1))
  (if (> (+ a b)c)
    (progn
(setq
      s(*(+(+ a b)c)0.5)
      abc(sqrt(*(*(*(- s a)(- s b))(- s c))s))
      h(/(* abc 2)c)
      c1(polar b1 (angle b1 a1)(sqrt(-(* a a)(* h h))))
      ang1(+(angle b1 a1)(* 0.5 pi))
      ang2(-(angle b1 a1)(* 0.5 pi))
      d1(polar c1 ang1 h);第一个交点
       d2(polar c1 ang2 h);第二个交点
   )
  (grdraw d1 d2 5 1)
)(alert "两边距离太小不能交会")))
[/php]

zzyong00

用余弦定理也可

ljpnb

呵呵，个个数字都学得不错，8楼的只需要求其中一个角就可以了，没必要两个都求

zzyong00

最初由 zzyong00 发布
[B]用余弦定理也可 [/B]

9楼兄弟指教的是!偶的失误