现有凸轮外形，要把数据采集，有没有好的方法

txh007 · 发表于 2014-10-22 09:23:40

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

您需要登录才可以下载或查看，没有帐号？注册

x

我现在要把这凸轮以一度一个点，来采集数据，
我现在用的方法是以凸轮的圆心画根长线，把这长线转过一度，量长线与凸轮轮廓线交点到中心的位置来采集凸轮数据，有没有好的方法或者小软件。谢谢

zhuyi0829 · 发表于 2014-10-22 10:18:39

用2d扫描出来就可以了

xhq1954425 · 发表于 2014-10-22 10:21:42

把那根线阵列360个，然后用CAD自带的计算器获取坐标点或极轴长度，360个数据是有点麻烦……编个软件比较好……

我爱用acad · 发表于 2014-10-22 12:03:49

高版本ＡＣＡＤ中，画出此长线后，设置凸轮的圆心为坐标原点，并设置尺寸标注关联。
对交点使用约束，对直线标注极角，然后对交点进行坐标标注。
上述设置好后，更改极角尺寸为0~360的每一个角度，此时交点的标注尺寸自动更新。
剩下的就是自己记录坐标数据了。
360个，确实多了点！

txh007 · 发表于 2014-10-22 12:15:48

我爱用acad 发表于 2014-10-22 12:03 static/image/common/back.gif
/ Z: `' j2 @! @ N( Z高版本ＡＣＡＤ中，画出此长线后，设置凸轮的圆心为坐标原点，并设置尺寸标注关联。. T4 l2 I" ^8 U* i% M3 Q6 E& o
对交点使用约束，对直 ...

能把怎么设置的详细说一下嘛

xhq1954425 · 发表于 2014-10-22 12:37:05

现编写了一个程序，试一下（运行时稍有点卡）：

xhq1954425 · 发表于 2014-10-22 12:38:18

本帖最后由 xhq1954425 于 2014-10-23 09:05 编辑

(defun c:tt()
  (setvar "cmdecho" 0)
  (setq e(car(entsel"\n选择凸轮曲线:")))
  (setq ei(car(entsel"\n选择投极轴直线:")))
  (setq O(getpoint"\n选择凸轮中心点:"))
  (setq X (car O) Y (cadr O)) (setq n 1)
  (repeat 360
(command "rotate" ei "" O 1)
(setq Point (trans (car (GetInterPointlist ei e)) 0 1))
(command "Text" (list X Y) "5" "0" n)
(command "Text" (list (+ X 20) Y) "5" "0" (rtos (car point) 2 2))
(command "Text" (list (+ X 60) Y) "5" "0" (rtos (cadr point) 2 2));保留两位小数
(setq Y (+ Y 10))
(setq n (+ 1 n))
  )
  (setvar "cmdecho" 1)
  (princ)
)
(defun GetInterPointlist (ent_1 ent_2 /    ent1    ent2
   ax_ent_1 ax_ent_2 intpoints    i
   j k    disp    int_list
)

  (setq int_list nil)
  (setq ax_ent_1 (vlax-ename->vla-object ent_1)
ax_ent_2 (vlax-ename->vla-object ent_2)
  )
  (setq intpoints (vla-intersectwith ax_ent_1 ax_ent_2 acextendnone))
  (setq intpoints (vlax-variant-value intpoints))
  (if (> (vlax-safearray-get-u-bound intpoints 1) 0)
(progn
   (setq i 0)
   (setq j 0)
   (setq disp "")
   (repeat
(/ (+ 1
   (- (vlax-safearray-get-u-bound intpoints 1)
(vlax-safearray-get-l-bound intpoints 1)
   )
)
3
)
  (setq
disp (list
(vlax-safearray-get-element intpoints j)

(vlax-safearray-get-element intpoints (+ 1 j))

(vlax-safearray-get-element intpoints (+ 2 j))
  )
  )
  (setq i (+ 2 i)
      j (+ 3 j)
  )
  (setq int_list (append int_list (list disp)))
   )
)
  )
  (setq int_list int_list)
)

xhq1954425 · 发表于 2014-10-22 13:18:39

本帖最后由 xhq1954425 于 2014-10-23 09:03 编辑

这个是保留两位小数的：

woaishuijia · 发表于 2014-10-23 10:52:52

本帖最后由 woaishuijia 于 2014-10-23 10:56 编辑

代#7楼重帖代码

(defun c:tt()
9 P+ a' ~1 f9 G2 @
(setvar "cmdecho" 0) 0 ] t; q% G" F! \0 S( J% l6 y
(setq e(car(entsel"\n选择凸轮曲线:")))7 e* p5 @( w5 M4 R7 I" }# z: [
(setq ei(car(entsel"\n选择投极轴直线:")))! w, [0 p! D, e3 ]- U4 L) _4 G
(setq O(getpoint"\n选择凸轮中心点:"))4 q$ G4 T: x7 M7 x4 \; x2 n( t
(setq X (car O) Y (cadr O)) (setq n 1)) f8 X `/ ~7 B; c/ z
(repeat 360
+ f# G# j) V( X( P/ [8 H
(command "rotate" ei "" O 1)! |' L! v/ L7 ~$ c8 w% }; h$ `* n
(setq Point (trans (car (GetInterPointlist ei e)) 0 1))9 ~) g' b3 f( t: Y1 C$ ^
(command "Text" (list X Y) "5" "0" n)' w8 s' e! O- _7 [
(command "Text" (list (+ X 20) Y) "5" "0" (rtos (car point) 2 2))
5 L" O, M+ W9 w( d |
(command "Text" (list (+ X 60) Y) "5" "0" (rtos (cadr point) 2 2));保留两位小数
$ X' x+ G" N" Z7 e* ?
(setq Y (+ Y 10))
3 j6 b4 Q: X' n/ s+ M
(setq n (+ 1 n))
. G( b& F* c9 @& }7 t
) 6 j4 ` z# p, l' v8 D
(setvar "cmdecho" 1)
2 e4 e3 {4 A* _
(princ)
& @+ ^4 w* n1 n: L$ J
)
4 t, b, N3 _' F0 w. Q9 v
(defun GetInterPointlist (ent_1 ent_2 / ent1 ent2 B* U, @2 N% S/ y# i* `4 u' U
ax_ent_1 ax_ent_2 intpoints i1 B" ?7 r: Q2 T6 c
j k disp int_list4 O" Y( e8 @, I% Q
)
1 z( [; s" [! i' W" W! a
% Z# x6 w' i! l" F7 B( s
(setq int_list nil)
% t3 P+ S {5 a" z
(setq ax_ent_1 (vlax-ename->vla-object ent_1)( \1 p) i* _6 }4 G
ax_ent_2 (vlax-ename->vla-object ent_2)
& P$ n+ A7 o0 ]0 {: |6 G
)! d: `& K' M! M; w9 P# D$ N \
(setq intpoints (vla-intersectwith ax_ent_1 ax_ent_2 acextendnone))
0 \* m4 k2 H n+ w# i
(setq intpoints (vlax-variant-value intpoints))% }% e1 A, h8 o, Y1 ~/ _
(if (> (vlax-safearray-get-u-bound intpoints 1) 0)
8 Q l: K6 A! \5 h0 x+ X. f
(progn
4 `4 y" E A- f n
(setq i 0)! [5 P9 b" S2 _' V k
(setq j 0)$ k9 Z% X, Q1 M# V" ]2 s# C. Q
(setq disp "")
3 O) H: R Y# n$ ?
(repeat
6 E! J' c$ X9 i2 z2 R/ I
(/ (+ 1
! E0 _0 A! b9 B1 m N, Q c2 v9 U
(- (vlax-safearray-get-u-bound intpoints 1)
% z: Z3 l5 ~" f
(vlax-safearray-get-l-bound intpoints 1)% c: Y# F) T2 s+ Z6 f
)
d& B9 E. {0 ]: f
)! w0 w# S% L2 F
3! |1 O) h# G* B W1 y0 e
)
' U" p- z. }3 `/ E; x8 }
(setq
5 [) H! u- i# U& r1 S
disp (list
- a5 w: x/ x5 j8 F) b* P
(vlax-safearray-get-element intpoints j)4 n2 K) w* v7 {
) S7 P" R8 E( E' O
(vlax-safearray-get-element intpoints (+ 1 j))
5 n( y& Q. A7 V0 @6 S* g* i
4 V! P3 d1 B. G: L
(vlax-safearray-get-element intpoints (+ 2 j))' f$ P4 L- j0 d0 o2 v8 F
)5 ^* D4 C7 l: b, @; x7 }) U
)
" _& Q; N0 f9 r% d/ g. n
(setq i (+ 2 i): Y* f( R- k" r" C9 S3 O
j (+ 3 j)
- N1 c7 \/ e2 k$ E4 ?7 A/ |
)' l3 P& s: s, Q0 h
(setq int_list (append int_list (list disp)))2 x$ Z" \7 \/ x5 s7 J
)
% A4 T* M5 Q; z9 m+ L* l) r4 u
). n8 z$ O' d. N# k/ v/ p
), Z9 t/ K3 Y/ J7 T
(setq int_list int_list)
" K5 K4 f9 H- U. @) L/ M
); r0 x) I' e) ^" B* q

