乐筑天下

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

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

[复制链接]
Eloquintet

48

主题

277

帖子

5

银币

后起之秀

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

铜币
481
发表于 2006-12-23 12:41:23 | 显示全部楼层
丹，我看了图纸，我可以#039；t找到所需阴影数的关系
中心线总是在阴影1还是2上
您有连续的图形1到28，但似乎没有一个图层对应于图形编号
红线似乎与轧辊直径有关，但顶部红线和底部红线似乎有不同的数字。
回复

使用道具 举报

Bryco

170

主题

1424

帖子

8

银币

顶梁支柱

Rank: 50Rank: 50

铜币
2119
发表于 2006-12-24 13:12:17 | 显示全部楼层
好的，我明白了，我需要再解释一下。我上传的图纸包含2-1/2”的不同场景；迪亚。我相信是管子。第一组包含使用从对话框右上角选取的自定义冲压的部件。然后我做了一个空闲端，一个中心支撑，然后每个驱动端的细节。然后我做了一个包含一些附件的绘图，比如面板/瓷砖支架。然后，我为双阴影组件绘制了相同的空闲中心和驱动器细节。然后，我重复这个过程，手动冲压电子1/2，然后是电子延伸冲压。我还有几张画再画几张图，上面有其他管子的场景，但遵循相同的逻辑。这有什么意义吗？如果我有一个双阴影组件，一个中心线将位于shade1层，另一个位于shade2层。青色卷线也是如此。让我知道这对任何人来说是否有意义，因为我整天都在画这些东西，所以这些术语对我来说很熟悉。
回复

使用道具 举报

Bryco

170

主题

1424

帖子

8

银币

顶梁支柱

Rank: 50Rank: 50

铜币
2119
发表于 2006-12-24 16:48:50 | 显示全部楼层
第一次变更；DrawCLines子元素包含一个提供层名称的字符串参数 
  1. Private Sub DrawCLines(Trans As Variant, sLayer As String)

  2.     Dim Cline1(0 To 0) As AcadObject

  3.     Dim lclStartPoint As Variant

  4.     Dim lclEndPoint As Variant

  5.        

  6.     Set Cline1(0) = ActSpc.AddPolyline(Trans)

  7.     Cline1(0).Layer = sLayer

  8.     Cline1(0).color = acGreen

  9.     Cline1(0).Linetype = "CENTER"

  10.     

  11. End Sub
然后使用Find查找所有出现的drawcline，并添加其中一个；阴影1“；或；阴影2“；在适当的情况下
  1. If ThisDrawing.IsSingleShade Then

  2.             If ThisDrawing.IsCS Then  ' center support single shade

  3.                 Translate(0) = CLP1(0)

  4.                 Translate(1) = CLP1(1)

  5.                 Translate(2) = CLP1(2)

  6.                 Translate(3) = CLP3(0)

  7.                 Translate(4) = CLP3(1)

  8.                 Translate(5) = CLP3(2)

  9.                 

  10.                 DrawCLines Translate, "Shade1"

  11.                 

  12.                 

  13.                 Translate(0) = CLP2(0)

  14.                 Translate(1) = CLP2(1)

  15.                 Translate(2) = CLP2(2)

  16.                 Translate(3) = CLP3(0)

  17.                 Translate(4) = CLP3(1)

  18.                 Translate(5) = CLP3(2)

  19.                 

  20.                 DrawCLines Translate, "Shade1"

  21.                  

  22.                 

  23.                 

  24.                 

  25.             Else                        ' end condition single shade

  26.                 Translate(0) = CLP1(0)

  27.                 Translate(1) = CLP1(1)

  28.                 Translate(2) = CLP1(2)

  29.                 Translate(3) = CLP2(0)

  30.                 Translate(4) = CLP2(1)

  31.                 Translate(5) = CLP2(2)

  32.                 

  33.                 DrawCLines Translate, "Shade1"

  34.                  

  35.             

  36.             End If

  37.    

  38.    Else

  39.             If ThisDrawing.IsCS Then    ' center support double shade

  40.         

  41.                 Translate(0) = CLP1(0)

  42.                 Translate(1) = CLP1(1)

  43.                 Translate(2) = CLP1(2)

  44.                 Translate(3) = CLP3(0)

  45.                 Translate(4) = CLP3(1)

  46.                 Translate(5) = CLP3(2)

  47.                 

  48.                 DrawCLines Translate, "Shade1"

  49.                 

  50.                 

  51.                 Translate(0) = CLP2(0)

  52.                 Translate(1) = CLP2(1)

  53.                 Translate(2) = CLP2(2)

  54.                 Translate(3) = CLP3(0)

  55.                 Translate(4) = CLP3(1)

  56.                 Translate(5) = CLP3(2)

  57.                 

  58.                 DrawCLines Translate, "Shade1"

  59.                  

  60.                  

  61.                 Translate(0) = CLP4(0)

  62.                 Translate(1) = CLP4(1)

  63.                 Translate(2) = CLP4(2)

  64.                 Translate(3) = CLP6(0)

  65.                 Translate(4) = CLP6(1)

  66.                 Translate(5) = CLP6(2)

  67.                 

  68.                 DrawCLines Translate, "Shade2"

  69.                 

  70.                 

  71.                 Translate(0) = CLP5(0)

  72.                 Translate(1) = CLP5(1)

  73.                 Translate(2) = CLP5(2)

  74.                 Translate(3) = CLP6(0)

  75.                 Translate(4) = CLP6(1)

  76.                 Translate(5) = CLP6(2)

  77.                 

  78.                 DrawCLines Translate, "Shade2"

  79.             

  80.             Else                        '   end condition double shade

  81.             code]
