明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 1220|回复: 1

SelectOnScreen没有作用

[复制链接]
发表于 2012-10-24 11:39:43 | 显示全部楼层 |阅读模式
初学VBA,想通过建立选择集的方法,将CAD中符合条件(多线段)的图元添加到选择集中,之后再用块对选择集中的元素进行等分,但是程序运行时没有返回CAD界面让用户自行选择,还请各位大神给点指导。
------------------------------------------------------------------------------------------------------------------------------
命令如下:
'选择集多线段(dxd)的设置
  On Error Resume Next
  Dim sset As AcadSelectionSet
  If Not IsNull(ThisDrawing.SelectionSets.Item("dxd")) Then
     Set sset = ThisDrawing.SelectionSets.Item("dxd")
     sset.Delete
  End If
  Set sset = ThisDrawing.SelectionSets.Add("dxd")
  
  Dim FilterType(0 To 2) As Integer
  Dim FilterData(0 To 2) As Variant
  
  '设置过滤器类型
  FilterType(0) = -4
  FilterType(1) = 0
  FilterType(2) = -4
  
  '设置过滤数据
  FilterData(0) = "<or"
  FilterData(1) = "LWPolyline"
  FilterData(2) = "or>"
  
  sset.SelectOnScreen FilterType, FilterData
------------------------------------------------------------------------------------------------------------------
效果是点了绘图之后没有反应,不能自主选择


本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?注册

x
发表于 2012-10-24 11:50:58 | 显示全部楼层
本帖最后由 liuxu042 于 2012-10-24 11:52 编辑

要自己分析一下原因,vba问题不要再这个版面请教呀,这是net版面,
不能自主选择什么意思?模态窗体...还是


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

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-11-25 16:48 , Processed in 0.151671 second(s), 23 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表