[求助]：块替换

snow-rose · 发表于 2003-8-29 11:01:00

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

在平面图中插入一个块30次，但现在要修改其中的15处用另一个块替代，能否象WORD一样自动查找并提示是否替换。

lsjjm · 发表于 2003-8-29 11:20:15

Reference:
<<Replacing Blocks - Updated>>
www.afralisp.com/newsletter/code/code57.htm

xyzjint_cn · 发表于 2003-8-29 16:38:45

以前我也编了一个这样的程序，因上网不是用自己的机器，不能将代码上传，如需要的话下次上传。
你的图块是做成块时选取的基准点是不是图形的中心，
我的图块是以图块的中心为基准点的，
我的思路是，先点一目标图块，取得该图块的名称，再选取要变成目标图块的所有源图块，通过循环取得每个源图块的插入点，将该源图块删除，再根据源图块的插入点坐标及目标图块的名称在插入点处重新插入新图块。
基本思路就是这样，希望对你有所帮助！
需程序的话下次联系！

chenhang1203 · 发表于 2003-8-29 17:04:46

代码传上来大家看看吧
我觉的最好是能做个象格式刷一样的东西能把刷到的块样式替代为新块，而没刷到的还是原来的样子

eachy · 发表于 2003-8-29 21:38:05

如果你看看CAD中的Sample，里面已经有了，VBA程序。

ll_j · 发表于 2003-8-30 10:06:06

我的程序也许会有点帮助，老程序了，以前贴过，不过不是自动查找。

e2002 · 发表于 2003-8-30 11:08:55

我也写了一个,已经集成在在lkpt工具集中了,到下载中心下载吧

xyzjint_cn · 发表于 2003-8-30 15:20:56

各位，注意了，代码上传（块替换）
本着自由交流的原则，现免币下载：

xyzjint_cn · 发表于 2003-8-30 15:35:59

不知程序合不合大家的意，希望有更好的程序出现！

klr · 发表于 2003-8-30 20:39:32

我觉得应该再优化一下XYZLINT-CN的LISP……
1，应该可以选择图形去替换原块……
首先，选择了原块（需替换的块），之后，选择替换块时，应先判断选择的物体是否是块，如果是块就用XYZLINT的代码……替换，
如果判断不是块，则应转到做块的命令，新建一个块，去替换原块……
这是饿哦的理解……有人愿意优化这个LISP么？？？……
盼！！！

snow-rose · 发表于 2003-8-30 21:57:00

是否将"块替换.LSP"放入LIZHENG\LISP目录就可?

陌生人 · 发表于 2003-8-31 09:21:07

对含有属性的块有效么？

dwgplt · 发表于 2003-8-31 09:37:46

ll_j 的程序好用，并且对属性块也有效

xyzjint_cn · 发表于 2003-9-1 09:21:23

用APPLOAD命令加载该文件，键入bldrp就可运行

john2004 · 发表于 2003-9-2 16:23:56

块替换.LSP加载了用blkrp命令
或加载cb.lsp后用cb命令

账号		自动登录	找回密码
密码			立即注册

[求助]：块替换

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子