[求助]确定Pline画圆弧的方向？
我想用一个中心，加一个顶点，画出下面的一个多义线来~~帮我出个主意 ：P
（下面的是我根据那个漂亮的箭头改的，Pline那一行怎么写请指教）
(Defun C:moment (/oplw os mo me mr ma) ;画弯矩<BR> (setq oplw (getvar "plinewid")<BR> os (getvar "osmode"))<BR> (setvar "osmode" 0)<BR> (setvar "cmdecho" 0)<BR> (if (and ((setq mo (getpoint "选择弯矩作用点:" )) ;弯矩中心<BR> (setq me (getpoint "箭头:" )))<BR> (progn<BR> (setq mr (distance mo me)<BR> ma (angle me mo))<BR> (command "_.pline"
<BR> ??????????????????? )
(setvar "plinewid" oplw)<BR> (setvar "osmode" os)<BR> (setvar "cmdecho" 1)<BR> (princ)<BR> )<BR> )<BR>)<BR>
光两个点不给方向,怎知道是顺时针还是反时针? 对阿，我只想用逆时针的，可以吗？
那个箭头，第二个点，怎么根据角度和半径求出来？pline 的时候，怎么用(@10,10)？ (defun c:test()<BR> (setq pt1 (getpoint "第一点:"))<BR> (setq pt2 (getpoint "第一点:"))<BR> (setq pt (mapcar '(lambda(e)(/ e 2.0)) (mapcar '+ pt1 pt2)))<BR> (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) "")<BR>) 本帖最后由 作者 于 2004-3-16 14:12:07 编辑 <br /><br /> 知道了，下面是我修改的：
(Defun C:moment2 ()<BR> (setq mo (getpoint "选择弯矩作用点:" )) <BR> (setq mt (getpoint "箭头:" ))<BR> (setq mr (distance mo mt ))<BR> (setq me (mapcar '- (mapcar '+ mo mo) mt))<BR> (command "_.pline" mt "w" 0 (/ mr 4) "a" "ce" mo "a"<BR> -30 "w" 0 "" "ce" mo "a" -180 "")<BR>)
还想问一下，即时浏览的功能怎么实现的？
我的第二个点还未选取，就可以看到箭头，可以吗？
页:
[1]