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

股海一客 · 发表于 2014-10-29 13:40:04

xhq1954425 发表于 2014-10-26 09:14 static/image/common/back.gif
* x: S9 |8 F9 b: S1 t1 y我不厉害，二次开发只是业余爱好，本人是从事制图教学工作

哦！看你离教授不远了啊

xhq1954425 · 发表于 2014-10-29 13:50:28

股海一客发表于 2014-10-29 13:40 static/image/common/back.gif3 I! S3 P# Z% g8 ?" u; @
哦！看你离教授不远了啊

什么叫离教授不远了？是0距离……

xhq1954425 · 发表于 2014-10-29 13:55:08

txh007 发表于 2014-10-27 12:33 static/image/common/back.gif
% W, a: C% s! _3 g' `4 ^3 x就是这样的
$ R0 f" d5 Q+ @( c就是把精度为小数点后的第4位如100.66663 P3 @1 x0 @5 S0 C$ C
谢谢，高手啊

发上来了，如果复制数据还有不便之处，可以再改动……

计算凸轮曲线上点数据存入记事本.zip (1.12 KB, 下载次数: 15)

股海一客 · 发表于 2014-10-29 14:12:49

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

教授

txh007 · 发表于 2014-10-29 21:42:04

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

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

xhq1954425 · 发表于 2014-10-30 01:29:12

txh007 发表于 2014-10-29 21:42 static/image/common/back.gif
7 K! x9 G; B7 e4 o/ p已经下了，但我不知道怎么弄

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

你要学的东西多着呢……

daji · 发表于 2014-10-30 07:15:47

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

xhq1954425 · 发表于 2014-10-30 08:40:06

daji 发表于 2014-10-30 07:15 static/image/common/back.gif
/ T! C0 T3 |9 ?5 D6 P* lAutocad 中加载教授的程序然后，输入tt,执行就行了。

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

daji · 发表于 2014-10-30 09:43:56

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

xhq1954425 · 发表于 2014-10-30 10:12:19

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

他根本就没发图……

txh007 · 发表于 2014-10-30 12:43:39

xhq1954425 发表于 2014-10-30 01:29 static/image/common/back.gif0 Z5 o& A X1 ]. x( c) t0 H% f
尽管我编写这样的程序是举手之劳，可是你只少也得说点什么吧……？比如： ...

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

:kiss::kiss:

:rose::rose:

txh007 · 发表于 2014-10-30 12:55:16

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

这是高手自己画示意图

txh007 · 发表于 2014-10-30 14:54:07

xhq1954425 发表于 2014-10-30 10:12 static/image/common/back.gif
9 H; O+ }# z' z) A5 K8 R他根本就没发图……

帅哥，我试了怎么是个错误呢
命令:
命令: TT
选择凸轮曲线:
选择极轴直线:
选择凸轮中心点:; 错误: no function definition: VLAX-ENAME->VLA-OBJECT

xhq1954425 · 发表于 2014-10-30 15:28:05

本帖最后由 xhq1954425 于 2014-10-30 15:29 编辑

txh007 发表于 2014-10-30 14:54 static/image/common/back.gif2 h+ p- l2 I" L( I. S% B3 ?! [
帅哥，我试了怎么是个错误呢
4 u1 J. X' Q) M; C/ _6 C命令:3 D, Y/ V' b5 Q4 X
命令: TT

把(vl-load-com)加在程序第四行中后重加载一下！（注意不要自己打字，要复制使用）

;;;首先建立记事本文档，所采集的数据将存放于此
(defun c:tt()
  (setvar "cmdecho" 0)
  (vl-load-com)
  (setq nm (if (= (type nm) 'STR) nm ""))

xhq1954425 · 发表于 2014-10-30 15:33:23

本帖最后由 xhq1954425 于 2014-10-30 15:35 编辑

你还可以先带括号复制 (vl-load-com) ，然后粘贴到命令行中，再回一下车，然后再输入TT运行程序看看……

txh007 · 发表于 2014-10-30 20:41:52

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

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

txh007 · 发表于 2014-10-30 22:11:29

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

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

xhq1954425 · 发表于 2014-10-31 09:27:46

本帖最后由 xhq1954425 于 2014-10-31 09:39 编辑

1.(print (list "角度=" m "极轴长度=" (atof (rtos(distance o Point) 2 4))) fp)的4就是要保留的4位数，接来的是3，自己改一下,把(vl-load-com) 也加到程序中（我的CAC是自动加载的，所以我忽略了这个问题）

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

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

通知

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

浏览过的版块