有高手知道CAD中怎么输出多段线上所有点的坐标么

windcarrier · 发表于 2010-5-12 23:34

如题

grong2006 · 发表于 2010-5-26 09:29

如题？

yanchuanzheng · 发表于 2010-5-28 21:17

先确定好坐标系，然后用list命令就可以

yujiajia · 发表于 2010-6-20 10:37

怎么没有的啊

naoe · 发表于 2010-8-23 13:19

这个好像是有个命令，以前用过的，网上搜一下应该能找到

cristian · 发表于 2010-10-14 01:40

可以直接写个脚本文件把坐标值导入cad，但是反过来需要自己编个小程序就行了

呤叮之王 · 发表于 2010-10-14 08:33

3楼是正解，可能是你没选中样条曲线

白水6 · 发表于 2011-10-14 14:39

Document doc = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument;
TypedValue[] value = new TypedValue[1];
value.SetValue(new TypedValue((int)DxfCode.Start, "LWPOLYLINE"), 0);
SelectionFilter filter = new SelectionFilter(value);
PromptSelectionOptions option = new PromptSelectionOptions();
option.MessageForAdding = "Selection polyline for output!";
Database acdb = doc.Database;
using (Transaction tran = acdb.TransactionManager.StartTransaction())
{
PromptSelectionResult result = ed.GetSelection(option, filter);
//PromptSelectionResult result = ed.GetSelection(option);
if (result.Status == PromptStatus.OK)
{
SelectionSet selectionSet = result.Value;
foreach (ObjectId sel in selectionSet.GetObjectIds())
{
Entity entity = tran.GetObject(sel, OpenMode.ForRead) as Entity;
Polyline pline = entity as Polyline;
if (pline != null)
{
TreeNode treeNote = new TreeNode();
DBElement element = new DBElement(type);
treeNote.Tag = element;
treeNote.Text = element.Type.ToString();
Parent.Nodes.Add(treeNote);
if (type == DBElementType.Extrusion)
{
TreeNode loopNote = new TreeNode();
DBElement loop = new DBElement(DBElementType.Loop);
loopNote.Tag = loop;
loopNote.Text = loop.Type.ToString();
treeNote.Nodes.Add(loopNote);
for (int a = 0; a < pline.NumberOfVertices; a++)
{
if (pline.GetBulgeAt(a) != 0)
{
for (int k = 0; k < 10; k++)
{
try
{
TreeNode newNote = new TreeNode();
DBElement vert = new DBElement(DBElementType.Vertex);
Point3d point = pline.GetPointAtParameter((double)a + (double)k / 10.0);
vert.Position = new double[] { point.X, point.Y, point.Z };
newNote.Tag = vert;
newNote.Text = vert.Type.ToString();
loopNote.Nodes.Add(newNote);
}
catch (Autodesk.AutoCAD.Runtime.Exception e)
{
ed.WriteMessage(e.Message);
}
}
}
}
}

复制代码

ygs2008 · 发表于 2011-10-16 09:50

回复 8# 白水6

解释下？

wuwuyin180 · 发表于 2011-10-29 22:15

冒昧问一句，怎么在CAD中确定坐标系，从来没用过，请高手指导下

Q807859983 · 发表于 2011-12-9 22:26

可以使用先对坐标的

daitaoman · 发表于 2011-12-9 22:45

不知道，顶一下

[Auto CAD] 有高手知道CAD中怎么输出多段线上所有点的坐标么