我需要帮助修改现有的例程

Eloquintet · 发表于 2006-12-21 13:29:28

我们使用下面发布的vba例程来绘制基于截面的反射视图。到目前为止，每条线都放在零层上，但我一直试图将层融入其中。现在我在shade1图层上有一个单一的shade集合，在shade2图层上有一个双重shade集合中的第二个shade的线条。我也有项目的筋膜层和dims的尺寸层。我通过浏览代码将这些项目组合在一起，并按照阴影1、阴影2等顺序对图层进行编号。然后我画了不同的场景，用我在这里得到的一个程序来标记每条线放在哪个图层上，我把它们放在正确的图层上。我还有几条线，它们的图层还没有分配，但是已经很完整了。我想向每个人展示我一直在做什么，也许这将解释为什么我一直在寻找所有这些层lisps。我的老板经常使用团队，特别是当我们做复杂的装配时，所以我想知道如何将这种选择融入到日常工作中。我希望能够在对话中选择这一选项，因为有些人可能喜欢或不喜欢使用小组，或者大会可能不要求这样做，我不想要不必要的小组。所以我在想，也许可以创建一个shade#组，然后下一个组会增加。我部分地想给大家展示我们的一个自定义例程，并获得关于我们如何改进它的输入/建议。
http://www . the swamp . org/Lilly _ pond/index . PHP？dir = Dan/& file = CRACKED % 20 reflected . dvb

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

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

Eloquintet · 发表于 2006-12-21 13:38:14

哦，是的，我知道我忘记了一些事情。我还想做的一件事是如何以不同的方式创建中心线，以便可以按阴影对中心线进行分组。此外，说明阴影卷的青色线条都在shade1图层上，但有时滚动线也需要显示在第二个阴影组件上，但我希望能够将它们与一个或另一个相关联。这有什么意义吗？

Eloquintet · 发表于 2006-12-21 13:42:43

我看到这是代码中他创建滚动线的部分，但不确定如何为每个阴影组件制作一条？

copy

Private Sub HatchTube(k1, k2 As Variant, Dist As Double, angle As Double)
        Dim i As Single
        Dim delta As Single
        Dim T_line As AcadLine
        Dim K3 As Variant
        Dim k4 As Variant
        Dim sum As Single
        i = 1
        K3 = TDU.PolarPoint(k1, angle, 0#)
        k4 = TDU.PolarPoint(k2, angle, 0#)
        sum = 0#
        
        Do While delta  3 Then i = i + 0.5
        Loop
        
End Sub

Eloquintet · 发表于 2006-12-21 13:45:01

我看到中心线的位，但我如何为每个程序集制作一个

copy

Private Sub DrawCLines(Trans As Variant)
    Dim Cline1(0 To 0) As AcadObject
    
    Dim lclStartPoint As Variant
    Dim lclEndPoint As Variant
    
   
        Set Cline1(0) = ActSpc.AddPolyline(Trans)
        Cline1(0).Layer = "SHADE1"
        Cline1(0).color = acGreen
        Cline1(0).Linetype = "CENTER"
End Sub

Eloquintet · 发表于 2006-12-21 14:14:42

O是的，编写程序的人也打算将注释合并到其中，他在最后开始但从未完成。另一个从未合并的部分放在括号中，这很好，但这些是以后可能会出现的奖金

Bryco · 发表于 2006-12-22 01:14:14

Dan，如果您包含一个dwg来使用dvb，也许会有所帮助。筋膜层，组装等对我来说都是外语，而dvb看起来不太复杂，但很长。
就中心线而言，如果在模块级别上调暗一个整数并为每个程序集递增它，则可以将其放在新层
Cline1（0）上。Layer =thisdrawing.layers.add（“SHADE” & intAssembly）
奇怪的是，即使该层存在，您也可以添加一个层，它不会出错。

Eloquintet · 发表于 2006-12-22 10:54:36

神圣的该死的废话！！！
您的图层都没有设置ByLayer的颜色！！

Eloquintet · 发表于 2006-12-22 11:14:09

哈，是的，我知道马特。想象一下，当我开始在这里工作时，我是多么震惊。他们根本不使用图层，或者是非常有限的。我们只是根据我们想要呈现的方式改变了颜色。我本来想把每个元素放在它自己的图层上，并使其按图层显示颜色，但我的老板没有。出于某种原因，她对图层有问题。我试图反抗，但最终她是老板，所以我能做什么呢。那么，不管怎样，这个例行程序的目的现在有意义了吗？Bryco原谅我，我对VBA非常陌生，所以我应该在哪里/如何将这一点融入其中。此外，基于图层创建组的选项是否可行？我们讨论的复杂程度如何？谢谢各位