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

liuqian020 · 发表于 2004-2-28 23:37:00

要将坐标写入txt文件,能否让点号与坐标对应?如 1 646.45 52.692
2 327.623 356.293

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

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复

meflying · 发表于 2004-2-29 00:06:00

能，
如果你想要程序，请说清楚点，如何操作。。。
另，你图中写的坐标X、Y值都反了

myfreemind · 发表于 2004-2-29 14:19:00

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

liuqian020 · 发表于 2004-2-29 16:24:00

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与数学相反。

请点击此处下载

请先注册会员后在进行下载

已注册会员，请先登录后下载

文件名称:5i0312rksbg.dwg
下载次数:0 文件大小:32.1 KB 售价:2银币 [记录]
下载权限: 不限以上或 Vip会员 [开通Vip] [签到领银币] [免费赚银币]

myfreemind · 发表于 2004-2-29 17:26:00

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 · 发表于 2004-2-29 21:32:00

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

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

发表回复

精选推荐

浏览过的版块