怎么把图上n个点的坐标读取并输出到Txt或者excel？

282765582

请教各位大虾

怎么把图上n个点的坐标读取并输出到Txt或者excel？

www2002

偶也想知道

yxp

这些点的坐标有什么特征？

是坐标值，还是一些直线或者点？

yeqb4749659

用getpoint  循环读出点坐标

rark123

(defun c:dd (/ ss m n file file_obj VERTEX) ;将POLYLINE的点写入文件writefile
  (setvar "cmdecho" 0)
  (if (and (setq ss (ssget '((0 . "polyline"))))
    (setq file (getfiled "写polyline的点表" "" "txt" 1))
      )
    (progn
      (command "undo" "g")
      (setq file_obj (open file "w")
     m      (sslength ss)
     n      0
      )
      (repeat m
 (setq VERTEX (entnext (ssname ss n))
       n      (1+ n)
 )
 (while (/= (cdr (assoc 0 (entget VERTEX))) "SEQEND")
   (setq point  (assoc 10 (entget VERTEX))
  VERTEX (entnext VERTEX)
   )
   (write-line (strcat (rtos (nth 1 point) 2 2) "," (rtos (nth 2 point) 2 2)) file_obj)
 )
      )
      (close file_obj)
      (command "undo" "e")
      (prin1)
    )
  )
)

其他对象类似

ty0030801

我有这程序

代码如下：

Sub xyz()
Dim x As Double
Dim y As Double
Dim i
Set fs = CreateObject("Scripting.FileSystemObject")
    Set a = fs.CreateTextFile("d:\查询结果.txt", True)
    i = 1
On Error Resume Next
Dim keywordlist As String
keywordlist = "o"
nextreturnpnt:
ThisDrawing.Utility.InitializeUserInput 128, keywordlist
Dim returnpnt As Variant
returnpnt = ThisDrawing.Utility.GetPoint(, "输入一个点[完成/(o)]:")
If Err Then
If StrComp(Err.Description, "用户输入的是关键字", 1) = 0 Then
Dim inputstring As String
Err.Clear
inputstring = ThisDrawing.Utility.GetInput
a.Close
Exit Sub
Else
MsgBox "选择点时发生错误：" & Err.Description
Err.Clear
End If
Else
x = Format(Round(returnpnt(1), 4), "0.000")
y = Format(Round(returnpnt(0), 4), "0.000")
a.WriteLine (i & ",," & x & "," & y)
i = i + 1
End If
GoTo nextreturnpnt
End Sub
在cad中运行上程序，结果保存在d:\查询结果.txt文件中，格式为：点号，X坐标，Y坐标

www2002

支持一下！！

guigang1974

6楼的。。说清楚那代码咋用啊。。。。。先谢过。。。

jingqin0472

这个功能不难！想要联系我，VBA代码。252950152

lxn1991

加载lisp程序即可，