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

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.gif0 W0 |; j! Q- ]) D- I
高版本ＡＣＡＤ中，画出此长线后，设置凸轮的圆心为坐标原点，并设置尺寸标注关联。6 ?: r6 G. ~" _+ D G
对交点使用约束，对直 ...

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

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(); G6 F2 U* \: I- D4 Y' W
(setvar "cmdecho" 0) $ r( u! M* H, s, _/ |+ w# S) N8 E
(setq e(car(entsel"\n选择凸轮曲线:")))6 ~$ p# S$ D: Q3 a
(setq ei(car(entsel"\n选择投极轴直线:")))0 z3 D8 B: `7 K) i. }. `, u
(setq O(getpoint"\n选择凸轮中心点:"))
(setq X (car O) Y (cadr O)) (setq n 1)
# |3 G+ T8 v! I( e+ [0 k2 n
(repeat 360
6 ~# D: q8 t4 g( c
(command "rotate" ei "" O 1)
7 B' f( h+ r, h. F% J4 T/ C3 k3 j
(setq Point (trans (car (GetInterPointlist ei e)) 0 1))
) w! ?/ w+ ?6 U% l; V8 t3 p+ A, |
(command "Text" (list X Y) "5" "0" n)
% I3 F6 x' P) V' A% \5 `! s. {) k& V
(command "Text" (list (+ X 20) Y) "5" "0" (rtos (car point) 2 2))
9 n; y' v) U# f+ x8 ~/ T; a8 B& J
(command "Text" (list (+ X 60) Y) "5" "0" (rtos (cadr point) 2 2));保留两位小数
. `/ a, o4 @, U9 l e* |
(setq Y (+ Y 10))
7 \1 H" G4 c7 R% o" R4 d: R/ D4 a) }, ?
(setq n (+ 1 n))
3 O( y, W8 K! I5 d' m% v& g
) 0 w3 T% w; a) C8 L) u( H* d0 P
(setvar "cmdecho" 1) 0 i' X' ^4 n0 \1 [; g: O
(princ)
1 P/ A0 v/ v# q( ?
)
0 {' K4 b8 y2 u; r. Z, @6 G
(defun GetInterPointlist (ent_1 ent_2 / ent1 ent2
1 l$ C8 X+ G. ^) ?+ D
ax_ent_1 ax_ent_2 intpoints i/ i" p+ u2 }! E! k1 k' c
j k disp int_list
$ Y4 e8 D% q2 n$ O4 T3 U6 P' h
)
7 Z! L" w# N3 Y8 D$ t0 ~
U0 f0 A' |) }: Z# }6 J9 J
(setq int_list nil)( l$ D5 u) Y* v: t# H2 |
(setq ax_ent_1 (vlax-ename->vla-object ent_1). h- w* j+ F" V7 ~6 c$ d
ax_ent_2 (vlax-ename->vla-object ent_2)
. n7 ` `, Y/ G( P' m7 V
)9 L- f/ G; Z( c: I6 b/ X* s
(setq intpoints (vla-intersectwith ax_ent_1 ax_ent_2 acextendnone))& _3 S8 T- }. Q
(setq intpoints (vlax-variant-value intpoints))
1 O* z s- I& ^1 T
(if (> (vlax-safearray-get-u-bound intpoints 1) 0)
6 i% u3 W& s. y; r0 ?
(progn2 }1 P0 e7 b7 R
(setq i 0)3 Y- s# w0 x( N# `4 D7 W2 H
(setq j 0)
3 \2 {; g- _8 f3 \4 L5 ^
(setq disp "")
' P& D$ R' Y0 F/ g: c3 |0 {
(repeat
/ e6 X! n9 U/ B% ]8 k. Z3 k
(/ (+ 1
, ^4 R# @, X" h; n
(- (vlax-safearray-get-u-bound intpoints 1)$ P e9 d0 d% e4 G. f
(vlax-safearray-get-l-bound intpoints 1)
9 f. \; M* [* M5 X( j
)
$ @, {) S- A; x9 ~. C5 i
)
/ V' T. Q/ \! }' M" X
37 T2 ~# Z: `6 D4 E& u. Y
)& \3 U1 U$ G) E1 @& A7 A9 @' W
(setq
( P: v$ Z% Q X( \5 o
disp (list
& a' t) h7 Y6 c) k `, }% d; E8 {1 {
(vlax-safearray-get-element intpoints j)# Y% Z, }% v) [2 W7 T) w: ]
: N9 X+ r! h, ~. B# H
(vlax-safearray-get-element intpoints (+ 1 j))0 z5 {) F. o/ s4 } S
' s' {: q6 w+ n& s$ j
(vlax-safearray-get-element intpoints (+ 2 j))
, ?) f6 [ P2 B2 Z0 k$ h& _
)5 |$ H4 Q7 I* W& [) S7 q$ X) f
)8 A5 W4 p4 C/ R5 {& ]/ y2 r
(setq i (+ 2 i)3 f9 g; k# c7 z: O9 }4 C% B
j (+ 3 j)% M* \/ X% A- s) V) P
)$ k* s# f5 z5 B" f: N3 I& N
(setq int_list (append int_list (list disp))). s$ d. w) B4 R2 {+ ?+ i8 w
)
) E+ A# P, @" Y% n! J) m
)
+ {( F$ l0 O9 k5 ~
)1 x0 W( T* k4 t$ ?; m- C
(setq int_list int_list)+ t. j G2 q" P5 @, r* D T7 x
)
) L. _2 v, g+ e4 V! T

复制代码

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

xhq1954425 发表于 2014-10-22 13:18 static/image/common/back.gif& y; m% C I7 k A
这个是保留两位小数的：

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

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

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

woaishuijia 发表于 2014-10-23 10:52 static/image/common/back.gif
; ?- k0 N4 x( _& X2 S1 y$ m代#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! O4 I* J9 D( y# I+ |
楼上搞二次开发的吗？厉害

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

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

txh007 发表于 2014-10-23 21:14 static/image/common/back.gif
% K3 V- S$ H* B谢谢，我不要坐标，我要的是每一个角度的凸轮轮廓线到中心的距离

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

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

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

xhq1954425 发表于 2014-10-24 08:55 static/image/common/back.gif. D+ w' e: F/ ?+ b1 L( J; n& V
要数据的话，应该将数据写入记事本中，这样便于复制使用，但不知道是不是你要的形式？也不知道你何时再进来 ...

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

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

zhuyi0829 发表于 2014-10-26 09:45 static/image/common/back.gif
9 L% [, o$ o4 q* [* U你要的不是坐标位置吗，莫名其妙

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

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

txh007 发表于 2014-10-27 12:33 static/image/common/back.gif! X N5 v2 F8 S' l
就是这样的
& Y2 {, U: J- _; P8 N; B就是把精度为小数点后的第4位如100.6666
' J. {, P: t, p4 m谢谢，高手啊

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

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

txh007 发表于 2014-10-27 12:37 static/image/common/back.gif
) ]* D/ l2 l# @2 b我要的是极轴长度，凸轮边到中心的距离，如10度凸轮边到中心的距离为98.3253，11度凸轮边到中心的距离为9 ...

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

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

zhuyi0829 发表于 2014-10-27 15:58 static/image/common/back.gif
. C @# N* {7 `) W; W你知道国内有多少设备能加工到小数点后四位的，你做凸轮你的加工设备能识别到小数点后四位?

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

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

zhuyi0829 发表于 2014-10-27 16:01 static/image/common/back.gif
! G+ u; S+ m) \+ E& O4 a, c极坐标也是坐标，只是以角度加距离表示，坐标分好几种了，球坐标，笛卡尔坐标，极坐标等

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

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

zhuyi0829 发表于 2014-10-27 16:01 static/image/common/back.gif
* m8 n/ F* c! ~- P极坐标也是坐标，只是以角度加距离表示，坐标分好几种了，球坐标，笛卡尔坐标，极坐标等

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

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

txh007 发表于 2014-10-27 20:01 static/image/common/back.gif; h4 k8 d7 ]$ J* D! p; t
是的，但领导要求是长度和角度

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

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

zhuyi0829 发表于 2014-10-27 20:17 static/image/common/back.gif
( X1 h% D) \) T- k我觉得很奇怪，是你提问题还是你领导提问题啊，既然都是你领导的意思，叫他解决问题啊，发什么帖呢

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

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

通知

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

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

点评

评分

浏览过的版块