自动加载

daron · 发表于 2005-2-21 08:04:12

我有一些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

我试图完成的是在绘图之前将所有尺寸移动到绘制顺序的背面，因此在打印中不会显示沿一条线布局的延伸线。谢谢。

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

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

daron · 发表于 2005-2-21 09:32:06

自动加载部分看这个:
http://the swamp . org/phpbb 2/view topic . PHP？p=40172

ronjonp · 发表于 2005-2-21 09:40:42

所以，我要把代码放在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
..........[/code]
使用我的acad.lsp中的这些行来加载它:

copy

(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)

自动加载

发表回复

精选推荐