[LISP程序]：这个动态的坐标标注有很多功能可操作起来还是那么简单这才是有原理建筑特

Alick

刚下载使用了一下，感觉不错，但楼主能不能给个说明？

烨006

下载了数个了！不知这个效果如何？

xawhq

能否将文字的颜色改一下，蓝色看起来有些费劲

PFD8667

请教楼主:
我怎么标注出来X的值标在Y数值上,Y数值却标在X数值上了,不懂.

841594

建筑所用坐标系东西方向为x，南北方向为y（,这一点与acad是不同的），程序正是这样设计的。

PFD8667

谢谢楼主的解释使我懂的建筑坐标是不一样的,与acad是不同的,我不懂编程,但又特别喜欢这动态坐标标注,我是学机械的,恳请楼主能不能编一个与acad是相同的,再次表示谢意!

dandee

给你两点i建议 进化你的程序
1，最后的坐标定位点，支持捕捉方式
2，生成后的坐标体是独立活的（不需要再次执行你的程序）：当再次修改定位点，只需移动定位点的坐标体。  定位点的x,y自动更新。 研究一下“反应器”,把反应器运用到你的程序中。

这样才符合你的标题，不然感觉你的“原理建筑”太托大了。

841594

dandee:
谢谢你的建议。
1.在本程序的操作方式下，相信用lisp编程做到这个很困难，同时我个人认为此功能意义不大。
2.想法乍一看有道理，但是试想你标好了坐标，又想移动或拷贝此图形，结果会怎样。
3.只是想测试一下标题最多能打多少个字，本人在论坛里见的高人多了，都是我的老师，怎么敢托大呢：）

pfd8667:
恕不能把你建议的功能加到程序之中，因为都是单键操作，搞不好会误触键盘标错房子的坐标(不容易发现)，问题就严重了。
不过我可以给你改一个适合你用的，只是不知道机械方面对坐标是怎样要求的？

PFD8667

谢谢841594的帮助,其实在机械图用坐标很少,但我确实喜爱收集好的程序,不好意思,我既不会编程,又不懂建筑,我只想在钣金放样时,在图纸能用上你提供的坐标标注就太好了,也就是X与Y值同CAD所反映的一样,恳请楼主帮忙!再次表示谢意!

realizezb

要3天才能下
还要有钱。。。郁闷中

xyp1964

下载后一直未用，今天一试，程序确实不错，比我自己编的功能要强得多！

小小建议仅供参考：
1. 蓝色文字看起来比较费眼，选颜色3或4较好。
2. 文字的对正“J”为“MC”，可以在改变文字高度时不致左右偏离影响美观。
3. 起点最好设为捕捉(setvar"osmode"39)，通常这点是特殊点。
4. 字宽系数根据规范应取0.7，程序中为0.75。
5. 程序名字太长，“coord”改为“zb”（坐标），又好记、又可左手单手操作，当然那样的话我自己的坐标简化命令就不得不改名了！呵呵……

补充：
图层名“id_txt”不如取一个中文名，例如“坐标”或“坐标标注”吗儿的！

[B]jerry_bj  和 PFD8667：[/B] [/COLOR]
    送上一个世界坐标系的坐标标注程序（zb.fas，命令：ZB）和“机械坐标”标注程序（jxzb.fas，命令：JXZB），不是不愿意公布源代码，只是水平低不好意思“见人”！

841594

xyp1964:
谢谢指点：-）
程序设计时的想法如下：
1. 前面介绍过了，层的颜色允许重新定义，且定义后不会被程序修改，我自己一直习惯于不太显眼的坐标颜色，图面效果清爽一些。
2. 有时间修改时会考虑这一点。
3. 程序支持任意的捕捉类型，包括osnap的预设。
4. 同1，源于我的喜好，但你可以修改。
5. 程序名设的长正是为了避免重名，（大家都在编坐标标注。。。）可在acad.lsp中加如下语句：
(defun c:zb () (c:coord))
可以定义任何你喜欢的名字。。。
6. 图层设英文名称通用性会好一些。

xyp1964

(defun c:zb () (c:coord))前提是必须预加载程序。

PFD8667

xyp1964 :
谢谢你的热心帮助,给我解决了大问题了.

zhangyihhh

不能判别世界坐标系和用户坐标系，麻烦修改成无论在当前坐标系还是世界坐标系中标出得坐标都是世界坐标吗？