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

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

xhq1954425 发表于 2014-10-26 09:14 static/image/common/back.gif* _5 j: i3 s) w L1 i& e1 \% j7 }' r
我不厉害，二次开发只是业余爱好，本人是从事制图教学工作

哦！看你离教授不远了啊

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

股海一客发表于 2014-10-29 13:40 static/image/common/back.gif6 b+ z& F# g, p
哦！看你离教授不远了啊

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

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

txh007 发表于 2014-10-27 12:33 static/image/common/back.gif$ G: s9 P! @" V" E+ Y2 v/ c
就是这样的* R* e: N: ~3 r
就是把精度为小数点后的第4位如100.6666* {5 j/ J7 Z/ u7 w* S4 H) `% i) p
谢谢，高手啊

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

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

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

xhq1954425 发表于 2014-10-29 13:50 static/image/common/back.gif
7 q. F: d" `) X; J: u& y6 r什么叫离教授不远了？是0距离……

教授

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

xhq1954425 发表于 2014-10-29 13:55 static/image/common/back.gif
/ R; S \$ G0 p q# g# E+ X发上来了，如果复制数据还有不便之处，可以再改动……

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

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

txh007 发表于 2014-10-29 21:42 static/image/common/back.gif
4 |# B' m" k6 m4 u5 N已经下了，但我不知道怎么弄

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

你要学的东西多着呢……

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; |; F$ L c4 T$ [* ~4 U$ c" r
Autocad 中加载教授的程序然后，输入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.gif, C3 U7 E" |" F4 f3 O$ ~
这个凸轮看外形，估计可能是个控制用的如联控手柄或者类似自动车床上的，可能精度没有必要这样高

他根本就没发图……

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

xhq1954425 发表于 2014-10-30 01:29 static/image/common/back.gif
& @4 [: I7 N6 R1 l尽管我编写这样的程序是举手之劳，可是你只少也得说点什么吧……？比如： ...

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

:kiss::kiss:

:rose::rose:

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

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

这是高手自己画示意图

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

xhq1954425 发表于 2014-10-30 10:12 static/image/common/back.gif
+ S+ Y- ?- \: D, _; f) a他根本就没发图……

帅哥，我试了怎么是个错误呢
命令:
命令: 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.gif, u2 |3 q" q3 A4 H( n
帅哥，我试了怎么是个错误呢# O! ]4 x7 R& d: o0 s
命令:: g( ]+ U# m& H- G' ^5 U8 f
命令: 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# f1 ?: d, k: ~& J% B# f9 [
你还可以先带括号复制 (vl-load-com) ，然后粘贴到命令行中，再回一下车，然后再输入TT运行程序看看……

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

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

xhq1954425 发表于 2014-10-30 15:33 static/image/common/back.gif2 ]2 l9 n3 `" P' y
你还可以先带括号复制 (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.你那个不会弄的凸轮曲线有一个断点没连上（有空隙的意思），先把它处理一下，然后合并成一条多段线后再用程序算就行了，这样简单的事应该自己做，看来你的功夫尚浅，应该系统地学一下。

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

通知

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