新手需要帮助加载纸条

Zykl0 · 发表于 2022-7-6 09:23:30

你好

我找到了一个我想使用的脚本，但我不知道如何运行它，我在互联网上找不到任何东西。

脚本看起来像

Sub AllLayersToByLayer()
   Dim color As AcadAcCmColor
   Dim obj As AcadEntity
   
   Set color = New AcadAcCmColor
   With color
       .ColorMethod = acColorMethodByACI
       .ColorIndex = "256"
   End With
   
   For Each obj In ThisDrawing.ModelSpace
       obj.TrueColor = color
   Next obj
End Sub

我的问题是：
这是什么语言？
如何将其加载到autocad？
如何将其执行到lisp文件中？

我需要有人给我解释一下，假设我对编程几乎一无所知

Lee Mac · 发表于 2022-7-6 09:46:55

在我看来像VBA。

SETBYLAYER命令对您可用吗？

rkmcswain · 发表于 2022-7-6 09:49:46

这是VBA，不是autolisp。
如果您对VBA一无所知，那么加载它并不简单。
从这里开始了解更多信息：http://www.afralisp.net/visual-basic-for-applications/

这是一个简单的例程，可以很容易地用lisp编写，它是AutoCAD最新版本中的内置命令。（命令：SETBYLAYER-在R2008和更高版本中可用）

Lee Mac · 发表于 2022-7-6 10:07:02

将VBA转换为LISP：

copy


(defun c:test nil (vl-load-com)
 (vlax-for object
   (vla-get-modelspace (vla-get-activedocument (vlax-get-acad-object)))
   (vla-put-color object acbylayer)
 )
 (princ)
)

Zykl0 · 发表于 2022-7-6 10:11:51

哇，非常感谢，我更喜欢Lisp程序

Lee Mac · 发表于 2022-7-6 10:29:04

我也是。。。

[编程交流] 新手需要帮助加载纸条

发表回复

精选推荐