乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 尊重版权,从我做起,拒绝盗版,拒绝倒卖 签到、发布资源、邀请好友注册,可以获得银币 请注意保管好自己的密码,避免账户资金被盗
查看: 40|回复: 2

自动加载

[复制链接]

14

主题

194

帖子

5

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
250
发表于 2005-2-21 08:04:12 | 显示全部楼层 |阅读模式
我有一些vba事件,我想在每次启动Autocad时运行。我最初在acad.lsp中给他们打了个电话,但是每次成功打开图纸,我都会收到一条消息,告诉我他们已经加载了。我该怎么做才能避免出现此消息?另外,我想知道是否有人可以帮助我完成此活动?
  1. 'Private Sub AcadDocument_BeginCommand(ByVal CommandName As String)
  2. '   If CommandName = "PLOT" Then
  3. '  Dim AcadDim As AcadDimension
  4. '    Dim SelSet As AcadSelectionSet
  5. '
  6. '    Set SelSet = ThisDrawing.SelectionSets.Add("Dimension")
  7. '
  8. '        For Each AcadDim In SelSet
  9. '            SendCommand "_.draworder" & vbCr & vbCr
  10. '        Next AcadDim
  11. '    End If
  12. 'End Sub

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

本帖以下内容被隐藏保护;需要你回复后,才能看到!

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

使用道具 举报

14

主题

194

帖子

5

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
250
发表于 2005-2-21 09:32:06 | 显示全部楼层
自动加载部分看这个:
http://the swamp . org/phpbb 2/view topic . PHP?p=40172
回复

使用道具 举报

58

主题

3353

帖子

33

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1761
发表于 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中的这些行来加载它:
  1. (vl-load-com)
  2. (vl-vbaload (findfile "C:/Program Files/AutoCAD Tools/create_lyrs.dvb"))
  3. (vl-vbaload (findfile "C:/Program Files/AutoCAD Tools/acad.dvb"))
  4. (princ)
回复

使用道具 举报

发表回复

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁体中文

GMT+8, 2025-3-18 00:56 , Processed in 0.342045 second(s), 58 queries .

© 2020-2025 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表