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

股海一客

xhq1954425 发表于 2014-10-26 09:14 static/image/common/back.gif
% X5 p+ n: V: g9 g* [  |# w& M% {我不厉害，二次开发只是业余爱好，本人是从事制图教学工作

8 j' [; ~) N- Z: y  G4 `哦 ！看你离教授不远了啊

xhq1954425

股海一客 发表于 2014-10-29 13:40 static/image/common/back.gif
. M5 A; s7 Z! Y0 n4 z- d0 v哦 ！看你离教授不远了啊

6 Y% X9 x% X$ y! A) K" `- ~8 r3 K什么叫离教授不远了？是0距离……

xhq1954425

txh007 发表于 2014-10-27 12:33 static/image/common/back.gif
就是这样的
就是把精度为小数点后的第4位如100.6666
谢谢，高手啊

& g5 i6 M6 t3 m% Q$ f发上来了，如果复制数据还有不便之处，可以再改动……
( _5 a% i- _$ V- ^/ w9 _1 L
计算凸轮曲线上点数据存入记事本.zip (1.12 KB, 下载次数: 16)

2014-10-29 13:53 上传

点击文件名下载附件

股海一客

xhq1954425 发表于 2014-10-29 13:50 static/image/common/back.gif
什么叫离教授不远了？是0距离……

教授

txh007

xhq1954425 发表于 2014-10-29 13:55 static/image/common/back.gif
发上来了，如果复制数据还有不便之处，可以再改动……

已经下了，但我不知道怎么弄

xhq1954425

txh007 发表于 2014-10-29 21:42 static/image/common/back.gif
% o8 f8 I2 o2 r# U$ |; D! y& ?已经下了，但我不知道怎么弄

尽管我编写这样的程序是举手之劳，可是你只少也得说点什么吧……？比如：你要学的东西多着呢……

daji

Autocad 中加载教授的程序 然后，输入tt,执行就行了。

xhq1954425

daji 发表于 2014-10-30 07:15 static/image/common/back.gif
Autocad 中加载教授的程序 然后，输入tt,执行就行了。

估计这样告诉他他还是不明白，我教他个容易的拖拽加载法吧：
先把CAD界面最小化……

" T; I, N7 {* j7 u, F) l8 y9 d

daji

这个凸轮看外形，估计可能是个控制用的如联控手柄或者类似自动车床上的，可能精度没有必要这样高

xhq1954425

daji 发表于 2014-10-30 09:43 static/image/common/back.gif
这个凸轮看外形，估计可能是个控制用的如联控手柄或者类似自动车床上的，可能精度没有必要这样高

4 S5 ]. z* p+ {% ~' u0 |他根本就没发图……

txh007

xhq1954425 发表于 2014-10-30 01:29 static/image/common/back.gif
+ Q" [4 K- \8 X, N8 a  ^" S. b尽管我编写这样的程序是举手之劳，可是你只少也得说点什么吧……？比如： ...

高手我失礼了，补上我的谢意:kiss::kiss::rose::rose:

txh007

daji 发表于 2014-10-30 09:43 static/image/common/back.gif
这个凸轮看外形，估计可能是个控制用的如联控手柄或者类似自动车床上的，可能精度没有必要这样高

这是高手自己画示意图

txh007

xhq1954425 发表于 2014-10-30 10:12 static/image/common/back.gif
1 q' u! H/ E; U* \- D2 H4 M; i6 j3 u他根本就没发图……

帅哥，我试了怎么是个错误呢
命令:
' y, f4 o0 m+ Q. `: ~命令: TT
选择凸轮曲线:
5 P# ~# D1 `3 x5 e3 S- T# R选择极轴直线:
选择凸轮中心点:; 错误: no function definition: VLAX-ENAME->VLA-OBJECT
) p; ?! b( l+ e6 p' j, f' ?8 {

xhq1954425

6 A( g; x. I+ z, D2 P

txh007 发表于 2014-10-30 14:54 static/image/common/back.gif
帅哥，我试了怎么是个错误呢
命令:
命令: TT

  `+ m0 x; m. K  u$ E6 x' }* s把(vl-load-com)加在程序第四行中后重加载一下！（注意不要自己打字，要复制使用）

. @" V& v/ o- q; j5 a;;;首先建立记事本文档，所采集的数据将存放于此
(defun c:tt()
  (setvar "cmdecho" 0)
# x& X! P* ]/ g1 C  (vl-load-com)
  (setq nm (if (= (type nm) 'STR) nm ""))

xhq1954425

. T' Y- L2 M' [9 P4 B* e) w
" t1 H; x& p8 T! U2 F8 x. t你还可以先带括号复制  (vl-load-com)   ，然后粘贴到命令行中，再回一下车，然后再输入TT运行程序看看……

txh007

xhq1954425 发表于 2014-10-30 15:33 static/image/common/back.gif
, \  e3 U' `5 V; {; Y3 ]你还可以先带括号复制  (vl-load-com)   ，然后粘贴到命令行中，再回一下车，然后再输入TT运行程序看看……

' k* J6 I/ K) D/ H9 i我成功了，现在可以出数据。那个激动啊，就像是做新郎一样。
我想问一下，出来的数据精度怎么到小数点后4位。
太谢谢你了。你来我绍兴新昌这边，在论坛里发个信息给我

txh007

xhq1954425 发表于 2014-10-30 15:33 static/image/common/back.gif
你还可以先带括号复制  (vl-load-com)   ，然后粘贴到命令行中，再回一下车，然后再输入TT运行程序看看……

你能帮我把这个凸轮数据能出来嘛，我们选择凸轮时不能框选，线条不能更改线条的性质，因为我们一改成多线段，他的实际轮廓线有变化了，我们组成块后，用你的小程序得到的数据比实际的大。这就是我们要用的修整后的凸轮，不能改变实际轮廓线的情况怎么得到凸轮数据?

xhq1954425

; |7 Q$ f+ q/ F& R% ~
/ |* `/ w; h2 E; E1.(print (list "角度=" m "极轴长度=" (atof (rtos(distance o Point) 2 4))) fp)的4就是要保留的4位数，接来的是3，自己改一下,把(vl-load-com) 也加到程序中（我的CAC是自动加载的，所以我忽略了这个问题）

2.你那个不会弄的凸轮曲线有一个断点没连上（有空隙的意思），先把它处理一下，然后合并成一条多段线后再用程序算就行了，这样简单的事应该自己做，看来你的功夫尚浅，应该系统地学一下。

2 N% n3 p; @+ \* b- B