（一）
(defun c:tuxing1 ()
(setq Rd (getdist "\n R=:"))
(setq Rx (getdist "\n r=:"))
(setq p0 (getPoint "\n Enter Center of Circle"))
(setq p1 (list(car p0) (+ (+ (cadr p0) Rd) 5)))
(setq p2 (list(- (- (car p0) Rd) 5) (cadr p0)))
(setq p3 (list(car p0) (- (- (cadr p0) Rd) 5)))
(setq p4 (list(+ (+ (car p0) Rd) 5) (cadr p0)))
(Command "line" p1 p3"")
(Command "line" p2 p4"")
(Command "circle" p0 Rd)
(Command "circle" p0 RX)
)
（二）
(defun c:tuxing2 ()
(setq Rd (getdist "\n R=:"))
(setq Rx (getdist "\n r=:"))
(setq p0 (getPoint "\n Enter Center of Circle"))
(setq a1 (list(+ (car p0) (* (cos (/ pi 4)) Rx)) (+ (cadr p0) (* (cos (/ pi 4)) Rx))))
(setq a2 (list(- (car p0) (* (cos (/ pi 4)) Rx)) (cadr a1)))
(setq a3 (list(car a2) (- (cadr p0) (* (cos (/ pi 4)) Rx))))
(setq a4 (list(car a1) (cadr a3)))
(setq b1 (list(+ (car p0) (* (cos (/ pi 4)) Rd)) (+ (cadr p0) (* (cos (/ pi 4)) Rd))))
(setq b2 (list(- (car p0) (* (cos (/ pi 4)) Rd)) (cadr b1)))
(setq b3 (list(car b2) (- (cadr p0) (* (cos (/ pi 4)) Rd))))
(setq b4 (list(car b1) (cadr b3)))
(Command "line" a1 a2 a3 a4 a1"")
(Command "line" b1 b2 b3 b4 b1"")
(Command "circle" p0 Rd)
(Command "circle" p0 RX)
)
（三）
(defun c:tuxing3 ()
(setq r (getdist "\n r=:"))
(setq p0 (getPoint "\n Enter Center of Circle"))
(setq p1 (list(- (car p0) (* r 2)) (cadr p0)))
setq p2 (list(+ (car p0) (* r 2)) (cadr p0)))
((Command "circle" p0 r)
(Command "circle" p1 r)
(Command "circle" p2 r)
)
（四）
(defun c:tuxing4 ()
(setq r (getdist "\n r=:"))
(setq p0 (getPoint "\n Enter Center of Circle"))
(setq a1 (list(+ (car p0) (* (cos (/ pi 4)) r)) (+ (cadr p0) (* (cos (/ pi 4)) r))))
(setq a2 (list(- (car p0) (* (cos (/ pi 4)) r)) (cadr a1)))
(setq a3 (list(car a2) (- (cadr p0) (* (cos (/ pi 4)) r))))
(setq a4 (list(car a1) (cadr a3)))
(Command "line" a1 a2 a3 a4 a1"")
(Command "circle" p0 r)
）
可以了,你試試吧!
autolisp教程 請高手用AutoLISP編寫4個小程序：
autolisp教程 請高手用AutoLISP編寫4個小程序：
函數(shù)名為"tuxing",要求執(zhí)行此函數(shù)時使用鍵盤輸入兩個同心圓的圓心坐標和每個圓的半徑值,然后：
1.自動繪出這兩個圓和水平,垂直的兩條中心線
2.自動繪出這連個圓和與圓同心的正方形
請根據(jù)以上兩個條件編寫兩個程序
函數(shù)名為"tuxing",要求執(zhí)行此函數(shù)時使用鍵盤輸入一個圓的圓心坐標和半徑值,然后：
1.自動繪出該圓,和與該圓在左右側(cè)相切且直徑相同的另外兩個圓
2.自動繪出該圓和與該圓同心的正方形
請根據(jù)以上兩個條件編寫兩個程序
可以將程序拆分成4個嗎?因為有4個題目,
函數(shù)名為"tuxing",要求執(zhí)行此函數(shù)時使用鍵盤輸入兩個同心圓的圓心坐標和每個圓的半徑值,然后：
1.自動繪出這兩個圓和水平,垂直的兩條中心線
2.自動繪出這連個圓和與圓同心的正方形
請根據(jù)以上兩個條件編寫兩個程序
函數(shù)名為"tuxing",要求執(zhí)行此函數(shù)時使用鍵盤輸入一個圓的圓心坐標和半徑值,然后：
1.自動繪出該圓,和與該圓在左右側(cè)相切且直徑相同的另外兩個圓
2.自動繪出該圓和與該圓同心的正方形
請根據(jù)以上兩個條件編寫兩個程序
可以將程序拆分成4個嗎?因為有4個題目,
其他人氣：881 ℃時間：2020-03-28 06:59:17
優(yōu)質(zhì)解答
我來回答
類似推薦
- 編寫一個AutoLISP程序,畫一個邊長為S1、S2,夾角為W的平行四邊形,程序還應提示用戶輸入起點PT1,長度S1、S2及夾角W.
- 編寫autolisp程序并通過visual lisp集成開發(fā)環(huán)境調(diào)試該程序
- 把自然數(shù)1.2.3.按下表的規(guī)律排成5列,請問1000出現(xiàn)在第幾列?
- 一根繩子,第一次剪去全長的8分之三,第二次剪去7.5,這時剪去的與剩下的米數(shù)比為7比5,第一次剪去多少
- 在水平面內(nèi)用5N的水平力拉著一重10N的物體做勻速直線運動
- 小明與小華郵票張數(shù)的比是5：6，小明給小華10張郵票后，小明與小華郵票張數(shù)的比是4：5．小明原有郵票多少張？
- 各項都是正數(shù)的等比數(shù)列{an}，公比q≠1，a5，a7，a8成等差數(shù)列，則公比q=_．
- 認真閱讀《仙人球》一文,
- 孫悟空是個什么樣的人物?寫一段話介紹一下
- 張騫出使西域的歷史意義是什么?
- 鋒面氣旋的中心區(qū)降不降水?
- 小蜜蜂為什么要把蜂巢做成六邊形而不做成三角形.正方形或五邊形呢
猜你喜歡
- 1【(12/5-2.4)*2010+8.7*587】/5
- 2當a大于0,則｜a減根號下9a的平方｜等于多少?
- 3《魯迅漂流記》簡要的,主要內(nèi)容?
- 4英漢互譯 No one will make a deeision to run a maratho
- 5一座雕塑的基座是圓形的,半徑是15cm,在它的周圍植上5m寬的環(huán)形草坪,草坪有多少平方米?如果植1平方米草坪的成本為20元,那么植這塊草坪的成本至少是多少元?
- 6英語翻譯
- 7在△ABC中，∠A-∠B=35°，∠C=55°，則∠B等于（ ） A.50° B.55° C.45° D.40°
- 8若平面內(nèi)有一正方形ABCD，M是該平面內(nèi)任意點，則MA+MC/MB+MD的最小值為_．
- 9冪函數(shù)f(x)的圖像點(3,根號27),則f（4）的值是?
- 10虛擬語氣練習題求解
- 11已知圓的面積S是半徑r的函數(shù)S=πr^2,用定義求S在r=5處的導數(shù),并解釋S‘（5）的意義
- 12再問下,題目是照樣子寫詞語,列子是濃濃的,我不懂那是什么