Lisp程序问题

Zykl0 · 发表于 2022-7-6 14:28:02

你好，我是Lisp程序的verry noob，我有一个简单的问题。

我知道，在acad中调用lisp函数很容易，因为它们包含类似defun的内容：
但是当结构是这样的时候，我怎么调用函数呢

选项显式

公共Sub Main（）
代码在这里代码在这里代码在这里
代码在这里代码在这里代码在这里
代码在这里代码在这里代码在这里
末端接头

Freerefill · 发表于 2022-7-6 14:35:10

调用函数几乎是一样的，我真正遇到的唯一区别是它是命令还是函数。唯一的区别是它是否由c开头，就像这样：

我希望这能回答你的问题，如果没有，我可以再试一次

Zykl0 · 发表于 2022-7-6 14:47:18

我不知道如何在autoCAD中调用此代码。。。我需要在代码中添加函数吗？

copy

Option Explicit
Public Sub Main()
   Dim objBlock As AcadBlockReference
   Dim objEnt As AcadEntity
   Dim colHyps As AcadHyperlinks
   Dim fso As FileSystemObject
   
   Set fso = New FileSystemObject
   
   For Each objEnt In ThisDrawing.ModelSpace
       If TypeOf objEnt Is AcadBlockReference Then
           Set objBlock = objEnt
           Set colHyps = objBlock.Hyperlinks
           On Error Resume Next ' In case we encounter any blocks that DON'T have hyperlinks
           fso.CopyFile colHyps.Item(0).URL, "E:\Temp"  ' replace E:\Temp\ with your project directory
       End If
   Next objEnt
   
   Set fso = Nothing
End Sub