乐筑天下

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

先选择后镜像的问题!

[复制链接]

6

主题

14

帖子

1

银币

初来乍到

Rank: 1

铜币
38
发表于 2007-1-12 11:16:00 | 显示全部楼层 |阅读模式
vb6编的程序如下:可是运行总是提示我Mirror有问题:无效的过程调用或参数。我希望是全自动选择后镜像,不需人干预。
    '创建选择集
    Dim ss As AcadSelectionSet, mode As Integer
    Dim Filtertype(0 To 2) As Integer, Filterdata(0 To 1) As Variant, Point1(0 To 2) As Double, Point2(0 To 2) As Double
    Set ss = AcadDoc.SelectionSets.Add("ztLine")
     
    '对象选择
  Point1(0) = -10000: Point1(1) = 10000: Point1(2) = 0
  Point2(0) = 10000: Point2(1) = -10000: Point2(2) = 0
  mode = 5   '0 SelectionSetWindow;1  SelectionSetCrossing; 5 SelectionSetAll;
  Filtertype(0) = 8: Filterdata(0) = "主体"  '8表示图层名
  Filtertype(1) = 0: Filterdata(1) = "line"   '0表示对象类型
  ss.Select mode, Point1, Point2, Filtertype, Filterdata    '选择对象经过过滤后加进新建的选择集中
    '选择两个镜像线的点
    Dim pnt1(0 To 2), pnt2(0 To 2) As Double
    pnt1(0) = 0: pnt1(1) = R: pnt1(2) = 0
    pnt2(0) = 0: pnt2(1) = -R: pnt2(2) = 0
    '进行镜像
    Dim ent As AcadEntity
    If ss.Count > 0 Then
        For Each ent In ss
            ent.Mirror pnt1, pnt2  '无效的过程调用或参数。
        Next
    End If
请问错在哪里?谢谢了。
回复

使用道具 举报

13

主题

396

帖子

5

银币

后起之秀

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

铜币
448
发表于 2007-1-12 12:01:00 | 显示全部楼层
pnt1,pnt2分开定义就对了
Dim pnt1(0 To 2) As Double
Dim pnt2(0 To 2) As Double
回复

使用道具 举报

6

主题

14

帖子

1

银币

初来乍到

Rank: 1

铜币
38
发表于 2007-1-12 15:28:00 | 显示全部楼层
非常感谢
回复

使用道具 举报

发表回复

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

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

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

GMT+8, 2025-7-7 05:39 , Processed in 1.948241 second(s), 58 queries .

© 2020-2025 乐筑天下

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