★★怎样获得前次生成的所有图元，entlast只能得一个★★

wanhongron · 发表于 2008-3-17 20:33:00

经常碰到怎样的问题，若想修改连续偏移或复制后所有新图元的特性改颜色加粗之类什么的。但苦于找不到函数，entlast只能得最后一个，而ssget只能得到旧图元，而ssadd只能在循环程序中一个个添加图元，那么在我编的程序中新生成的所有图元用什么函数获取。

再如我选择了一些对象用ssget，然后炸开，然后我想修改这些炸开的图元的颜色或宽度什么的，那怎么选，用entlast只能选一个。请高手赐教！！！！

caoyin · 发表于 2008-3-17 21:38:00

http://bbs.mjtd.com/forum.php?mod=viewthread&tid=66014&replyID=86773&skin=1

caoyin · 发表于 2008-3-17 21:57:00

龙龙仔版主有个“J”的透明命令，好像是反应器，挺实用的。

wanhongron · 发表于 2008-3-18 08:23:00

这个程序有点问题，请高手帮帮忙！

caoyin · 发表于 2008-3-18 10:55:00

本帖最后由作者于 2008-3-18 11:07:38 编辑

有什么问题

(defun c:test (/ e ss)
(princ "\n选择任意对象进行复制测试...")
(setq e (entlast)
        ss (ssget)
)
(command "_.copy" ss "" "\\" "\\")
(if (setq ss (lt:ss-entnext e))
    (progn
      (sssetfirst nil ss)
      (princ "\n新对象被选取。")
      ss
    )
)
)

byghbcx · 发表于 2008-3-21 10:32:00

用这个看看

(DEFUN ENT_FROM (E / SS SN);返回自实体E之后生成的实体选择集
(IF (/= (TYPE E) (quote ENAME))
(ALERT "Parameter ERROR in ENT_FROM")
)
(SETQ SS (SSADD))
(WHILE E
(SETQ E (ENTNEXT E))
(IF E
(PROGN
(SETQ SN (CDR (ASSOC 0 (ENTGET E))))
(IF (NOT (MEMBER SN (quote ("ATTRIB" "VERTEX"
"SEQEND"
)
)
)
)
(SETQ SS (SSADD E SS))
)
)
)
)
SS
)

复制代码

caoyin · 发表于 2008-3-21 10:55:00

关于 "ATTRIB" "VERTEX" "SEQEND" 的情况我也发现了，代码没有更新。

向楼上学习

dl3335 · 发表于 2008-3-28 15:13:00

学习学习

jxphklibin · 发表于 2009-1-19 13:20:00

这样就可以选择嵌套块炸开后的所有实体了！

zhuquanmao · 发表于 2012-4-11 12:27:38

本帖最后由 zhuquanmao 于 2012-4-11 12:49 编辑

这个怎么用啊呵呵我把一个嵌套块用下面的代码给炸开了
(setvar "qaflags" 1)
  (setq ss (ssget '((0 . "INSERT"))))
  (while (setq ss (ssget "P" '((0 . "INSERT"))))
(command ".explode" ss "")
  )
然后呢？

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

★★怎样获得前次生成的所有图元，entlast只能得一个★★

本帖子中包含更多资源

炸开嵌套块后怎么结合上面的代码把炸碎后的图元再生成块？

★★怎样获得前次生成的所有图元，entlast只能得一个★★

本帖子中包含更多资源

炸开嵌套块后怎么结合上面的代码 把炸碎后的图元再生成块？

炸开嵌套块后怎么结合上面的代码把炸碎后的图元再生成块？