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

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 v2 a2 j* C9 D
高版本ＡＣＡＤ中，画出此长线后，设置凸轮的圆心为坐标原点，并设置尺寸标注关联。
; O5 s7 c- T0 s. \9 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()# U9 H5 `; R2 W& ]
(setvar "cmdecho" 0) , q5 J5 l3 y! q* i, [. _
(setq e(car(entsel"\n选择凸轮曲线:")))% J) D- t& s4 q; G# p; [9 k
(setq ei(car(entsel"\n选择投极轴直线:")))
1 H ]' Z( K x
(setq O(getpoint"\n选择凸轮中心点:"))
: y& d4 w( E9 N: F8 D3 I
(setq X (car O) Y (cadr O)) (setq n 1)& H7 h/ s, W# N# L
(repeat 360# b/ {& V" Y( ]" d" n
(command "rotate" ei "" O 1)
- g/ ?4 ^8 E8 l. N
(setq Point (trans (car (GetInterPointlist ei e)) 0 1))
, z& g- l9 G; M. D/ Q# h
(command "Text" (list X Y) "5" "0" n)
c6 {6 l8 c3 a! Q' M6 h7 v
(command "Text" (list (+ X 20) Y) "5" "0" (rtos (car point) 2 2))
4 W1 A1 A* x5 @8 X4 X* \
(command "Text" (list (+ X 60) Y) "5" "0" (rtos (cadr point) 2 2));保留两位小数. r7 O+ {: s( F9 v& F8 c9 T
(setq Y (+ Y 10))
) R+ X% V9 O, L S
(setq n (+ 1 n))
$ ^0 y* F0 Q# o- {5 G5 o& D. H
) 4 ?1 W, D; B# {4 O+ i6 V- C
(setvar "cmdecho" 1) - m. b( C Q8 Y# M
(princ)+ B) e2 H. d2 X
)0 x3 P$ Z1 G2 _" |* U
(defun GetInterPointlist (ent_1 ent_2 / ent1 ent2
: O. F! y6 C! t: @
ax_ent_1 ax_ent_2 intpoints i' |$ c9 b" P: I' f; X$ p( }
j k disp int_list
- m ?9 o2 a' h" U- O9 C
)1 |3 g3 ~. P. i: C
8 o% l8 X+ g7 Y2 M4 S0 C
(setq int_list nil)& w. ^# _9 Z! {+ E" [
(setq ax_ent_1 (vlax-ename->vla-object ent_1)
$ N6 {# k& I5 y% u" [' A/ p
ax_ent_2 (vlax-ename->vla-object ent_2)& b$ K$ C3 D9 t0 f! H2 P( H
)
1 |( }4 V& o* \$ l% `
(setq intpoints (vla-intersectwith ax_ent_1 ax_ent_2 acextendnone))
! W# R0 c0 x7 K7 A$ Y7 U2 h! a, H
(setq intpoints (vlax-variant-value intpoints))
( j+ |" p; j5 ]+ A% g/ k( B6 q
(if (> (vlax-safearray-get-u-bound intpoints 1) 0)1 j) O) _1 c% w0 L& K( I
(progn
8 e5 h9 p, h: O9 d$ _
(setq i 0)
8 ~; h$ h. c5 w7 g
(setq j 0)
$ Y7 j5 r9 D/ ~& B+ s
(setq disp ""). g, |# O2 s- A
(repeat
( S6 u! [( l2 V1 c
(/ (+ 1+ {% w5 u( G/ j- v( U
(- (vlax-safearray-get-u-bound intpoints 1): A! V2 n$ {0 T6 w% [1 h6 h% O
(vlax-safearray-get-l-bound intpoints 1)9 u9 }0 S$ b; j3 k3 F
)
h- W; @$ S5 w5 O7 U2 h4 x
)
0 l) U: y' r- ?1 c/ i( M9 y
3- Z+ V" U7 N& c" a7 a
)
6 {/ ?% l6 X2 v* Z+ A8 b+ l0 w
(setq. H" l( \8 E* v& c- w5 [' x
disp (list
: e7 I* |" G$ L0 P
(vlax-safearray-get-element intpoints j)
$ b# @/ ^( v- W4 K- n4 R
, y T' W* X" z% [0 G- y
(vlax-safearray-get-element intpoints (+ 1 j))& ^6 |2 r# A' i( K+ }' f
) R& d! Y$ k o0 M9 l% c3 f; `
(vlax-safearray-get-element intpoints (+ 2 j))) B0 D* V1 N. H/ ]3 y9 E$ K1 A
)
; j* u: P. L8 b6 |2 F, l" L
)& S. l: [5 [3 V2 h+ f! a
(setq i (+ 2 i)9 g6 K7 D. n b9 C
j (+ 3 j)1 q% n" x8 y6 k/ |
)
7 a. b1 b( Q$ s3 i1 D
(setq int_list (append int_list (list disp)))
. v) A; E7 |7 [6 f% J' i% l
)4 T6 |+ ~9 R, V' U. O
)0 I+ E) F$ M6 v. G {; _
)) c) u3 o) p% a4 u. O K, O& |
(setq int_list int_list)
) y1 B, x. @9 m
)" |% F6 a+ a! D/ g1 S# _0 ~

