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

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

请教下 这样写为什么 初始角度不能是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 static/image/common/back.gif
自己顶一下

弧度和度需要转换一下

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)))这样就对了
页: [1]
查看完整版本: 请教下 这样写为什么 初始角度不能是90度