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

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
2 K% [% ^) o7 X, B( Y7 o高版本ＡＣＡＤ中，画出此长线后，设置凸轮的圆心为坐标原点，并设置尺寸标注关联。& u. k) v9 U* A* F
对交点使用约束，对直 ...

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

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()
: x9 Y* C1 O( @( [& z, B
(setvar "cmdecho" 0) 9 z, l% c- j! @/ E" s
(setq e(car(entsel"\n选择凸轮曲线:"))): U7 O6 u3 C; Q" h! v+ o) x
(setq ei(car(entsel"\n选择投极轴直线:")))- _% \$ j; B4 h& N$ _3 ~6 f3 I: t
(setq O(getpoint"\n选择凸轮中心点:"))
8 h' e+ z/ O4 ]: l' C
(setq X (car O) Y (cadr O)) (setq n 1)" ]4 O# z8 j) y
(repeat 360
5 d* L B, I( \' h" T
(command "rotate" ei "" O 1)* B; I/ Y0 U2 k5 h% G
(setq Point (trans (car (GetInterPointlist ei e)) 0 1))
. W+ s- Y, V* D$ [
(command "Text" (list X Y) "5" "0" n)
9 w- Z7 ], Q0 k; ?/ p# ?& }- m* C
(command "Text" (list (+ X 20) Y) "5" "0" (rtos (car point) 2 2))
5 J' v6 r! t$ v- Q, r' w: M( i) y5 w: L
(command "Text" (list (+ X 60) Y) "5" "0" (rtos (cadr point) 2 2));保留两位小数
/ w9 C- M' F$ Y2 E% q! M& f
(setq Y (+ Y 10))
L Z' ?! ]( ^( i, q
(setq n (+ 1 n))
" ~$ r& N& ]: B! z; L6 E
) $ ]0 I- H* ~, E8 D
(setvar "cmdecho" 1)
1 a4 L& H2 e1 c9 v3 Q/ {
(princ)" m, p0 ]' ^7 }( B. T1 H6 F
)7 [7 K* C2 F8 R' Q- M
(defun GetInterPointlist (ent_1 ent_2 / ent1 ent2
3 l, G* h" K. p6 W+ g
ax_ent_1 ax_ent_2 intpoints i" F. Z3 z; A; c1 N. X, M
j k disp int_list, O( K. l; _; L! x: C
)) n6 P8 N7 m3 y& g/ F: D
0 C" ^8 A9 m3 i* m8 }
(setq int_list nil)
. e6 e- ^4 `2 o: v' G1 W5 R
(setq ax_ent_1 (vlax-ename->vla-object ent_1)
! V# i! Y) E( R1 ^4 x
ax_ent_2 (vlax-ename->vla-object ent_2)4 e3 s$ {6 Y: W' C& l% Y, G
): d/ s9 H i7 J- k: X$ `( w- E
(setq intpoints (vla-intersectwith ax_ent_1 ax_ent_2 acextendnone))* x4 B7 M c- T+ S( A, W
(setq intpoints (vlax-variant-value intpoints))- t6 D2 w: n1 r8 {6 r, g2 d% f
(if (> (vlax-safearray-get-u-bound intpoints 1) 0)% p) l0 ?+ _- O3 C" s
(progn
- }" a) {( d7 }9 {# C$ l
(setq i 0)
+ v7 X! [2 V/ j8 X/ f8 f
(setq j 0)
+ i) _3 y" f8 h
(setq disp "")
) D! J H# R' X* Y5 |
(repeat
6 ]7 E* Q' \7 _6 a2 F6 ]! A
(/ (+ 1 }7 d0 b3 O% K3 \/ W
(- (vlax-safearray-get-u-bound intpoints 1)- q6 z! ?4 H3 M' P
(vlax-safearray-get-l-bound intpoints 1)6 ?3 s/ J. d" A, P% o. e% Z) j8 N
)& H% t9 x" s* I
)
+ H* o) F* `' M6 i+ ^! }& Z
3
' g# R0 t; G3 c5 P1 o
)
( O+ n8 F. W& ~" Z& E, w) V/ Q( R
(setq
! H1 T8 p. L6 p7 O
disp (list
( k# z- ]* k( s% n$ H, G
(vlax-safearray-get-element intpoints j)
0 T9 n5 ~4 f% L# N8 Y, F
2 z9 ^ m5 y/ ]. ^) n
(vlax-safearray-get-element intpoints (+ 1 j))
; D0 w: _. c+ X5 F
: s- G# O) a' A6 m; Z
(vlax-safearray-get-element intpoints (+ 2 j))* F& ]& f* y- \" Z
), h: X# \- ]+ A* I) c) J Z8 @
)8 [5 J8 M8 b/ E( ]6 x
(setq i (+ 2 i)
/ C9 @/ n2 a; b, g
j (+ 3 j)
/ g* d" ~* E* |4 k$ f2 b/ ?& _
)
' V# | x( U' |+ }7 s
(setq int_list (append int_list (list disp)))
- B2 h3 E5 `9 L, T" T
)
. ]& }" o% o, U1 r D6 P
)
! k% s: i( N; k& r
)
, L6 m( W2 k' n# @9 j
(setq int_list int_list): J( p9 e+ Q' F6 S- G% U
)/ ~3 P" X4 U7 a" N. P# o5 |) n& @7 {

复制代码

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

xhq1954425 发表于 2014-10-22 13:18 static/image/common/back.gif
' `5 k* [. Y1 y! i0 ~这个是保留两位小数的：

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

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

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

woaishuijia 发表于 2014-10-23 10:52 static/image/common/back.gif
( Z5 r2 a% C" ?" u' p. h代#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& Y, P- {' _$ i$ c( y
楼上搞二次开发的吗？厉害

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

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

txh007 发表于 2014-10-23 21:14 static/image/common/back.gif) ]8 h. ?/ {" ~# { W9 ?
谢谢，我不要坐标，我要的是每一个角度的凸轮轮廓线到中心的距离

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

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

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

xhq1954425 发表于 2014-10-24 08:55 static/image/common/back.gif+ V. Z6 m3 \* G0 V8 [8 Q) _
要数据的话，应该将数据写入记事本中，这样便于复制使用，但不知道是不是你要的形式？也不知道你何时再进来 ...

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

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

zhuyi0829 发表于 2014-10-26 09:45 static/image/common/back.gif
0 U, \0 K H1 m. S0 {( S你要的不是坐标位置吗，莫名其妙

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

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

txh007 发表于 2014-10-27 12:33 static/image/common/back.gif. l4 E9 f; V5 W6 X
就是这样的
, z6 K I/ o% h& U就是把精度为小数点后的第4位如100.6666
+ z5 i6 {, t" C谢谢，高手啊

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

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

txh007 发表于 2014-10-27 12:37 static/image/common/back.gif
. U! h# U" S" `+ b( I% k我要的是极轴长度，凸轮边到中心的距离，如10度凸轮边到中心的距离为98.3253，11度凸轮边到中心的距离为9 ...

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

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

zhuyi0829 发表于 2014-10-27 15:58 static/image/common/back.gif9 Q B5 ~) m( E3 ~7 D! y! J
你知道国内有多少设备能加工到小数点后四位的，你做凸轮你的加工设备能识别到小数点后四位?

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

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

zhuyi0829 发表于 2014-10-27 16:01 static/image/common/back.gif
. y; l( a8 u( c F极坐标也是坐标，只是以角度加距离表示，坐标分好几种了，球坐标，笛卡尔坐标，极坐标等

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

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

zhuyi0829 发表于 2014-10-27 16:01 static/image/common/back.gif+ c1 V8 |4 @2 W m
极坐标也是坐标，只是以角度加距离表示，坐标分好几种了，球坐标，笛卡尔坐标，极坐标等

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

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

txh007 发表于 2014-10-27 20:01 static/image/common/back.gif, S3 E9 [; o/ V$ e" C! |2 V: C
是的，但领导要求是长度和角度

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

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

zhuyi0829 发表于 2014-10-27 20:17 static/image/common/back.gif
6 p6 k0 u8 f6 v8 E' k3 p; ?我觉得很奇怪，是你提问题还是你领导提问题啊，既然都是你领导的意思，叫他解决问题啊，发什么帖呢

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

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

通知

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

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

点评

评分