dubb 发表于 2005-6-30 13:12:20

数以百万计的细节

我整个夏天都有这项乏味的工作要做...我只是不想花我整个夏天的时间。有没有更快的方法来浏览一大堆细节并一个接一个地绘制出来,并在图纸上盖章指示细节的位置以供参考?到目前为止...我尝试导入一个布局并单独放大每个细节并绘制它。对此有什么建议吗?
案例:在网络驱动器上找到所有细节,并在8.5x11纸上一一打印出来
为什么:为不同类型的材料开发更多标准细节库
问题:一个dwg文件中塞满了太多细节。
解决方案:?
**** Hidden Message *****

TimSpangler 发表于 2005-6-30 14:48:36

剧本

M-dub 发表于 2005-6-30 15:00:15

要查找它们,如果详图中有独特的文字将它们与所有其他图形类型区分开来,则可以使用Docupoint Discovery(www.Docupoint.com)查找它们
…首先。。。

dubb 发表于 2005-6-30 15:38:04

你能很容易地把所有的细节组织成文件夹吗?我只是按照你的要求做了,我打印出了我们所有的每一个细节,大约5000份,并且我把每份打印的名字和地点写在纸上。VBA和一个剧本,加上一点口齿不清

dubb 发表于 2005-6-30 16:50:38


你刚刚打印了5000个细节?你做得有多快?我没有5000个,但细节分布在文件夹中,有些在多个边界上的一个绘图中布局。所以我基本上必须分离所有细节。一旦我们剔除不需要的细节并设置新的典型细节......我仍然必须对所有这些实施分层标准......
如何将每个都阻塞...
但然后我必须回去打印它们...
好的......好吧,我得回到细节......谢谢回复...... brb...

dubb 发表于 2005-6-30 16:52:53

我写了代码,屏蔽并打印了每一个。这仍然是一个手动过程,但速度很快

TimSpangler 发表于 2005-6-30 17:22:51

处理所有细节大约需要16-20个小时。
这里也一样,多张纸,多种布局
我们把它们都打印出来,然后组织起来,然后剔除,这也可以通过使用VBA中的过滤器自动完成
这就是我的代码所做的

dubb 发表于 2005-6-30 17:24:25

你的日常工作到底是做什么的?你介意分享吗?

TimSpangler 发表于 2005-6-30 17:28:23

我一点也不介意分享,这就是为什么我们在这里闲逛。 brb

M-dub 发表于 2005-6-30 17:29:02

代码跟随,在以下帖子中解释
Option Explicit
Dim N As Integer, dwgn As Integer, intCount As Integer
Dim WBL As AcadSelectionSet
Dim pt1 As Variant, pt2 As Variant
Dim dblPT1(1) As Double, dblPT2(1) As Double
Dim strFilename As String
Private Sub UserForm_Initialize()
TextBox1.Value = "Enter 1st Dwg#"
TextBox1.SetFocus
TextBox1.SelStart = 0
TextBox1.SelLength = TextBox1.TextLength
CommandButton1.Enabled = False
CommandButton2.Enabled = False
If ThisDrawing.SelectionSets.Count > 0 Then
    For N = 0 To ThisDrawing.SelectionSets.Count - 1
      If ThisDrawing.SelectionSets.Item(N).Name = "WBL" Then
      ThisDrawing.SelectionSets("WBL").Delete
      End If
    Next N
End If
End Sub
Private Sub CommandButton1_Click()
Me.Hide
With ThisDrawing.Utility
.InitializeUserInput 1
pt1 = .GetPoint(, vbCr & "Pick First Corner: ")
.InitializeUserInput 1 ' or 1 for Window 33 for Crossing
pt2 = .GetCorner(pt1, "Pick Other Corner: ")
If ThisDrawing.SelectionSets.Count > 0 Then
    For N = 0 To ThisDrawing.SelectionSets.Count - 1
      If ThisDrawing.SelectionSets.Item(N).Name = "WBL" Then
      ThisDrawing.SelectionSets("WBL").Delete
      End If
    Next N
End If
Set WBL = ThisDrawing.SelectionSets.Add("WBL")
WBL.Select acSelectionSetWindow, pt1, pt2
End With
WBL.Highlight True
CommandButton2.Enabled = True
Me.Show
End Sub
Private Sub CommandButton2_Click()
Dim hgt As Double
strFilename = "c:\details\DTL" & TextBox1.Value
For intCount = 0 To 1
dblPT1(intCount) = CDbl(pt1(intCount))
dblPT2(intCount) = CDbl(pt2(intCount))
Next intCount
hgt = (dblPT2(1) - dblPT1(1)) * 0.03
ThisDrawing.ModelSpace.AddText strFilename, pt1, hgt
ThisDrawing.Regen acActiveViewport
ThisDrawing.ActiveLayout.SetWindowToPlot dblPT1, dblPT2
ThisDrawing.WBlock strFilename, WBL
DetailDwf (strFilename)
WBL.Highlight False
WBL.Erase
WBL.Delete
ThisDrawing.Regen acAllViewports
'textbox1.value = textbox1.value 1+
TextBox1.Value = ThisDrawing.Utility.DistanceToReal(TextBox1.Value, acDecimal) + 1
End Sub
Private Sub CommandButton3_Click()
Unload Me
End Sub
Private Sub TextBox1_Change()
CommandButton1.Enabled = True
End Sub
页: [1] 2
查看完整版本: 数以百万计的细节