从VBA Begin Plot事件加载并运行LISP例程

Jeff_M · 发表于 2007-8-17 12:52:16

您好，如果我正在使用begin plot事件，并且我想在begin plot上加载并运行lisp例程，这可能吗
即：
[代码谢谢你，马克

猪的风采 · 发表于 2007-8-17 12:54:22

绝对可能。

海盗 · 发表于 2007-8-17 13:04:24

最好在Acad2中提前加载Lisp？？？文件。lsp具有以下内容：

(load "c:/Path/LispRoutine")

然后将其放置在；本图纸；dvb部分：

copy

Private Sub AcadDocument_BeginPlot(ByVal DrawingName As String)
    ThisDrawing.SendCommand "(LispRoutine)" & vbCr
End Sub

吹牛 · 发表于 2007-8-17 13:17:11

是的，我理解并意识到我可以做到，但我想；负载“；并从事件标记运行它

人过三十 · 发表于 2007-8-17 13:23:53

好的，就这样做（已经测试过）：

copy

Private Sub AcadDocument_BeginPlot(ByVal DrawingName As String)
    ThisDrawing.SendCommand "(load "c:/Path/LispRoutine")" & vbCr
    ThisDrawing.SendCommand "(LispRoutine)" & vbCr
End Sub

粉红情书 · 发表于 2007-8-17 15:16:16

这是一次很好的尝试，第一行仍然出错，所以我试了一下

copy

Private Sub ACADApp_BeginPlot(ByVal DrawingName As String)
 ThisDrawing.SendCommand Load("c:/custom/color2style") & vbCr     <-----
 ThisDrawing.SendCommand "(color2style)" & vbCr
End Sub

有了这个，它没有出错，但事件也没有运行，我可能需要在模型空间中循环，因为它查找变量drawingname可能是这样的
你觉得怎么样
谢谢你，马克

copy

Private Sub ACADApp_BeginPlot(ByVal DrawingName As String)
For each Drawingname in Thisdrawing.Modelspace
 ThisDrawing.SendCommand Load("c:/custom/color2style") & vbCr     <-----
 ThisDrawing.SendCommand "(color2style)" & vbCr
Next Drawingname
End Sub

溪边的树 · 发表于 2007-8-18 09:46:29

所以你&#039；我们试图在绘图之前加载CTB/PC3？如果是这样，为什么不使用quickplot类型的功能，一个包含所有打印参数的按钮/命令，例如：

copy

ThisDrawing.SendCommand "-plot" & vbCr & "y" & vbCr & "Model" & vbCr 
& "Oce TDS600 3.x.pc3" & vbCr & "ARCH expand D (36.00 x 24.00 Inches)" & vbCr 
& "inches" & vbCr & "Landscape" & vbCr & "no" & vbCr & "extents" & vbCr & "fit" 
& vbCr & "Center" & vbCr & "yes" & vbCr & "comed36x24.ctb" & vbCr & "yes" & vbCr 
& "n" & vbCr & vbCr & vbCr & vbCr

当然，这不是#039；我没有真正回答你最初的问题，但它确实完成了工作（如果这是你需要做的）。