2autocad2009-建筑圖學(xué)基礎(chǔ)隨書光盤3.01g ch12n

1、建筑設(shè)計(jì)12.1用 Auto LISP 傳統(tǒng)的方法改色現(xiàn)在，以下面的程序來示范用 Auto LISP 傳統(tǒng)的方法將圓的顏色改為綠色：;selection operateseloper.lsp;function: change color of circles of selectionset to green (3)(4)(defun c:seloper (/ index sa sl ent ename)(5)(6)(7)(8)(9)(10)(11)(12)(13)(14)(15)(16)(setq index 0) (setq sa (ssget)(setq sl (sslength sa)

2、(repeat sl(setq ent (ame sa index)(setq ename (cdr (assoc 0 (entget ent) (if(= CIRCLE ename)(d change ent p c green )(setq index (1+ index)分析：第（6）行程序?qū)⑹褂?ssget 函數(shù)來建立選集。第（7）行程序?qū)@取選集長度。第（8）（15）行的循環(huán)程序?qū)⒈闅v選集中每個(gè)對(duì)象。如果對(duì)象是圓，就將其顏色改為綠色。第（9）行程序?qū)倪x集中取出第 index+1 個(gè)對(duì)象，index 在第（4）行程序時(shí)就設(shè)定其初始為 0，則循環(huán)剛開始時(shí)取出第 1 個(gè)對(duì)象。第（10）行

3、程序?qū)⑷〉脤?duì)象的圖素名稱。第（11）行程序?qū)⒈容^圖素名稱是否為CIRCLE，若是則改變屬性。12.2以 Visual LISP+ActiveX 的方法改色繼續(xù)，配合使用 ActiveX 功能來將圓的顏色改為綠色：188第 12 章選集;selection operate using ActiveXvseloper.lsp;function: change color of circles of selectionset to green (3)(4)(defun c:vseloper (/ ic index)(5)(6)(7)(8)(9)(10)(11)(12)(13)(14)(15)(16)

4、(17)(18)(19)(20)(21)(22)(23)(24)(25)(26)(27)(28)(29)(30)(31)(32)()(setq *acadObject* (vlax-get-acad-object)(setq *acad* (vla-get-Active*acadObject*)*)(setq *mSpace* (vla-get-MSpace *acad(if sset(vla-clear sset) (progn(setq selsets (vla-get-SelectionSets *acad (setq sset (vla-add selsets ss)(vla-Sele

5、ctOnScreen sset) (setq index 0)(repeat (vla-get-count sset) (if(= AcDbCircle(vla-get-objectname (vla-item ssetindex)*)(vla-polor (vla-item *mSpace* index) acGreen)(setq index (+ index 1)分析：第（11）（17）行程序的用意在于：如果程序執(zhí)行前已有選集存在，那么就189建筑設(shè)計(jì)清除選集中的內(nèi)容；如果不存在，則新建一個(gè)選集。第（14）行程序用來擷取選集集合。第（15）行將新建一個(gè)選集。第（18）行將讓用戶在屏幕上選

6、擇對(duì)象。第（19）行以后的程序，在第 10 章以及前一個(gè)范例的基礎(chǔ)上很容易了解。與前一個(gè)范例不同的是：VLA 選集對(duì)象在使用之前要先判斷有沒有同名的選集存在，若有，就要先清空，否則重新建立時(shí)會(huì)出錯(cuò)。而傳統(tǒng)的選集在重新建立時(shí)都會(huì)自動(dòng)重新賦予新值，所以無需清空。12.3用 VBA 程序改色前兩節(jié)的范例如果以 VBA 來寫則為如下所示的程序代碼：;selection operateseloper.dvb;function: change color of circles of selectionset to green (3)(4)Option Explicit (5)(6)Public Sub s

7、eloper() (7)(8)Dim ssetObj As AcadSelectionSet(9)Dim icount As(10)eger(11)icount = ThisDrawing.SelectionSets.Count (12)While (icount 0)If ThisDrawing.SelectionSets.Item(icount - 1).Name = SSET ThenThisDrawing.SelectionSets.Item(icount - 1).Delete (15)End If(16)icount = icount - 1(17)Wend190第 12 章選集(

8、18)(19)Set ssetObj = ThisDrawing.SelectionSets.Add(SSET) (20)ThisDrawing.Utility.Prompt 請(qǐng)選擇對(duì)象. (21)ssetObj.SelectOnScreen(22)(23)Dim i As(24)eger(Di) selObj As AcadEntity (25)(26)For i = 0 To ssetObj.Count - 1(27)(28)(29)(30)Set selObj = ssetObj.Item(i)If selObj.ObjectName = AcDbCircle Then selObj.C

9、olor = acGreenEnd If(31)Next (32)(33)End Sub分析：第（12）（17）行程序?qū)⑴袛嗍欠裼忻麨?SSET的選集存在，若有則刪除之。VLISP 不同之處是這里并不將已存在的選集清空而是將其刪除，這是因?yàn)樵?VLISP 的范例里已將指向選集的變量設(shè)為整體變量，再次執(zhí)行程序時(shí)它仍然存在，只要將之清空即可；但是在 VBA 中并不能存取與設(shè)定 Visual LISP 中的整體變量，因此需刪除選集后再重新建立。課 后 習(xí) 題191建筑設(shè)計(jì)一、多選題1.“選集”：（ ）就是一個(gè)圖形對(duì)象的集合就是圖塊通常是由用戶選取以上都不對(duì)2. 以下哪個(gè)是設(shè)計(jì)選集的正確思路：（ ）累

10、加計(jì)算選集中對(duì)象的值尋找符合要求的數(shù)值如果找到就執(zhí)行某操作計(jì)算選集中對(duì)象的個(gè)數(shù)遍歷選集中每個(gè)對(duì)象尋找所需對(duì)象如果找到所要的圖形對(duì)象就執(zhí)行某操作計(jì)算選集中對(duì)象的文字符串尋找符合要求的字符串如果找到就執(zhí)行某操作以上都不對(duì)3. 在 VLISP 里，建立選集的函數(shù)是：（ ）（A）vla-get（B）get（C）ssget（D）以上都不對(duì)4. 在 VLISP + ActiveX 里，獲取選集的函數(shù)是：（ ）vla-get-SelectionSetsvlax-get-SelectionSetsvla-ssget-SelectionSets以上都不對(duì)5. 在 VBA 里，建立選集的函數(shù)是：（ ）Select

11、ionSets.Build(SSET)SelectionSets.Add(SSET)SelectionSets.Append(SSET以上都不對(duì)6. 在 VBA 里，獲取選集的函數(shù)是：（ ）（A）SelectOnScreen、Select、SlectAddPo、SlectByLineSelectOnScreen、SelectSet、SlecSelectOnScreen、Select、Slec以上都不對(duì)Po、SlectByCirclePo、SlectByPolygon二、實(shí)作問答題192第 12 章選集1. 當(dāng)您在 AutoCAD 中學(xué)到有關(guān)圖層（Layer）的重要觀念后，就會(huì)知道：規(guī)劃圖層，對(duì)

12、于未來此圖文件在修改與輸出繪圖上，都有的益處。但是，您可能會(huì)在使用或修改現(xiàn)成的別人所繪制的圖文件時(shí)，由于每個(gè)人對(duì)圖層的觀念與使用不一樣，而導(dǎo)致改圖非常不方便；若逐一使用 PROPERTIES 指令來一一轉(zhuǎn)換圖層又太費(fèi)時(shí)。所以，您能不能設(shè)計(jì)一個(gè)程序，將圖上所有的圖形自動(dòng)一一“送”到它應(yīng)該去的圖層上，以方便您的制圖（以 AutoLISP/VBA 撰寫）。設(shè)計(jì)提問：無（直接執(zhí)行）。但是執(zhí)行前必須先建立以下名稱的圖層：1.尺寸3.主體5.虛線7.隱藏線2.文字4.圖案填滿6.割面線8.中心線解答文件名稱：ARRLAYER.LSP ， ARRLAYER.DVB2. 請(qǐng)改良 AutoCAD 的 MIRROR 指令，使其可以依二點(diǎn)、一線或二并行線為中線的方式來做鏡像（以VLISP 撰寫），完成圖例所示：193建筑設(shè)計(jì)選取物件：選取物件：指：指定鏡射線的方式兩點(diǎn)（P）/一條線（1）/兩條平線的中線（2）:1 請(qǐng)選取鏡射線：是否刪除舊圖形？選取物件：選取物件：指：指定鏡射線的方式兩點(diǎn)（P）/一條線（ 1）/兩條平線的中線（2）:1 請(qǐng)選取第一條線：請(qǐng)選取第二條線：解答文件名稱：MIROBJ.LSP3. 請(qǐng)?jiān)O(shè)計(jì)一類似如下的剖面標(biāo)高功能，使其能經(jīng)過操作者在立面圖或剖