一个简单的粗糙度标注程序，原码，请大家试用并提宝贵意见

LIHUISHUAN · 发表于 2003-10-31 13:18:00

大家好：
这是我刚编的程序，请大家试用。
简介：可标直线、多段线、圆、圆弧、样条曲线等及标注界限上。如果选择NIL,则标其余。。。这个功能对我来说已经够用了，只是感觉不够简洁，请大家多提宝贵意见。
另外，程序中借鉴了MEFLYING提供的程序，可以说，只是在他程序基础上添了一大堆简单的东西。在此特向他表示感谢！
欢迎大家仁者见仁、智者见智，把这个程序进一步完善，如果大家有一些类似的程序，或其他得意之作，希望能贴出来进行交流，以利共同提高！

谢谢大家！

BDYCAD · 发表于 2003-10-31 13:57:00

樓主的這個是個好好用的, 解決了粗糙度標注的問題. 我有一點見議是這樣的. 你應把默認的數值改一下. 使這個值在初次用時的值可以是3.2. 但當用戶改了第二次用時是使用上一次用戶自定的. 我在用你的程序我是這樣子用的, 所以我改了過來用.

LIHUISHUAN · 发表于 2003-10-31 14:05:00

BDYCAD您好：
您能把您改过的程序贴上来吗？我的目的就是共同完善，共同提高，谢谢！

BDYCAD · 发表于 2003-10-31 14:16:00

本帖最后由作者于 2003-10-31 14:49:22 编辑

好呀．　我是改你的，　是根據我一向的需要．　改的不好不要見笑才好．

你的LISP技術很好. 我只懂上點皮毛. 還望你多多指教.

LIHUISHUAN · 发表于 2003-10-31 14:35:00

BDYCAD:
改得不错，希望大家能再多提些意见！
谁有更好的程序，也贴出来交流一下？

LIHUISHUAN · 发表于 2003-10-31 14:49:00

BDYCAD:
看了半天也没搞清您改哪了，能给讲一下吗？

BDYCAD · 发表于 2003-10-31 15:23:00

我沒有改什麼, 我在CCD函數中是這樣改改的. 還望你指教.
  我把自消 M 的地方刪去.
  我不知道你的(or M (setq M "3.2"))這句是什麼所以我不用. 改成了
(IF (= M nil)
   (setq M "3.2"))
另外我只是在CCD函數的結尾加上(setq M SLE).

－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
我愛ＣＡＤ．　共同學習．多多指教．共同進步．

LIHUISHUAN · 发表于 2003-10-31 15:49:00

TO BDYCAD:
(or M (setq M "3.2"))意思是如果M =NIL,返回M="3.2"
如果M=/ NIL,返回M,不知跟您的意思是不是一样？

BDYCAD · 发表于 2003-10-31 16:40:00

To LIHUISHUAN 原來是一樣的．

BDYCAD · 发表于 2003-11-3 09:14:00

楼主我个程序我在Windows 98的Auto CAD R2000不能用的提示如下：
Command: ; error: no function definition: VLAX-ENAME->VLA-OBJECT

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

一个简单的粗糙度标注程序，原码，请大家试用并提宝贵意见

本帖子中包含更多资源

我把　Ｍ　去掉就ＯＫ了．

本帖子中包含更多资源

一个简单的粗糙度标注程序，原码，请大家试用并提宝贵意见

本帖子中包含更多资源

我把 Ｍ 去掉就ＯＫ了．

本帖子中包含更多资源

我把　Ｍ　去掉就ＯＫ了．