[求助]：copy后的实体如何获取？

fylinwater · 发表于 2002-5-11 09:18:48

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

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

×

用entlast 只能获取一个实体

XDSoft · 发表于 2002-5-11 09:30:17

在执行COPY前，做个标记：

(setq mark (entlast))

拷贝后，用循环，一直entnext,直到NIL
(setq ss (ssadd))
(while (setq mark (entnext mark))
(ssadd mark ss)
)

cy956 · 发表于 2002-5-11 11:06:28

这是将新生成实体入选择集的经典作法。

前生 · 发表于 2002-5-11 21:16:51

(defun c:cpp()
(setq ls (ssget "\n 请选择需要COPY的实体：。。。"))
(if ls
(progn
(command "copy" ls "0,0" "0,0")
(command "move" ls )
)
)
)
选择集Ls就是Copy的实体

xkcjf_1219 · 发表于 2007-4-22 15:00:42

这也是困扰了我很长时间的问题，虽然已经解决，但XDSoft 的解决方法还是让我感谢！看来没事来家园散散步还是有好处的！！！

adisonmaster · 发表于 2007-4-22 15:31:18

这个问题也困扰了我很久，总算找到答案了，多谢！

liqilin7288 · 发表于 2007-5-15 10:08:48

谢谢，找了很久，终于有了结果。

okokok235 · 发表于 2007-5-17 10:29:41

二楼说的很简洁方便，我前段时间写的一个画图的就是这么处理的，很好用。

adisonmaster · 发表于 2007-5-22 16:08:14

最初由 XDSoft 发布
[B]在执行COPY前，做个标记：

(setq mark (entlast))

拷贝后，用循环，一直entnext,直到NIL
(setq ss (ssadd))
(while (setq mark (entnext mark))
(ssadd mark ss)
) [/B]

最近发现如果mark（做标记的实体）是带属性的块，会发生错误：
错误: 参数类型错误: lselsetp nil
可能是由于子实体造成的吧，不知道如何修改？

carrot1983 · 发表于 2007-5-25 18:19:06

1.首先，说明一下，我还没有搞懂entnext怎么用。
2.楼上的"错误: 参数类型错误: lselsetp nil" ，可能是你的复制命令没有完成....(也就是复制后的选择集是空的。。。)
3.根据二楼写了，亮显复制后的物体的程序如下：
[php]
(defun copyss (/ mark ss1 pt1 pt2 ss)
  (setq mark (entlast))
  (setq ss1 (ssget)
pt1 (getpoint "\n指定基点:")
pt2 (getpoint pt1 "\n指定位移的第二点:")
  )
  (command "._copy" ss1 "" pt1 pt2)
  (setq ss (ssadd))
  (while (setq mark (entnext mark))
(ssadd mark ss)
  )
  ss
)

(defun c:test ()
  (setq ss (copyss))
  (setq i 0)
  (repeat (sslength ss)
(setq na (ssname ss i))
(redraw na 3)
(setq i (1+ i))
  )
)
[/php]

adisonmaster · 发表于 2007-5-25 22:55:00

谢谢楼上，我已经解决问题了，主要是属性块捣的鬼！

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

[求助] [求助]：copy后的实体如何获取？

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

相关帖子