【转帖】画法兰
 

画法兰
www.dimcax.com
画法兰
画法兰的二次开发程序
4

我看了你的程序，中间有几个问题：
1(setq data0 (strcase (getstring "法兰公称直径(公制,如25):")))
没提供法兰公称直径的数据，输入很麻烦。
如改成下面。
(prompt "法兰公称直径 10 15 20 25 32 40 50 65 80 100 125 150 200 250 300 350 400 450 500 600")
(setq data0 (strcase (getstring "法兰公称直径(公制,如25):")))
2.数据中无小孔数和孔径，
3.数据中无中间孔径和孔长度数据，
整个程序应是一个主程序和一个数据库，我把程序已改好。但无上面2和3的问题，我没发上来，我同时画出它的三维图。
gbg