飞机模型的LISP例程

ReMark · 发表于 2022-7-6 11:55:43

在浏览互联网时，我发现了以下网站，其中有一篇文章，题为“使用AutoCAD在圆锥结构中放样物体”，作者是sblack，日期为2001年5月22日。它包括三个LISP例程，圆锥曲线、Fusesoft和Pick_stn，以帮助模型设计师构建机身和其他实体。这里有使用LISP例程的说明、文本键控的图形、使用例程可以做什么的示例以及一个名为Sabretest的测试图。可以用来练习的图纸。请访问：

http://www.rcgroups.com/forums/showthread.php?t=201777

cuwaert · 发表于 2022-7-6 12:14:43

您好，我发现这是一个非常有趣的脚本，但我尝试使用它，它返回了一个错误“无效的窗口规范”，在acad2008中，即在样例图形“sabretest.dwg”中。也许2008年和其他acad版本之间有些不兼容。。。你知道软件是怎么回事。
因此，我猜想我必须学习autolisp如何进行必要的更改，我怀疑是这样的语句（命令“ucs”“o”orig）

在“draw_section”的函数定义中。

ReMark · 发表于 2022-7-6 12:21:30

很抱歉听到这个消息。由于对飞机设计没有兴趣，我没有亲自测试例程。是什么让你怀疑你上面提到的陈述？

Lee Mac · 发表于 2022-7-6 12:26:58

快速浏览一下Fuseloft例程——写得很糟糕，因为作者使用了受保护的符号作为变量名，这从来都不是一个好主意。。。

我会浏览一下，看看有没有更新版本。

ReMark · 发表于 2022-7-6 12:37:54

不用担心，超级麦克来了。

毫无疑问，如果李Mac重写代码，这将是一个巨大的进步。

Lee Mac · 发表于 2022-7-6 12:54:28

哈哈。。。再想一想，正确的重写可能需要一段时间。。。因为它也绝对没有错误捕获。。。我没有的时间

cuwaert · 发表于 2022-7-6 12:55:55

嗨，我不认为ame是为了写一个漂亮的程序，而是为了让它做一些事情。
好吧，注意，这只是第一个完全错误的猜测，我在visual lisp中打开了脚本，问题似乎出现在这个例程中

（defun gety（poly xval）

; gety找到对应于xlocation xval的多段线“poly”的点
; 通过从实际位置xval追踪由（list xval ypic）指示的垂直线
; 与参考相交
; 通过xval的线路
; 在视口中查找任意y拾取点
（setq ypic（cadr（getvar“viewctr”））
; 在X位置xval上绘制无限长的垂直线
（命令“XLINE”“VER”（list xval ypic）”）
; 修剪线到多段线多边形，这是它在2008年崩溃的地方
（命令“TRIM“poly”“（list xval ypic）”）
; 获取修剪线的基点
（setq xline（entlast）
yval（caddr（assoc 10（entget xline）））
);setq公司
; 删除行
（entdel xline）
; 此函数返回yval
伊瓦尔
);德芬

更具体地说，在带下划线的声明中。
我在网上的任何地方都找不到“TRIM”的语法，或者我只是在查看它，所以现在不知道它出了什么问题。
（是的，我自己也发表了一些评论）
在这条线上，它退出操作，在机身最大宽度多段线的开始处留下一条垂直线，并在光标处留下一个选择窗口。它说“无效的窗口规范”。

变量“length”似乎是我在Visual Lisp中发现的一个受限词，但在autocad中运行它似乎并不麻烦。。。。有点神秘。

[编程交流] 飞机模型的LISP例程

发表回复

精选推荐