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

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
" d G* ]3 n1 a3 x高版本ＡＣＡＤ中，画出此长线后，设置凸轮的圆心为坐标原点，并设置尺寸标注关联。3 J' r1 |# H, x3 o6 R, E& Y0 @+ ]
对交点使用约束，对直 ...

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

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()7 E [4 \( `: n* Z$ J
(setvar "cmdecho" 0) 2 n/ T. u0 o7 J7 t3 a( I
(setq e(car(entsel"\n选择凸轮曲线:")))5 N& B: C6 c; |. ]8 w
(setq ei(car(entsel"\n选择投极轴直线:")))2 v0 N3 d4 i) w3 Q
(setq O(getpoint"\n选择凸轮中心点:"))1 _: c. \8 U& ~2 h q( k7 D3 u k
(setq X (car O) Y (cadr O)) (setq n 1)9 B* R( b% s1 ~/ w; o
(repeat 3606 u! r" _7 j4 |# c
(command "rotate" ei "" O 1)( c# q2 i* d- @6 L
(setq Point (trans (car (GetInterPointlist ei e)) 0 1))$ _0 f7 a7 p. K8 p7 T
(command "Text" (list X Y) "5" "0" n)
) k* g: T- g5 R0 o( G
(command "Text" (list (+ X 20) Y) "5" "0" (rtos (car point) 2 2))0 X! E% a0 J+ N3 k# A
(command "Text" (list (+ X 60) Y) "5" "0" (rtos (cadr point) 2 2));保留两位小数- g9 B: [4 R! ?* a7 L
(setq Y (+ Y 10))
. N# s+ u3 J) ]2 _% V
(setq n (+ 1 n))8 ~! {% p3 }" ^- T
)
1 |, ]$ { N9 D) O
(setvar "cmdecho" 1) & j& i' j. j y- D$ N9 M, F$ _
(princ)
& t6 n- u; |" Q: z2 {2 j
)
( C, Q. f& L" g" a8 a
(defun GetInterPointlist (ent_1 ent_2 / ent1 ent2
: O/ d& B5 i# Z4 x' Y1 P( ?1 B, ?
ax_ent_1 ax_ent_2 intpoints i- W7 \7 c, t1 _- ~
j k disp int_list( \! A5 C; j/ C* z5 h
)
! R j! z% B& q; N+ d6 t
- |) e, K; r& `8 p9 ~
(setq int_list nil)% H% w' Z5 e+ ~: n6 M; W: L, u
(setq ax_ent_1 (vlax-ename->vla-object ent_1)
- V" A3 S* m7 m5 u4 d
ax_ent_2 (vlax-ename->vla-object ent_2)9 M c/ l' n! w! x
)
/ g2 o9 P% V3 \' j* c
(setq intpoints (vla-intersectwith ax_ent_1 ax_ent_2 acextendnone))
/ N! C* X. c% w" U9 C& x
(setq intpoints (vlax-variant-value intpoints))
! g) Z6 [% F9 S! f+ H* m8 N2 x
(if (> (vlax-safearray-get-u-bound intpoints 1) 0)2 i" }/ A) v) ]! ?0 p V
(progn% T0 X! |4 R) W9 g! G/ I
(setq i 0)
1 b X# [4 R' \% q' w: o. `# Q3 k) h
(setq j 0)
8 S3 I$ ^1 e6 ~3 e, z4 m
(setq disp "")
# |5 ^. E) P$ K9 V4 L3 j5 F
(repeat
" g5 M' D/ F/ a8 U
(/ (+ 1
0 d8 _+ v* `( M& W
(- (vlax-safearray-get-u-bound intpoints 1)
0 k K( L) _7 u$ [8 R1 i& q
(vlax-safearray-get-l-bound intpoints 1)" Q0 M* H/ p* {) r F# u; p6 j+ p
)0 G7 a- P0 ^2 ]: Z- q+ }
)
: C# v6 C7 f7 z. s
3; A" E2 F- ?9 x$ Y; t- ]8 |
)
- n0 L: ]7 i4 K( s1 N: F1 K3 e
(setq
; \" N m( F' N
disp (list
! w: z2 k+ B9 O, U5 ?& b
(vlax-safearray-get-element intpoints j)+ J" X- v0 _$ C6 f
: v& ^" W, o/ C. M7 C; f
(vlax-safearray-get-element intpoints (+ 1 j))+ N6 l1 A/ y6 x4 R, k
( d/ v% I9 u& A# M
(vlax-safearray-get-element intpoints (+ 2 j))( m% Z/ ]( O2 @2 Z! U: l1 |. u
)
* d0 r" h3 Y0 E" ?
)0 ^1 d4 w, s4 ?) c
(setq i (+ 2 i)
* R |/ O: `0 R) j) y
j (+ 3 j)
D8 Y# w1 }* X$ f
)
& x; w& X- [) ~; ?( h$ Q, A
(setq int_list (append int_list (list disp)))1 G% F# ~+ Y( ?) E" L7 r1 ~# c7 M
)6 f8 m/ u5 l# n* h4 R4 K+ a
)4 t2 s1 `+ B- A6 \5 j4 F; H) v
)
4 D! g! }0 T" o, X
(setq int_list int_list)% ^7 m1 C$ c1 C4 N+ ^ }, J5 F
)
, T% a7 x% V9 o' u

复制代码

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

xhq1954425 发表于 2014-10-22 13:18 static/image/common/back.gif
# T6 F) L' m6 [8 a" x这个是保留两位小数的：

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

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

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

woaishuijia 发表于 2014-10-23 10:52 static/image/common/back.gif
" d; X) Z. Y# ]% W( u% B代#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
+ Q. A3 }! O' `! `! W, Y楼上搞二次开发的吗？厉害

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

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

txh007 发表于 2014-10-23 21:14 static/image/common/back.gif
+ k7 z& n! X" A1 q/ f: ]谢谢，我不要坐标，我要的是每一个角度的凸轮轮廓线到中心的距离

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

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

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

xhq1954425 发表于 2014-10-24 08:55 static/image/common/back.gif
( N5 S8 N1 u; L- T. `要数据的话，应该将数据写入记事本中，这样便于复制使用，但不知道是不是你要的形式？也不知道你何时再进来 ...

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

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

zhuyi0829 发表于 2014-10-26 09:45 static/image/common/back.gif
, v4 P6 j$ h2 G1 T- ~你要的不是坐标位置吗，莫名其妙

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

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

txh007 发表于 2014-10-27 12:33 static/image/common/back.gif
就是这样的1 ]+ {: W; ?0 a* j8 ?" w
就是把精度为小数点后的第4位如100.6666
# d) s% p* q$ Y/ K. L/ B4 Y谢谢，高手啊

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

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

txh007 发表于 2014-10-27 12:37 static/image/common/back.gif
# Y8 Y! R: l( l% r$ E我要的是极轴长度，凸轮边到中心的距离，如10度凸轮边到中心的距离为98.3253，11度凸轮边到中心的距离为9 ...

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

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

zhuyi0829 发表于 2014-10-27 15:58 static/image/common/back.gif
$ O% ^! E% _5 v8 `你知道国内有多少设备能加工到小数点后四位的，你做凸轮你的加工设备能识别到小数点后四位?

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

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

zhuyi0829 发表于 2014-10-27 16:01 static/image/common/back.gif2 B- O& U& P: l3 `1 f
极坐标也是坐标，只是以角度加距离表示，坐标分好几种了，球坐标，笛卡尔坐标，极坐标等

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

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

zhuyi0829 发表于 2014-10-27 16:01 static/image/common/back.gif
" G9 V; B. W1 `) R( u5 F极坐标也是坐标，只是以角度加距离表示，坐标分好几种了，球坐标，笛卡尔坐标，极坐标等

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

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

txh007 发表于 2014-10-27 20:01 static/image/common/back.gif& r' `/ K3 K5 w6 q2 I+ N# r$ V
是的，但领导要求是长度和角度

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

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

zhuyi0829 发表于 2014-10-27 20:17 static/image/common/back.gif
/ D" F. ]* u/ P5 u" q1 W0 A; }我觉得很奇怪，是你提问题还是你领导提问题啊，既然都是你领导的意思，叫他解决问题啊，发什么帖呢

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

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

通知

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

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

点评

评分