复制代码

txh007 · 发表于 2014-10-23 21:14:11

xhq1954425 发表于 2014-10-22 13:18 static/image/common/back.gif8 f& } P& @: P. u9 j
这个是保留两位小数的：

谢谢，我不要坐标，我要的是每一个角度的凸轮轮廓线到中心的距离

txh007 · 发表于 2014-10-23 21:18:09

本帖最后由 txh007 于 2014-10-23 22:33 编辑

woaishuijia 发表于 2014-10-23 10:52 static/image/common/back.gif9 U. I# F6 p4 g
代#7楼重帖代码

我想问一下，这代码怎么用呢，复制进去不会用

xhq1954425 · 发表于 2014-10-24 08:55:27

本帖最后由 xhq1954425 于 2014-10-24 09:06 编辑

要数据的话，应该将数据写入记事本中，这样便于复制使用，但不知道是不是你要的形式？也不知道你何时再进来看这个贴（好像是你发完贴之后好多天就不管了）……？先发一个改进一点的，等你批准说行了，我再发程序，也避免改来改去的：

股海一客 · 发表于 2014-10-25 09:57:13

楼上搞二次开发的吗？厉害

wangqian61 · 发表于 2014-10-25 10:27:49

其实最好用三坐标测量出来就可以了

xhq1954425 · 发表于 2014-10-26 09:14:08

