AutoCAD技能檢定練習44

我作图的方法和tangss一样，但面积我是用面域得到的

我的！！可能精确度的问题！我的和tangss差一点儿！！

作這一題並不是什麼困難，但是很累人。可行的辦法是寫一則LISP,使我們輸入正
三角形的邊長和堆疊的層數後自動將圖繪出。下面就是此LISP的寫法：
(此LISP是R14時所作的，如要在acad2000以上版本執行時須作些修改)。
  
(defun c:supercir()
   (prompt "金字塔型多圓相切!")
   (setq pt1(getpoint "\n 左下角插入點 :"))
   (setq ww (getdist pt1 "\n 底邊長<80>:"))(if (null ww)(setq ww 80))
   (setq n  (getint "\n 小圓堆疊數<4>:")) (if (null n)(setq n  4))
   (setq rr(/ ww (* 2 (- (+ (sqrt 3) n) 1))))
   (setq ww1(/ (- ww (* (1- n) (* 2 rr)))2))
   (setq ww2(sqrt (+ (* ww1 ww1) (* rr rr))))
   (setq pt2(polar pt1 0 ww))
   (setq ptcen(polar pt1 (/ pi 6) ww2))
;;LCA - COMMENT: The LAYER command has new options.
   (command "-layer" "m" "str" "C" "4" "STR" "")
   (command "polygon" 3 "e" pt1 pt2)  
   (setq m n)
   (repeat (1- n)
     (command "circle" ptcen rr)
     (command "array" (entlast) "" "r" "1" m (* rr 2))
     (setq m (1- m))
     (setq ptcen(polar ptcen(/ pi 3) (* rr 2)))
   )
   (command "circle" ptcen rr)
   (prin1)
)

10,面積=439.36
11,直徑=1.9711

做了
应该是编程
不然很累
一直的array