创建匿名组

admin

1. (defun isAppLoaded (app)
3.    (if (not (member app (arx)))
5.       (setq bAppLoaded :vlax-false)
7.       (setq bAppLoaded :vlax-true)
9.    )
11.    bAppLoaded
13. )
17. (defun Example采用AddLightWeightPolyline()
19.    (vl-load-com)
21.    (if (= (isAppLoaded "asdkanonygrplsp.arx") :vlax-false)
23.       (arxload (findfile "asdkanonygrplsp.arx"))
25.    )
31.    (setq oAcad (vlax-get-acad-object)
33.            oDoc (vla-get-activedocument oAcad)
35.            *ModelSpace* (vla-get-ModelSpace oDoc)
37.    )
43.    ;;Add anonymous group
45.    (setq myGroup (vl-catch-all-apply
47.                               'vla-objectidtoobject
49.                               (list
51.                                  oDoc
53.                                  (vlax-make-variant
55.                                (car (acdbAddAnonGrpRet2Lsp))
57.                                     vlax-vbLong
59.                                  )
61.                               )
63.                            )
65.    ) ;setq
71.    ;;If error encountered making group, then exit
73.    (if (vl-catch-all-error-p myGroup)
75.       (princ (vl-catch-all-error-message myGroup))
77.       ;;otherwise continue...
79.       (progn
81.          ;; Define the 2D polyline points
83.          (setq pt1 (list 1.0 1.0)
85.                  pt2 (list 1.0 2.0)
87.                  pt3 (list 2.0 2.0)
89.                  pt4 (list 3.0 2.0)
91.                  pt5 (list 4.0 4.0)
93.          )
95.      (setq Points (apply 'append (list pt1 pt2 pt3 pt4 pt5)))
97.          (setq ptlstlen (length Points))
103.          ;; Make array of 5*2=10 doubles -
105.      ;; that's an array of dimension 0 to 9
107.          (setq PointDataA (
109.         vlax-make-safearray vlax-vbDouble (
111.                       cons 0 (1- ptlstlen))))
113.          (vlax-safearray-fill PointDataA Points)
115.          (setq PointData (vlax-make-variant PointDataA))
121.       ;; Create a light weight Polyline object in model space
123.          (setq myLWpoly (
125.         vla-addLightweightPolyline *ModelSpace* PointData))
131.          ;; Make array of 1 object (the new LWPolyline)
133.    (setq myObjA (vlax-make-safearray vlax-vbObject '(0 . 0)))
135.          (vlax-safearray-put-element myObjA 0 myLWpoly)
141.          ;; Add the LWPolyline to the group
143.          (vla-appenditems myGroup myObjA)
145.       ) ;progn
147.    ) ;if
149.    (princ)
151. )

复制代码