这个程序出图的时候为什么没有我要的P11和P12的连线
这个程序出图的时候为什么没有我要的P11和P12的连线，请高手给检查一下(defun c:sl(/ l1 l2 l3 l4 p0 p1 p2 p3 p4 p5 p6 p7 p8 p9 p10 p11 p12 )
(setq l2(getdist"\n输入内侧宽度"))
(setq l1(getdist"\n输入外侧宽度"))
(setq l3(getdist"\n输入长度"))
(setq p0(getpoint"\n输入起始点"))
(setq p1(polar p0 0 l3))
(setq p6(polar p1 (/ pi 2) l1))
(setq p7(polar p1 (/ pi 2) (/ l1 2)))
(setq p8(polar p1 (/ (- pi) 2) (/ l1 2)))
(setq p9(polar p1 (/ (- pi) 2) l1))
(setq p2(polar p6 (/ (* 7 pi) 6) (* (/ (*(sqrt 3) 2) 3) l3)))
(setq p3(polar p0 (/ pi 2) (/ (- l1 (/ (* (sqrt 3) l3) 3)) 2)))
(setq p5(polar p9 (/ (* 5 pi) 6) (* (/ (*(sqrt 3) 2) 3) l3)))
(setq p4(polar p0 (/ (- pi) 2) (/ (- l1 (/ (* (sqrt 3) l3) 3)) 2)))
(setq p10(polar p0 (- pi) (*(sqrt 3)(- l1(*(/(sqrt 3)3)l3)))))
(setq p11(polar p2 (/ (* 7 pi) 6) ( * 2 (- l1 l2 (/(*(sqrt 3)l3)3)))))
(setq p12(polar p5 (/ (* 5 pi) 6) ( * 2 (- l1 l2 (/(*(sqrt 3)l3)3)))))
(command "pline" p2 p3 p7 p6 "c");
(command "pline" p4 p5 p9 p8 "c");
(command "line" p4 p0 p3 "");
(command "line" p0 p1 "");
(command "line" p7 p1 p8"");
(command "line" p3 p10 p4 "");
(command "line" p2 p11 p12 p5 "")
(princ);
)
Check your OsMode
页:
[1]