VB。Net/VBA：阅读坐标
你好我想知道是否可以使用VBA或VB读取autocad文件中绘制的所有线的起点和点。网
谢谢 是的，它是。 嗨，克里，
不知您是否有任何示例代码。。。 这将把它们打印到命令行
从技术上讲，这并不能得到图形中的所有线，而只能得到模型空间中的线
但是，您可以循环浏览blocktable并检查是否进行了布局以获得模型和图纸空间
_
公共子ReadAllLinesStartPoint（）
Dim doc As Document=DocumentManager。MdiActiveDocument
Dim db As Database=doc。数据库
Dim ed As Editor=doc。编辑
使用tr作为事务=db。TransactionManager。开始交易
Dim bt As BlockTable=db。BlockTableId。GetObject（OpenMode.ForRead）
Dim btr As BlockTableRecord=bt（BlockTableRecord.ModelSpace）。GetObject（OpenMode.ForRead）
对于btr中作为ObjectId的每个对象
Dim ent As Entity=对象。GetObject（OpenMode.ForRead）
如果ent的类型为Line，则
Dim l As Line=TryCast（ent，Line）
ed.WriteMessage（vbCrLf&l.StartPoint.ToString（））
如果结束
下一个
tr.提交（）
结束使用
末端接头 嗨，杰夫，
谢谢你的回复。
不确定如何在AutoCAD中将其转换为VBA。
请你帮个忙好吗。。
页:
[1]