AutoCAD技能檢定練習44

請Baiyears兄代貼Exercise48.gif
  
AutoCAD2000 Express與R14 Bonus指另令彙總
...............................................................................................................................................................................
※  AutoCAD2000已將該指令作過改良或修正
☆ AutoCAD2000已將該指令移除，故只有R14才保有此指令
..............................................................................................................................................................................
一、圖層管理類
※  《LMAN》    將圖檔內容寫出或載入檔案
  《LAYMCH》  選取參考物件作圖層工更換  
  《LAYCUR》    選取物件將圖層更換至目前層
  《LAYISO》    選物件顯示該圖層並關閉其餘圖層
  《LAYFRZ》    選取物件並冷凍該圖層
  《LAYOFF》    選取物件並關閉該圖層
  《LAYLCK》    選取物件並鎖護該圖層
  《LAYULK》    選取物件並解凍該圖層
  《LAYON》    將所有被關閉的圖層打開
  《LAYTHW》  將所有被冷凍的圖層解凍  
..............................................................................................................................................................................
二、文字書寫與編修類
  《TEXTFIT》    將文字作FIT(填入)重新調整
※  《TEXTMASK》  將文字的重疊物件作暫時性的刪除
☆  《CHT》    修改多個文字的性質
  《TXTEXP》    將文字炸開成Line物件
  《ARCTEXT》  將文字寫在選取的弧段上
☆  《FIND》    尋找與更換文字的內容
  《BURST》    將Block更換成一般的文字
  《GATTE》    修改Block屬性的內容
☆  《EXCHPROP》  修改物件的性質
.................................................................................................................................................................................
三、編修類
  《MSTRETCH》  多重選框作Stretch(拉伸)動作
  《MOCORO》  同步移動、複製、旋轉及比例調整
※  《EXTRIM》    選取封閉物件作一次裁切
※  《CLIPIT》    選取任意物件作局部截取
  《MPEDIT》    多重選取物件作Pedit編輯
☆  《XPLODE》    炸開物件並指定炸開後之性質
  《NCOPY》    連續單一選取物件作複製
  《BTRIM》    可選取Block為邊界作裁切
  《BEXTEND》  可選取Block為邊界作延伸  
........................................................................待續.........................................................................................................
  
Quiz 48
  
10. 三角形減去內部所有的圓面積?  
11.小圓之直徑為何？

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

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

作這一題並不是什麼困難，但是很累人。可行的辦法是寫一則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)
)

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

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

面积=4330.1270-3.0516*(25*51)=439.337

请多指教！！！

To:《microzhujie》
抱歉，您猜錯了。在下是男兒身。
出這道題似乎有點整人的味道。我原先以為大家會罵的，事實上看來各位修養都
很好，我也稍為放下心了。
不過話說回來，這題正好可以測試你作圖的精確度。
《Tangss》的答案是最標準的，其他的朋友當你發覺有誤差時最好從頭檢視一下
作圖的方式。

我的作法：
1、先用一整数为半径画一圆，以圆的直径为列偏移水平阵列50个
2、用切点、切点、半径画第二层最左边的圆，同样方法阵列49个
3、同样方法得出第三层48个圆
4、第一层最左边的圆之圆心至第三层最左边的圆之圆心copy二行圆至5、9、17、...、50行圆，删除多余圆
5、画外切三角形，然后将底边scale(R)至100
  
面积我是算出来的，千多个一个一个累加不实际：
三角形面积＝4330.1270
小圆的面积＝3.051581996
(必须将精度调大（我调至小数点后8位），否则小圆总面积放大1275倍有误差)
小圆个数＝1+2+3+...+50=25×51＝1275
所有圆的面积＝3.051581996×1275＝3890.7670
所求的面积＝4330.1270－3890.7670=439.3600