明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 2008|回复: 5

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

[复制链接]
发表于 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
)
)
 楼主| 发表于 2004-6-25 23:51:00 | 显示全部楼层
我明白了,用了vla-insertblock 函数,上面的是它的参数
但是vla-insertblock 、vla-explode
这类函数在那里可以找到帮助文件,在lisp的帮助文件中找不到该函数?
如何能够知道这类函数的功能,和相关参数的应用呢?
发表于 2004-6-26 08:25:00 | 显示全部楼层
先看帮助文件里的开发人员手册中的使用ActiveX部分,要从头到尾仔细看过,先不要急着去做例子,,,主要是先把概念弄清楚了,具体的对象模型(看了之后就知道对象模型是什么了)到ActiveX and VBA reference部分查看,,,本站右上角有对象模型(红字)可以查看中文版的
 楼主| 发表于 2004-6-26 09:12:00 | 显示全部楼层
谢谢,就是举例还是英文版,没有说明,毕竟已经好多了
发表于 2004-6-26 10:37:00 | 显示全部楼层
找个金山词霸,慢慢嚼吧。。。


有了它,我四级都没过,可我公司的美国客户说我写的英语就像老外写的一样。。。哈哈哈哈
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-11-6 11:43 , Processed in 0.181790 second(s), 25 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表