[必看]：来自CAD中的每一天的祝福！

黄卫文

最初由 dys800113 发布
[B]老实说，你cad中那口钟好几年前我就在《电脑商情报》上看见过它的详细制作方法！
当然我不知道报上的是不是你自己的。如果是别人的，你把人家的东西拿过来，占为己有，不觉得害臊吗？ [/B]

本人郑重声明，我没有见你说的东西，以前也没有写过那东西。其实对我来说它是一个比较简单的程序。再说别人做的也许我的思路也不一定一样，它是用VLISP做的吗？再退一万步来说，即使与别人思路相同，只要没有抄袭他（她）人之作也行呀，我们不都在学习别人的知识吗就拿VLISP编程来说，我最早是92年在中关村买了一本AUTOLISP10 就是学刘银远老师、董华老师那书起家的，如果有嫌疑的话也只能说有“偷学”他们的知识之嫌。（那书我现仍珍藏没有一点损坏，只是旧了、有点点了）。
前几天看见有人要求做钟摆！我就想来做钟，开始钟死也不走，气死我，后来想可能是更新太快了，想到这一切都迎刃而解了。源程序在家里的电脑中，晚上贴来让你瞧瞧。晓东论坛中高手如云，比我能者多多，以后说话注意点就是了。
现在介绍一下它是如何做的：
1、建字型用直接用表组码来写。
2、紫罗兰色的外框，先用画个100X100的方框，再内画一个圆，圆心坐标为（50.0 50.0 0.0），用HATCH填充它们之间的框框，把HATCH实体的数据组构结，粘贴进VLISP，用ENTMAKE命令来重建，（记住删除“图元名”和句柄那无关的部分）这样你就不用在CAD中来做它了，速度也很快。
3、做内圈白色的圆填充，方法同前。
4、做白圆圈上的带度的二维多义线方法同前。
5、写钟边字，先建一个点表，表中的数字与文字的角度对应上，然后用 foreach 来读点表，用直接写数据结构的方式来生成
6、紫罗兰色的小圈圈，因为它是60个等分的，就用REPEAT重复60次吧，当然要加一个条件就是角度为多少就不生成，这样就不会与文字重叠了，它是二维多义线结构由两10 DXF组码来控制通过更新就很快完成了。
7、接下来要做的是钟的指针，它是绕圆中心而动的二维多义线，这里有一个技巧就是建数据结构时，第一个10 DXF组码让它是变化的这样将来更新数据结构时用ASSOC 找它时一下就找到，圆心的那个10 DXF组码放后面。这样时针、分针、秒针就都完成了只剩让它动了：）
8、里面的文字也是直接生成，然后根据秒针所在的位置更新1 DXF组码的内容那可。：）
9、中间的诗就是MTEXT文字了，先直接建好，放在屏幕下方，通过不断更新它的数据结构中10 DXF组码实现向上的拉动。
程序中用了两次WHILE 第一次是祝福中的更新用了时间1。3分钟来控制那1分30秒。第二次诗的动态是MTEXT10 DXF组码中坐标的位置判断诗是否拉出了范围。
时钟的时间是随CDATE系统变量而变，如果你的电脑够慢，也许会看到秒针一次跳二的现象，但它还是准的哟（慢一秒）。
最后还有关键的一下就是要用延时命令在循环的时候，由于在家用的是586/166/96M电脑所以可能掌握不是很好：）


下面是这程序的绝大部分源代码，只去掉了动态的部分：）

设计一员

拿出自己的技术来，不要怀疑别人的技术。

a_ming_927

:3 :3 :3 :3 :3 :3 :3 :3 :3
嘿嘿，这里高手真高啊！
:8 :8 :8 :8 :8 :8 :8 :8 :8
自己太菜了，呵呵

湘儿

黄兄长不错的，支持！

WODSTOCK

大家共享一下而已，不必......

ds220

:1 :1 :1 :1 :1
虽然我还是不太懂，不过真的好厉害哦！
:c :c :c :c :c

汶子

至少别人看到了并且让大家共享了

非梧桐

下了，谢谢！：）劳您费心了。。被人惦记的感觉很不错：）

saintdog

好可惜，没有第一时间看到。
现在能下载真好。