要求：命令运行后，提示点取基点，然后要求输入a,b,c,r四个参数，画出附件中的三段红颜色的线。那位高手帮帮忙，谢谢！[ 本帖最后由 guxin931 于 2008-11-20 10:34 编辑 ]
要求：命令运行后，提示点取基点，然后要求输入a,b,c,r四个参数，画出附件中的三段红颜色的线。
那位高手帮帮忙，谢谢！
[
本帖最后由 guxin931 于 2008-11-20 10:34 编辑 ]
2楼
不知道为啥不显示图片，所以放到附件里了
回复
3楼
好象只有a.b.c用到,r用不到的吧??????
[
本帖最后由 wanggy 于 2008-11-22 22:07 编辑 ]
回复
4楼
a b c r四个参数都要用到，以下为自定义命令，只画出其中的三条红线。窗口不要太小，否则图形可能只有一条线或两条线。
(defun C:ABCR()
(command "color" 1)
(setq basepnt (getpoint "\n指定基点：\n"))
(setq r (getreal "\n输入r："))
(setq a (getreal "\n输入a："))
(setq b (getreal "\n输入b："))
(setq c (getreal "\n输入c："))
(setq rr (rtos r))
(setq rrr (angtof rr))
(setq cc (rtos c))
(command "line"
(strcat (rtos (- (car basepnt) (* a (cos rrr)))) ","
(rtos (- (cadr basepnt) (* a (sin rrr)))))
(strcat "@" cc "<" (rtos (+ 270 r)))
(strcat "@" (rtos (+ a b)) "<" rr)
(strcat "@" cc "<" (rtos (+ 90 r))) ""
)
)
回复