股海一客发表于 2014-10-25 09:57 static/image/common/back.gif; S5 _8 `2 y6 r. r
楼上搞二次开发的吗？厉害

我不厉害，二次开发只是业余爱好，本人是从事制图教学工作

zhuyi0829 · 发表于 2014-10-26 09:45:44

txh007 发表于 2014-10-23 21:14 static/image/common/back.gif
C- s0 Q0 {/ A4 Q谢谢，我不要坐标，我要的是每一个角度的凸轮轮廓线到中心的距离

你要的不是坐标位置吗，莫名其妙

txh007 · 发表于 2014-10-27 12:33:18

本帖最后由 txh007 于 2014-10-27 12:39 编辑

xhq1954425 发表于 2014-10-24 08:55 static/image/common/back.gif
- T: y9 T' a+ x6 a& l要数据的话，应该将数据写入记事本中，这样便于复制使用，但不知道是不是你要的形式？也不知道你何时再进来 ...

就是这样的
就是把精度为小数点后的第4位如100.6666
谢谢，高手啊
我这两天一直在车间。没有看论坛的回复，
86156046是我的QQ

txh007 · 发表于 2014-10-27 12:37:30

zhuyi0829 发表于 2014-10-26 09:45 static/image/common/back.gif! j! b. g" C, g9 A; |
你要的不是坐标位置吗，莫名其妙

我要的是极轴长度，凸轮边到中心的距离，如10度凸轮边到中心的距离为98.3253，11度凸轮边到中心的距离为98.3264，就是要的是边到中心的距离

zhuyi0829 · 发表于 2014-10-27 15:58:49

txh007 发表于 2014-10-27 12:33 static/image/common/back.gif4 `+ s, a7 I o8 r
就是这样的
+ q/ n- [& l1 _; y- J" J. ?就是把精度为小数点后的第4位如100.6666
- m5 O" g" H+ j1 p0 a. T! Q谢谢，高手啊

你知道国内有多少设备能加工到小数点后四位的，你做凸轮你的加工设备能识别到小数点后四位?

zhuyi0829 · 发表于 2014-10-27 16:01:06

txh007 发表于 2014-10-27 12:37 static/image/common/back.gif
1 ~5 E6 c" W9 c# i' U0 f- F0 T我要的是极轴长度，凸轮边到中心的距离，如10度凸轮边到中心的距离为98.3253，11度凸轮边到中心的距离为9 ...

极坐标也是坐标，只是以角度加距离表示，坐标分好几种了，球坐标，笛卡尔坐标，极坐标等

txh007 · 发表于 2014-10-27 20:00:58

zhuyi0829 发表于 2014-10-27 15:58 static/image/common/back.gif
; Z- ?; j9 J9 w1 r4 x* [你知道国内有多少设备能加工到小数点后四位的，你做凸轮你的加工设备能识别到小数点后四位?

这是我们领导的意思，我也只能照着做。其实小数点后三位就够了

txh007 · 发表于 2014-10-27 20:01:51

zhuyi0829 发表于 2014-10-27 16:01 static/image/common/back.gif
: ]0 w# C2 C. ], W P- _& e! [9 d极坐标也是坐标，只是以角度加距离表示，坐标分好几种了，球坐标，笛卡尔坐标，极坐标等

是的，但领导要求是长度和角度

txh007 · 发表于 2014-10-27 20:02:30

zhuyi0829 发表于 2014-10-27 16:01 static/image/common/back.gif
0 U4 ]; g. \6 _9 h. A. G极坐标也是坐标，只是以角度加距离表示，坐标分好几种了，球坐标，笛卡尔坐标，极坐标等

