创建和编辑AutoCAD对象（VBA&python）

最新推荐文章于 2023-10-28 16:54:56 发布
最新推荐文章于 2023-10-28 16:54:56 发布
阅读量5.7k 收藏 74
点赞数 12
分类专栏： python for AutoCAD 文章标签： python
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/weixin_43496130/article/details/105788427
版权

创建python与CAD的连接

import win32com.client
import pythoncom

acad = win32com.client.Dispatch("AutoCAD.Application.19")  
doc = acad.ActiveDocument
doc.Utility.Prompt("Hello! Autocad from pywin32.")
mp = doc.ModelSpace
print(doc.Name)

def vtPnt(x, y, z=0):
    """坐标点转化为浮点数"""
    return win32com.client.VARIANT(pythoncom.VT_ARRAY | pythoncom.VT_R8, (x, y, z))

def vtObj(obj):
    """转化为对象数组"""
    return win32com.client.VARIANT(pythoncom.VT_ARRAY | pythoncom.VT_DISPATCH, obj)

def vtFloat(list):
    """列表转化为浮点数"""
    return win32com.client.VARIANT(pythoncom.VT_ARRAY | pythoncom.VT_R8, list)

def vtInt(list):
    """列表转化为整数"""
    return win32com.client.VARIANT(pythoncom.VT_ARRAY | pythoncom.VT_I2, list)

def vtVariant(list):
    """列表转化为变体"""
    return win32com.client.VARIANT(pythoncom.VT_ARRAY | pythoncom.VT_VARIANT, list)

创建线相关对象

  1. 通过两个点创建直线；AddLine
  2. 由顶点列表创建优化多段线；AddLightweightPolyline
  3. 通过点数组创建多线；AddMLine
  4. 从顶点列表创建多段线；AddPolyline
  5. 创建通过两个唯一点的射线；AddRay
  6. 创建通过两个指定点构造线(无限长线)；AddXline

1. 通过两个点创建直线

RetVal = object.AddLine(StartPoint, EndPoint)

Object

ModelSpace 集合, PaperSpace 集合, Block使用该方法的对象。

StartPoint

Variant[变体] (三元素双精度数组); 仅用于输入指定直线起点的三维WCS坐标。

EndPoint

Variant[变体] (三元素双精度数组); 仅用于输入指定直线终点的三维WCS坐标。

RetVal

Line 对象新创建的 Line 对象。

VBA示例

Sub Example_AddLine()
    ' 该示例在模型空间中添加直线。
    
    Dim lineObj As AcadLine
    Dim startPoint(0 To 2) As Double
    Dim endPoint(0 To 2) As Double
    
    ' 定义直线的起点和终点
    startPoint(0) = 1#: startPoint(1) = 1#: startPoint(2) = 0#
    endPoint(0) = 5#: endPoint(1) = 5#: endPoint(2) = 0#
    
    ' 在模型空间中创建直线
    Set lineObj = ThisDrawing.ModelSpace.AddLine(startPoint, endPoint)
    ZoomAll
    
End Sub

python示例：

startpoint = vtPnt(100, 800)
stoppoint = vtPnt(100, 100)
pointobj = mp.AddLine(startpoint, stoppoint)

2.由顶点列表创建优化多段线

RetVal = object.AddLightweightPolyline(VerticesList)

Object

ModelSpace 集合, PaperSpace 集合, Block使用该方法的对象。

VerticesList

Variant[变体] (双精度数组)指定多段线顶点的二维 OCS 坐标数组。至少需要两点(四个元素)以构成优化多段线。数组大小必须为2的倍数。

RetVal

LightweightPolyline 对象新创建的 LightweightPolyline 对象。

说明

顶点是生成多段线的线段端点。要添加弧段，首先创建全部为直线段的多段线，然后为个别需要变为弧段的线段添加凸度。要为线段添加凸度值，可使用 SetBulge 方法。
多段线的标高将被设置为布局的当前标高。使用 ElevationModelspace 或 ElevationPaperspace 属性可确定多段线的标高。

