添加选择集到块

huangyusen2000

(defun ax:AddObjectsToBlock (blk ss / doc blkref blkdef inspt refpt)
  (vl-load-com)
  (setq        doc        (vla-get-ActiveDocument (vlax-get-acad-object))
        blkref        (vlax-ename->vla-object blk)
        blkdef        (vla-Item (vla-get-Blocks doc) (vla-get-Name blkref))
        inspt        (vlax-variant-value (vla-get-InsertionPoint blkref))
        ssarray        (selectionset->array ss)
        refpt        (vlax-3d-point '(0 0 0))
  )
  (foreach ent (vlax-safearray->list ssarray)
    (vla-Move ent inspt refpt)
  )
  (vla-CopyObjects doc ssarray blkdef)
  (foreach ent (vlax-safearray->list ssarray)
    (vla-Delete ent)
  )
  (princ)
)
(defun SELECTIONSET->ARRAY (SS / C R)
  (vl-load-com)
  (setq C -1)
  (repeat (sslength SS)
    (setq R (cons (ssname SS (setq C (1+ C))) R))
  )
  (setq R (reverse R))
  (vlax-safearray-fill
    (vlax-make-safearray
      vlax-vbobject
      (cons 0 (1- (length R)))
    )
    (mapcar 'vlax-ename->vla-object R)
  )
)
(defun C:jdk();添加选择集到块
(ax:AddObjectsToBlock (car (entsel)) (ssget))
  )

吴外安放

谢谢版主分享

xvjiex

感谢楼主分享添加选择集到块！