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

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

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复

deegeecees · 发表于 2007-8-17 12:54:22

这是绝对可能的。

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

最好在你的Acad2中提前加载Lisp？？？doc.lsp如下内容：

(load "c:/Path/LispRoutine")

然后将其放在dvb的“ThisDrawing”部分：

copy

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

deegeecees · 发表于 2007-8-17 13:17:11

好吧，就这么办(没测试过):

copy

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

Jeff_M · 发表于 2007-8-17 13:23:53

这是一个很好的尝试
它仍然在第一行出错，所以我尝试了

copy

Private Sub ACADApp_BeginPlot(ByVal DrawingName As String)
 ThisDrawing.SendCommand Load("c:/custom/color2style") & vbCr     [code]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

deegeecees · 发表于 2007-8-17 15:16:16

所以你想在绘图前加载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

这当然不能真正回答您最初的问题，但它确实完成了工作（如果您需要这样做的话）。