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

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# U/ Y( K' A% `$ B
高版本ＡＣＡＤ中，画出此长线后，设置凸轮的圆心为坐标原点，并设置尺寸标注关联。; z; H: K i# y& f. a3 b% ?
对交点使用约束，对直 ...

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

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()
6 `8 Q. B4 P% H: d7 m
(setvar "cmdecho" 0)
9 _: X; c3 F0 n
(setq e(car(entsel"\n选择凸轮曲线:")))
% g, x {( T5 C* J, X5 n
(setq ei(car(entsel"\n选择投极轴直线:")))
+ V+ R1 Y0 k% A$ q- W; a1 L9 `
(setq O(getpoint"\n选择凸轮中心点:")): i# n5 d; I" O) f0 `1 ^
(setq X (car O) Y (cadr O)) (setq n 1)9 d8 N+ R5 w* R2 I( {! E
(repeat 360+ ?1 Y: v) m. E9 H |1 J4 r3 M
(command "rotate" ei "" O 1)' I) O) \- Q5 u5 s9 A0 A1 R, F
(setq Point (trans (car (GetInterPointlist ei e)) 0 1))
) L" ~1 b8 S/ b3 i
(command "Text" (list X Y) "5" "0" n)# C- b1 K- Z3 Q" G2 A) e! @
(command "Text" (list (+ X 20) Y) "5" "0" (rtos (car point) 2 2))
# F- \1 H# s- T5 N( E8 M: w
(command "Text" (list (+ X 60) Y) "5" "0" (rtos (cadr point) 2 2));保留两位小数6 ]5 N! i/ I& a% f- e6 \, m& `
(setq Y (+ Y 10))
1 }/ v# m: n/ e9 G1 T
(setq n (+ 1 n))- K8 C/ _: _$ p' E( T3 L+ P
)
6 e0 o. b+ y% J' E
(setvar "cmdecho" 1)
- G+ F* Q6 s% O7 v$ M
(princ)
/ U# F5 E& Z0 u4 @3 V
)
8 e: p' b; O& _# J: ?7 |
(defun GetInterPointlist (ent_1 ent_2 / ent1 ent2- o3 z' S* s) C& S/ c
ax_ent_1 ax_ent_2 intpoints i
' x. }9 ]' L- {- O, L
j k disp int_list
! J* P2 Z3 E8 W; p# N) f
), d, W9 ?; o1 c( S! ^; d+ X
; |; n/ P) ]/ a- W( }) K
(setq int_list nil)8 c- L Q6 I* a1 w
(setq ax_ent_1 (vlax-ename->vla-object ent_1)
2 R$ i! y' ~* s) V; b
ax_ent_2 (vlax-ename->vla-object ent_2)
: ]9 {& V! Z" |
). W, c& t' u% G V
(setq intpoints (vla-intersectwith ax_ent_1 ax_ent_2 acextendnone))% y0 p3 A# z3 g& v3 ~+ y1 Y7 y8 T
(setq intpoints (vlax-variant-value intpoints))
" T0 C0 V' B @! t6 i; {# h' r
(if (> (vlax-safearray-get-u-bound intpoints 1) 0): i# W2 Q8 {# L9 u" R; o3 G' ?
(progn
# C, C# \/ e; i( p% I
(setq i 0)6 _, c) u3 [0 K9 r. {
(setq j 0)
$ a9 o3 s6 a; J& Y
(setq disp "")# \/ u q9 J+ W# Y
(repeat. G% ]( O6 z. C( I9 j: q4 E; [% l6 C
(/ (+ 1' e3 E9 J% c8 s% V4 z/ w8 C
(- (vlax-safearray-get-u-bound intpoints 1)5 d0 g4 w3 @$ O$ w: f6 F: j7 n' k
(vlax-safearray-get-l-bound intpoints 1)* |4 {) p) g! a; Z- k
)
' i" ]# Y0 t8 o; j, ~9 X, J
)% t6 g% s8 Q* p1 h5 M" u
3
) d9 \+ s: r! ?/ O( K- |+ J6 k" Z
)4 N& D3 k- O9 m- I5 H) |
(setq! l( z! R' E3 Z$ H
disp (list
/ Z* `1 e: i. K8 ]$ A- Z
(vlax-safearray-get-element intpoints j)
7 K" F3 R) \5 `8 {
1 M! Y, E3 u7 V
(vlax-safearray-get-element intpoints (+ 1 j))
* i( Y' X& H1 D# d
2 r: L: N& x" g
(vlax-safearray-get-element intpoints (+ 2 j))
( q) v- S) I$ B
)
$ r( o/ q0 q8 b" }
)7 x- Q* Z4 ^' a. `+ C
(setq i (+ 2 i)4 u0 z4 T6 J- ]. N6 O
j (+ 3 j)
3 ?6 R6 {6 o2 k
)
p) f* A! n& f
(setq int_list (append int_list (list disp)))
9 |! Z; j9 n- D" y
)0 h! B) ^7 Q& ~" Y8 o
)7 Y2 N6 g* ?4 q: o" u) E# v, U
)
5 G% V/ d9 A- B6 Y
(setq int_list int_list)5 S- K; ]5 {2 m) y
)
" t1 x5 C$ [3 ?& j

