乐筑天下

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

[编程交流] sendcommand“draworder”指令

[复制链接]

1

主题

2

帖子

1

银币

初来乍到

Rank: 1

铜币
5
发表于 2022-7-6 22:39:57 | 显示全部楼层 |阅读模式
我有一个很好的代码来突出代码中命名的层(acadselectionset)。
 
我不想突出显示它们,而是想知道是否有可能使用sendcommand方法对命名层执行诸如擦除或draworder之类的操作。
 
这是原始代码:
 
  1. Public Sub highlighttest()
  2.   Dim tSelSet As
  3. AcadSelectionSet
  4.   Set tSelSet =
  5. getSelSetByLayer("Layer1,Layer2,Layer3,Layer4")
  6.   If tSelSet Is
  7. Nothing Then
  8.      MsgBox ("No
  9. Selectionset")
  10.   ElseIf tSelSet.Count = 0
  11. Then
  12.      MsgBox ("No objects found on
  13. Layers")
  14.   Else
  15.      Dim tEnt As
  16. AcadEntity
  17.      For Each tEnt In
  18. tSelSet
  19.         Select Case
  20. UCase(tEnt.Layer)
  21.            
  22. Case "LAYER1",
  23. "LAYER2"
  24.               
  25. tEnt.Highlight
  26. (True)
  27.            
  28. Case "LAYER3",
  29. "LAYER4"
  30.               
  31. tEnt.Highlight (False)
  32.         End
  33. Select
  34.      Next
  35.   End If
  36. End
  37. Sub
  38. Private Function getSelSetByLayer(ByVal LayerName As String) As
  39. AcadSelectionSet
  40.   Dim tRetVal As AcadSelectionSet
  41.   
  42. On Error Resume Next
  43.   'create selectionset
  44.   Set
  45. tRetVal = ThisDrawing.SelectionSets.Add("mySelSet")
  46.   If tRetVal
  47. Is Nothing Then Set tRetVal =
  48. ThisDrawing.SelectionSets.Item("mySelSet")
  49.   'create filter for
  50. selection
  51.   Dim tDxfCodes(0) As Integer: tDxfCodes(0) =
  52. 8     '8=dxfcode for "layername"
  53.   Dim
  54. tDxfValues(0) As Variant: tDxfValues(0) = LayerName
  55.   
  56. 'select
  57.   tRetVal.Clear
  58.   Call
  59. tRetVal.Select(acSelectionSetAll, , , tDxfCodes, tDxfValues)
  60.   
  61. 'return
  62.   Set getSelSetByLayer = tRetVal
  63. End Function

 
thanx gr.Laszlo
回复

使用道具 举报

4

主题

2143

帖子

2197

银币

限制会员

铜币
-24
发表于 2022-7-6 23:05:54 | 显示全部楼层
请阅读代码发布指南。
 
然后编辑你的帖子。谢谢
回复

使用道具 举报

1

主题

2

帖子

1

银币

初来乍到

Rank: 1

铜币
5
发表于 2022-7-6 23:36:43 | 显示全部楼层
SLW210,
很抱歉我已经编辑了原始帖子。现在我希望有人能帮助我。
 
拉兹洛先生
回复

使用道具 举报

4

主题

2143

帖子

2197

银币

限制会员

铜币
-24
发表于 2022-7-6 23:56:39 | 显示全部楼层
谢谢你,lanieuwe。
回复

使用道具 举报

发表回复

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

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

GMT+8, 2025-1-31 20:38 , Processed in 0.172792 second(s), 60 queries .

© 2020-2025 乐筑天下

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