關於有角度的座標求法(已解決)

lincctw_ccl · 发表于 2011-3-19 12:51:07

本帖最后由 lincctw_ccl 于 2011-3-20 12:06 编辑

請教 Pt1 這個點的位置要如何求得?

謝謝!!

更新: 修改過的,可執行了
第一次用這種帶有角度的求點方式
花了一天才搞懂寫法!

(defun C:TT ()
(setvar "osmode" 0)
(setvar "cmdecho" 0)

(setq ss (ssget))
(setq pa (getpoint "\n 點選基準點: "))
(setq pz (getpoint pa "\n 選取位移方向: "))
(if (= th nil) (setq th 20.0))
(princ "\n 距離 <")(princ th)(setq answer1(getstring ">: "))
(if (/= (atof answer1) 0.00)(setq th(atof answer1)))
(setq pt1(polar pa (angle pa pz) th))
(command ".move" ss "" pa pt1)(setvar "cmdecho" 1)
(princ))

Andyhon · 发表于 2011-3-19 13:20:24

看一下 Polar 函數能派上用場否?
若不行,最好配上圖面加以實例說明

luntan666 · 发表于 2011-3-19 14:53:44

进来顶下......

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

[基础] 關於有角度的座標求法(已解決)

本帖子中包含更多资源