复制代码

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

xhq1954425 发表于 2014-10-22 13:18 static/image/common/back.gif
8 ^" T: ~: c0 @' I9 A# k这个是保留两位小数的：

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

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

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

woaishuijia 发表于 2014-10-23 10:52 static/image/common/back.gif& B! f4 g" U5 m
代#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
8 A6 |& |" x9 w% a7 `) {# D楼上搞二次开发的吗？厉害

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

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

txh007 发表于 2014-10-23 21:14 static/image/common/back.gif& Y% w( |! j& {' s7 q3 W1 p0 {
谢谢，我不要坐标，我要的是每一个角度的凸轮轮廓线到中心的距离

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

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

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

xhq1954425 发表于 2014-10-24 08:55 static/image/common/back.gif5 s# o4 L! y+ q, l& l( L
要数据的话，应该将数据写入记事本中，这样便于复制使用，但不知道是不是你要的形式？也不知道你何时再进来 ...

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

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

zhuyi0829 发表于 2014-10-26 09:45 static/image/common/back.gif
: B4 x" I0 w1 _2 C2 i1 V你要的不是坐标位置吗，莫名其妙

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

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

txh007 发表于 2014-10-27 12:33 static/image/common/back.gif& C" D* T: z: A0 H
就是这样的
8 }: x0 Q5 \- q2 X* A9 y就是把精度为小数点后的第4位如100.66662 n v$ [' B! ]
谢谢，高手啊

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

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

txh007 发表于 2014-10-27 12:37 static/image/common/back.gif! i! r! q: [( _4 o
我要的是极轴长度，凸轮边到中心的距离，如10度凸轮边到中心的距离为98.3253，11度凸轮边到中心的距离为9 ...

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

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

zhuyi0829 发表于 2014-10-27 15:58 static/image/common/back.gif
2 Z# a5 Q* ?! O: B你知道国内有多少设备能加工到小数点后四位的，你做凸轮你的加工设备能识别到小数点后四位?

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

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

zhuyi0829 发表于 2014-10-27 16:01 static/image/common/back.gif3 {' O, U# v) j! l# y# m# {5 t4 A
极坐标也是坐标，只是以角度加距离表示，坐标分好几种了，球坐标，笛卡尔坐标，极坐标等

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

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

zhuyi0829 发表于 2014-10-27 16:01 static/image/common/back.gif
5 l) H/ V: m6 }. L3 T1 P极坐标也是坐标，只是以角度加距离表示，坐标分好几种了，球坐标，笛卡尔坐标，极坐标等

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

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

txh007 发表于 2014-10-27 20:01 static/image/common/back.gif
, V) w) o1 Z8 x是的，但领导要求是长度和角度

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

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

zhuyi0829 发表于 2014-10-27 20:17 static/image/common/back.gif& D# x, Q) ? E$ D% g: q$ O* B. y9 ^
我觉得很奇怪，是你提问题还是你领导提问题啊，既然都是你领导的意思，叫他解决问题啊，发什么帖呢

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

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

全站		goto3d 说: 版主微信号：caivin811031；还未入三维微信群的小伙伴，速度加	2022-07-04
全站		goto3d 说: 此次SW竞赛获奖名单公布如下，抱歉晚了，版主最近太忙：一等奖：塔山817；二等奖：a9041、飞鱼；三等奖：wx_dfA5IKla、xwj960414、bzlgl、hklecon；请以上各位和版主联系，领取奖金！！！	2022-03-11

通知

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

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

点评

评分