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

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.gif4 m# L- V7 |' D
高版本ＡＣＡＤ中，画出此长线后，设置凸轮的圆心为坐标原点，并设置尺寸标注关联。
" E5 v; i: x! _. Q. M' v0 {' T对交点使用约束，对直 ...

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

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()
0 r0 j: B! W* |1 L4 b. C2 [ r9 R
(setvar "cmdecho" 0)
! g" t" C2 _+ H/ m9 Y5 _3 m
(setq e(car(entsel"\n选择凸轮曲线:")))8 A' y% G9 S ~: A) p* `) W0 h
(setq ei(car(entsel"\n选择投极轴直线:"))); U b% L, g7 k0 i& A/ o3 E% ^" a
(setq O(getpoint"\n选择凸轮中心点:"))% W1 E2 `4 Y' k, M" R0 c6 W7 g
(setq X (car O) Y (cadr O)) (setq n 1). Y8 }- u: [+ _7 T
(repeat 360
( S: r5 O2 u. E
(command "rotate" ei "" O 1)
' H7 M/ w8 }( g3 m$ @6 i- ~
(setq Point (trans (car (GetInterPointlist ei e)) 0 1))$ R" J3 }% ]- J s& \" O* v( [# i
(command "Text" (list X Y) "5" "0" n), B7 N$ q0 L* D+ m, F
(command "Text" (list (+ X 20) Y) "5" "0" (rtos (car point) 2 2))) {# d- N% \+ Z! B
(command "Text" (list (+ X 60) Y) "5" "0" (rtos (cadr point) 2 2));保留两位小数1 y# L0 u3 I1 v Q! u
(setq Y (+ Y 10))
: K1 t0 K* \, E0 [$ x" X
(setq n (+ 1 n))0 l- C" ?( u: {8 @5 b
) : I& x$ S9 @; D; d( c6 p
(setvar "cmdecho" 1)
8 R0 ]/ q# c' w. w0 Q; S0 k) ^2 e
(princ)
; g- e2 X2 i! {4 t
)' R2 k9 |+ X4 v- t8 _
(defun GetInterPointlist (ent_1 ent_2 / ent1 ent2: D* ^1 A; ?/ [
ax_ent_1 ax_ent_2 intpoints i
J. ]" x* P6 p
j k disp int_list, K! |% s, u( B& }$ ^' J' T( g; s
)7 Z& o- a$ I( P9 i
8 Y8 J6 P; W R2 o Z' t! J9 Q
(setq int_list nil)
2 W2 ?# |6 P+ o+ [8 _$ J1 ^
(setq ax_ent_1 (vlax-ename->vla-object ent_1)
; a* b* A* X* _! P* h" p
ax_ent_2 (vlax-ename->vla-object ent_2)
+ g2 f }3 v- Z
)5 f6 L( M2 Q$ ~+ F) w
(setq intpoints (vla-intersectwith ax_ent_1 ax_ent_2 acextendnone))
, J4 L5 I( u" E6 m$ E7 Z; v2 W
(setq intpoints (vlax-variant-value intpoints))
2 q6 V2 V8 Q$ j; `
(if (> (vlax-safearray-get-u-bound intpoints 1) 0)7 q* `( c- _, V6 @# w
(progn: ~" a S" k/ _6 x3 R
(setq i 0)& i' V5 A d' C' G* E1 I
(setq j 0)
, S) ]9 E* D1 m
(setq disp "")8 z* l" e j- f5 \1 c2 d9 m
(repeat
- m$ |7 P2 D' U( L2 ?5 n
(/ (+ 1. G, D8 f8 @4 n# |+ Y! [
(- (vlax-safearray-get-u-bound intpoints 1)5 Y9 `. V' F2 ^2 g/ `" f7 I5 m5 ]
(vlax-safearray-get-l-bound intpoints 1)
: g$ }+ O, s1 J0 Q# _5 ^
)
9 D/ Z+ @; `, J& [
)
( T/ ?. G. R/ W- t
34 m, Y4 V8 h; N
)
4 N* F: ?0 [1 c
(setq' |. u" A/ y: ]; s( v
disp (list
! c1 L' s* D7 _
(vlax-safearray-get-element intpoints j)
; l3 j% z/ [4 k7 K5 G& U& j7 h
(vlax-safearray-get-element intpoints (+ 1 j))$ \ P @. I# @* K( S% ]$ B' y x( U" ~
$ x) G1 O8 _5 n+ ~5 l3 h
(vlax-safearray-get-element intpoints (+ 2 j))
$ H5 @" O, d" n; F. l- H
)
- ^: ], |% h8 V/ M" n. i
)
1 b# z0 y4 F. W8 v
(setq i (+ 2 i)7 m# T: {1 {" N1 [. h
j (+ 3 j)3 i M# b2 f% T' f
)5 Z# i4 Z, S% N M4 p1 z% a
(setq int_list (append int_list (list disp)))
/ b$ u6 w4 a. m7 N/ ^' o* P2 D
)9 v I9 c7 f" V5 A6 w
)0 u& V" A( ^# T) f& G: B
)
3 i" {" R k4 F: c9 _
(setq int_list int_list)
+ p7 t1 A+ A( ]* j
)- E' b" m( l5 H- s' V5 }* ^- e0 `

