哈哈，哦，没有知识就是浪费知识 是的，我知道你的意思。我看了很多教程，有谁知道有一个网站会显示所有autocad命令的基本命令。IE：如何添加线性尺寸，如何添加线条，如何更改颜色，如何更改线型等。当然会有一种方法来找出如何做到这一切，我的意思是它只是一个基本代码，类似于“添加文本”等。但很明显，代码可能不是添加-它可能是插入，但我不知道这一点。
都在对象模型中-你找到这个了吗。。。？
属性、方法和事件。。。
这里几乎有每个对象、属性、方法等的示例。
这显然是几年前写的眨眼： 不，我没有找到。。。。你能告诉我在哪里找到它吗？谢谢 它确实出现在Autodesk将重点从Lisp转移到VBA的时候；我猜是AutoCAD 2000前后的时代——发明家首次亮相。我基于发明人合并VBA而不是Lisp的假设。
然而，VBA弯曲是短暂的。据推测，Autodesk意识到Microsoft自己计划放弃VBA/VB6体系结构，转而支持。净额。因此，VBA的技术开发实际上已经停止。
虽然VBA移除的实际时间框架可能仍有疑问，但显然这是注定要发生的。如果同意通过进入AutoCAD自定义，则会出现不太清楚的情况。NET是令人畏惧的第一步。Lisp和VBA都更容易访问，但哪一种更容易访问。网络过渡更容易？
非常感谢，我现在就看一遍。一件简单的事情——看看add line示例，它将一行添加到某个位置，我需要在代码中做什么更改，以便in不会将该行放置在某个位置，而是询问我将其放置在哪里？如果知道如何改变图层和颜色，我也会很高兴，然后我就可以完成所有的工作了。谢谢你的帮助 这是一个通用示例。
Sub Example_AddLine()
' This example adds a line in model space
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: ")
'point returned as WCS point. Needs temporary translation to UCS point
TransPoint = ThisDrawing.Utility.TranslateCoordinates(startPoint, acWorld, acUCS, 0)
'That translated point can be used as reference for next point selection
endPoint = ThisDrawing.Utility.GetPoint(TransPoint, "Select End Point: ")
' Create the line in model space with the WCS points
Set lineObj = ThisDrawing.ModelSpace.AddLine(startPoint, endPoint)
Set TargetLayer = ThisDrawing.Layers.Add("LineLayer")
'Get reference to layer
TargetLayer.color = acRed
'set line to that layer
lineObj.Layer = "LineLayer"
End Sub 非常感谢，这正是我想要的。我猜测的东西，如尺寸，图案填充和文字，我可以使用相同的代码和替代文字，如尺寸线等？ 一般来说，这是真的。然而，众所周知，AutoCAD的各种实体需要完全定义不同的特性。您可能会遇到AutoCAD在VBA例程中确认UCS的区域，但大多数情况下，它会将所有几何图形引用到WCS。
块参照和多段线等图元（以及其他一些图元）是通过“每个图元”坐标系（OCS）定义的。也可以使用此绘图完成此OCS的翻译。公用事业平移坐标法。
页:
1
[2]