某圆的所有的外切圆,

fkyourmather

defun c:5test2()

;以下 baspt、rad、num 值须由使用者输入

(setq baspt (getpoint “请求输入基准点:”))

(setq rad (getdist baspt “\n请求输入小圆半径:”))

(setq num (getint “\n请求输入欲相切的小圆数量:”))

;只要能求得 cenpt 点,再以 array 指令配合就万事OK了

;以下ang1、kk、cenpt值须由程序依据baspt、rad、num求出

(setq ang1 (/ (* pi 2) (* num 2)))  （求解释）

(setq kk (/ rad (sin ang1)))  （求解释）

(setq ang2 (- (/ pi 2) ang1))（ 求解释）


(setq cenpt (polar baspt ang2 kk)) （求解释）

;以下依据 cenpt、num 配合环形array画出多圆相切

(command “circle” baspt rad) ;;先画一个圆,才能array

(command “array” (entlast) “” “p” cenpt num 360 “Y”)

(prin1)

)

(prompt “\n << 5TEST2>>自动等圆相切绘制”)

(prin1)
求某圆的外切圆, 代码看的懂，数学学的差，帮忙解释一下

牢固

把图画出来看一下不就知道了！初中几何知识！

Highflybird

楼主画出图，稍加计算就知道了：

1. (defun c:test2()                                       
   
2.   ;以下 baspt、rad、num 值须由使用者输入
   
3.   (setq baspt (getpoint "请求输入基准点:"))               
   
4.   (setq rad (getdist baspt "\n请求输入小圆半径:"))
   
5.   (setq num (getint "\n请求输入欲相切的小圆数量:"))        ;只要能求得 cenpt 点,再以 array 指令配合就万事OK了
   
6. 
   
7.   ;以下ang1、kk、cenpt值须由程序依据baspt、rad、num求出
   
8.   (setq ang1 (/ (* pi 2) (* num 2)))                        ;等分角度的一半(如:6等分，即360度/6=60度为等分角，再除以2)
   
9.   (setq kk (/ rad (sin ang1)))                                ;半径除以这个角度的正正弦就是到阵列中心的距离
   
10.   (setq ang2 (- (/ pi 2) ang1))                                ;与x轴线的方向角度为90度减去等分角的一半
    
11.   (setq cenpt (polar baspt ang2 kk))                        ;得到阵列中心
    
12. 
    
13. 
    
14.   ;以下依据 cenpt、num 配合环形array画出多圆相切
    
15.   (command "circle" baspt rad)
    
16. 
    
17.   ;;先画一个圆,才能array
    
18.   (command "array" (entlast) "" "p" cenpt num 360 "Y")
    
19.   (prin1)
    
20.   (prompt "\n << 5TEST2>>自动等圆相切绘制")
    
21.   (prin1)
    
22. )
    
23. 
    
24. ;;;以下部分为我稍加修改:
    
