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

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.gif3 p5 K! D4 h3 J) V
高版本ＡＣＡＤ中，画出此长线后，设置凸轮的圆心为坐标原点，并设置尺寸标注关联。
' T2 ^4 ^8 j) c' w* }7 l' c对交点使用约束，对直 ...

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

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()
2 X; S$ T! o O R: d' y2 B* o
(setvar "cmdecho" 0) 7 ?) W4 i' R; u; K! C
(setq e(car(entsel"\n选择凸轮曲线:"))); \* j* O/ S- n* d v5 {1 u
(setq ei(car(entsel"\n选择投极轴直线:")))
: Q" c6 {1 s; u
(setq O(getpoint"\n选择凸轮中心点:"))5 r' P* O1 V+ I ~, B) M- R- z( Z
(setq X (car O) Y (cadr O)) (setq n 1)3 e* m' i) A! M: Y
(repeat 360# @6 Q& V* o3 R* G
(command "rotate" ei "" O 1)- t2 }) K, G) b7 z- C9 }
(setq Point (trans (car (GetInterPointlist ei e)) 0 1))8 M$ Y6 n8 B/ X: R7 m7 X
(command "Text" (list X Y) "5" "0" n)1 K& Q% M/ ]2 V* C
(command "Text" (list (+ X 20) Y) "5" "0" (rtos (car point) 2 2))2 }' t {6 {$ G; u+ B
(command "Text" (list (+ X 60) Y) "5" "0" (rtos (cadr point) 2 2));保留两位小数2 L0 w7 x& @# ?/ y6 R+ z. u
(setq Y (+ Y 10))1 ^( I- [4 v3 ?; \6 O* J
(setq n (+ 1 n))- k q$ w$ X0 a7 W6 z0 }
)
- w, M. F. t9 A1 u
(setvar "cmdecho" 1) : [, ?, n& W3 A& Z1 b
(princ)- p$ P {3 M: d4 Q1 |
)
) C8 d4 r+ M% W; C' L
(defun GetInterPointlist (ent_1 ent_2 / ent1 ent2; a ~+ [& N# q5 u
ax_ent_1 ax_ent_2 intpoints i% L% h( C4 N4 E
j k disp int_list7 O7 V! _+ k, m
)
1 c! N7 }! m8 [+ m4 `8 T
2 Z# u' ?* j* P$ c/ m
(setq int_list nil)" ~+ n9 L% N5 r: T4 b+ g( `
(setq ax_ent_1 (vlax-ename->vla-object ent_1)* y1 l1 [6 c! ?
ax_ent_2 (vlax-ename->vla-object ent_2)
8 ^2 j1 I$ \3 Q/ v
)
, r3 u+ H; a( D8 c+ {, y4 R. `# t
(setq intpoints (vla-intersectwith ax_ent_1 ax_ent_2 acextendnone))9 _$ `* Z! t# j% Y4 ~0 R' J- B7 x7 M
(setq intpoints (vlax-variant-value intpoints))
: Y! V+ O& X" K X# U) o8 Q
(if (> (vlax-safearray-get-u-bound intpoints 1) 0)+ J5 `* {, M, L y
(progn
& m3 S |6 `+ I# L% l
(setq i 0)
1 f3 |& m% x I. i2 u8 S$ {
(setq j 0)
6 f* _+ m7 \. q8 G/ q# J
(setq disp "")3 I$ Q, p& J% q# h2 f% g
(repeat
) l& N6 r- L; E! c
(/ (+ 1
# ], }& e1 q0 r, A" \4 Q& C
(- (vlax-safearray-get-u-bound intpoints 1)
, {- x4 s- u- C1 j
(vlax-safearray-get-l-bound intpoints 1)5 [! H# e/ e- w6 e3 D. r
)/ N' T' M- L; l% T7 F& n9 F
)
/ z# ? ]: z% K
30 J- j+ p/ w& B' B% g& P$ H, ]
)
/ N% x7 y% ~6 B4 L e. B5 j2 y
(setq$ p0 G4 a' [1 u- g" L9 X
disp (list
% a" M" t( `5 q5 r, W
(vlax-safearray-get-element intpoints j); n' U# O( x& E( U
; i' [# A0 ?+ ?' A, n ]. }
(vlax-safearray-get-element intpoints (+ 1 j))
+ T; F5 [7 i* g1 o P
: g s Y' ^( N* Q F
(vlax-safearray-get-element intpoints (+ 2 j))
# Q3 S4 J* @( s* i! G% L2 k" \( t3 l" [
)- J% T. G/ A+ M+ |/ l
)
* e4 f% t7 c* z8 N
(setq i (+ 2 i)
2 g& ^7 l# b4 |5 ~2 N
j (+ 3 j)
9 x+ h, n, [: V3 W1 v2 H; C+ k! q
)
5 f3 h. w {3 t$ X
(setq int_list (append int_list (list disp)))
; h9 {5 r# e/ N" I
)- C2 A* M+ f$ t$ U
)! Y W- _; ]- H% t4 Z# [3 s* @
)
% z( L6 Y: g. O, A/ v( o- F, A3 S
(setq int_list int_list)
4 I* z! x+ a: ?+ |% e8 U N/ q8 k
)
% y5 C. T a5 v% X; _9 X

复制代码

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

xhq1954425 发表于 2014-10-22 13:18 static/image/common/back.gif9 K2 D6 n2 |) E% W% O
这个是保留两位小数的：

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

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

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

woaishuijia 发表于 2014-10-23 10:52 static/image/common/back.gif
# z# D) U+ u6 A9 c代#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.gif6 B$ G+ n' |) E, z
楼上搞二次开发的吗？厉害

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

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

txh007 发表于 2014-10-23 21:14 static/image/common/back.gif
: U1 {9 Y t' x V' v& J6 Z谢谢，我不要坐标，我要的是每一个角度的凸轮轮廓线到中心的距离

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

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

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

xhq1954425 发表于 2014-10-24 08:55 static/image/common/back.gif
- c' _) d- K" `4 m0 ^2 j7 H要数据的话，应该将数据写入记事本中，这样便于复制使用，但不知道是不是你要的形式？也不知道你何时再进来 ...

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

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

zhuyi0829 发表于 2014-10-26 09:45 static/image/common/back.gif
* J+ N6 n1 ^. w你要的不是坐标位置吗，莫名其妙

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

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

txh007 发表于 2014-10-27 12:33 static/image/common/back.gif( t3 t8 s' R8 o6 R- f
就是这样的
5 D2 m& `% Z- B8 _1 X7 V- I就是把精度为小数点后的第4位如100.6666/ Y/ N. t9 M; ]3 ?) ?
谢谢，高手啊

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

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

txh007 发表于 2014-10-27 12:37 static/image/common/back.gif: ^0 t0 I' U8 ^7 V" C
我要的是极轴长度，凸轮边到中心的距离，如10度凸轮边到中心的距离为98.3253，11度凸轮边到中心的距离为9 ...

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

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

zhuyi0829 发表于 2014-10-27 15:58 static/image/common/back.gif; w& K- j) G# q* y$ F
你知道国内有多少设备能加工到小数点后四位的，你做凸轮你的加工设备能识别到小数点后四位?

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

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

zhuyi0829 发表于 2014-10-27 16:01 static/image/common/back.gif
' P& B5 ]0 Y# |9 n2 O极坐标也是坐标，只是以角度加距离表示，坐标分好几种了，球坐标，笛卡尔坐标，极坐标等

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

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

zhuyi0829 发表于 2014-10-27 16:01 static/image/common/back.gif
, Z# d0 f* Y8 d2 T: |3 R极坐标也是坐标，只是以角度加距离表示，坐标分好几种了，球坐标，笛卡尔坐标，极坐标等

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

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

txh007 发表于 2014-10-27 20:01 static/image/common/back.gif
% b; Y: k. {& G \. Y是的，但领导要求是长度和角度

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

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

zhuyi0829 发表于 2014-10-27 20:17 static/image/common/back.gif
/ N6 K z# q) J/ e* G& W, [我觉得很奇怪，是你提问题还是你领导提问题啊，既然都是你领导的意思，叫他解决问题啊，发什么帖呢

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

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

通知

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

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

点评

评分

浏览过的版块