VBA示例

Sub Example_AddLightWeightPolyline()
    ' 该示例在模型空间中创建优化多段线。
    
    Dim plineObj As AcadLWPolyline
    Dim points(0 To 9) As Double
    
    ' 定义二维多段线顶点
    points(0) = 1: points(1) = 1
    points(2) = 1: points(3) = 2
    points(4) = 2: points(5) = 2
    points(6) = 3: points(7) = 2
    points(8) = 4: points(9) = 4
        
    ' 在模型空间中创建优化多段线对象。
    Set plineObj = ThisDrawing.ModelSpace.AddLightWeightPolyline(points)
    ZoomAll
    
End Sub

python示例

list = [100, 100, 100, 200, 200, 200, 300, 200, 400, 400]
# 由于方法规定的是Double的数据类型，在python中并没有改数据类型，所以需要对其进行数据转换
points = vtFloat(list)
pointobj = mp.AddLightweightPolyline(points)

3.通过点数组创建多线

RetVal = object.AddMLine(VertexList)

Object

ModelSpace 集合, PaperSpace 集合, Block使用该方法的对象。

VertexList

Variant[变体] (双精度数组); 仅用于输入指定多线顶点的三维WCS坐标数组。

RetVal

MLine 对象新创建的 MLine 对象。

VBA示例

Sub Example_AddMLine()
   ' 该示例在模型空间中添加多线。

    Dim mLineObj As AcadMLine
    Dim vertexList(0 To 17) As Double
   
    ' 定义新对象的数据
    vertexList(0) = 4: vertexList(1) = 7: vertexList(2) = 0
    vertexList(3) = 5: vertexList(4) = 7: vertexList(5) = 0
    vertexList(6) = 6: vertexList(7) = 7: vertexList(8) = 0
    vertexList(9) = 4: vertexList(10) = 6: vertexList(11) = 0
    vertexList(12) = 5: vertexList(13) = 6: vertexList(14) = 0
    vertexList(15) = 6: vertexList(16) = 6: vertexList(17) = 6

    ' 在模型空间中创建多线
    Set mLineObj = ThisDrawing.ModelSpace.AddMLine(vertexList)

    ThisDrawing.Application.ZoomAll
    
    MsgBox "已经在当前图形中添加了新的多线对象。"
End Sub

python示例

list = [100, 100, 100, 200, 200, 200, 300, 200, 400]
# 由于方法规定的是Double的数据类型，在python中并没有改数据类型，所以需要对其进行数据转换
points = vtFloat(list)
pointobj = mp.AddMLine(points)

4.从顶点列表创建多段线

RetVal = object.AddPolyline(VerticesList)

Object

ModelSpace 集合, PaperSpace 集合, Block使用该方法的对象。
VerticesList

Variant[变体] (双精度数组); 仅用于输入
用于创建多段线顶点的OCS坐标数组。每一顶点用三个元素表示，前两个元素为OCS的X和Y坐标；而第三个元素为忽略。至少需要两点(六个元素)来构成一个多段线对象。该数组的大小必须为3的倍数。
RetVal

Polyline 对象新创建的 Polyline 对象。

说明

要创建包含圆弧的多段线，首先创建直线段的多段线，然后对特定顶点使用 SetBulge 方法设置凸度。
该方法的存在只用于与旧版本兼容。使用 AddLightweightPolyline 方法可创建优化格式的多段线以节省内存和磁盘空间。
坐标可使用 TranslateCoordinates 方法由OCS坐标与其它坐标系统相互转换。

VBA示例

Sub Example_AddPolyline()
    ' 该示例在模型空间中创建多段线。
    
    Dim plineObj As AcadPolyline
    Dim points(0 To 14) As Double
    
    ' 定义二维多段线顶点
    points(0) = 1: points(1) = 1: points(2) = 0
    points(3) = 1: points(4) = 2: points(5) = 0
    points(6) = 2: points(7) = 2: points(8) = 0
    points(9) = 3: points(10) = 2: points(11) = 0
    points(12) = 4: points(13) = 4: points(14) = 0
        
    ' 在模型空间中创建多段线
    Set plineObj = ThisDrawing.ModelSpace.AddPolyline(points)
    ZoomAll
    
