[求助]如何更改无名块名

精灵王 · 发表于 2004-6-25 22:57:00

以下我是从网上找到的更改无名块名的程序，运行出错
(defun c:cccc( / e en j new old ss)
(defun dxf(a b)(cdr(assoc a b)))
(command"undo""group")
(if(and(setq ss(ssget '((0 . "INSERT"))))
   (setq new(getstring "\n名称:"))
   (not(tblsearch "block" new))
   )
   (progn
   (setq old(dxf 2(entget(ssname ss 0))))
   (command "-insert" old '(0 0) "1""1" 0)    运行时提示找不到块
   (command "explode"(entlast))
   (command "-block" new '(0 0)"P" "")
   (setq j 0)
   (repeat(sslength ss)
   (setq e(ssname ss j)
   en(entget e)
   en(subst(cons 2 new)(assoc 2 en)en)
   )
   (entmod en)
   (setq j(1+ j))
   )
   ))(command"undo""end")
   (princ)
)
正确的方法应该什么，请各位指教了。

精灵王 · 发表于 2004-6-25 23:31:00

用这个程序可以实现无名块的插入，就是看不懂程序，那位高手可以讲解一下吗？
(defun InsertBlock (InsertPt blkname / mspace)
(vl-load-com)
(setq mspace (vla-get-modelspace
(vla-get-activedocument (vlax-get-acad-object))
)
)
(vla-insertblock
mspace ;;这个语句是什么意思？有什么作用。
(vlax-3d-point InsertPt)
blkname ;;;这句和以下的句子有什么作用，这个不是表
1
1
1
0
)
)