非常基本的VBA

skipsophrenic · 发表于 2022-7-6 15:53:59

太棒了这就是我需要学习的两种编程语言！
哈哈，哦，没有知识就是浪费知识

gazzalp · 发表于 2022-7-6 15:56:54

是的，我知道你的意思。我看了很多教程，有谁知道有一个网站会显示所有autocad命令的基本命令。IE：如何添加线性尺寸，如何添加线条，如何更改颜色，如何更改线型等。当然会有一种方法来找出如何做到这一切，我的意思是它只是一个基本代码，类似于“添加文本”等。但很明显，代码可能不是添加-它可能是插入，但我不知道这一点。

rkmcswain · 发表于 2022-7-6 16:02:07

都在对象模型中-你找到这个了吗。。。？
属性、方法和事件。。。

这里几乎有每个对象、属性、方法等的示例。

rkmcswain · 发表于 2022-7-6 16:02:32

这显然是几年前写的眨眼：

gazzalp · 发表于 2022-7-6 16:06:56

不，我没有找到。。。。你能告诉我在哪里找到它吗？谢谢

SEANT · 发表于 2022-7-6 16:08:45

它确实出现在Autodesk将重点从Lisp转移到VBA的时候；我猜是AutoCAD 2000前后的时代——发明家首次亮相。我基于发明人合并VBA而不是Lisp的假设。

然而，VBA弯曲是短暂的。据推测，Autodesk意识到Microsoft自己计划放弃VBA/VB6体系结构，转而支持。净额。因此，VBA的技术开发实际上已经停止。

虽然VBA移除的实际时间框架可能仍有疑问，但显然这是注定要发生的。如果同意通过进入AutoCAD自定义，则会出现不太清楚的情况。NET是令人畏惧的第一步。Lisp和VBA都更容易访问，但哪一种更容易访问。网络过渡更容易？

gazzalp · 发表于 2022-7-6 16:14:30

非常感谢，我现在就看一遍。一件简单的事情——看看add line示例，它将一行添加到某个位置，我需要在代码中做什么更改，以便in不会将该行放置在某个位置，而是询问我将其放置在哪里？如果知道如何改变图层和颜色，我也会很高兴，然后我就可以完成所有的工作了。谢谢你的帮助

SEANT · 发表于 2022-7-6 16:16:50

这是一个通用示例。

copy

Sub Example_AddLine()
  [color="SeaGreen"] ' This example adds a line in model space[/color]
   
   Dim lineObj As AcadLine
   Dim startPoint() As Double
   Dim endPoint() As Double
   Dim TransPoint() As Double
   Dim TargetLayer As AcadLayer
   
  startPoint = ThisDrawing.Utility.GetPoint(, "Select Start Point: ")
 [color="SeaGreen"] 'point returned as WCS point. Needs temporary translation to UCS point[/color]
  TransPoint = ThisDrawing.Utility.TranslateCoordinates(startPoint, acWorld, acUCS, 0)
  [color="seagreen"]'That translated point can be used as reference for next point selection[/color]
  endPoint = ThisDrawing.Utility.GetPoint(TransPoint, "Select End Point: ")
   
   [color="seagreen"]' Create the line in model space with the WCS points[/color]
   Set lineObj = ThisDrawing.ModelSpace.AddLine(startPoint, endPoint)
   
   Set TargetLayer = ThisDrawing.Layers.Add("LineLayer")
   [color="seagreen"]'Get reference to layer[/color]
   TargetLayer.color = acRed
   [color="seagreen"]'set line to that layer[/color]
   lineObj.Layer = "LineLayer"
   
End Sub

gazzalp · 发表于 2022-7-6 16:19:30

非常感谢，这正是我想要的。我猜测的东西，如尺寸，图案填充和文字，我可以使用相同的代码和替代文字，如尺寸线等？

SEANT · 发表于 2022-7-6 16:23:30

一般来说，这是真的。然而，众所周知，AutoCAD的各种实体需要完全定义不同的特性。您可能会遇到AutoCAD在VBA例程中确认UCS的区域，但大多数情况下，它会将所有几何图形引用到WCS。

块参照和多段线等图元（以及其他一些图元）是通过“每个图元”坐标系（OCS）定义的。也可以使用此绘图完成此OCS的翻译。公用事业平移坐标法。

[编程交流] 非常基本的VBA

发表回复

精选推荐