请教下这样写为什么初始角度不能是90度

tangjunasd58 · 发表于 2015-9-7 12:26:52

请教下这样写为什么初始角度不能是90度

  (setq angx (mx-ang  "阵列角度" angx 90))

(defun mx-ang (msg def chushi / inp)
  (if (= def nil)
(setq def chushi)
  )
  (setq msg (strcat "\n->请确定" msg "(或直接点两点拾取) <" (angtos def) ">:"))
  (setq inp (getangle msg))
  (if inp
inp
def
  )
)

tangjunasd58 · 发表于 2015-9-7 12:45:07

自己顶一下

Gu_xl · 发表于 2015-9-7 12:47:55

tangjunasd58 发表于 2015-9-7 12:45
自己顶一下

弧度和度需要转换一下

tangjunasd58 · 发表于 2015-9-8 15:42:55

自己再顶一下，怎么转换的

tangjunasd58 · 发表于 2015-9-10 18:36:15

;; ----------------------- UANGLE ---------------------------

;;       格式化输入角度然后返回以弧度表示的角度

;; 方式1 : (setq ang (uangle 1 "" "角度" ang '(0 0)))
;; 方式2 :  (setq rad (UangLE 1 "" "角度<输入或鼠标直接量取>" rad nil)
i -1)

(defun uangle (bit kwd msg def bpt / inp)

  (if def

(setq msg (strcat "\n" msg "<" (angtos def) ">:")

      bit (* (fix (/ bit 2)))

)

(setq msg (strcat "\n" msg ": "))

  )

  (initget bit kwd)

  (setq inp (if bpt (getangle msg bpt)(getangle msg)))

  (if inp inp def)

)
再来个角度函数

tangjunasd58 · 发表于 2015-9-10 19:29:15

(setq angx (mx-ang "阵列角度" angx (d2r 90))) 这样就对了

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

[讨论] 请教下这样写为什么初始角度不能是90度

评分

点评

[讨论] 请教下 这样写为什么 初始角度不能是90度

评分

点评

[讨论] 请教下这样写为什么初始角度不能是90度