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

841594

不多说了，
动态。
直观。
功能繁多。
操作简单。
试试看吧。
收钱一个。

maoding

这个其实很好写的
大家可以试着写写

841594

演示。

netbee

呵呵，各有所长！
支持！
不过我的是开源的！希望841594 也经常提供一些源码大家交流！

eachy

最初由 netbee 发布
[B]呵呵，各有所长！
支持！
不过我的是开源的！希望841594 也经常提供一些源码大家交流！ [/B]

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

841594

谢谢eachy的提醒！谢谢加精。
其实这个程序也有出错处理，否则中断后物体不会恢复正常显示，但对提示的处理忽略了。
你提供的程序在我这里执行-中断会有如下显示：

命令:  TEST
Point: 应用程序错误: 控制台中断[/COLOR]

*取消*
命令:

中断的提示仍然出现。用我改正后的出错处理也是一样的。这是我一直没搞明白的事。。。？？？

eachy

最初由 841594 发布
[B]谢谢eachy的提醒！谢谢加精。
其实这个程序也有出错处理，否则中断后物体不会恢复正常显示，但对提示的处理忽略了。
你提供的程序在我这里执行-中断会有如下显示：

命令:  TEST
Point: 应用程序错?.. [/B]

这个提示我这也同样，我说的出错处理指的是在拖动过程时取消删除实体。

查了下帮助 allkey 加 8 就可以消除提示

The allkeys bit code values can be added together for combined functionality.

8 (bit 3)  Don't display the error: console break message when the user presses ESC

841594

中断处理已按eachy的建议修改了，多谢！
还有一点不明白：中断处理在未编译以前的程序显示一切正常，但编译后会多显示一个"函数被取消"，为什么？

shisj

最初由 eachy 发布
[B]
[HIDE]
[CODE]
;;感谢楼主的启发和WW老弟的点拨，好东西不敢独享，?.. [/B]

为什么要隐藏，让我们也学习一下

qiankuncq

字高和宽度因子不能自己另外设置。能否修改一下程序？

Free-Lancer

最初由 qiankuncq 发布
[B]字高和宽度因子不能自己另外设置。能否修改一下程序？ [/B]

修改字体定义(style)试试

841594

最初由 qiankuncq 发布
[B]字高和宽度因子不能自己另外设置。能否修改一下程序？ [/B]

这一点程序以有考虑：
程序使用一个名为“spec”的style,当此字形不存在时会建立一个，若以存在则使用现有定义，因此你可以编辑这个字型为自己想要的格式，字体、宽度都可以控制。
字高是与作图比例相关联的，缺省是我认为理想的高度，如果你需要大点或小点的字高，只需少许改变一下比例数值即可。

jerry_bj

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

liaoxq2003

先谢谢楼主的程序，原来有个coord的Lisp程序，也是楼主编的吧！
试用了一下，对设置中的“作图比例”不明白。它应该是控制标注文字高度和引线长度的吧，楼主能简单说下程序是怎么根据“作图比例”得出文字高度的吗？我用米为单位作图，把它设为0.5时字高差不多合适。

841594

最初由 jerry_bj 发布
[B]不能判别世界坐标系和用户坐标系，麻烦修改成无论在当前坐标系还是世界坐标系中标出得坐标都是世界坐标吗？ [/B]

标注当前坐标系的功能是需要保留的，因为世界坐标系只是所有坐标系的特例而已，让程序的适应性广一点是我认为比较重要的原则。如果你希望标注的数值是世界坐标系而文字的方向是某个特定的坐标系方向，可用“文字标注角度”这个功能实现，很方便。
liaoxq2003：
作图比例就是你这张图最终打印的比例，定了作图比例，文字、符号的尺寸就可以省去自己换算了。
建筑图一般是以毫米位单位绘制，这是本程序的缺省设定。如果以米为单位，请把作图比例除以1000，比如1：500的图，以米为单位，比例就正好是0.5。
这种设定方式在集成化的软件中优点明显，有兴趣可试用下我的《原理建筑2000》软件。

yfywk

原理建筑是运行在cad平台上的吗？
和理正、天正是一样的吗？