機械cadcam往年試卷匯總-資料下載頁
2025-06-25 01:23本頁面
【正文】 (setq t1 ) (setq t1 )） (mand“pline ” p1 p2 p3 p4 “c”) (mang“hatch”“ansi31”t1 “0”“w”p4 p1 “”) (prinl) )用AutoLISP語言編寫一個名為“tuxing”的自定義函數(shù)。要求執(zhí)行此函數(shù)時使用鍵盤輸入一個圓的圓心坐標和半徑值，然后自動繪出該圓和與該圓外切的正方形。(defun C:tuxing (/p0 r p1 p2 p3 p4) 或:(defun C:tuxing (/p0 r p1 p2 p3 p4)(setq p0 (getpoint “\n輸入圓心坐標”)) (setq p0 (getpoint “\n輸入圓心坐標”))(setq r (getreal “\n輸入圓的 半徑”)) (setq r (getreal “\n輸入圓的 半徑”))(setq p1 (polar p0 0 (* r))) （setq p1 (polar p0 (/ pi 4)(* r))）(setq p2 (polar p0 (/ pi 2) (* r))) (setq p2 (polar p0 (/(* pi 3) 4) (* r))) (setq p3 (polar p0 pi (* r))) (setq p3 (polar p0(/(* pi 5) 4) (* r))) (setq p4 (polar p0 (* pi )(* r))) (setq p4 (polar p0(/(* pi 7) 4) (* r)))(mand “circle” p0 r) (mand “circle” p0 r)(mand “l(fā)ine” p1 p2 p3 p4 “”) (mand “l(fā)ine” p1 p2 p3 p4 “”)) )（外切圓頂點在坐標軸） （外切圓頂點平行于坐標軸）用AutoLISP語言編寫一個名為“tuxing”的自定義函數(shù)，要求執(zhí)行此函數(shù)時使用鍵盤輸入一個圓的圓心坐標和半徑值，然后自動繪出該圓和該圓同心的正方形（正方形對角線長度等于圓直徑的2倍，且對角線為水平線）(defun c: tuxing (/p0 r p1 p2 p3 p4)(setq p0 (getpoint “\n輸入圓心坐標”))(setq r (getreal “\n輸入圓半徑”))(setq p1 (polar p0 0 (* r 2)))(setq p2 (polar p0 (/ pi 2) (* r 2)))(setq p3 (polar p0 pi (* r 2)))(setq p4 (polar p0 (/(* pi 3) 2) (* r 2)))(mand “circle” p0 r)(mand “pline” p1 p2 p3 p4 “c”))用AutoLISP語言編寫一個名為“圓管斷面”的自定義函數(shù)。說明：此圓管斷面函數(shù)的功能是自動畫出一個如圖所示的圓管斷面圖，即：此函數(shù)執(zhí)行時，要求用戶鍵入圓管的內(nèi)徑、外徑以及圓管斷面中心點在屏幕上的位置或坐標值，然后自動繪出該圓管斷面圖并繪出剖面線。(defun c:圓管斷面(/ pc1 p1 p2 p3 p4 r1 r2 a1 a2 a3) (setq pc1(getpoint”\n請給出圓管斷面中心點：”)) (setq r1(getdist”\n輸入內(nèi)孔半徑：”)) (setq r2(getdist”\n輸入外孔半徑：”)) (setq a1(/ pi 2)) (setq a2(/ (* 3 pi) 2)) (setq a3(+ r2 )) (setq p1(polar pc1 a3)) (setq p2(polar pc1 a1 a3)) (setq p3(polar pc1 pi a3)) (setq p4(polar pc1 a2 a3)) (mand “circle” pc1 r1) (mand “circle” pc1 r2) (mand “hatch” “ansi31” “” “” “all” “”) (mand “l(fā)ine” p1 p3 “”) (mand “l(fā)ine” p2 p4 “”)) 。請用AutoLISP語言編程定義一個名為“hhh”的自定義函數(shù)，hhh函數(shù)的功能是加載、驅(qū)動、（即：此函數(shù)執(zhí)行時，對話框hhh就出現(xiàn)在AutoCAD的圖形屏幕上，供用戶進行下一步的操作）。Hhh : dialog{ Label=”熱處理方法”。 :popup_list{ Key=”test_popup_box”。 Edit_width=20。 Label=”熱處理”。 List=”淬火\n 調(diào)質(zhì)\n 回火\n 正火\n 退火”。 } Ok_cancel。}參考答案： (defun c:hhh(/ dcl_id) (setq dcl_id(load_dialog “”)) (if (not (new_dialog “hhh” dcl_id)) (exit) (action_tile “accept” “(done_dialog)”) (start_dialog) (unload_dialog dcl_id) (princ) )8 /
法律信息相關(guān)推薦
鄂ICP備17016276號-1