[求助]确定Pline画圆弧的方向？

lei6699

我想用一个中心，加一个顶点，画出下面的一个多义线来~~ 帮我出个主意 ：P （下面的是我根据那个漂亮的箭头改的，Pline那一行怎么写请指教） (Defun C:moment (/oplw os mo me mr ma) ;画弯矩
(setq oplw (getvar "plinewid")
os (getvar "osmode"))
(setvar "osmode" 0)
(setvar "cmdecho" 0)
(if (and ((setq mo (getpoint "选择弯矩作用点:" )) ;弯矩中心
(setq me (getpoint "箭头:" )))
(progn
(setq mr (distance mo me)
ma (angle me mo))
(command "_.pline"
??????????????????? ) (setvar "plinewid" oplw)
(setvar "osmode" os)
(setvar "cmdecho" 1)
(princ)
)
)
)

alin

光两个点不给方向,怎知道是顺时针还是反时针?

lei6699

对阿，我只想用逆时针的，可以吗？


那个箭头，第二个点，怎么根据角度和半径求出来？pline        的时候，怎么用(@10,10)？

meflying

(defun c:test()
(setq pt1 (getpoint "第一点:"))
(setq pt2 (getpoint "第一点:"))
(setq pt (mapcar '(lambda(e)(/ e 2.0)) (mapcar '+ pt1 pt2)))
(command "_.pline" pt1 "w" 0 0.7 "a" "ce" pt "a" (/ (* 180.0 -0.5) pi) "w" 0 "" "ce" pt "a" (/ (* 180.0 (- 0.5 pi)) pi) "")
)

lei6699

知道了，下面是我修改的： (Defun C:moment2 ()
(setq mo (getpoint "选择弯矩作用点:" ))
(setq mt (getpoint "箭头:" ))
(setq mr (distance mo mt ))
(setq me (mapcar '- (mapcar '+ mo mo) mt))
(command "_.pline" mt "w" 0 (/ mr 4) "a" "ce" mo "a"
-30 "w" 0 "" "ce" mo "a" -180 "")
) 还想问一下，即时浏览的功能怎么实现的？ 我的第二个点还未选取，就可以看到箭头，可以吗？