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

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& C! R# |6 W Q' k; V, a
高版本ＡＣＡＤ中，画出此长线后，设置凸轮的圆心为坐标原点，并设置尺寸标注关联。# I9 u1 p+ d& Q; 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()
. V- ~* n# `( R3 X R$ T/ [
(setvar "cmdecho" 0) 0 l7 X9 s! H1 n( s
(setq e(car(entsel"\n选择凸轮曲线:")))
% q4 h3 w5 t0 x4 ^( _
(setq ei(car(entsel"\n选择投极轴直线:")))4 O8 b4 o4 q6 [3 @8 Y0 z
(setq O(getpoint"\n选择凸轮中心点:"))) \. t! T8 i% h, G; S7 k
(setq X (car O) Y (cadr O)) (setq n 1)
# D$ ~& K8 @$ g5 Q( x8 p' `
(repeat 360+ K$ ?0 o- E1 p2 E6 |5 L9 Y! t6 k
(command "rotate" ei "" O 1)
& ?; F& x' e1 o
(setq Point (trans (car (GetInterPointlist ei e)) 0 1))- b; t2 ^3 X2 }; r+ K; e, X! m
(command "Text" (list X Y) "5" "0" n)& x0 V6 i; u% I" t2 ^0 B
(command "Text" (list (+ X 20) Y) "5" "0" (rtos (car point) 2 2))! i3 T5 g" P6 m
(command "Text" (list (+ X 60) Y) "5" "0" (rtos (cadr point) 2 2));保留两位小数
8 U7 c6 H2 }) V+ |/ _$ L9 O2 j
(setq Y (+ Y 10))) d! k/ R% m' W3 `7 u* e
(setq n (+ 1 n))
/ M0 U, w$ ~% u+ O9 H) R
) & Y0 x5 y( N' _& f
(setvar "cmdecho" 1)
; i7 c' h5 ]! {! p% l$ j3 e" q
(princ)! n7 }8 C; \* e7 l% S* N
)( ]7 c/ H$ i3 ~, _+ O* \% A# r
(defun GetInterPointlist (ent_1 ent_2 / ent1 ent2
, r2 g# \& g3 u
ax_ent_1 ax_ent_2 intpoints i% y% ^. j" T" M ~ K/ H u& L; |
j k disp int_list- k' W( J5 }- ]
)
: g- k& ?. v( X# y" M1 Z
( j+ t& C& p$ r4 [) T
(setq int_list nil) R. o9 l6 Q- X. |! p
(setq ax_ent_1 (vlax-ename->vla-object ent_1)' Z/ n1 r8 c. G7 n2 L
ax_ent_2 (vlax-ename->vla-object ent_2) [2 Q' e' \" g4 G, c- b C
)
7 j& q' K. [5 h, G5 h
(setq intpoints (vla-intersectwith ax_ent_1 ax_ent_2 acextendnone))
" u( d$ f. D* }* B
(setq intpoints (vlax-variant-value intpoints))
6 ~7 U" Q3 a: D% \; T( y
(if (> (vlax-safearray-get-u-bound intpoints 1) 0)( y% B1 t5 O( ~" K
(progn
3 x+ L8 k, |: w6 J, g
(setq i 0)
; c8 Y6 V3 C. P
(setq j 0)
! j0 I4 x# g& x/ m6 O6 I& x8 s
(setq disp "")1 Z0 Y/ T- X: e3 K/ a1 U2 g
(repeat" l5 q) v7 C, x
(/ (+ 1
' q: X, Z; t) m
(- (vlax-safearray-get-u-bound intpoints 1)' b* ^5 P( K, b+ x( g
(vlax-safearray-get-l-bound intpoints 1)! O9 X+ r1 |( t$ j% q: c
)7 O7 a {7 z) M! G( a% v4 R
)! D1 M* N; w6 ^, a' M
3
) | _# m X. Q/ w
)
; w% q/ F5 }. u' c* Y8 [6 L
(setq
+ N5 r: u- b; ~; m4 w! o
disp (list
; @3 ~) _& \" `/ q* s( K" A
(vlax-safearray-get-element intpoints j) t. ^9 {% w& }" h
! k' k/ ?( e1 P' I& \
(vlax-safearray-get-element intpoints (+ 1 j))2 M5 Y6 D5 d! @: w% N6 i
8 _3 Q7 H- P, O$ J
(vlax-safearray-get-element intpoints (+ 2 j))
$ ?- U; o7 ]# V" L8 T0 _" d) b* v# i
)
6 M! N7 B# V* C# {! _6 c' M
)
( W) j: ?5 k4 s) t, p& k- {$ a
(setq i (+ 2 i)
& N' O! o4 @% p0 F- d% b9 \, ^
j (+ 3 j)+ y. F( x ~" l* Z
)' e# o1 V9 A5 w: E# d
(setq int_list (append int_list (list disp)))
2 Y4 Y. @5 t5 r
)- {# T ~7 U$ C9 n
)
7 u7 s6 |7 R6 `9 G# i" t% }" Y
): h% X* G$ Y! h3 |7 w
(setq int_list int_list)
* B! K: V! ]. s2 E( O) Z+ c' H% v
). |- z0 Q4 Z7 e% ?

复制代码

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

xhq1954425 发表于 2014-10-22 13:18 static/image/common/back.gif
% _7 J h* { E3 Z3 r这个是保留两位小数的：

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

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

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

woaishuijia 发表于 2014-10-23 10:52 static/image/common/back.gif6 Y; q* ]5 u* k9 `+ \3 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.gif2 J" N' Q' N. j" L& P/ ~& B+ J3 G
楼上搞二次开发的吗？厉害

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

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

txh007 发表于 2014-10-23 21:14 static/image/common/back.gif0 B4 n9 r/ {0 E* N/ V
谢谢，我不要坐标，我要的是每一个角度的凸轮轮廓线到中心的距离

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

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 f7 M, G) i5 J3 ~要数据的话，应该将数据写入记事本中，这样便于复制使用，但不知道是不是你要的形式？也不知道你何时再进来 ...

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

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

zhuyi0829 发表于 2014-10-26 09:45 static/image/common/back.gif
6 x r8 D* C6 t9 T3 K0 l你要的不是坐标位置吗，莫名其妙

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

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

txh007 发表于 2014-10-27 12:33 static/image/common/back.gif' u L3 f6 x6 M# d% T4 m6 g# Q
就是这样的& v0 W0 ]# H* g1 m
就是把精度为小数点后的第4位如100.6666( }8 M* ^+ C7 z6 x+ n# A
谢谢，高手啊

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

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

txh007 发表于 2014-10-27 12:37 static/image/common/back.gif
6 i1 b. A1 u5 L$ W# v3 C我要的是极轴长度，凸轮边到中心的距离，如10度凸轮边到中心的距离为98.3253，11度凸轮边到中心的距离为9 ...

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

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

zhuyi0829 发表于 2014-10-27 15:58 static/image/common/back.gif
; }8 S4 V- x# H3 W* k- Y0 a你知道国内有多少设备能加工到小数点后四位的，你做凸轮你的加工设备能识别到小数点后四位?

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

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

zhuyi0829 发表于 2014-10-27 16:01 static/image/common/back.gif
i3 t$ Z: c2 W. a* i" j极坐标也是坐标，只是以角度加距离表示，坐标分好几种了，球坐标，笛卡尔坐标，极坐标等

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

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

zhuyi0829 发表于 2014-10-27 16:01 static/image/common/back.gif
3 p" r! Q- E' @' U; W极坐标也是坐标，只是以角度加距离表示，坐标分好几种了，球坐标，笛卡尔坐标，极坐标等

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

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

txh007 发表于 2014-10-27 20:01 static/image/common/back.gif
5 u3 h. v* O- G' G/ F H. R* K是的，但领导要求是长度和角度

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

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

zhuyi0829 发表于 2014-10-27 20:17 static/image/common/back.gif4 u) E( {0 H0 r# }( c! n1 Q4 |; e
我觉得很奇怪，是你提问题还是你领导提问题啊，既然都是你领导的意思，叫他解决问题啊，发什么帖呢

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

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

通知

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

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

点评

评分

浏览过的版块