【正文】 n1) ) 方案三與方案一 、 二相比，主要區(qū)別在于程序段執(zhí)行后，圖案得到填充了，整體感更濃厚。 演示上述程序，首先我們將 AutoCAD 軟件打開，然后我們在 AutoCAD 中加載該程序段，并且在命令行輸入： wu3 的命令，系統(tǒng)會要求我們指定五角星的中心點(diǎn)的位置，輸入五角星外接圓半徑，按下“ Enter”鍵，五角星就會自動的出現(xiàn)在用戶選定的位置上。如下圖所示： 圖 程序執(zhí)行步驟 江西理工大學(xué) 2021 屆專科生畢業(yè)設(shè)計(jì)（論文） 23 圖 五角星模塊的 實(shí)現(xiàn) 印章輪廓的實(shí)現(xiàn) 機(jī)械繪圖中我們經(jīng)常要繪制特殊的圖形，需要在特殊的圖案上書寫，標(biāo)注等，就拿書寫圓弧字來說，使用手工繪圖時(shí)可以方便很多，然而在 AutoCAD 中我們要做出這樣的效果，就必須計(jì)算好字符之間的間距，字符的旋轉(zhuǎn)角度。雖然這些都是瑣碎的小事，可如果每輸入一個(gè)字符都需要進(jìn)行這些操作就會顯得很是麻煩，而且無法提高工作效率，嚴(yán)重影響著繪圖圓們的制圖 速度 和制圖質(zhì)量 。 下面的程序就可完成上述的操作： (defun C:yz() (setq p1 (getpoint請輸入定位點(diǎn) )) (setq pp1(polar p1 (* pi) 40)) (setq pp2(polar p1 (* pi) 40)) (setq xx (getstring請輸入學(xué)校名稱 )) (mand circle p1 30) (mand zoom w pp1 pp2) (setq pwz (polar p1 (* pi) 20)) (mand _text j mc pwz 0 wz ) (setq cd (strlen xx)) (setq cd (/ cd 2)) (setq cd1 (/ cd 2) ) (setq i 1) (setq ii 0) (if (=(rem cd 2) 0) (progn 江西理工大學(xué) 2021 屆?？粕厴I(yè)設(shè)計(jì)（論文） 24 (while ( cd 0) (setq z (substr xx i 2)) (setq zd (polar p1 (( (+ (/ pi 2) (* cd1 (/ pi 10))) (* (/ pi 10) ii))(/ pi 72)) 23)) (setq jd ( ( (+ (/ pi 2) (* cd1 (/ pi 10))) (* (/ pi 10) ii)) (/ pi 2))) (setq jd2 (* (/ jd pi) 180)) (mand _text zd 5 jd2 z ) (setq cd ( cd 1)) (setq i (+ i 2)) (setq ii ( + ii 1)) ) ) (progn (while ( cd 0) (setq z (substr xx i 2)) (setq zd (polar p1 (+( (+ (/ pi 2) (* cd1 (/ pi 10))) (* (/ pi 10) ii))(/ pi 72)) 23)) (setq jd ( ( (+ (/ pi 2) (* cd1 (/ pi 10))) (* (/ pi 10) ii)) (/ pi 2))) (setq jd2 (* (/ jd pi) 180)) (mand _text zd 5 jd2 z ) (setq cd ( cd 1)) (setq i (+ i 2)) (setq ii ( + ii 1)) ) ) ) (princ 00000000) ) 將上述程序進(jìn)行操作，首先我們將 AutoCAD軟件打開，然后我們在 AutoCAD中加載該程序段，并且在命令行輸入： yz 的命令，系統(tǒng)會要求我們輸入定位點(diǎn)，輸入學(xué)校名稱，按下“ Enter”鍵，印章輪廓就會自動的出現(xiàn)在用戶選定的位置上。如下圖所示： 圖 程序執(zhí)行示意圖 江西理工大學(xué) 2021 屆?？粕厴I(yè)設(shè)計(jì)（論文） 25 圖 印章輪廓的實(shí)現(xiàn) 印章插件的實(shí)現(xiàn) 利用上一小節(jié)編寫的三個(gè)子模塊的程序段，合理的將其配合，雜糅到一起，成功的得到了三種印章的完整程序。 印章的程序如下所示： 1）命令行方式： 方案一 (defun C:yz() ；對程序進(jìn)行定義 (setq p1 (getpoint請輸入定位點(diǎn) )) (setq pp1(polar p1 (* pi) 40)) (setq pp2(polar p1 (* pi) 40)) (setq wz (getstring請輸入日期 )) ；自定義日期 (setq xx (getstring請輸入學(xué)校名稱 )) ；自定義學(xué)校名稱 (mand circle p1 30) (mand zoom w pp1 pp2) (setq xp1 (polar p1 (* pi) 15)) ；對五角星點(diǎn)位進(jìn)行設(shè)定 (setq xp2(polar p1 (* (+ )pi) 15)) (setq xp3(polar p1 (*(+ ) pi) 15)) (setq xp4(polar p1 (* (+ ) pi) 15)) (setq xp5(polar p1 (* (+ ) pi) 15)) (setq xp11(polar p1(* pi ) ) xp21(polar p1(* pi ) ) xp31(polar p1(* pi ) ) xp41(polar p1(* pi ) ) 江西理工大學(xué) 2021 屆專科生畢業(yè)設(shè)計(jì)（論文） 26 xp51(polar p1(* pi ) ) ) (setq sp1 (polar p1 (* pi) 13)) (setq sp2(polar p1 (* (+ )pi) 13)) (setq sp3(polar p1 (*(+ ) pi) 13)) (setq sp4(polar p1 (* (+ ) pi) 13)) (setq sp5(polar p1 (* (+ ) pi) 13)) (mand _color red ) (mand line xp1 xp11 xp2 xp21 xp3 xp31 xp4 xp41 xp5 xp51 xp1 ) (mand line p1 xp1 ) (mand line p1 xp2 ) (mand line p1 xp3 ) (mand line p1 xp4 ) (mand line p1 xp5 ) (mand _color bylayer ) (setq pwz (polar p1 (* pi) 20)) (mand _text j mc pwz 0 wz ) (setq cd (strlen xx)) (setq cd (/ cd 2)) (setq cd1 (/ cd 2) ) (setq i 1) (setq ii 0) (if (=(rem cd 2) 0) (progn (while ( cd 0) (setq z (substr xx i 2)) (setq zd (polar p1 (( (+ (/ pi 2) (* cd1 (/ pi 10))) (* (/ pi 10) ii))(/ pi 72)) 23)) (setq jd ( ( (+ (/ pi 2) (* cd1 (/ pi 10))) (* (/ pi 10) ii)) (/ pi 2))) (setq jd2 (* (/ jd pi) 180)) (mand _text zd 5 jd2 z ) (setq cd ( cd 1)) (setq i (+ i 2)) (setq ii ( + ii 1)) ) ) 江西理工大學(xué) 2021 屆?？粕厴I(yè)設(shè)計(jì)（論文） 27 (progn (while ( cd 0) (setq z (substr xx i 2)) (setq zd (polar p1 (+( (+ (/ pi 2) (* cd1 (/ pi 10))) (* (/ pi 10) ii))(/ pi 72)) 23)) (setq jd ( ( (+ (/ pi 2) (* cd1 (/ pi 10))) (* (/ pi 10) ii)) (/ pi 2))) (setq jd2 (* (/ jd pi) 180)) (mand _text zd 5 jd2 z ) (setq cd ( cd 1)) (setq i (+ i 2)) (setq ii ( + ii 1)) ) ) ) (princ 00000000) ) 我們加載程序 yz 后， 運(yùn)行它，系統(tǒng)會提示： 請輸入定位點(diǎn) ； 請輸入日期 ；請輸入學(xué)校名稱 。回答完上面 3 個(gè)問題后， 系統(tǒng)將自動繪制出用戶 所需要的 電子印章 的圖形。 如下圖所示： 圖 電子印章（一） 方案二 (defun C:yz() 江西理工大學(xué) 2021 屆?？粕厴I(yè)設(shè)計(jì)（論文） 28 (setq p1 (getpoint請輸入定位點(diǎn) )) (setq pp1(polar p1 (* pi) 40)) (setq pp2(polar p1 (* pi) 40)) (setq wz (getstring請輸入日期 )) (setq xx (getstring請輸入學(xué)校名稱 )) (mand circle p1 30) (mand zoom w pp1 pp2) (setq xp1 (polar p1 (* pi) 15)) (setq xp2(polar p1 (* (+ )pi) 15)) (setq xp3(polar p1 (*(+ ) pi) 15)) (setq xp4(polar p1 (* (+ ) pi) 15)) (setq xp5(polar p1 (* (+ ) pi) 15)) (setq xp11(polar p1(* pi ) ) xp21(polar p1(* pi ) ) xp31(polar p1(* pi ) ) xp41(polar p1(* pi ) ) xp51(polar p1(* pi ) ) ) (setq sp1 (polar p1 (* pi) 13)) (setq sp2(polar p1 (* (+ )pi) 13)) (setq sp3(polar p1 (*(+ ) pi) 13)) (setq sp4(polar p1 (* (+ ) pi) 13)) (setq sp5(polar p1 (* (+ ) pi) 13)) (mand _color red ) (mand line xp1 xp11 xp2 xp21 xp3 xp31 xp4 xp41 xp5 xp51 xp1 ) (mand line p1 xp1 ) (mand line p1 xp2 ) (mand line p1 xp3 ) (mand line p1 xp4 ) (mand line p1 xp5 ) (mand line p1 xp11 ) (mand line p1 xp21 ) (mand line p1 xp31 ) (mand line p1 xp41 ) (mand line p1 xp51 ) 江西理工大學(xué) 2021 屆?？粕厴I(yè)設(shè)計(jì)（論文） 29 (mand _color bylayer ) (setq pwz (polar p1 (* pi) 20)) (mand _text j mc pwz 0 wz ) (setq cd (strlen xx)) (setq cd (/ cd 2)) (setq cd1 (/ cd 2) ) (setq i 1) (setq ii 0) (if (=(rem cd 2) 0) (progn (while ( cd 0) (setq z (substr xx i 2)) (setq zd (polar p1 (( (+ (/ pi 2) (* cd1 (/ pi 10))) (* (/ pi 10) ii))(/ pi 72)) 23)) (setq jd ( ( (+ (/ pi 2) (* cd1 (/ pi 10))) (* (/ pi 10) ii)) (/ pi 2))) (setq jd2 (* (/ jd pi) 180)) (mand _text zd 5 jd2