能否用LISP实现点号与坐标的邦定

liuqian020

要将坐标写入txt文件,能否让点号与坐标对应?如



1                                                 646.45                                 52.692


2                                                 327.623                 356.293

meflying

能，


如果你想要程序，请说清楚点，如何操作。。。


另，你图中写的坐标X、Y值都反了

myfreemind

编程申请里面有VBA程序可以展点，你参考一下！

liuqian020

boundary命令创建边界后,自动将闭合区域的顶点坐标及点号写入TXT文件



1                 721.711                                 378.056


2                 463.448                                 322.576


3                 371.550                                 712.520


4                 626.645                                 760.074


在1、2、3、4点之间最好能写出边长、弧长。


我是搞测量的X、Y与数学相反。

myfreemind

EFAN2000的这个程序给你参考一下： Sub test()

' 当前图纸的实体数目
Dim n As Long
n = ThisDrawing.ModelSpace.Count

' 调用BOUNDARY命令获取某一点处的边界
Dim Pt As Variant
Pt = ThisDrawing.Utility.GetPoint(, "指定内部点: ")
ThisDrawing.SendCommand "_-Boundary" & vbCr & Pt(0) & "," & Pt(1) & vbCr & vbCr


' 如果存在边界，则会生成新的实体
Dim lwpLineObj As AcadLWPolyline
If ThisDrawing.ModelSpace.Count > n Then
Set lwpLineObj = ThisDrawing.ModelSpace.Item(ThisDrawing.ModelSpace.Count - 1)
' 如果面积相等，则点在闭合多段线的内部
If Format(lwpLineObj.Area, "0.0000") = 762.9872 Then ' 762.9872为测试数据，可以换成其它的。
MsgBox "点在闭合多段线的内部"
End If
lwpLineObj.Delete
End If
End Sub

liuqian020

5楼楼主:VBA程序我看不懂,能否介绍一下你的思路