明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 694|回复: 3

[提问] 输入出错,,,请大家帮我看看

[复制链接]
发表于 2016-10-31 08:22 | 显示全部楼层
  1. (if (not pyy)(setq pyy 30))
  2. (if (not rzz)(setq rzz 3))
  3. (if (not czz)(setq czz 15))
  4. (if (not gyy)(setq gyy 20))
  5. (if (not dxx)(setq dxx 60))
  6. (setq xuanxiang (getstring "\n执行1 或 设置2:<1>"))
  7. (if (/= xuanxiang "2") (progn
  8. (setq py (fix pyy))
  9. (setq rz (fix rzz))
  10. (setq cz (fix czz))
  11. (setq gy (fix gyy))
  12. (setq dx (fix dxx))
  13. (setq py (getdist (strcat "\n偏移:<" (itoa py) ">")))
  14. (setq rz (getdist (strcat "圆角值:<" (itoa rz) ">")))
  15. (setq cz (getdist (strcat "中间值:<" (itoa cz) ">")))
  16. (setq gy (getdist (strcat "突出量:<" (itoa gy) ">")))
  17. (setq dx (getdist (strcat "底线:<" (itoa dx) ">")))
  18. (if (not py)(setq py (fix pyy)))
  19. (if (not rz)(setq rz (fix rzz)))
  20. (if (not cz)(setq cz (fix czz)))
  21. (if (not gy)(setq gy (fix gyy)))
  22. (if (not dx)(setq dx (fix dxx)))
  23. (setq pyy py)
  24. (setq rzz rz)
  25. (setq czz cz)
  26. (setq gyy gy)
  27. (setq dxx dx)
  28. ))
发表于 2016-11-2 08:09 | 显示全部楼层
  1. (if (not py)(setq py 30.0))
  2. (if (not rz)(setq rz 3.0))
  3. (if (not cz)(setq cz 15.0))
  4. (if (not gy)(setq gy 20.0))
  5. (if (not dx)(setq dx 60.0))
  6. (setq xuanxiang (getstring "\n执行1 或 设置2:<1>"))
  7. (if (/= xuanxiang "2") (progn
  8. (setq pyy (getdist (strcat "\n偏移:<" (rtos py 2) ">")))
  9. (setq rzz (getdist (strcat "圆角值:<" (rtos rz 2) ">")))
  10. (setq czz (getdist (strcat "中间值:<" (rtos cz 2) ">")))
  11. (setq gyy (getdist (strcat "突出量:<" (rtos gy 2) ">")))
  12. (setq dxx (getdist (strcat "底线:<" (rtos dx 2) ">")))
  13. (setq py (if pyy pyy py))
  14. (setq rz (if rzz rzz rz))
  15. (setq cz (if czz czz cz))
  16. (setq gy (if gyy gyy gy))
  17. (setq dx (if dxx dxx dx))
  18. ))
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-4-20 09:19 , Processed in 0.415634 second(s), 25 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表