vba块添加元素，请教大佬

翔云95

1. Sub CreateBlockFromLines()
   
2.     Dim acadDoc As AcadDocument
   
3.     Dim selSet As AcadSelectionSet
   
4.     Dim ent1 As AcadLine, ent2 As AcadLine
   
5.     Dim blockName As String
   
6.     Dim insertionPt(2) As Double
   
7. 
   
8.    
   
9.      ' 获取 AutoCAD 应用程序和文档
   
10.     Set acadApp = GetObject(, "AutoCAD.Application")
    
11.     Set acadDoc = acadApp.ActiveDocument
    
12.     Set AcadModelSpace = acadDoc.ModelSpace
    
13.    
    
14.     ' 定义第一条直线的起点和终点
    
15.     Dim startPoint1(0 To 2) As Double
    
16.     Dim endPoint1(0 To 2) As Double
    
17.     startPoint1(0) = 0: startPoint1(1) = 0: startPoint1(2) = 0
    
18.     endPoint1(0) = 100: endPoint1(1) = 65: endPoint1(2) = 0
    
19.    
    
20.     ' 定义第二条直线的起点和终点
    
21.     Dim startPoint2(0 To 2) As Double
    
22.     Dim endPoint2(0 To 2) As Double
    
23.     startPoint2(0) = 150: startPoint2(1) = -50: startPoint2(2) = 0
    
24.     endPoint2(0) = 100: endPoint2(1) = -100: endPoint2(2) = 0
    
25.    
    
26.     ' 创建第一条直线
    
27.     Set line1 = AcadModelSpace.AddLine(startPoint1, endPoint1)
    
28.     line1.Layer = "0"
    
29.     line1.color = 2  ' 黄色
    
30.    
    
31.     ' 创建第二条直线
    
32.     Set line2 = AcadModelSpace.AddLine(startPoint2, endPoint2)
    
33.     line2.Layer = "0"
    
34.     line2.color = 3  ' 绿色
    
35.    
    
36.    
    
37.    
    
38.     ' 设置块名和插入点（以第一条直线的起点为插入点）
    
39.     blockName = "blk-7"
    
40.     insertionPt(0) = 0
    
41.     insertionPt(1) = 0
    
42.     insertionPt(2) = 0  ' Z轴坐标
    
43.    
    
44.     ' 创建块定义
    
45.     Dim block As AcadBlock
    
46.     Set block = acadDoc.Blocks.Add(insertionPt, blockName)
    
47.    
    
48.     block.AppendEntity line1
    
49.     block.AppendEntity line2
    
50. 
    
51.    
    
52.     ' 刷新显示
    
53.     acadDoc.Regen acActiveViewport
    
54.    
    
55.     MsgBox "块""" & blockName & """创建成功！", vbInformation
    
56. End Sub

Sub CreateBlockFromLines()<br />     Dim acadDoc As AcadDocument<br />     Dim selSet As AcadSelectionSet<br />     Dim ent1 As AcadLine, ent2 As AcadLine<br />     Dim blockName As String<br />     Dim insertionPt(2) As Double<br /> <br />     <br />      ' 获取 <a href="http://bbs.mjtd.com/forum-41-1.html" target="_blank" class="relatedlink">AutoCAD</a> 应用程序和文档<br />     Set acadApp = GetObject(, "AutoCAD.Application")<br />     Set acadDoc = acadApp.ActiveDocument<br />     Set AcadModelSpace = acadDoc.ModelSpace<br />     <br />     ' 定义第一条直线的起点和终点<br />     Dim startPoint1(0 To 2) As Double<br />     Dim endPoint1(0 To 2) As Double<br />     startPoint1(0) = 0: startPoint1(1) = 0: startPoint1(2) = 0<br />     endPoint1(0) = 100: endPoint1(1) = 65: endPoint1(2) = 0<br />     <br />     ' 定义第二条直线的起点和终点<br />     Dim startPoint2(0 To 2) As Double<br />     Dim endPoint2(0 To 2) As Double<br />     startPoint2(0) = 150: startPoint2(1) = -50: startPoint2(2) = 0<br />     endPoint2(0) = 100: endPoint2(1) = -100: endPoint2(2) = 0<br />     <br />     ' 创建第一条直线<br />     Set line1 = AcadModelSpace.AddLine(startPoint1, endPoint1)<br />     line1.Layer = "0"<br />     line1.color = 2  ' 黄色<br />     <br />     ' 创建第二条直线<br />     Set line2 = AcadModelSpace.AddLine(startPoint2, endPoint2)<br />     line2.Layer = "0"<br />     line2.color = 3  ' 绿色<br />     <br />    <br />     <br />     ' 设置块名和插入点（以第一条直线的起点为插入点）<br />     blockName = "blk-7"<br />     insertionPt(0) = 0<br />     insertionPt(1) = 0<br />     insertionPt(2) = 0  ' Z轴坐标<br />     <br />     ' 创建块定义<br />     Dim block As AcadBlock<br />     Set block = acadDoc.Blocks.Add(insertionPt, blockName)<br />     <br />     block.AppendEntity line1<br />     block.AppendEntity line2<br /> <br />     <br />     ' 刷新显示<br />     acadDoc.Regen acActiveViewport<br />     <br />     MsgBox "块""" & blockName & """创建成功！", vbInformation<br /> End Sub

block.AppendEntity line1
这行报错 .AppendEntity无法识别。什么原因？ 谢谢

kozmosovia

明显又拿AI臆造的代码来训练人了

翔云95

请问 有懂的大佬吗?   如何块添加元素？

你有种再说一遍

要不换个语言,去用C#,然后看IFox.
https://gitee.com/inspirefunction/ifoxcad

翔云95

你有种再说一遍 发表于 2025-5-24 15:45
要不换个语言,去用C#,然后看IFox.
https://gitee.com/inspirefunction/ifoxcad

大佬威武     
多谢多谢

我是弄个上下班 电动自行车，，大佬这个50座大巴 我也开不了哈

你有种再说一遍

翔云95 发表于 2025-5-24 16:06
大佬威武     
多谢多谢

差不多的,顶多是你转去vb.net看API是一模一样的

翔云95

vba给块添加实体，是否只能 Block.addline()  addxxx..()这种？

已经存在的实体或选择集 ，没法添加到块？

你有种再说一遍

翔云95 发表于 2025-5-24 16:11
vba给块添加实体，是否只能 Block.addline()  addxxx..()这种？

已经存在的实体或选择集 ，没法添加到块 ...

教程写好了,代码写好了...
这个东西不简单的,
首先你要克隆全部图元,然后基变换,然后处理属性和注释性...
如果觉得困难你就调用command得了
https://gitee.com/inspirefunctio ... Shared/TestBlock.cs

翔云95

你有种再说一遍 发表于 2025-5-24 16:24
教程写好了,代码写好了...
这个东西不简单的,
首先你要克隆全部图元,然后基变换,然后处理属性和注释性. ...

多谢大咖
学习一下。不知道能不能看懂