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

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非常陌生，所以我应该在哪里/如何将这一点融入其中。此外，基于图层创建组的选项是否可行？我们讨论的复杂程度如何？谢谢各位

Eloquintet · 发表于 2006-12-22 13:06:07

o是的，顺便说一句，matt我只创建了所有图层作为正在绘制的内容与代码中的内容之间的标识符，以便我可以将部分“组合”在一起。我现在已经将其缩小到shade1，shade2，fascia和尺寸层，涵盖了所有内容。

Bryco · 发表于 2006-12-22 13:10:50

丹，我看了图纸，我找不到你想要的阴影数字之间的关系。
中心线总是在阴影1或阴影2上吗？
您有连续的图纸1至28，但似乎没有一层与图纸编号相对应。
红线似乎与卷的直径有关，但是顶部和底部的红线似乎有不同的数字。

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

发表回复

精选推荐