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

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

我们使用下面发布的vba例程根据截面绘制反射视图。直到现在，每一行都被放在零层上，但我一直在尝试将层合并到其中。现在，我在shade1层上有一个单阴影组件，在shade2层上的双阴影组件中有第二个阴影的线条。我在封檐带层上也有项目，在尺寸层上有dims。我通过查看代码并按照shade1 shade 2等顺序对层进行编号，将项目分组在一起。然后我绘制了不同的场景，并使用我在这里得到的例程标记每行放在哪个层上，我将它们放在正确的层上。我仍然有一些行的层我还没有分配，但它是相当完整的。我想告诉大家我一直在做什么，也许这可以解释为什么我一直在寻找这些层口齿不清。我的老板经常使用组，特别是当我们进行复杂的装配时，所以我想知道如何将这个选项融入到日常工作中。我希望能够在对话中选择这一选项，因为有些人可能喜欢或不喜欢使用团体，或者大会可能不需要它，而我不&35;039；我不想要不必要的团体。所以我想它可能会创建一个阴影组，然后下一个会增加。我部分地想向大家展示我们的一个自定义例程，并获取关于如何改进它的输入/建议http://www.theswamp.org/lilly_pond/index.php?dir=dan/&文件=开裂%20反射。数字视频广播

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

是的，写这个程序的人打算把笔记也写进去，他在最后开始了，但一直没有完成。另一个从来没有被纳入的部分是放在括号里，这将是很好的，但这些是奖金，可能会在以后

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

丹，如果你能提供一个使用dvb的dwg，也许会有所帮助。面板层、组件等对我来说都是外语，而dvb看起来并不太复杂，但很冗长
就中心线而言，如果在模块级别上调暗一个整数，并为每个组件增加该整数，则可以将其放置在新层1（0）。图层=thisdrawing.layers。添加（“SHADE”intAssembly）
奇怪的是，即使层存在，也可以添加一个层；t出错。

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

感谢Bryco附件是我们对该计划所做的示例。在左侧，您将看到着色部件的剖面视图。基本上，它根据用户输入绘制各种部件的反射视图。我用这张图来标记不同的线/层，这样我就可以在给定的层上放置子部件
http://www.theswamp.org/lilly_pond/index.php?dir=dan/&文件=反射的%20个示例。图纸

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

神圣的怪物&#039；废话
没有一个图层的颜色是按图层设置的！！

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

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

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

o是的，顺便说一句，matt我只创建了所有层作为正在绘制的内容与代码中的内容之间的标识符，这样我就可以；“组”；零件在一起。现在，我已经将其缩小到一个shade1、shade2、封檐带和维度层，该层覆盖了所有内容。

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

发表回复

精选推荐