是的，但领导要求是长度和角度

zhuyi0829 · 发表于 2014-10-27 20:17:13

txh007 发表于 2014-10-27 20:01 static/image/common/back.gif7 T: |6 G% Q+ E4 D+ h x3 M
是的，但领导要求是长度和角度

我觉得很奇怪，是你提问题还是你领导提问题啊，既然都是你领导的意思，叫他解决问题啊，发什么帖呢

txh007 · 发表于 2014-10-29 12:46:02

zhuyi0829 发表于 2014-10-27 20:17 static/image/common/back.gif
! K2 ^, r! }9 r b5 ? H+ m$ f& M我觉得很奇怪，是你提问题还是你领导提问题啊，既然都是你领导的意思，叫他解决问题啊，发什么帖呢

我是要做具体工作的人，他嘴巴一动就行了，我总不能对领导说你做，我不会做的

		自动登录	找回密码
密码			注册

全站		goto3d 说: 版主微信号：caivin811031；还未入三维微信群的小伙伴，速度加	2022-07-04
全站		goto3d 说: 此次SW竞赛获奖名单公布如下，抱歉晚了，版主最近太忙：一等奖：塔山817；二等奖：a9041、飞鱼；三等奖：wx_dfA5IKla、xwj960414、bzlgl、hklecon；请以上各位和版主联系，领取奖金！！！	2022-03-11

通知

[已解决] 现有凸轮外形，要把数据采集，有没有好的方法

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

点评

评分