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

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; p4 l( x- P8 U' H% U7 B* w1 u
高版本ＡＣＡＤ中，画出此长线后，设置凸轮的圆心为坐标原点，并设置尺寸标注关联。3 v) j- J5 ]3 P1 J
对交点使用约束，对直 ...

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

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 ~( Y5 w9 K" P) o t$ x7 y
(setvar "cmdecho" 0)
3 d4 z% Q# D5 X* S# [& X9 g
(setq e(car(entsel"\n选择凸轮曲线:")))) Q( c* L+ ]; K/ K+ a }. w
(setq ei(car(entsel"\n选择投极轴直线:")))" C- u9 ~0 L# g$ e! c
(setq O(getpoint"\n选择凸轮中心点:"))$ v* [7 ?: [/ n' W1 R( I
(setq X (car O) Y (cadr O)) (setq n 1)/ `. O( Z n# z4 A) o; M
(repeat 360/ V# V+ G4 h4 Y5 Z \& H
(command "rotate" ei "" O 1)' K/ A. V* {3 w! `
(setq Point (trans (car (GetInterPointlist ei e)) 0 1))- L, Q0 [. \# K- ]
(command "Text" (list X Y) "5" "0" n). @4 p, z, V( I. _) _. S$ y5 }
(command "Text" (list (+ X 20) Y) "5" "0" (rtos (car point) 2 2))
( }; u, @7 r4 j/ ~5 X
(command "Text" (list (+ X 60) Y) "5" "0" (rtos (cadr point) 2 2));保留两位小数
" u5 b( o5 a! R) K
(setq Y (+ Y 10))! U, O/ x" Q- |% z2 x: J
(setq n (+ 1 n))0 w& m6 {& }. t
)
' I- h& d) ]. W [4 J+ b# G& V
(setvar "cmdecho" 1)
r5 _$ \' L5 E: q
(princ)
) P% u' K* _4 \
)
% x, G: ~. ]3 Q5 \5 U9 L
(defun GetInterPointlist (ent_1 ent_2 / ent1 ent2
2 {% a3 b5 ~' |- \
ax_ent_1 ax_ent_2 intpoints i
. o' M. W t+ J
j k disp int_list3 ?' [# P! i% |2 M! C" c
)
% H! H5 W* ?, f- ^# G+ D
" {5 H; ?7 ~! D
(setq int_list nil)0 D! \8 g M% ^' C/ A p1 r' I5 \) [
(setq ax_ent_1 (vlax-ename->vla-object ent_1)( s8 u9 T1 g" i$ u' ]; @
ax_ent_2 (vlax-ename->vla-object ent_2)6 f' S! h$ Y, W, T1 G( j& h
)
, x6 k7 I+ h( _ z' j7 W1 r5 `5 G
(setq intpoints (vla-intersectwith ax_ent_1 ax_ent_2 acextendnone))# v( _ N- J7 l
(setq intpoints (vlax-variant-value intpoints))
5 W$ m. R' p! w" @8 @4 d2 U
(if (> (vlax-safearray-get-u-bound intpoints 1) 0)+ b9 w* m. W7 a, B" Q4 e" s! f
(progn, |7 D+ L' k# m7 A- n B
(setq i 0)
: `$ N7 P5 s6 s" |
(setq j 0)
" b9 @8 G# V1 l+ J; T
(setq disp "")
, D7 O5 s5 o( |% g7 M2 |
(repeat
7 j0 r' b% q$ M: P F2 ~) c+ ]; N
(/ (+ 1
" o' h. j0 H8 q8 V
(- (vlax-safearray-get-u-bound intpoints 1): [5 ?: b P9 J6 l* d
(vlax-safearray-get-l-bound intpoints 1)1 t; c; E) q1 r3 N
)! d" A# A5 ^3 n1 w
)' k1 \( s }: b. z/ [, `; l; F- ?
3
1 v! N2 F9 b3 t+ C
)/ j' }, z3 y# t$ \: i
(setq
0 U3 h% v% R ~% |7 q
disp (list F' q# f. J6 z+ X
(vlax-safearray-get-element intpoints j)
0 E' _6 G1 o8 z x. V) A4 T
0 D O! B* r1 k" [; r
(vlax-safearray-get-element intpoints (+ 1 j))4 e% R' _; D: F N8 f
/ T: ^8 \5 n$ u0 g
(vlax-safearray-get-element intpoints (+ 2 j))
" @; L1 {) M2 r2 y
)
8 p( f0 B* e' I$ x# T) |: K) p
)
( Z6 L4 v6 ]5 o$ w+ b3 C
(setq i (+ 2 i)
7 J! H% P5 U. O! \- z
j (+ 3 j)
2 b& F0 a! t% Q, N& o% y* x: l6 x
)
( Q( x$ D7 P" H! W
(setq int_list (append int_list (list disp)))9 [2 b1 a7 ^" b
)
" ~0 z: w _8 E( u) a# Q
)2 e! f N3 Q4 k. D2 k6 }
)- _2 ?/ T$ W! L2 B: s1 K* D
(setq int_list int_list)8 i# v' v }2 a0 e. ]4 m, R
)
0 k2 W" `) c( k$ R$ |2 b9 a

复制代码

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

xhq1954425 发表于 2014-10-22 13:18 static/image/common/back.gif. d2 V; ]6 v) m) d0 P, @7 D
这个是保留两位小数的：

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

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

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

woaishuijia 发表于 2014-10-23 10:52 static/image/common/back.gif
1 T/ {& g8 i& B9 E, ?代#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& Y7 r5 N0 H& x% S) R1 s* T# q2 y
楼上搞二次开发的吗？厉害

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

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

txh007 发表于 2014-10-23 21:14 static/image/common/back.gif& C, p: J5 x3 |+ m. }+ \$ `
谢谢，我不要坐标，我要的是每一个角度的凸轮轮廓线到中心的距离

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

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

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

xhq1954425 发表于 2014-10-24 08:55 static/image/common/back.gif) r8 e* b' n4 t1 X# t- u
要数据的话，应该将数据写入记事本中，这样便于复制使用，但不知道是不是你要的形式？也不知道你何时再进来 ...

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

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

zhuyi0829 发表于 2014-10-26 09:45 static/image/common/back.gif
9 B- { K. X* m你要的不是坐标位置吗，莫名其妙

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

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

txh007 发表于 2014-10-27 12:33 static/image/common/back.gif7 i# \, \6 c4 H; n4 Z- X0 K- a
就是这样的$ O' f0 K f2 r b0 \0 x, b
就是把精度为小数点后的第4位如100.6666* @" b: V( t9 _
谢谢，高手啊

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

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

txh007 发表于 2014-10-27 12:37 static/image/common/back.gif
/ s, Y; i8 j! _$ e我要的是极轴长度，凸轮边到中心的距离，如10度凸轮边到中心的距离为98.3253，11度凸轮边到中心的距离为9 ...

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

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

zhuyi0829 发表于 2014-10-27 15:58 static/image/common/back.gif
6 H! X. v. G$ V1 _% ]你知道国内有多少设备能加工到小数点后四位的，你做凸轮你的加工设备能识别到小数点后四位?

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

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

zhuyi0829 发表于 2014-10-27 16:01 static/image/common/back.gif
2 O$ u, U! }7 U1 r1 [6 h极坐标也是坐标，只是以角度加距离表示，坐标分好几种了，球坐标，笛卡尔坐标，极坐标等

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

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

zhuyi0829 发表于 2014-10-27 16:01 static/image/common/back.gif. s/ z7 Y5 }' e) P' Z
极坐标也是坐标，只是以角度加距离表示，坐标分好几种了，球坐标，笛卡尔坐标，极坐标等

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

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

txh007 发表于 2014-10-27 20:01 static/image/common/back.gif
d1 x6 t4 D$ K* K5 T5 E是的，但领导要求是长度和角度

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

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

zhuyi0829 发表于 2014-10-27 20:17 static/image/common/back.gif
8 [7 \: T) ^) T" p& Q, e我觉得很奇怪，是你提问题还是你领导提问题啊，既然都是你领导的意思，叫他解决问题啊，发什么帖呢

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

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

通知

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

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

点评

评分

浏览过的版块