VLISP 对象集合

newer

bout Collections of Objects (AutoLISP/ActiveX)SHARE


LIKE (0)

All objects in the AutoCAD object model are grouped in collections.

Note: ActiveX support in AutoLISP is limited to Windows only.

For example, the Blocks collection is made up of all blocks in an AutoCAD drawing, and the ModelSpace collection comprises all graphical objects (circles, lines, polylines, and so on) in the drawing's model space.

The following table lists the collections that are part of the AutoCAD object model:

[td]

AutoCAD collection objects
Block	ModelSpace
Blocks	PaperSpace
DimStyles	PlotConfigurations
Documents	PopMenus
FileDependencies	RegisteredApplications
Groups	SelectionSets
Hyperlinks	TextStyles
Layers	Toolbars
Layouts	UCSs
Linetypes	Viewports
Materials	Views
MenuGroups

Retrieving a Member from a Collection

The Item method is used to retrieve a member object from a collection, while the Count property returns the number of items in a collection. Using the Item method and Count property, you can individually process each object in a collection.

For example, you can look at each object in a model space, determine the type of object, and process only the types of objects you are interested in. The following code prints the start angle for each Arc object in model space:

(setq index 0)(repeat (vla-get-count mspace)  (if (= "AcDbArc" (vla-get-objectname (vla-item mspace index)))    (progn      (princ "\nThe start angle of the arc is ")      (princ (vla-get-startangle (vla-item mspace index)))    )  )  (setq index (+ index 1)))Note: Item and Count also apply to groups and selection sets.

Applying a Function to All Items in a Collection

You can use vlax-map-collection to apply a single function to every object in a collection. This can be helpful when you want to list the value of a specific property for each object in a collection, such as each member’s name.

The syntax for the function is:

VLISP 对象集合

Note: The preceding example does not show every property returned by vlax-dump-object.

Applying Multiple Expressions to All Items in a Collection

You can use vlax-for to evaluate a series of functions with each object in a collection. This function is much more flexible than using vlax-map-collection. Like the foreach function, vlax-for returns the result of the last expression evaluated inside the for loop.

Note: Modifying the collection (that is, adding or removing members) while iterating through it may cause an error.

The syntax for the function is:

(vlax-for symbolcollection [expressions] ...)

The following example defines a function that uses vlax-for to show color statistics for each object in the active drawing:

This function lists each color in the drawing and the number of objects where the color is found.

1. (defun show-Color-Statistics (/ objectColor colorSublist colorList)
   
2.   (setq modelSpace (vla-get-ModelSpace (vla-get-ActiveDocument
   
3.                                                                (vlax-get-Acad-Object)
   
4.                                        )
   
5.                    )
   
6.   )
   
7.   (vlax-for obj modelSpace (setq objectColor (vla-get-Color obj))
   
8.             (if (setq colorSublist (assoc objectColor colorList))
   
9.               (setq colorList (subst
   
10.                                 (cons objectColor (1+ (cdr colorSublist)))
    
11.                                 colorSublist
    
12.                                 colorList
    
13.                               )
    
14.               )
    
15.               (setq colorList (cons (cons objectColor 1) colorList))
    
16.             )
    
17.   )
    
18.   (if colorList
    
19.     (progn
    
20.       (setq colorList (vl-sort colorList '(lambda (lst1 lst2)
    
21.                                             (< (car lst1) (car lst2))
    
22.                                           )
    
23.                       )
    
24.       )
    
25.       (princ "\nColorList = ")
    
26.       (princ colorList)
    
27.       (foreach subList colorList
    
28.         (princ "\nColor ")
    
29.         (princ (car subList))
    
30.         (princ " is found in ")
    
31.         (princ (setq count (cdr subList)))
    
32.         (princ " object")
    
33.         (princ (if (= count 1)
    
34.                  "."
    
35.                  "s."
    
36.                )
    
37.         )
    
38.       )
    
39.     )
    
40.   )
    
41.   (princ)
    
42. )
    

(defun show-Color-Statistics (/ objectColor colorSublist colorList)<br />   (setq modelSpace (vla-get-ModelSpace (vla-get-ActiveDocument<br />                                                                (vlax-get-Acad-Object)<br />                                        )<br />                    )<br />   )<br />   (vlax-for obj modelSpace (setq objectColor (vla-get-Color obj))<br />             (if (setq colorSublist (assoc objectColor colorList))<br />               (setq colorList (subst<br />                                 (cons objectColor (1+ (cdr colorSublist)))<br />                                 colorSublist<br />                                 colorList<br />                               )<br />               )<br />               (setq colorList (cons (cons objectColor 1) colorList))<br />             )<br />   )<br />   (if colorList<br />     (progn<br />       (setq colorList (vl-sort colorList '(lambda (lst1 lst2)<br />                                             (< (car lst1) (car lst2))<br />                                           )<br />                       )<br />       )<br />       (princ "\nColorList = ")<br />       (princ colorList)<br />       (foreach subList colorList<br />         (princ "\nColor ")<br />         (princ (car subList))<br />         (princ " is found in ")<br />         (princ (setq count (cdr subList)))<br />         (princ " object")<br />         (princ (if (= count 1)<br />                  "."<br />                  "s."<br />                )<br />         )<br />       )<br />     )<br />   )<br />   (princ)<br /> )<br />

q3_2006

N版写个VLISP方式写块吧...不知道SSGET...VLISP怎么写呀...