CAD中怎么才能使圆与样条始终相切

hoot6335

Gu_xl 发表于 2012-7-10 20:06
CAD2004上运行效果最佳！
机械行业我是外行！所以不知道你所说的凸轮旋转角度是什么意思！
写这个程序仅 ...

恩 我的意思是：加载代码，运行命令后，指定凸轮旋转多少度（度数自己输入）。比如：输入30度，凸轮逆时针旋转30度后，停在该位置；输入-30度，凸轮顺时针旋转30度后，停在该位置。
你的程序现在是360度周而复始旋转的。

chpmould

The thinking is the key

hoot6335

hoot6335 发表于 2012-7-10 20:23
恩 我的意思是：加载代码，运行命令后，指定凸轮旋转多少度（度数自己输入）。比如：输入30度，凸轮逆时针 ...

G版，测试了下~~输入30度后，凸轮实际上旋转了30.1606度（精确到小数点4位）——见附件的图片，为什么不是30度呢？
另外：“摆动角度(度数)”应该改为“旋转角度(度数)”

hoot6335

重新下载测试了下~完美~谢谢G版！！
另外，关于代码运行中鼠标移动视角窗口就换到其他地方，原来是CAD刷新的问题~~运行过程中按F5刷新即可解决~~
再次谢谢G版

LLXXZZ

花了几个小时用犀牛软件做了一个。

hoot6335

LLXXZZ 发表于 2012-7-11 11:55
花了几个小时用犀牛软件做了一个。

呵呵 ~~谢谢啦
~三维软件做这种运动模拟是很容易的~~我就是想用二维的CAD也能做运动模拟~~

hpy

佩服啊，太强大了！

江湖远人

G版的答案很有意思啊！

chlh_jd

我简单写了个，实例可以把精度设得更高些，另外通过grread和总用时控制退出机制可以改进下。

