27、AutoCAD绘图对象操作与图层管理

最新推荐文章于 2025-11-22 10:37:09 发布

emacs5lisp

最新推荐文章于 2025-11-22 10:37:09 发布

阅读量6

点赞数

CC 4.0 BY-SA版权

分类专栏：掌握AutoCAD VBA编程文章标签： AutoCAD 绘图对象移动图层管理

本文链接：https://blog.youkuaiyun.com/emacs5lisp/article/details/155259744

掌握AutoCAD VBA编程专栏收录该内容

34 篇文章 ¥499.90

订阅专栏¥69.90

会员秒杀 ¥9.9 重磅福利

超级会员免费看

AutoCAD绘图对象操作与图层管理

1. 绘图对象移动

1.1 移动方法概述

在AutoCAD中，可以使用绘图对象的 Move 方法在模型空间中移动对象。该方法有两个参数，用于定义移动的方向向量，此向量不仅决定了移动方向，还决定了移动的距离。以下是使用 Move 方法移动绘图对象的示例代码：

Const pi = 3.14
Const NumberOfMoves = 200
Dim ShapeObject As AcadShape

Public Sub GetShapeFromFile()
    Dim InsertionPoint(0 To 2) As Double
    ThisDrawing.LoadShapeFile ("C:/Program Files/ACAD2000/Support/ltypeshp.shx")
    InsertionPoint(0) = 1#
    InsertionPoint(1) = 1#
    InsertionPoint(2) = 0#
    Set ShapeObject = ThisDrawing.ModelSpace.AddShape ("box", InsertionPoint, 2#, pi / 2#)
    ShapeObject.Update
    ZoomAll
    MoveShape
End Sub

Public Sub MoveShape()
    'moves a shape from a to b in one or more steps
    Dim StartPo