我编了个很菜的程序，怎么画了一半，最后两条中心线不画了啊？还有怎么实现换层啊？

fizuwy · 发表于 2004-4-11 16:21:00

;design of 01-04-03(defun c:d3 ()

   ( Command (gen 2 "sh4"))
   (setq pt0 (list 190.0 370.0 ))

   (setq r1 105.0
r2 57.0
th 11.0 )
   (setq pt00 (polar pt0    0 (+ r1 50 ))
pt01 (polar pt00 (/ pi 2 ) r1 )
pt02 (polar pt01 0 th )
pt04 (polar pt00 (/ pi 2 ) r2 )
pt03 (polar pt04 0 th )
pt010 (polar pt00 (/ (- 0 pi) 2 ) r1 )
pt020 (polar pt010 0 th )
pt040 (polar pt00 (/ (- 0 pi) 2 ) r2 )
pt030 (polar pt040 0 th )
pt10 (polar pt0 0 (+ r1 10))
pt20 (polar pt0 pi (+ r1 10))
pt30 (polar pt0 (* 0.5 pi) (+ r1 10))
   pt40 (polar pt0 (* 1.5 pi) (+ r1 10))
pt50 (polar pt00 pi 20)
pt60 (polar pt00 0 (+ th 20)))

   (setvar "clayer" "0")
   (command "circle" pt0    r1 " "
   "circle" pt0    r2 " "
   "line" pt01 pt02 pt03 pt04 "close"
   "line" pt010 pt020 pt030 pt040 "close"
   "line" pt04 pt040 pt030 pt03 "close")
   (setvar "clayer" "01center")
   (command "line" pt10 pt20 " "
   "line" pt30 pt40 " "
   "line" pt50 pt60 " ")
)

utu5bpxcqga.jpg