回复

使用道具 举报

Eloquintet

48

主题

277

帖子

5

银币

后起之秀

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

铜币
481
发表于 2006-12-24 17:32:35 | 显示全部楼层
我只讨厌2dPolylines，所显示的代码并不是对vba的很好介绍
如果一个人正在制作大量的极化点，那么它们也可以直接传递；而不是在代码上加倍
  1. Dim Ang As Double

  2. Ang = MainAngle - (Pi / 2)

  3. CLP1 = TDU.PolarPoint(M1, Ang, D1)

  4. CLP2 = TDU.PolarPoint(M2, Ang, D1)

  5. CLP3 = TDU.PolarPoint(M3, Ang, D1)

  6. CLP4 = TDU.PolarPoint(M1, Ang, D2)

  7. CLP5 = TDU.PolarPoint(M2, Ang, D2)

  8. CLP6 = TDU.PolarPoint(M3, Ang, D2)

  9. If ThisDrawing.IsSingleShade Then

  10.     If ThisDrawing.IsCS Then  ' center support single shade

  11.         DrawCLines CLP1, CLP3, "Shade1"

  12.         DrawCLines CLP2, CLP3, "Shade1"

  13.     Else                        ' end condition single shade

  14.         DrawCLines CLP1, CLP2, "Shade1"

  15.     End If

  16. Else

  17.     If ThisDrawing.IsCS Then    ' center support double shade

  18.         DrawCLines CLP1, CLP3, "Shade1"

  19.         DrawCLines CLP2, CLP3, "Shade1"

  20.         DrawCLines CLP4, CLP6, "Shade2"

  21.         DrawCLines CLP5, CLP6, "Shade2"

  22.     Else                        '   end condition double shade

  23.         DrawCLines CLP1, CLP6, "Shade1"

  24.         DrawCLines CLP4, CLP5, "Shade2"

  25.     End If

  26. End If

  27. Private Sub DrawCLines(StartPoint As Variant, EndPoint As Variant, sLayer As String)

  28.     Dim Cline1  As AcadLWPolyline

  29.     Dim Pts(3) As Double

  30.     Pts(0) = StartPoint(0): Pts(1) = StartPoint(1)

  31.     Pts(2) = EndPoint(0): Pts(3) = EndPoint(1)

  32.     Set Cline1 = ThisDrawing.ModelSpace.AddLightWeightPolyline(Pts)

  33.     Cline1.Layer = sLayer

  34.     Cline1.color = acGreen

  35.     Cline1.Linetype = "CENTER"

  36.     

  37. End Sub
回复

使用道具 举报

Bryco

170

主题

1424

帖子

8

银币

顶梁支柱

Rank: 50Rank: 50

铜币
2119
发表于 2006-12-26 09:46:56 | 显示全部楼层
Bryco首先感谢你的帮助。我加入了新的sub并添加了翻译。当我现在运行它时，在我选择了我的点之后，我得到了一个执行错误。我没有包括你第二篇文章中的代码，因为我认为这更像是对应该如何完成的建议，对吗
回复

使用道具 举报

12
返回列表 发帖

发表回复

高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

精选推荐

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

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

GMT+8, 2025-7-7 04:54 , Processed in 3.383345 second(s), 60 queries .

© 2020-2025 乐筑天下

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