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

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

xhq1954425 发表于 2014-10-26 09:14 static/image/common/back.gif
; T6 X4 M8 [# Z我不厉害，二次开发只是业余爱好，本人是从事制图教学工作

哦！看你离教授不远了啊

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

股海一客发表于 2014-10-29 13:40 static/image/common/back.gif( n# D' R' c' R8 w9 G! M; Q+ M
哦！看你离教授不远了啊

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

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

txh007 发表于 2014-10-27 12:33 static/image/common/back.gif3 T# Q7 \( b. \
就是这样的" Y% g) Z3 ^ ^* t& @. D! j9 L) C
就是把精度为小数点后的第4位如100.6666
$ n) a. `: n6 T7 w谢谢，高手啊

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

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

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

xhq1954425 发表于 2014-10-29 13:50 static/image/common/back.gif% n, A3 G- k# {, I/ [% z
什么叫离教授不远了？是0距离……

教授

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

xhq1954425 发表于 2014-10-29 13:55 static/image/common/back.gif
' Q0 s/ v+ z' g! g! K8 a# l7 B发上来了，如果复制数据还有不便之处，可以再改动……

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

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

txh007 发表于 2014-10-29 21:42 static/image/common/back.gif1 ?/ E5 q7 t0 F8 {# |
已经下了，但我不知道怎么弄

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

你要学的东西多着呢……

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
! |2 j: H/ M0 ZAutocad 中加载教授的程序然后，输入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: t* j& f0 v! k7 a; R
这个凸轮看外形，估计可能是个控制用的如联控手柄或者类似自动车床上的，可能精度没有必要这样高

他根本就没发图……

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

xhq1954425 发表于 2014-10-30 01:29 static/image/common/back.gif$ J6 Q$ P2 {/ k# o( T: K( r. T
尽管我编写这样的程序是举手之劳，可是你只少也得说点什么吧……？比如： ...

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

:kiss::kiss:

:rose::rose:

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

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

这是高手自己画示意图

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

xhq1954425 发表于 2014-10-30 10:12 static/image/common/back.gif
W7 c( o0 h8 t他根本就没发图……

帅哥，我试了怎么是个错误呢
命令:
命令: 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% v- K2 |( m3 j1 M5 U% m
帅哥，我试了怎么是个错误呢 m0 d8 X% w" B9 n# [* Y* {1 l
命令:1 E( {. u8 V, r+ w3 W4 p1 G0 T
命令: 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
3 [; p1 Z" G+ W2 u$ q1 i! r你还可以先带括号复制 (vl-load-com) ，然后粘贴到命令行中，再回一下车，然后再输入TT运行程序看看……

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

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

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

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

通知

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

浏览过的版块