25. (defun C:test1 (/ basPt cenpt rad num e o n a v i)
    
26.   (defun Make-Circle (cen rad)                                ;最好定义画圆的子函数，以方便以后的修改和重复利用
    
27.     (entmakeX
    
28.       (list '(0 . "CIRCLE") (cons 10 cen) (cons 40 rad))
    
29.     )
    
30.   )
    
31.   (initget 9)                                                ;不空输入，可在图形外上的一点
    
32.   (setq baspt (getpoint "请求输入基准点:"))
    
33.   (initget 15)                                                ;不空输入，为正数
    
34.   (setq rad (getdist baspt "\n请求输入小圆半径:"))               
    
35.   (initget 7)                                                ;不空输入，为正整数
    
36.   (setq num (getint "\n请求输入欲相切的小圆数量:"))
    
37. 
    
38.   (setq basPt (trans basPt 1 0))                        ;要转化到世界坐标系
    
39.   (setq e (Make-Circle basPt rad))                        ;先画一个圆
    
40.   (setq o (vlax-ename->vla-object e))  
    
41. 
    
42.   (setq a (/ pi num))                                        ;角度为等分角度的一半(等分角度为360度/数量)
    
43.   (setq v (list Rad (* Rad (/ (cos a) (sin a))) 0))           ;位移为其右偏移半径再往上偏移半径的余切
    
44.   (setq cenpt (mapcar '+ baspt v))                      ;加上原位置，就是阵列中心点
    
45. 
    
46.   (setq i 2)
    
47.   (repeat (1- num)                                        ;重复等分数的减一
    
48.     (setq n (vla-copy o))                                     ;对每个物体拷贝一份
    
49.     (vla-rotate n (vlax-3d-point cenpt) (* a i))        ;再以阵列中心点为基点旋转等分角度
    
50.     (setq i (+ i 2))                                               
    
51.   )
    
52.   (princ)
    
53. )
    

(defun c:test2()                                        <br />   ;以下 baspt、rad、num 值须由使用者输入<br />   (setq baspt (getpoint "请求输入基准点:"))                <br />   (setq rad (getdist baspt "\n请求输入小圆半径:"))<br />   (setq num (getint "\n请求输入欲相切的小圆数量:"))        ;只要能求得 cenpt 点,再以 array 指令配合就万事OK了<br /> <br />   ;以下ang1、kk、cenpt值须由程序依据baspt、rad、num求出<br />   (setq ang1 (/ (* pi 2) (* num 2)))                        ;等分角度的一半(如:6等分，即360度/6=60度为等分角，再除以2)<br />   (setq kk (/ rad (sin ang1)))                                ;半径除以这个角度的正正弦就是到阵列中心的距离<br />   (setq ang2 (- (/ pi 2) ang1))                                ;与x轴线的方向角度为90度减去等分角的一半<br />   (setq cenpt (polar baspt ang2 kk))                        ;得到阵列中心<br /> <br /> <br />   ;以下依据 cenpt、num 配合环形array画出多圆相切<br />   (command "circle" baspt rad)<br /> <br />   ;;先画一个圆,才能array<br />   (command "array" (entlast) "" "p" cenpt num 360 "Y")<br />   (prin1)<br />   (prompt "\n << 5TEST2>>自动等圆相切绘制")<br />   (prin1)<br /> )<br /> <br /> ;;;以下部分为我稍加修改:<br /> (defun C:test1 (/ basPt cenpt rad num e o n a v i)<br />   (defun Make-Circle (cen rad)                                ;最好定义画圆的子函数，以方便以后的修改和重复利用<br />     (entmakeX<br />       (list '(0 . "CIRCLE") (cons 10 cen) (cons 40 rad))<br />     )<br />   )<br />   (initget 9)                                                ;不空输入，可在图形外上的一点<br />   (setq baspt (getpoint "请求输入基准点:"))<br />   (initget 15)                                                ;不空输入，为正数<br />   (setq rad (getdist baspt "\n请求输入小圆半径:"))                <br />   (initget 7)                                                ;不空输入，为正整数<br />   (setq num (getint "\n请求输入欲相切的小圆数量:"))<br /> <br />   (setq basPt (trans basPt 1 0))                        ;要转化到世界坐标系<br />   (setq e (Make-Circle basPt rad))                        ;先画一个圆<br />   (setq o (vlax-ename->vla-object e))  <br /> <br />   (setq a (/ pi num))                                        ;角度为等分角度的一半(等分角度为360度/数量)<br />   (setq v (list Rad (* Rad (/ (cos a) (sin a))) 0))           ;位移为其右偏移半径再往上偏移半径的余切<br />   (setq cenpt (mapcar '+ baspt v))                      ;加上原位置，就是阵列中心点<br /> <br />   (setq i 2)<br />   (repeat (1- num)                                        ;重复等分数的减一<br />     (setq n (vla-copy o))                                     ;对每个物体拷贝一份<br />     (vla-rotate n (vlax-3d-point cenpt) (* a i))        ;再以阵列中心点为基点旋转等分角度<br />     (setq i (+ i 2))                                                <br />   )<br />   (princ)<br /> )<br />

fkyourmather

Highflybird 发表于 2013-5-16 19:18
楼主画出图，稍加计算就知道了：

小学知识都不好唉～我试试画粗图下～

fkyourmather

fkyourmather 发表于 2013-5-17 12:14
小学知识都不好唉～我试试画粗图下～

可以的话～附下图～在火车上！没有办法

fkyourmather

角度pi我觉得应该输入为pi 1/2

fkyourmather

Highflybird 发表于 2013-5-16 19:18
楼主画出图，稍加计算就知道了：

(setq i 2)
(repeat (1- num)                    ;重复等分数的减一
  (setq n (vla-copy o))             ;对每个物体拷贝一份
  (vla-rotate n (vlax-3d-point cenpt) (* a i))    ;再以阵列中心点为基点旋转等分角度
  (setq i (+ i 2))                        
)
(princ)关于这段～i的作用我可能知道但是还是不懂
)
[/code]

fkyourmather

Highflybird 发表于 2013-5-16 19:18
楼主画出图，稍加计算就知道了：

(setq i 2)
(repeat (1- num)                    ;重复等分数的减一
  (setq n (vla-copy o))             ;对每个物体拷贝一份
  (vla-rotate n (vlax-3d-point cenpt) (* a i))    ;再以阵列中心点为基点旋转等分角度
  (setq i (+ i 2))                        
)
(princ)关于这段～i的作用我可能知道但是还是不懂
)
[/code]