能否将lisp转换为

BlackBox · 发表于 2022-7-5 22:57:58

鉴于这一回应，我一定误解了你的其他评论，在这种情况下，请接受我的道歉，steven-g。

你在这里的评论包含了我对你的善意和尊重，我为你赢得了这些而感到谦卑。。。为此我感谢你们。

再次感谢您的澄清。。。诚然，因为我已经很多年没有使用LT了，所以我不知道这个功能。。。此外，考虑到API锁定（据我所知，我知道LISP不是否定的，但现在想知道.NET？Hrrrmm），我甚至没有费心下载\安装LT的ADN副本以进行测试。

我只是在回应你之前的选词，带着完全的讽刺——我实际上并不认为你没有能力——甚至连学习火星语都没有。

干杯

steven-g · 发表于 2022-7-5 23:00:43

我们很好（如果这不能说明我在笑）。据我所知，让LT执行除单击鼠标以外的任何操作的唯一方法是脚本和宏，宏可以包含diesel和call脚本（多个脚本），但它们无法协商对话框，因此quickselect之类的命令不可用，我相信在完整的Autocad中也是如此。Quickselect是一种说服力可以派上用场的情况。
我在很久以前也曾使用批处理文件处理大量autocad图形，并研究过使用windows脚本命令“inkeys”，但我不记得这是多么成功。

ROBP · 发表于 2022-7-5 23:04:57

有问题的Lisp程序用时间表绘制T形三通#

根据lisp中包含的一个小数据库。

就像史蒂文说的那样，我总是可以使用excel编写所有命令行，使用查找来读取所需的数据，并将其连接起来，这将起作用，但一天的工作可能涉及更多。我以前在excel中做过，但为了翻译lisp并实现它，必须理解所有命令以及它们的作用，我在AFRALISP上读了一些书，但尚未完成。

当然，我总是可以选择解决方案，在更便宜的完整cad版本（progeCAD）上运行lisp，保存它们，然后输出动态块。

我有时会发布lisp，但它需要先进行一些修复（osnap和layer make），我相信它对一些用户会有用。

干杯
R

BlackBox · 发表于 2022-7-5 23:06:29

谢谢你澄清你的意图。。。此外，一些其他产品支持。NET API；不确定您的开发能力。

干杯

BIGAL · 发表于 2022-7-5 23:10:42

感谢Steven-g，您已经澄清，您可以使用excel之类的输入方法，粘贴到命令行或编写脚本。对于许多人来说，只需输入值，然后显示dwg对象，就可以节省大量的时间。如果说可以使用excell创建实地测量代码脚本，并生成线条和符号平面图，是的，不是3d而是平面图。

这里要问的一个任务是橱柜和工作台，这使它能够自动使用excel的VBA作为编程端。只需剪切并粘贴左下角的文字即可。将完成的面板粘贴回。

在完成时，它取决于复杂程度，如果它询问dwg数据库，那么这个想法将不起作用。

steven-g · 发表于 2022-7-5 23:13:37

是的，只需点击一个按钮，就可以看到一幅图画在你眼前堆积起来，这给人一种真正的成就感。再次单击，将导出材料切割列表，尽管理论上不需要该阶段。此外，您可以让excel写出脚本文件，因此不需要剪切和粘贴。如果你能在3D中做到这一点

BIGAL · 发表于 2022-7-5 23:17:40

Steven-g欺骗3d我开始做LxWxHt腿尺寸的长凳，当观察vpoint 1,1,1时，它看起来会是3d的。台面为1200x600，厚度为12。如果LT支持PFACE draw pline 4点，则移动最后0,0,0,0,12进行隐藏。然后腿是50x50厚（900-12）我开始了一个excel在这个需要一点时间去尝试。

这是lisp版本

copy

: draw plain bench with legs
; by Alan H Oct 2012
;
;
(setq pi2 (/  pi 2.0)) ; 90 degrees
(setq Pt1 (getpoint "\npick lower left corner point")) 
(setq L (getreal "\nEnter length"))
(setq W (getreal "\nEnter width"))
(setq thick (- 0.0 (getreal "\nEnter bench thickness")))
(setq pt2 (polar pt1 0.0 L))
(setq pt3 (polar pt2 pi2 W))
; do stuff here like layers for now just draw
(command "rectang" pt1 pt3)
(command "extrude" "L" "" thick)
(setq OF1 (getreal "\nEnter Offset from length for legs"))
(setq OF2 (getreal "\nEnter offset from width for legs"))
(setq leg1 (getreal "\nEnter Hor size of leg"))
(setq leg2 (getreal "\nEnter Ver size of leg"))
(setq thick (+ (- 0.0 (getreal "\nEnter height of legs"))thick))
(setq pt4 (polar (polar pt1 0.0 OF1) pi2 OF2)) ;cnr of leg
(setq pt5 (polar (polar pt4 0.0 leg1) pi2 leg2))
(command "rectang" pt4 pt5)
(command "extrude" "L" "" thick)
(setq Cols (- L (+ (* 2.0 OF1) leg1)))
(setq rows (- W (+ (* 2.0 OF2) leg2)))
(command "array" "Last"  "" "R" 2 2 rows cols)
(princ)  ; exit quitely