[编程申请]：各位兄弟，看看这个功能怎么做？(上次没人回应）

xxming · 发表于 2003-9-7 09:46:22

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

　　晓东，你好：我是规划部门工作者经常输入坐标后要打印图形及坐标，你能否设计一个程序：当我输完座标后，点击该闭合区域时，最好能用表格形式自动列出该区域的各角点X，Y座标（角点、X座标、Y座标）。

zhqchn · 发表于 2003-9-7 09:56:59

既然你的坐标是输进去的，那你一定有座标数据的文本文件，在Excel中制成表格，用Truetable导入Acad不是很方便吗？为什么还要从cad中取角点及坐标呢？

xxming · 发表于 2003-9-7 10:10:21

能否，直接列出X。Y座标（不是用EXCEL格式）

fools · 发表于 2003-9-7 15:04:07

1。你图中标注的坐标是不是块？
2。你的表格x,y值的摆放是横着并排的还是竖着并排？
3。程序生成的表格里的坐标顺序可能和你希望的顺序有出入

xxming · 发表于 2003-9-10 08:54:15

标注的坐标是块
表格x,y值的摆放是竖着并排

fools · 发表于 2003-9-10 22:58:56

后面有新程序，原来贴的老程序我删了

xxming · 发表于 2003-9-11 09:20:31

六楼兄弟，怎么对象选择不了

fools · 发表于 2003-9-12 00:45:15

选择不了物体可能是你的坐标层锁定了，也有可能是我理解错了，也许你传一张简图我会更了解你的需求
另外，我的程序针对的坐标是天正生成的块，若你的坐标不是天正生成的，请将坐标块上传，我调整一下程序
执行程序的第一步是窗选物体，则窗选范围内的块将被选取，程序编的很简单，若你选择的物体中包含非坐标以外的其他块，会出错。

xxming · 发表于 2003-9-12 21:08:49

八楼兄弟，我传一张简图

xxming · 发表于 2003-9-12 21:14:14

点击一个闭合区域，能自动列出该区域的各角点座标（最好是表格）并能对该区域自动编号1、2、3、4。。

zzyxhqplay · 发表于 2003-9-12 21:18:53

很不错的程序，可以给下载吗？

eachy · 发表于 2003-9-12 21:33:11

最初由 xxming 发布
[B]点击一个闭合区域，能自动列出该区域的各角点座标（最好是表格）并能对该区域自动编号1、2、3、4。。 [/B]

这个图形太简单，实际工程中不会都是这样的，你应该贴个实际的图形并说明01点由哪里起始。

fools · 发表于 2003-9-12 22:31:38

后面有新程序，原来贴的老程序我删了

Eachy建议：参考下这个帖子，表格部分可以按行做成属性块使用起来更方便。

http://www.xdcad.net/forum/showthread.php?s=&threadid=71219
[/code]

xxming · 发表于 2003-9-13 10:13:28

　　先谢谢13楼兄弟辛苦了，我有几个问题1、能否给表格列标头加个（角点、X座标、Y座标）2、能否给这个图形自动加个编号对应表格的编号3、插入表格后表格变很大，图形变很小了，能否加个功能表格自动调小。4、如何能够自动加载你的程序。

fools · 发表于 2003-9-14 17:22:17

楼上的兄弟不必客气。
1。表格加表头和表格插入比例，我会在新程序修改。
2。对于第二个问题可以做到，但效果不一定好。因为自动插入的编号摆放的位置很难定，有可能出现编号与现有的图元重叠，或是两个编号重叠。
3。自动加载的方法有很多，以下提供一种方法
将上面的代码存成lsp文件，比如coordtotable.lsp,并将其放入support目录下，然后在acad.lsp里加入一句(load "coordtotable.lsp")，以后每次开图键入bb即可执行操作。
4。前面斑竹eachy的建议很好，以后有时间的话，我会将表格里的文字转变成带属性的块。
待会我会将修改好的程序上传，不过你提的第二点我可能暂时不会加入，主要是因为前面提到的原因。

账号		自动登录	找回密码
密码			立即注册

[编程申请]：各位兄弟，看看这个功能怎么做？(上次没人回应）

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

[编程申请]：各位兄弟，看看这个功能怎么做？(上次没人回应）

Re: [编程申请]：各位兄弟，看看这个功能怎么做？(上次没人回应）