autolisp

0热度

1回答

我正在写一个lisp应用程序来为CNC切割器创建2D模式。我有一个Excel程序，可以为每个模式输出3-10个短lisp子例程，并且我可以在我的“while”循环中获取任意数量的这些子文件到加载并绘制该部分，但没有任何方法我可以工作到创建 .dxf文件从图形子生成的图纸将让我恢复循环。如果我拉出dxfout和擦除步骤，并让它们全部相互重叠，就像魅力一样。 (defun c:CreateDXF (/

0热度

1回答

另存为选定对象dwg格式

我尝试保存dwg文档，但仅限于选定的对象，我知道我可以使用wblock命令，但我只需要使用ssget和saveas命令。（setq selection（ssget））任何已知的选项？

0热度

1回答

如何使用lisp将Block/autocad中的对象区域变为变量

以下是代码; (setq Tobjs (vla-Explode Tvlaobj)) (setq ObjectsAsList (vlax-safearray->list (vlax-variant-value Tobjs))) (foreach % ObjectsAsList

0热度

1回答

将三维折线更改为在Autocad中用lisp进行样条曲线

我有一个可以从三维折线创建样条曲线的工作语句。我的问题是我不能让它工作来选择多个三维多段线或整个图层，并且一个lisp会将结果图层更改为默认图层。它应该保持原来的。这是我的工作口齿不清： (defun c:3p2spl (/ *error* line2spl loop pl e s ss sss) (vl-load-com) (defun *error* (msg)

0热度

1回答

为什么我不能定义naviswheel？

我试图未定义Naviswheel与下面的代码，但它不工作 (command ".undefine" "naviswheel")

0热度

1回答

向所有打开的文件添加元素

我一直在使用AutoLISP/CAD一段时间，现在我想为我的名字添加一个标签到所有打开的文件。我设法遍历所有打开的文件，但文本命令只运行在第一个文件中。我认为CAD正常工作太快，所以我增加了延迟，但没有奏效。我检查了所有打开的文件，并且变量被共享和同步。顺便说一下，每个打开的文件都会添加一次文本，但只能在第一个文件中添加。这里是我的代码： (defun c:labeling() (vl

-2热度

3回答

为什么我的AutoCAD accoreconsole不能打开文件或执行脚本？

我正在运行香草AutoCAD 2017 accoreconsole.exe将启动，但显示示例屏幕，似乎运行命令，但我不知道一种方式直接从核心控制台打开文件，所以我真的不能做任何事情它。方法试图 1.脚本Pro的2.0：读取日志文件C错误：从https://knowledge.autodesk.com/support/autocad/downloads/caas/downloads/conten

0热度

1回答

画线用两条平行线连接两条平行线的末端

有没有人有AutoLisp例程来快速绘制连接两条平行线的线。我真的很喜欢类似于圆角命令的东西，除了绘制直线而不是半径。这几乎可以通过倒角命令来完成，除了倒角不适用于平行线。我的工作有时包括偏移大量平行线对，然后用另一条线连接它们以创建矩形。在它们之间划一条线很容易，但它仍然是一个乏味的过程。

2热度

1回答

测量距离时启用“动态输入”

我有一个LISP例程，它使用getpoint在两点之间测量，然后创建一个表格（当然，一旦完成，我会完成）用数字填充表格，基于测量值。问题是当我选择第一个点时，没有我选择的位置的视觉反馈，比如使用内置的distance工具。例如，在下面的两个截图中，我选择了第一个要衡量的点，而不是第二个要测量的点; 使用distance工具; 使用我的工具; 如何，在LISP，我可以添加此“动态输入”（我认为是正

0热度

2回答

Lisp更新列表

嗨我是AutoCad lisp的新手，我试图用一些简单的例程加速我的工作，但有一点点简单，但我撞到一堵墙，无法弄清楚这一点，我有一个强大的填充，那里是个简单的解决方案。所以...... 我做了一个名为 “koord” 的文章： (setq koord (list (cons "1" "10,10,10"))) 结果是点对：("1" . "10,10,10") 之后，我添加到这个列表，例如： (