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

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
% [/ [ K' Z5 a- V4 p高版本ＡＣＡＤ中，画出此长线后，设置凸轮的圆心为坐标原点，并设置尺寸标注关联。
3 A. g& `* H/ U7 S ~对交点使用约束，对直 ...

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

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(): D) M" Z7 ~0 @' x3 A
(setvar "cmdecho" 0)
. ], ]; I* g5 f! X8 C2 f- z
(setq e(car(entsel"\n选择凸轮曲线:")))
$ ~' M2 f- W4 J8 Q$ X, |( b
(setq ei(car(entsel"\n选择投极轴直线:")))
5 w2 x, P7 B( e& h% n$ W) U
(setq O(getpoint"\n选择凸轮中心点:"))
7 Z# a& T1 X$ U; i; ]
(setq X (car O) Y (cadr O)) (setq n 1)0 i y5 ]' E+ N0 @# ^: P2 u0 x3 ^* k
(repeat 360
$ U. n$ j, [9 K1 b
(command "rotate" ei "" O 1)1 B4 f; v6 L+ R1 _
(setq Point (trans (car (GetInterPointlist ei e)) 0 1)). H' V$ K9 G" M4 @0 ^+ q
(command "Text" (list X Y) "5" "0" n)
4 Y* w, k7 d: J5 R! C# q+ A3 C2 [7 g
(command "Text" (list (+ X 20) Y) "5" "0" (rtos (car point) 2 2))
, v. V. U- n: l* |" p
(command "Text" (list (+ X 60) Y) "5" "0" (rtos (cadr point) 2 2));保留两位小数+ G; {7 a6 f1 D( j* s9 R
(setq Y (+ Y 10))/ R' w5 ~+ ?) u( I# I( B# @( i
(setq n (+ 1 n))
& P4 ]8 z" F. @' ~8 s
) / c G5 o% T" i& o: W- B, @
(setvar "cmdecho" 1) . }" D# O" p, r$ ^& U9 H5 C
(princ)
Z3 w' a8 _: Q) `, a: n
)
+ b; j" w% Y+ Q; s
(defun GetInterPointlist (ent_1 ent_2 / ent1 ent29 b" o+ e: P: j* J3 x
ax_ent_1 ax_ent_2 intpoints i2 I# f% D! I, a5 p9 h3 J L ?
j k disp int_list$ `4 o I0 q5 I) \/ L0 t
)
: p4 P% m2 s2 L* c( E7 ]
, J% c( U1 }3 ^% I ]2 G) q* V
(setq int_list nil)
(setq ax_ent_1 (vlax-ename->vla-object ent_1)
F9 d5 `1 C7 h" L8 {: g
ax_ent_2 (vlax-ename->vla-object ent_2)
( N% e$ s( \. H- B5 t" P3 l
)
9 }. N$ X" A- L) A: \; h& f
(setq intpoints (vla-intersectwith ax_ent_1 ax_ent_2 acextendnone))
7 u) U( a$ b0 z( g& N8 h
(setq intpoints (vlax-variant-value intpoints))
9 A; ]9 Q1 Y4 f/ Z
(if (> (vlax-safearray-get-u-bound intpoints 1) 0)
. o2 B* p$ L4 S% Z' V& q' Z9 \% F
(progn
. b% v* S' z- j, M/ n" A: v
(setq i 0)) q5 Y+ |& M0 M9 g
(setq j 0)- q4 ~# v {% x
(setq disp "")
$ d# P( x4 O! c: ^
(repeat6 f, n3 K% o4 b* y- c$ I
(/ (+ 1" L5 e. V3 R. U* E
(- (vlax-safearray-get-u-bound intpoints 1)/ H. }. l' B" f1 H
(vlax-safearray-get-l-bound intpoints 1)
' O+ z( d9 \5 J8 a7 _* [2 y8 _! k* m
)+ j% ?3 g5 h9 ]( ?( | Q: a. o2 k( C
) m1 M* i0 Y2 S# M
3+ x- ?& v3 {; v4 h
)& l6 V& `2 |/ d' P- L
(setq
p+ m" S6 D X6 P5 g# S, j
disp (list
4 ^# [& T8 Y5 m. ?* s
(vlax-safearray-get-element intpoints j)7 x: V7 K0 W$ @( H9 X) z. g
& a0 o6 |! @/ v1 h, c: G* ~+ w
(vlax-safearray-get-element intpoints (+ 1 j))( Q- `$ |& e! B
$ }4 C6 a$ y6 J( P% o
(vlax-safearray-get-element intpoints (+ 2 j))
: a% ^6 \" }' a7 a* K
)* ?, N- {5 f3 y6 r% h
)2 N" B+ ^( z# e/ i" M
(setq i (+ 2 i)3 {# R. y0 @, D- \( ]
j (+ 3 j) U) T9 f# U* U
)
0 `# C" q& a0 x+ X/ `0 U
(setq int_list (append int_list (list disp)))$ |4 E% @) w+ V# y( _" ?
)7 E) z$ j) Z* a% h# p# M" m1 J2 L
)1 K; @6 Q: `( G& P' Y y
)5 A" e2 U4 _1 S, u4 j
(setq int_list int_list)
" u$ J& y. l/ D6 T
)
; [; P: O/ k1 H

复制代码

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

xhq1954425 发表于 2014-10-22 13:18 static/image/common/back.gif& J# |% r3 p, F; A0 N
这个是保留两位小数的：

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

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 {. j6 J+ B3 d j; J* 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
. w0 o: j, @! H' h$ c; z5 h楼上搞二次开发的吗？厉害

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

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

txh007 发表于 2014-10-23 21:14 static/image/common/back.gif
+ K# P \* c: R8 [4 S谢谢，我不要坐标，我要的是每一个角度的凸轮轮廓线到中心的距离

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

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

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

xhq1954425 发表于 2014-10-24 08:55 static/image/common/back.gif
6 |4 h9 d' f& d$ a1 ?* a要数据的话，应该将数据写入记事本中，这样便于复制使用，但不知道是不是你要的形式？也不知道你何时再进来 ...

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

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

zhuyi0829 发表于 2014-10-26 09:45 static/image/common/back.gif4 g" p; z% J2 S% } C4 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 W7 h* \) U9 U! L; j就是这样的
: i) N- B+ A3 N w7 W' H0 F1 W就是把精度为小数点后的第4位如100.66667 p% f) x6 ^5 O4 G b( `, K4 i
谢谢，高手啊

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

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

txh007 发表于 2014-10-27 12:37 static/image/common/back.gif
3 J+ y: q+ q, v) ?我要的是极轴长度，凸轮边到中心的距离，如10度凸轮边到中心的距离为98.3253，11度凸轮边到中心的距离为9 ...

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

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

zhuyi0829 发表于 2014-10-27 15:58 static/image/common/back.gif
4 q1 J' K, E5 n, G你知道国内有多少设备能加工到小数点后四位的，你做凸轮你的加工设备能识别到小数点后四位?

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

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

zhuyi0829 发表于 2014-10-27 16:01 static/image/common/back.gif
; {' K; k, s; u# E$ {8 k! E- M极坐标也是坐标，只是以角度加距离表示，坐标分好几种了，球坐标，笛卡尔坐标，极坐标等

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

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

zhuyi0829 发表于 2014-10-27 16:01 static/image/common/back.gif
' Q! [+ |0 i5 ~5 m1 n极坐标也是坐标，只是以角度加距离表示，坐标分好几种了，球坐标，笛卡尔坐标，极坐标等

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

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

txh007 发表于 2014-10-27 20:01 static/image/common/back.gif/ ?( i0 H; L) ]1 k: c0 T' B
是的，但领导要求是长度和角度

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

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

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

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

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

通知

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

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

点评

评分

浏览过的版块