[LISP程序]：模具设计类LISP程序

HONG112 · 发表于 2004-8-24 09:21:37

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

这个论坛讨论模具设计方面用的LISP好象比较少，希望模具设计的朋友把自己的一些好用一些LISP命令都共享出来，我先来一个。
多功能引线标注：一个命令可以判断出所选物体是圆，圆弧还是直线并标出相应的直径，半径或斜度。

HONG112 · 发表于 2004-8-24 09:28:20

这是图片，这个LISP中还有C角标注和同心圆的标注，自己摸摸看吧！

xlmx-whj · 发表于 2004-8-24 21:34:38

不错的小工具，以后多发些谢谢。

shisj · 发表于 2004-8-25 15:13:19

不错，支持一下

MUMUMU · 发表于 2004-8-25 19:19:41

sinom · 发表于 2004-11-4 09:29:20

不错的工具，感谢了，支持~

xjjy · 发表于 2004-11-4 14:35:59

我也开发了一个模具方面的一个小东东，除右边“辅助绘图”来自网络论坛，其他是自己编的！

xtjd · 发表于 2004-11-10 21:06:44

可不可以不要注冊？

小鹏程 · 发表于 2004-11-18 13:06:20

我很想要这个程序，我找了很久都没有找到，现在找到了又下载不了，这个程序对模具设计来说真的很方便，因为每一套模具都要标很多拔模角，我真的很想要，可不可以麻烦你帮我发到我的EMAIL上去。我万分感谢！
EMAIL电址：LIRONGPENG@MAIL.CHINA.COM

zuqiang · 发表于 2005-1-29 18:25:54

我有大把的模具设计用的程序，有些是我自己写的，可惜没时间上传，有些怕侵犯版权！

zuqiang · 发表于 2005-1-29 18:30:16

可以修改的

zuqiang · 发表于 2005-1-29 18:33:17

想要请与我联系qq:107667863

啵浪鼓 · 发表于 2005-1-29 22:59:38

嘿嘿,终于找到对口的了,我的工作是五金模具设计,其中多是PRESSCAD,另还有一些自已开发的LISP,比如自动拆板,自动标注,快速修改等
有五金设计类的人与我共探讨吗?

zuqiang · 发表于 2005-1-31 16:33:25

我看了1楼楼主的程序，写的不错，有以下心得共享：

如果应用程序需要把角度值从弧度转换为度，可以调用函数 angtos 返回一个字符串，然后用 atof 将该字符串转换为浮点数值。

(setq pt1 ' (1 1) pt2 ' (1 2))
(setq rad (angle pt1 pt2))
(setq deg (atof (angtos rad 0 2))) ; 返回 90.0
然而，更有效的方法是在程序中包括一个 Radian-> Degrees 函数。下列代码示范了这个操作：

；将数值从弧度转换为度
(defun Radian-> Degrees (nbrOfRadians)
(* 180.0 ( /nbrOfRadians pi))
)
定义该函数后，可以像下例中一样在整个应用程序中调用 Radian-> Degrees 函数。

(setq degrees (Radian-> Degrees rad)) ; 返回 90.0
角度也可能需要从度转换为弧度。下列代码示范了这个操作：

；将数值从度转换为弧度
(defun Degrees-> Radians (numberOfDegrees)
(* pi ( /numberOfDegrees 180.0))
) ;_ 结束 defun

楼主的程序中有(var)(rvar)用时需删除的(我2005版本)
程序中用command调用了leader命令是不安全的，版本会是程序变的不兼容，qleader正在取代leader, qleader说不定哪一天也会被抛弃而未知。尽量不要使用command.
程序没有加入对使用者定义的标注样式的调用，譬如角度,尺寸的精确度，标注单位的控制！

再次感谢我们的楼主的辛勤劳动，也希望大家共同进步！

PFD8667 · 发表于 2005-2-20 10:55:25

楼主的模具设计类LISP程序不好用啊

命令:
TOLDIM
选取尺寸:
上公差<+,->:+2

下公差<=,->:-2
; 错误: no function definition: VAR

账号		自动登录	找回密码
密码			立即注册

[LISP程序]：模具设计类LISP程序

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子