CAD设计论坛

 找回密码
 立即注册
论坛新手常用操作帮助系统等待验证的用户请看获取社区币方法的说明新注册会员必读(必修)
查看: 1137|回复: 1

[练习] 刚学CAD二次开发,请各位高手帮忙看一下一下的原代码有什么问题,加载时提示错误

[复制链接]
发表于 2012-3-1 10:15 | 显示全部楼层 |阅读模式
本帖最后由 878276777 于 2012-3-1 14:25 编辑
, q, K% M, D0 p: Q* X- Z2 C8 u- N8 W( l
  1. ;;光标旋转。
    0 o( t; K% ]9 f0 V
  2. ;;十进制输入任意角度。3 ^' i* L7 Q! E7 f
  3. ;;命令:zhuan
    ! J, y) ^1 P9 n% U
  4. (defun c:zhuan (/ fw)
    ( h: Y+ p* e- G. X  a2 B) w
  5.        (setg fw (getreal "\n 请输入光标旋转十进制角度:"))% K- r) o1 _  }
  6.        (setvar "snapang" (* fw(/ pi 180)))
    : w, m5 h6 V" \: H6 e
  7.        (prinl)4 I4 W  u; ~( U
  8. 2 o! `" \  x; z1 L! E
  9. (prompt " \n<< c:zhuan >> 设计者 XXX " ) + Q  m5 H# m: h) x! d" T( L
  10. (prinl)
复制代码
发表于 2012-3-1 16:05 | 显示全部楼层
呀,这个还没研究的那么深奥
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

关于|免责|隐私|版权|广告|联系|手机版|CAD设计论坛

GMT+8, 2024-11-18 16:41

CAD设计论坛,为工程师增加动力。

© 2005-2024 askcad.com. All rights reserved.

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