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

精灵王

以下我是从网上找到的更改无名块名的程序，运行出错 (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)
)
正确的方法应该什么，请各位指教了。

精灵王

用这个程序可以实现无名块的插入，就是看不懂程序，那位高手可以讲解一下吗？ (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
)
)

精灵王

我明白了，用了vla-insertblock 函数，上面的是它的参数
但是vla-insertblock 、vla-explode
这类函数在那里可以找到帮助文件，在lisp的帮助文件中找不到该函数？ 如何能够知道这类函数的功能，和相关参数的应用呢？

meflying

先看帮助文件里的开发人员手册中的使用ActiveX部分，要从头到尾仔细看过，先不要急着去做例子，，，主要是先把概念弄清楚了，具体的对象模型（看了之后就知道对象模型是什么了）到ActiveX and VBA reference部分查看，，，本站右上角有对象模型（红字）可以查看中文版的

精灵王

谢谢，就是举例还是英文版，没有说明，毕竟已经好多了

meflying

找个金山词霸，慢慢嚼吧。。。


有了它，我四级都没过，可我公司的美国客户说我写的英语就像老外写的一样。。。哈哈哈哈