基礎考題(精確度:小數點四位數)

進階與系統規劃考題

當DIMCEN值為負時,效果如左圖

AutoLISP 程式設計考題

請求選取圓心,輸入直徑值A自動完成下列圖形

(defun c:test8_1()

(setq pt1 (getpoint "\n左下角插入點:"))
(setq dd_a (getdist pt1 "\nA 距離: "))
(setq dd_b (getdist pt1 "\nB 距離: "))
(setq ang_c (getangle "\nC 角度: "))
(setq ang_d (getangle "\nD 角度: "))
(setq ac (/ dd_a (cos ang_c)))
(setq pt2 (polar pt1 ang_c ac))
(setq db (/ (- dd_a dd_b) (cos (- ang_d ang_c))))
(setq pt3 (polar pt2 (- pi (- ang_d ang_c)) db))
(setq pt4 (polar pt3 pi dd_b))
(command "pline" pt1 pt2 pt3 pt4 "c")

)

已知水平距離A、半徑B與C,選取 半徑B中心自動完成下列圖形。

     (以下解答為scale比例調整法,網友可嘗試以三角函數方式解r解看)

(defun c:test8_2()

(setq pt1 (getpoint "\n左下角插入點:"))
(setq pt2 (getpoint pt1 "\n邊長 A:"))
(setq nn (getint "\n堆疊數: "))
(setq nn2 nn)
(setq rr (/ (distance pt1 pt2) (+ (* (- nn 2) 2) 2)))
(setq ang (angle pt1 pt2))
(setq ss (ssadd))
(setq bas1 pt1)
(repeat nn
    (setq bas bas1)
    (repeat nn2
        (command "circle" bas rr)
        (setq ss (ssadd (entlast) ss))
        (setq bas (polar bas ang (* rr 2)))
    )
    (setq nn2 (1- nn2))
    (setq bas1 (polar bas1 (+ ang (/ (* 60 pi) 180)) (* rr 2)))
)
(command "polygon" 3 "e" pt1 pt2)
(setq poly_en (entlast))
(command "offset" rr poly_en (polar pt1 (+ ang (* pi 1.5)) rr) "")
(command "area" "o" (entlast))
(setq ll (/ (getvar "perimeter") 3))
(setq ss (ssadd (entlast) ss))
(command "erase" poly_en "")
(command "scale" ss "" pt1 "r" ll (distance pt1 pt2))

)