块添子实体

leizy800

请问如何实现把选择集内的实体添加到已知块中？谢谢。。。。。请给我讲讲实现的方法，有代码就最好了。。。。

alin

参考这个程序

     ;BLK:MAKE-BLOCK_______________________________________________
     ;Creates a block out of list of vla-objects
     ;Arguments
     ; 1) insertion point <(x y z)>
     ; 2) block name <string>
     ; 3) list of entities as vla-objects
     ; 4) document object
     ; 5) Use "*u" as the blockname argument to this function
     ;    TO MAKE AN UNNAMED BLOCK

(defun blk:make-block (ip blockname vla-objects doc / blkobj sArray)
  (setq
    blkobj (vla-add (vla-get-blocks doc) (vlax-3d-point ip) blockname)
    sArray
    (vlax-safearray-fill
      (vlax-make-safearray
        vlax-vbObject
        (cons 0 (1- (length vla-objects)))
      )
      vla-objects
    )
  )
  (vla-copyobjects doc sArray blkobj)
  blkobj
)
;;;将选择集换成对象表
(defun selectionset->vla-object-list (sset / thelist idx)
  (setq thelist '()
 idx -1
  )
  (repeat (sslength sset)
    (setq thelist (append thelist
     (list (vlax-ename->vla-object
      (ssname sset (setq idx (1+ idx)))
    )
     )
    )
    )
  )
)
;;;

leizy800

我要的是把一个实体添加到一个已经定义好的块中，就是我先前已经做好一个块了， 但是后来我想把一个实体舔加到这个块中。

liu22737

双击块就可以编辑了（02以后的版本）（在以前的帖子中，飞板主讲过的）

alin

Almost there...:)

(defun c:Add2Block(/ blkobj sArray blockname vla-objects)
  (setq doc (vla-get-activedocument (vlax-get-acad-object)))
  (princ "\Please select the object to add into a block....")
  (setq vla-objects (selectionset->vla-object-list (ssget)))
  (setq blockname (cdr (assoc 2 (entget (car (entsel "\nSelect a block: "))))))
  (setq
    blkobj (vla-item (vla-get-blocks doc) blockname)
    sArray
    (vlax-safearray-fill
      (vlax-make-safearray
        vlax-vbObject
        (cons 0 (1- (length vla-objects)))
      )
      vla-objects
    )
  )
  (vla-copyobjects doc sArray blkobj)
  (mapcar 'vla-delete vla-objects)
  (vla-regen doc :vlax-true)
)
;;;?????????
(defun selectionset->vla-object-list (sset / thelist idx)
  (setq thelist '()
 idx -1
  )
  (repeat (sslength sset)
    (setq thelist (append thelist
     (list (vlax-ename->vla-object
      (ssname sset (setq idx (1+ idx)))
    )
     )
    )
    )
  )
)

leizy800

不行啊,把实体给弄飞了,再也找不到了..................................................

alin

还需要一个变换。。。

alin

这样才行。。。

幸福是真

no function definition: LLDET:INVERSE