End Sub

python示例

list = [100, 100, 0, 200, 200, 0]
# 由于方法规定的是Double的数据类型，在python中并没有改数据类型，所以需要对其进行数据转换
points = vtFloat(list)
pointobj = mp.AddPolyline(points)

5.创建通过两个唯一点的射线

RetVal = object.AddRay(Point1, Point2)

Object

ModelSpace 集合, PaperSpace 集合, Block使用该方法的对象。

Point1

Variant[变体] (三元素双精度数组); 仅用于输入指定射线有限起点的三维WCS坐标。

Point2

Variant[变体] (三元素双精度数组); 仅用于输入指定射线经过的点的三维WCS坐标。 射线从 Point1 开始，通过 Point2 到无限。

RetVal

Ray 对象新创建的 Ray 对象。

VBA示例

Sub Example_AddRay()
    ' 该示例在模型空间中创建射线。
    
    Dim rayObj As AcadRay
    Dim basePoint(0 To 2) As Double
    Dim SecondPoint(0 To 2) As Double
    
    ' 定义射线
    basePoint(0) = 3#: basePoint(1) = 3#: basePoint(2) = 0#
    SecondPoint(0) = 4#: SecondPoint(1) = 4#: SecondPoint(2) = 0#
    
    ' 在模型空间中创建射线对象
    Set rayObj = ThisDrawing.ModelSpace.AddRay(basePoint, SecondPoint)
    ZoomAll
    
End Sub

python示例

point1 = vtPnt(5, 5, 0)
point2 = vtPnt(10, 10, 0)

RetVal = mp.AddRay(point1, point2)

6.创建通过两个指定点构造线(无限长线)

RetVal = object.AddXline(Point1, Point2)

Object

ModelSpace 集合, PaperSpace 集合, Block使用该方法的对象。

Point1

Variant[变体] (三元素双精度数组); 仅用于输入

Point2

Variant[变体] (三元素双精度数组); 仅用于输入

RetVal

XLine 对象
新创建的 XLine
对象。

VBA示例

Sub Example_AddXLine()
    ' 该示例在模型空间中创建构造线。
    
    Dim xlineObj As AcadXline
    Dim basePoint(0 To 2) As Double
    Dim directionVec(0 To 2) As Double
    
    ' 定义构造线
    basePoint(0) = 2#: basePoint(1) = 2#: basePoint(2) = 0#
    directionVec(0) = 1#: directionVec(1) = 1#: directionVec(2) = 0#
    
    ' 在模型空间中创建构造线
    Set xlineObj = ThisDrawing.ModelSpace.AddXline(basePoint, directionVec)
    ZoomAll
    
End Sub

python示例

point1 = vtPnt(5, 5, 0)
point2 = vtPnt(10, 10, 0)

RetVal = mp.AddXline(point1, point2)

二维平面图形绘制

  1. 画圆弧；AddArc
  2. 绘制圆；AddCircle
  3. 绘制椭圆；AddEllipse

1.画圆弧

RetVal = object.AddArc(Center, Radius, StartAngle, EndAngle)

Object
ModelSpace 集合, PaperSpace 集合, Block使用该方法的对象。
Center

Variant[变体] (三元素双精度数组); 仅用于输入指定圆弧圆心的三维WCS坐标。

Radius
Double[双精度]; 仅用于输入圆弧的半径。

StartAngle, EndAngle

**Double[双精度]; 仅用于输入定义圆弧的起始角和终止角(以弧度表示)。当起始角大于终止角时定义的是逆时针的圆弧。 **

RetVal

Arc 对象新创建的 Arc 对象。

VBA示例

 Sub Example_AddArc()
    ' 该示例在模型空间中创建圆弧。
   
    Dim arcObj
