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

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

xhq1954425 发表于 2014-10-26 09:14 static/image/common/back.gif/ @6 D) F% V1 r0 O% |
我不厉害，二次开发只是业余爱好，本人是从事制图教学工作

哦！看你离教授不远了啊

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

股海一客发表于 2014-10-29 13:40 static/image/common/back.gif, ^) E) I0 k; i3 Z/ f
哦！看你离教授不远了啊

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

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

txh007 发表于 2014-10-27 12:33 static/image/common/back.gif' f) }+ p( T3 x! u5 |$ w0 [/ t: |
就是这样的
& q2 {$ Z1 k7 c' F1 }; P就是把精度为小数点后的第4位如100.6666
! \# b3 |) |' t$ q2 `谢谢，高手啊

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

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

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

xhq1954425 发表于 2014-10-29 13:50 static/image/common/back.gif+ m9 T R: M }* m) G) F
什么叫离教授不远了？是0距离……

教授

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

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

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

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

txh007 发表于 2014-10-29 21:42 static/image/common/back.gif
( }. L$ ^2 x; ^4 {+ M7 o9 T已经下了，但我不知道怎么弄

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

你要学的东西多着呢……

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
: \7 Q+ [( v bAutocad 中加载教授的程序然后，输入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
4 B4 `4 v' v# {9 w' h这个凸轮看外形，估计可能是个控制用的如联控手柄或者类似自动车床上的，可能精度没有必要这样高

他根本就没发图……

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

xhq1954425 发表于 2014-10-30 01:29 static/image/common/back.gif8 d/ x3 V+ i% Y7 ]! E) [# g# A. W) b
尽管我编写这样的程序是举手之劳，可是你只少也得说点什么吧……？比如： ...

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

:kiss::kiss:

:rose::rose:

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

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

这是高手自己画示意图

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

xhq1954425 发表于 2014-10-30 10:12 static/image/common/back.gif
9 P! q% ^* z) H; D他根本就没发图……

帅哥，我试了怎么是个错误呢
命令:
命令: 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
; ^9 c( V1 o' k" H! d帅哥，我试了怎么是个错误呢$ Z e0 K) V# I B! E% ]
命令:
$ j8 Q8 `7 ^8 Y7 B, p/ N9 E命令: 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
% j4 o2 j6 D) C; w你还可以先带括号复制 (vl-load-com) ，然后粘贴到命令行中，再回一下车，然后再输入TT运行程序看看……

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

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

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

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

通知

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

浏览过的版块