复制代码

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

xhq1954425 发表于 2014-10-22 13:18 static/image/common/back.gif: R1 a4 m: j/ \8 S! Q. T
这个是保留两位小数的：

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

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

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

woaishuijia 发表于 2014-10-23 10:52 static/image/common/back.gif
7 i0 L& O" ?/ J- n; _( `3 d代#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.gif8 C1 w6 L1 z# D3 q) Q; M9 k% p/ w
楼上搞二次开发的吗？厉害

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

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

txh007 发表于 2014-10-23 21:14 static/image/common/back.gif {* ~" I& `" S3 X% t2 P- q% j
谢谢，我不要坐标，我要的是每一个角度的凸轮轮廓线到中心的距离

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

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

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

xhq1954425 发表于 2014-10-24 08:55 static/image/common/back.gif5 h5 g& r* O: M: \* x, @
要数据的话，应该将数据写入记事本中，这样便于复制使用，但不知道是不是你要的形式？也不知道你何时再进来 ...

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

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

zhuyi0829 发表于 2014-10-26 09:45 static/image/common/back.gif
1 H# P& V- U9 V7 u1 y. {你要的不是坐标位置吗，莫名其妙

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

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

txh007 发表于 2014-10-27 12:33 static/image/common/back.gif' }) ]3 E- t0 K) h
就是这样的
" Z5 o1 B5 \ i就是把精度为小数点后的第4位如100.66669 |: w, l( X5 C* S
谢谢，高手啊

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

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

txh007 发表于 2014-10-27 12:37 static/image/common/back.gif
9 j! ]1 D9 a6 C" g! z( M% I我要的是极轴长度，凸轮边到中心的距离，如10度凸轮边到中心的距离为98.3253，11度凸轮边到中心的距离为9 ...

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

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

zhuyi0829 发表于 2014-10-27 15:58 static/image/common/back.gif
& F e! w) ^! u0 z1 i* G8 p你知道国内有多少设备能加工到小数点后四位的，你做凸轮你的加工设备能识别到小数点后四位?

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

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

zhuyi0829 发表于 2014-10-27 16:01 static/image/common/back.gif/ N' B U3 w) B( Z8 ^' q' M) l# C) s
极坐标也是坐标，只是以角度加距离表示，坐标分好几种了，球坐标，笛卡尔坐标，极坐标等

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

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

zhuyi0829 发表于 2014-10-27 16:01 static/image/common/back.gif! Y. G; ?# {) ]" [$ C) D. G- [
极坐标也是坐标，只是以角度加距离表示，坐标分好几种了，球坐标，笛卡尔坐标，极坐标等

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

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

txh007 发表于 2014-10-27 20:01 static/image/common/back.gif0 b& g, V* r5 N+ [
是的，但领导要求是长度和角度

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

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

zhuyi0829 发表于 2014-10-27 20:17 static/image/common/back.gif4 v5 X7 p; l. C9 V7 ?
我觉得很奇怪，是你提问题还是你领导提问题啊，既然都是你领导的意思，叫他解决问题啊，发什么帖呢

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

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

通知

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

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

点评

评分

浏览过的版块