最低0.47元/天 解锁文章
李济雄
关注
  • 12
    点赞
  • 踩
  • 74
    收藏
    觉得还不错? 一键收藏
  • 4
    评论
专栏目录
Python与CAD系列基础篇（四）创建矩形、倒角矩形、圆、椭圆
weixin_43894929的博客
10-12 1913
①通过pyautocad连接AutoCAD进行处理②通过ezdxf处理dxf格式文件。创建和编辑矩形、倒角矩形、圆、椭圆的方法。pyautocad方式。pyautocad方式。pyautocad方式。pyautocad方式。
zhuangji.rar_CAD LISP
09-23
cad程序，绘制桩基，快捷键tt，具体内容详见软件内描述
CAD VBA可批量修改文字的代码,cad可以批量修改文字吗,VBA
09-11
可以批量修改选中的图形内的所有的文字，可以自动进行编号修改
python开发cad插件_Python零基础入门到年薪二十万-2.2节: 选择VS Code作为开发工具...
weixin_39629780的博客
11-20 695
教程引言：该系列图文课程以及视频课程全部免费。课程会系统地讲解计算机的基础知识，Python的基础知识。 在讲解Python的高级知识中，会系统地讲解面向对象编程，并发编程，数据库编程，网络编程。 在项目实战中会讲解搜索引擎，web开发，微信小程序开发，网络爬虫等项目。本教程通俗易懂，面向的是零编程基础的同学，非科班人士，以及有一定编程水平的中高级程序员。2.2.1 VS Code简介VS Cod...
关于python操作cad的2021-06-18
m0_46490988的博客
06-18 2495
之前写了“”关于python通过pyautocad操作cad的2021-06-10
Python与CAD系列基础篇（十二）执行CAD命令
最新发布
weixin_43894929的博客
10-28 2742
SendCommand方法是pyautocad库中的一个函数，用于向AutoCAD发送命令。通过调用该方法，我们可以在Python脚本中模拟人工键盘输入的方式向AutoCAD发送各种CAD命令，实现自动化操作。SendCommand方法的语法如下：command：需要发送给AutoCAD的命令字符串。返回值：返回一个字符串，表示AutoCAD命令的执行结果。
AutoCAD对象模型笔记（一）（vba）
wuxingren888的博客
01-12 2462
autocad对象模型及属性方法 Application 应用程序 Preferences Documents 图形文档集合 Document 图形文档对象 Class Name ：AcadDocument 方法 Activate 活动 AuditInfo 检查图纸完整性 Close 关闭文档 CopyObjects 复制多个对象（深度克隆）。 EndUndoMark 标记操作块的结束 Export 导出 GetVariable 获取AutoCAD系统变量的当前设
AutoCAD VBA&VB;.NET开发基础与实例教程
01-05
.NET开发基础与实例教程代码，主要内容包括AutoCAD .NET API介绍、使用AutoCAD .NET API控制AutoCAD工作环境、创建及编辑AutoCAD实体、创建和编辑尺寸标注、3D图形处理、定义打印布局、打印输出、处理AutoCAD事件，...
AutoCAD+VBA＆VB.NET开发基础与实例教程(VB.net版)pdf
10-16
AutoCAD+VBA＆VB.NET开发基础与实例教程(VB.net版)pdf下载地址，一本不可多得的好教材
AutoCAD VBA & VB.NET开发实例代码，非常完整，很棒很棒，拥有这套文档，足够掌握cad的开发了
12-29
AutoCAD VBA & VB.NET开发实例代码，非常完整，很棒很棒，拥有这套文档，足够掌握cad的开发了
CAD_VBA可自动修改CAD文字.txt
06-10
此VBA程序可以批修改CAD中的文字，例如选中区域内的所有文字中某一字符，可对文字中数字进行自动编号等修改。
AutoCAD VBA 坐标标注代码
09-25
AutoCAD VBA 坐标标注代码，加载即可使用
AutoCAD VBA&VB;.NET开发基础与实例教程C#版 教材pdf
09-09
AutoCAD VBA&VB;.NET开发基础与实例教程 pdf版教材pdf版教材
AutoCAD VBA & VB.net 开发基础与实例教程 随书光盘
02-07
AutoCAD VBA & VB.net 开发基础与实例教程 随书光盘 是光盘，我有书，等论文写完了有时间把书扫描下
python开发AutoCAD- -80行代码轴类小零件自动绘制
Lao_ku_ku的博客
09-20 3016
python开发AutoCAD- -80行代码轴类小零件自动绘制 介绍 这个小模块，是用python编写的，利用的是pyautocad模块，最近才安装的，对具体的功能 不是特别了解。看了一下这个模块的api的码，发现方法比较少，看了一下只会，最简单的插入点，绘制线段。下面是具体的代码。O(∩_∩)O哈哈~ 代码 # -*- coding: utf-8 -*- ''' 本模块功能：输出简易的轴类零...
python 实例 cadu_求CAD实例
weixin_39635084的博客
12-10 223
展开全部CAD制图主要是要学会工具的32313133353236313431303231363533e4b893e5b19e31333239303864使用及如何看图，我这里有一些资料供你参考：你也可以到机械CAD网去下载 衷心祝你学CAD有成随州市计算机学校教学大纲：第一节讲到CAD软件的简介及各种绘图区及命令窗界面的介绍第二节讲到部分绘图工具的直线、构造线、多段线、偏移、正方形等的使用...
在AutoCAD中使用Python——Through the Interface
热门推荐
CCの技术宅
07-26 1万+
原文：Using IronPython with AutoCAD 我已经使用过Python一段时间了，现在随着IronPython2.0的发布（现在为2.7.4版，CC注）似乎已经到了开始尝试应用到AutoCAD中的时候了~ 为什么要用Python？我的团队的许多人——包括Jeremy Tammik和一些支持在Maya和MotionBuilder中应用Python的媒体及娱乐工作组的同事——都
python 操作auto cad
weixin_42592399的博客
02-15 865
Python可以通过COM(Component Object Model)自动化操作AutoCAD。COM是一种微软开发的技术，允许应用程序通过COM接口调用其他程序的对象。AutoCAD也提供了COM接口，允许使用Python编写脚本来自动化执行AutoCAD中的任务。 以下是一个简单的Python示例，展示如何使用COM接口来打开AutoCAD并在其中创建一个新的绘图文件： import wi...
Python与CAD系列基础篇（六）创建块
weixin_43894929的博客
10-15 2037
①通过pyautocad连接AutoCAD进行处理②通过ezdxf处理dxf格式文件。创建和编辑块的方法。
autocad activex二次开发技术pdf
06-07
AutoCAD ActiveX二次开发技术是一种实现通过编程来扩展AutoCAD软件功能的方法。ActiveX是一种Microsoft开发的软件组件技术，允许开发人员使用编程语言来访问和修改AutoCAD软件中的对象，并实现对其进行操作和控制。此技术能够为AutoCAD软件的用户和企业提供更加丰富和精准的功能实现服务。 AutoCAD ActiveX二次开发技术可以用于许多场景，如快速创建自定义工具栏、实现自动批量处理图形数据、自动加工、自动拼图、自动生成CAD标准图框等等。使用ActiveX二次开发技术，可以通过Python、C#、VBA等编程语言对AutoCAD对象进行控制，使得AutoCAD工具的自动化程度更加高效、更加智能。此技术能够显著提升AutoCAD软件的使用效率和功能实现。 对于开发人员来说，AutoCAD ActiveX二次开发技术pdf提供了基础学习、高级编程、常用组件控件、进阶开发技巧等方面的详细教程。在使用此技术时，我们需注意少数属性和方法需求AutoCAD对象先选择状态下才可以正常访问，而此处选择状态是指是为AutoCAD图形中的某个对象选择状态。所以我们必须要了解AutoCAD对象选择的基本方法。细心掌握此技术并结合自己的实际需求进行编写，我们就可以轻松实现更强大的AutoCAD扩展功能和应用程序的开发。

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论 4
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值