2. ;;测试(defun c:test
   
3.        (/ ss tl gz cz c r p10 p11 c0 r0 lm zsc tt0 t0 t1 tzs tl_p0)
   
4.   (prompt "\n选择凸轮转动对象集:")
   
5.   (if (and
   
6. (setq ss (ssget))
   
7. (setq
   
8.    tl (cadar
   
9.         (vl-remove-if-not
   
10.    (function
    
11.      (lambda (x)
    
12.        (and (= (type (cadr x)) 'ENAME)
    
13.      (= (cdr (assoc 0 (entget (cadr x)))) "SPLINE")
    
14.        )
    
15.      )
    
16.    )
    
17.    (ssnamex ss)
    
18.         )
    
19.       )
    
20. )
    
21. (setq tl_p0 (getpoint "\n选择凸轮转心:"))
    
22. (listp tl_p0)
    
23. (or (setq zsc (getreal "\n输入凸轮每转过1度的用时(ms毫秒)<10>:"))
    
24.      (setq zsc 10.)
    
25. )
    
26. (setq gz (car (entsel "\n选择滚子圆"))
    
27.        cz (car (entsel "\n选择传力轴直线:"))
    
28. )
    
29.       )
    
30.     (progn
    
31.       (setq gz (entget gz)
    
32.      cz (entget cz)
    
33.      c (cdr (assoc 10 gz))
    
34.      r (cdr (assoc 40 gz))
    
35.      p10 (cdr (assoc 10 cz))
    
36.      p11 (cdr (assoc 11 cz))
    
37.      R0 (distance p10 p11)
    
38.       )
    
39.       (if (< (distance p10 c) (distance p11 c))
    
40. (setq lm 10
    
41.        C0 p11
    
42. )
    
43. (setq lm 11
    
44.        C0 p10
    
45. )
    
46.       )
    
47.       (setq tt0 (getvar "MilliSecs")
    
48.      t0 tt0
    
49.      tzs (* 360. 4. zsc)
    
50.       )
    
51.       (while (and (setq pt (grread t 4 2))
    
52.     (= (car pt) 5)
    
53.     (setq t1 (getvar "MilliSecs"))
    
54.     (< (- t1 tt0) tzs)
    
55.       )
    
56. (if (> (- t1 t0) zsc)
    
57.    (progn
    
58.      (setq t0 t1)
    
59.      (command "_rotate" ss "" tl_p0 1.)
    
60.      (setq c (ss:get_c c0 r0 c r tl 1e-1))
    
61.      (entmod (subst (cons 10 c) (assoc 10 gz) gz))
    
62.      (entmod (subst (cons lm c) (assoc lm cz) cz))
    
63.    )
    
64. )
    
65.       )
    
66.     )
    
67.     (princ "\n参数错误或对象不足!")
    
68.   )
    
69.   (princ)
    
70. )
    
71. ;;;核心函数
    
72. ;;;滚子与凸轮求切
    
73. (defun ss:get_c (c0 r0 c r tl eps / p p1 d a b)
    
74.   ;;高效求凸轮滚子与凸轮切点函数
    
75.   ;; get_c
    
76.   ;; c0 —— 传力轴转心
    
77.   ;; r0 —— 滚子到传力转心的距离
    
78.   ;; c  —— 滚子初始圆心
    
79.   ;; r  —— 滚子半径
    
80.   ;; tl —— 凸轮外轮廓线图元名
    
81.   ;; eps —— 允许误差
    
82.   ;; by GSLS(SS) 2012-07-14
    
83.   (setq a (angle c0 c))
    
84.   (while (and (setq p (polar c0 a r0))
    
85.        (setq p1 (vlax-curve-getclosestpointto tl p))
    
86.        (not (equal (setq d (distance p p1)) r eps))
    
87.   )
    
88.     (setq b (/ (- d r) 2. pi r0))
    
89.     (setq a (+ a b))
    
90.   )
    
91.   p
    
92. )
    

;;测试(defun c:test<br />        (/ ss tl gz cz c r p10 p11 c0 r0 lm zsc tt0 t0 t1 tzs tl_p0)<br />   (prompt "\n选择凸轮转动对象集:")<br />   (if (and<br /> (setq ss (ssget))<br /> (setq<br />    tl (cadar<br />         (vl-remove-if-not<br />    (function<br />      (lambda (x)<br />        (and (= (type (cadr x)) 'ENAME)<br />      (= (cdr (assoc 0 (entget (cadr x)))) "SPLINE")<br />        )<br />      )<br />    )<br />    (ssnamex ss)<br />         )<br />       )<br /> )<br /> (setq tl_p0 (getpoint "\n选择凸轮转心:"))<br /> (listp tl_p0)<br /> (or (setq zsc (getreal "\n输入凸轮每转过1度的用时(ms毫秒)<10>:"))<br />      (setq zsc 10.)<br /> )<br /> (setq gz (car (entsel "\n选择滚子圆"))<br />        cz (car (entsel "\n选择传力轴直线:"))<br /> )<br />       )<br />     (progn<br />       (setq gz (entget gz)<br />      cz (entget cz)<br />      c (cdr (assoc 10 gz))<br />      r (cdr (assoc 40 gz))<br />      p10 (cdr (assoc 10 cz))<br />      p11 (cdr (assoc 11 cz))<br />      R0 (distance p10 p11)<br />       )<br />       (if (< (distance p10 c) (distance p11 c))<br /> (setq lm 10<br />        C0 p11<br /> )<br /> (setq lm 11<br />        C0 p10<br /> )<br />       )<br />       (setq tt0 (getvar "MilliSecs")<br />      t0 tt0<br />      tzs (* 360. 4. zsc)<br />       )<br />       (while (and (setq pt (grread t 4 2))<br />     (= (car pt) 5)<br />     (setq t1 (getvar "MilliSecs"))<br />     (< (- t1 tt0) tzs)<br />       )<br /> (if (> (- t1 t0) zsc)<br />    (progn<br />      (setq t0 t1)<br />      (command "_rotate" ss "" tl_p0 1.)<br />      (setq c (ss:get_c c0 r0 c r tl 1e-1))<br />      (entmod (subst (cons 10 c) (assoc 10 gz) gz))<br />      (entmod (subst (cons lm c) (assoc lm cz) cz))<br />    )<br /> )<br />       )<br />     )<br />     (princ "\n参数错误或对象不足!")<br />   )<br />   (princ)<br /> )<br /> ;;;核心函数<br /> ;;;滚子与凸轮求切<br /> (defun ss:get_c (c0 r0 c r tl eps / p p1 d a b)<br />   ;;高效求凸轮滚子与凸轮切点函数<br />   ;; get_c <br />   ;; c0 —— 传力轴转心 <br />   ;; r0 —— 滚子到传力转心的距离<br />   ;; c  —— 滚子初始圆心<br />   ;; r  —— 滚子半径<br />   ;; tl —— 凸轮外轮廓线图元名<br />   ;; eps —— 允许误差<br />   ;; by GSLS(SS) 2012-07-14<br />   (setq a (angle c0 c))<br />   (while (and (setq p (polar c0 a r0))<br />        (setq p1 (vlax-curve-getclosestpointto tl p))<br />        (not (equal (setq d (distance p p1)) r eps))<br />   )<br />     (setq b (/ (- d r) 2. pi r0))<br />     (setq a (+ a b))<br />   )<br />   p<br /> )<br />

恒毅

太强大了吧