(defun c:drawing()
(setvar "cmdecho" 0)
(setq ptcenter (getpoint "\n請(qǐng)輸入圓心位置:"))
(setq dist(getdist "\n請(qǐng)輸入基圓半徑:"))
(command "_circle" ptcenter dist)
(command "_circle" ptcenter (* dist 1.2) )
(command "_circle" ptcenter (* dist 1.2 1.2) )
(command "_circle" ptcenter (* dist 1.2 1.2 1.2) )
(princ)
)
再保存為drawing.lsp就OK了...
編寫autolisp程序并通過visual lisp集成開發(fā)環(huán)境調(diào)試該程序
編寫autolisp程序并通過visual lisp集成開發(fā)環(huán)境調(diào)試該程序
：程序文件名為drawing.lsp,程序中定義了函數(shù)drawing,用于根據(jù)用戶指定的圓心位置和半徑繪一個(gè)基圓和與該圓同心的另外三個(gè)圓,這三個(gè)圓的半徑依次是與其相鄰的前一個(gè)圓半徑的1.2倍.
：程序文件名為drawing.lsp,程序中定義了函數(shù)drawing,用于根據(jù)用戶指定的圓心位置和半徑繪一個(gè)基圓和與該圓同心的另外三個(gè)圓,這三個(gè)圓的半徑依次是與其相鄰的前一個(gè)圓半徑的1.2倍.
其他人氣：724 ℃時(shí)間：2020-05-20 17:24:52
優(yōu)質(zhì)解答
我來回答
類似推薦
- autolisp教程 請(qǐng)高手用AutoLISP編寫4個(gè)小程序：
- 編寫一個(gè)AutoLISP程序,畫一個(gè)邊長為S1、S2,夾角為W的平行四邊形,程序還應(yīng)提示用戶輸入起點(diǎn)PT1,長度S1、S2及夾角W.
- As we all know,numbers____in e-mail English to standnfor words.
- 在一根長931米的注滿水的鑄鐵水管的一端敲一下,在另一端聽到三次聲音,為什么?
- who do these books belong to?who does these book
- Singular Number,Plural Number,Regular Plural
- which team __yesterday's match,chinese or french?A was win Bwon C did won D winning
- 請(qǐng)教為什么在美國或中國登月的照片上,作為背景的太空沒有一顆星星?
- 在平面直角坐標(biāo)系中,一動(dòng)點(diǎn)P從原點(diǎn)O出發(fā)按下面規(guī)律進(jìn)行移動(dòng),
- if only the letter__there in time.
- 在探究“怎樣用滑動(dòng)變阻器改變燈泡的亮度”時(shí),閉合開關(guān)前,滑動(dòng)變阻器的滑片應(yīng)調(diào)到_____處.這是因?yàn)檫@樣電路中的電阻_____,電流_____,可以保護(hù)_____.
- 一個(gè)數(shù)比5分之3多2分之一,這個(gè)數(shù)是多少
猜你喜歡
- 1一根長314厘米的繩子在一根管子的外壁上恰好繞了十圈,如果這根管子的管壁厚為五毫米那么這根管子的橫截面
- 2薛譚學(xué)謳于秦青,未窮青之技,自謂盡之,遂辭歸.秦青弗止,踐行于郊外.
- 3干溫24.8 濕溫21 求相對(duì)濕度與空氣溫度?
- 4、粉刷62平方米的房間墻面,若每平方米需要涂料0.5升,在實(shí)際粉刷時(shí)要多用10%的涂料,粉刷完房間墻面要用
- 5姥姥的剪紙 課文 這篇課文的中心句是什么
- 6商店運(yùn)來1800千克蘋果第一天賣掉中總數(shù)的百分之二十,第二天賣掉剩余的百分之三十五,還剩多少千克蘋果
- 7用兩種正多邊形拼地板，其中的一種是正八邊形，則另一種正多邊形的邊數(shù)是（ ?。?A.正五邊形 B.正六邊形 C.正三角形 D.正四邊形
- 8一本書售價(jià)4元.如果樂樂買了這本書,則樂樂剩下的錢與天天的錢數(shù)之比為2:5；
- 9電容器335K代表什么意思
- 10已知X,Y大于0.（1除X）+（9除Y）=1,求X+Y的最小值
- 11m為非零有理數(shù),比較m,m分之1和負(fù)m的大小
- 12一道大學(xué)物理題,