从XREF、INSERT实体内部抠出实体的工具

Lispboy · 发表于 2013-7-1 00:34:24

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

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

×

请加载XDRX_API,和晓东通用LISP函数库，论坛置顶帖子都有。

上面是在2014下的演示，API支持2014真是爽啊。

初级会员权限下载。

请点击此处下载

请先注册会员后在进行下载

已注册会员，请先登录后下载

文件名称:XDTB_CopyN.lsp
下载次数:65 文件大小:1.46 KB 售价:20D豆 [记录]
下载权限: 实习生以上 [免费赚D豆]

dwg001 · 发表于 2013-7-1 10:08:45

本帖最后由 dwg001 于 2013-7-1 10:25 编辑

一直没搞成的东西，终于见到了。超级神帖！顶楼主。如果不借壳XDRX_API 不知能搞成否？可否把测试图一并上传？

;;以下为cad2006 下测试结果。
命令: XDTB_CopyN
拾取要拷贝的INSERT或XREF实体<退出>:
选择方式[C-交叉/W-窗口/S-拾取多边形]<C>c
拷贝范围窗口第一点<退出>:
窗口第二点<退出>:; 错误: no function definition: XD::BLOCK:SELECT

;;可否把子程序（XD::BLOCK:SELECT）加入呢？

Lispboy · 发表于 2013-7-1 10:39:30

dwg001 发表于 2013-7-1 10:08
一直没搞成的东西，终于见到了。超级神帖！顶楼主。如果不借壳XDRX_API 不知能搞成否？可否把测试图一并上 ...

你说的 XD::Block:Select 在老大公布的晓东通用LISP函数库里面呢，你下载那个就有了。

源码在 “函数发布”里面，昨天我发的，就在函数发布的首页。

不用XDRX_API很难，你可以去看看这个工具讨论的原贴，里面有我用普通LISP写的，不过有朋友反映有问题，后来就改用XDRX_API了。

http://www.xdcad.net/forum/forum ... read&tid=667679

为什么不用XDRX_API，免费让你用的啊，支持到2014版本。

st788796 · 发表于 2013-7-1 10:49:13

dwg001 发表于 2013-7-1 10:08
一直没搞成的东西，终于见到了。超级神帖！顶楼主。如果不借壳XDRX_API 不知能搞成否？可否把测试图一并上 ...

有可能的，就像 Ncopy，Explode Blockref ，框选后在 ssget p （explode）的实体中判断，最后删除没有框选到的实体，如果中断也要清理现场

Lispboy · 发表于 2013-7-1 10:52:41

st788796 发表于 2013-7-1 10:49
有可能的，就像 Ncopy，Explode Blockref ，框选后在 ssget p （explode）的实体中判断，最后删除没有框 ...

研究过NCOPY，忘了。

里面是炸开块，然后在操作的吗？我怎么记得NCOPY是用nentsel 单选实体，只能拷贝单个实体出来的？

st788796 · 发表于 2013-7-1 11:11:00

Lispboy 发表于 2013-7-1 10:52
研究过NCOPY，忘了。

里面是炸开块，然后在操作的吗？我怎么记得NCOPY是用nentsel 单选实体，只能拷 ...

没有再看 Ncopy 现在是什么算法，曾经研究的时候是 Explode ，不是 Nentsel，不过用 Explode 确是可以实现框选

dwg001 · 发表于 2013-7-1 17:53:09

本帖最后由 dwg001 于 2013-7-1 18:01 编辑

谢谢回复。
ET工具的Ncopy 在cad2006版本中只能点选物体，不能框选。
另：在建筑设计中，一层大平面内往往包含有若干块互相交织重叠在一起，而不是单一的块，这种情况下从多个块中抠出其中的局部特定区域有啥办法解决么？

XDSoft · 发表于 2013-7-1 18:03:34

dwg001 发表于 2013-7-1 17:53
谢谢回复。
ET工具的Ncopy 在cad2006版本中只能点选物体，不能框选。
另：在建筑设计中，一层大平面内往 ...

你是想把多个块内的同时都给扣出来？还是怎么？

你单独开个帖子吧，附上DWG图，然后截取个图片里面说明下想要的结果。

dwg001 · 发表于 2013-7-2 09:22:49

本帖最后由 dwg001 于 2013-7-2 09:28 编辑

XDSoft 发表于 2013-7-1 18:03
你是想把多个块内的同时都给扣出来？还是怎么？

你单独开个帖子吧，附上DWG图，然后截取个图片里面 ...

是多个块在同一平面区域，在该区域还有不在块中的别的“散”图元。是想把特定区域内多个块和不在块中的图元全“抠”出来。
－－－想了想，楼主的程序稍作改造似乎能够实现这个功能。
先点击拾取图面的两角点，确定该区域，然后再作选择集，该区域的每个块是一个选择集，“散”图元是一个选集。
由第一个块选集设置copy的起点和终点，实施楼主的程序Ncopy。
再遍历其他块，执行Ncopy，copy的起点和终点同第一个块。
该区域的不在块中的“散”图元，那就是更直接的copy了。

XDSoft · 发表于 2013-7-2 19:37:22

dwg001 发表于 2013-7-2 09:22
是多个块在同一平面区域，在该区域还有不在块中的别的“散”图元。是想把特定区域内多个块和不在块中的 ...

你试试，程序都是源码，如果改造了，请把代码贴上论坛，谢谢！

写诗天涯 · 发表于 2013-10-21 13:33:52

好神奇的命令啊

lt77887788 · 发表于 2013-11-3 18:20:30

感谢分享，期望自己早日升级

purple01 · 发表于 2013-11-6 04:52:56

这个不错，谢谢分享

众山小 · 发表于 2013-11-16 15:25:08

我用的cad2006，今天下载的最新api和vlx，执行命令到最后一步没有反应就退出了。

XDSoft · 发表于 2013-11-16 15:32:18

众山小发表于 2013-11-16 15:25
我用的cad2006，今天下载的最新api和vlx，执行命令到最后一步没有反应就退出了。

可能是函数用法有变化，等作者更新吧。

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

[图块] 从XREF、INSERT实体内部抠出实体的工具

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

评分

点评

点评

点评

点评

点评

点评

点评