有函数不会写代码，求助大神

hdq741116723

这两个函数如何写成可使用的lsp？

35.1 [功能]块中删除对象 ;; 示例：（MJ：DeleteObjectFromBlock（car（nentsel））） ;; 注意：1.如图所示，您可以使用NENTSEL函数获取块中实体的名称。 ;; 2.重新绘制图形之前，现有的程序段参考不会显示更改。 （defun MJ：DeleteObjectFromBlock（ent / doc blk）     （setq ent（vlax-ename-> vla-object ent） blk（vla-ObjectIdToObject * DOC *（vla-get-OwnerID ent））   ）   （vla-Delete ent）
  （vla-get-Count blk）
）
;; 35.2 [功能]块增加对象
;; 示例：（MJ：AddObjectsToBlock（car（entsel））（ssget））
;; 注意：直到你
; 现有的块引用才会显示出变化。regen the drawing
（defun MJ：AddObjectsToBlock（blk ss / doc blkref blkdef inspt refpt）
  （vl-load-com）
  （setq blkref（vlax-ename-> vla-object blk）
blkdef（vla-Item（vla-get-Blocks （Vla-get-Name-blkref））
inspt（vla-get-InsertionPoint blkref））
ssarray（SS-> 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）
）

marting

这个函数的参数 是两个，
1、块实体名
2、选择集

是把选择集的实体添加到块中

你写程序，就是得到这两个参数，然后交给函数就行了。

Lisphk

缺函数  SS->Array

kqqt6236

支持一下。

追风lisp

把教材看完先