自动加载
我有一些vba事件，我想在每次启动Autocad时运行。我最初在acad.lsp中给他们打了个电话，但是每次成功打开图纸，我都会收到一条消息，告诉我他们已经加载了。我该怎么做才能避免出现此消息？另外，我想知道是否有人可以帮助我完成此活动？'Private Sub AcadDocument_BeginCommand(ByVal CommandName As String)
' If CommandName = "PLOT" Then
'Dim AcadDim As AcadDimension
' Dim SelSet As AcadSelectionSet
'
' Set SelSet = ThisDrawing.SelectionSets.Add("Dimension")
'
' For Each AcadDim In SelSet
' SendCommand "_.draworder" & vbCr & vbCr
' Next AcadDim
' End If
'End Sub
我试图完成的是在绘图之前将所有尺寸移动到绘制顺序的背面，因此在打印中不会显示沿一条线布局的延伸线。谢谢。
**** Hidden Message ***** 自动加载部分看这个:
http://the swamp . org/phpbb 2/view topic . PHP？p=40172 所以，我要把代码放在acad中。dvb或者我可以将代码保存在不同的文件中并从那里调用它吗 "" Then
ThisDrawing.SetVariable "CLAYER", CLayer
CLayer = ""
End If
If (CommandName = "XREF") Then
CLayer = ThisDrawing.GetVariable("CLAYER")
Set XrefLay = ThisDrawing.Layers.Add("xref")
XrefLay.color = acWhite
If XrefLay.LayerOn = False Then
XrefLay.LayerOn = True
ThisDrawing.Regen (acAllViewports)
End If
If XrefLay.Freeze = True Then
XrefLay.Freeze = False
ThisDrawing.Regen (acAllViewports)
End If
ThisDrawing.SetVariable "CLAYER", "xref"
End If
..........
使用我的acad.lsp中的这些行来加载它:
(vl-load-com)
(vl-vbaload (findfile "C:/Program Files/AutoCAD Tools/create_lyrs.dvb"))
(vl-vbaload (findfile "C:/Program Files/AutoCAD Tools/acad.dvb"))
(princ)
页:
[1]