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

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

好呀．　我是改你的，　是根據我一向的需要．　改的不好不要見笑才好．
你的LISP技術很好. 我只懂上點皮毛. 還望你多多指教.

请点击此处下载

请先注册会员后在进行下载

已注册会员，请先登录后下载

文件名称:vfwtrql2vb4.lsp
下载次数:0 文件大小:10.48 KB 售价:2银币 [记录]
下载权限: 不限以上或 Vip会员 [开通Vip] [签到领银币] [免费赚银币]

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). －－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
我愛ＣＡＤ．　共同學習．多多指教．共同進步．