求助 空间最小角度标注（9币）

freehand8008

3D3S有这个功能：“选N根三维杆件 ，右键就能告诉其中最小夹角是多少度”

我就会是CAD哈哈，哪位高人能给搞个类似的LISP啊

特别说明，我就13个明经币，我拿出9个来作为稿酬



LISP简单需求：选中三维线，能知道最小夹角是哪个、度数是多少、在那给个标示就中了

陨落

哈哈，我最近也在做网架。我看能不能写一个

自贡黄明儒

先给一个必用函数

1. ;;[功能] 限定角度在0~pi之间 自贡黄明儒 2014.1.10
   
2. (defun HH:ANGLE-FORMAT (A)  
   
3.   (while (< A 0)
   
4.     (SETQ A (+ A PI))
   
5.   )
   
6.   (while (>= A PI)
   
7.     (SETQ A (- A PI))
   
8.   )
   
9.   (if (EQUAL A PI 1.0e-008)
   
10.     (SETQ A 0.0)
    
11.   )
    
12.   A
    
13. )

;;[功能] 限定角度在0~pi之间 自贡黄明儒 2014.1.10<br /> (defun HH:ANGLE-FORMAT (A)  <br />   (while (< A 0)<br />     (SETQ A (+ A PI))<br />   )<br />   (while (>= A PI)<br />     (SETQ A (- A PI))<br />   )<br />   (if (EQUAL A PI 1.0e-008)<br />     (SETQ A 0.0)<br />   )<br />   A<br /> )

cable2004

现在只能寻找全部构件为直线的图元。一段一段的圆弧可以修改，整条圆弧的修改量有点大。
vlx文件，慎下！

freehand8008

cable2004 发表于 2014-1-14 14:57
现在只能寻找全部构件为直线的图元。一段一段的圆弧可以修改，整条圆弧的修改量有点大。

首先感谢cable2004朋友的帮忙！感谢！感谢！再感谢！

其次是有点小意见

1构件必须直线（模型时我疏忽了），不计了

2最小角度区域给了个面域，是否可以想燕秀查断点，在最小角度那 画个圈，是不是更简洁一些（纯属无理要求啊）

3是否可以有度数表示？

4我就4个币了哈哈，能不能私发我，测试一下先

cable2004

在最小角度那 画个圈?一个点有好几根杆件！怎么知道是哪个。度数在下面的命令栏里面有！给我QQ号！

freehand8008

cable2004 发表于 2014-1-15 10:26
在最小角度那 画个圈?一个点有好几根杆件！怎么知道是哪个。度数在下面的命令栏里面有！给我QQ号！

老鱼AK  905893051

陨落

cable2004 发表于 2014-1-14 14:57
现在只能寻找全部构件为直线的图元。一段一段的圆弧可以修改，整条圆弧的修改量有点大。

我写了没调出来，不过你这个vlx也收费…………

freehand8008

cable2004 发表于 2014-1-14 14:57
现在只能寻找全部构件为直线的图元。一段一段的圆弧可以修改，整条圆弧的修改量有点大。

有杆件数量限制么？  
几百根线，N久没有反应

cable2004

估计计算有点大，发文件来试试。