复制代码

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

xhq1954425 发表于 2014-10-22 13:18 static/image/common/back.gif
) Q4 ?! w1 {+ p ^4 r: u, ^这个是保留两位小数的：

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

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$ C' x% i% Q( P: f
代#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) D! b/ S5 ]4 A% u
楼上搞二次开发的吗？厉害

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

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

txh007 发表于 2014-10-23 21:14 static/image/common/back.gif
- D: i$ h! q! T6 L谢谢，我不要坐标，我要的是每一个角度的凸轮轮廓线到中心的距离

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

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

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

xhq1954425 发表于 2014-10-24 08:55 static/image/common/back.gif
7 r$ J0 `+ u8 \. h! J要数据的话，应该将数据写入记事本中，这样便于复制使用，但不知道是不是你要的形式？也不知道你何时再进来 ...

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

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

zhuyi0829 发表于 2014-10-26 09:45 static/image/common/back.gif
9 v/ m4 N& F) o7 j/ p你要的不是坐标位置吗，莫名其妙

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

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

txh007 发表于 2014-10-27 12:33 static/image/common/back.gif
2 T: `4 b) ]9 Y5 _2 x$ O# h* J U就是这样的- S- Q4 }. f9 v- B Q% [$ |
就是把精度为小数点后的第4位如100.66661 B+ d* _- \1 Q: G& l( \
谢谢，高手啊

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

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

txh007 发表于 2014-10-27 12:37 static/image/common/back.gif S* e5 N( g# U0 I4 L; Q
我要的是极轴长度，凸轮边到中心的距离，如10度凸轮边到中心的距离为98.3253，11度凸轮边到中心的距离为9 ...

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

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

zhuyi0829 发表于 2014-10-27 15:58 static/image/common/back.gif& S% K. }) ~* Y: S* \* B: c/ g% @
你知道国内有多少设备能加工到小数点后四位的，你做凸轮你的加工设备能识别到小数点后四位?

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

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

zhuyi0829 发表于 2014-10-27 16:01 static/image/common/back.gif
7 _" M$ n% t/ h' @2 f/ S极坐标也是坐标，只是以角度加距离表示，坐标分好几种了，球坐标，笛卡尔坐标，极坐标等

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

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

zhuyi0829 发表于 2014-10-27 16:01 static/image/common/back.gif
$ o" R3 ]+ V9 ~! L, E; O极坐标也是坐标，只是以角度加距离表示，坐标分好几种了，球坐标，笛卡尔坐标，极坐标等

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

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

txh007 发表于 2014-10-27 20:01 static/image/common/back.gif
6 S$ s+ e2 W* K2 L: x; e是的，但领导要求是长度和角度

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

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

zhuyi0829 发表于 2014-10-27 20:17 static/image/common/back.gif* L9 M1 E8 O, A. ^
我觉得很奇怪，是你提问题还是你领导提问题啊，既然都是你领导的意思，叫他解决问题啊，发什么帖呢

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

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

通知

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

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

点评

评分

浏览过的版块