明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 6020|回复: 11

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

    [复制链接]
发表于 2008-3-17 20:33:00 | 显示全部楼层 |阅读模式

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

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

发表于 2008-3-17 21:38:00 | 显示全部楼层
发表于 2008-3-17 21:57:00 | 显示全部楼层
龙龙仔版主有个“J”的透明命令,好像是反应器,挺实用的。
 楼主| 发表于 2008-3-18 08:23:00 | 显示全部楼层

这个程序有点问题,请高手帮帮忙!

 

 

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?注册

x
发表于 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
    )
  )
)

发表于 2008-3-21 10:32:00 | 显示全部楼层
用这个看看
  1. (DEFUN ENT_FROM (E / SS SN);返回自实体E之后生成的实体选择集
  2.   (IF (/= (TYPE E) (quote ENAME))
  3.     (ALERT "Parameter ERROR in ENT_FROM")
  4.   )
  5.   (SETQ SS (SSADD))
  6.   (WHILE E
  7.     (SETQ E (ENTNEXT E))
  8.     (IF E
  9.       (PROGN
  10. (SETQ SN (CDR (ASSOC 0 (ENTGET E))))
  11. (IF (NOT (MEMBER SN (quote ("ATTRIB" "VERTEX"
  12.         "SEQEND"
  13.        )
  14.        )
  15.    )
  16.      )
  17.    (SETQ SS (SSADD E SS))
  18. )
  19.       )
  20.     )
  21.   )
  22.   SS
  23. )
复制代码
发表于 2008-3-21 10:55:00 | 显示全部楼层

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

向楼上学习

发表于 2008-3-28 15:13:00 | 显示全部楼层
学习学习
发表于 2009-1-19 13:20:00 | 显示全部楼层
这样就可以选择嵌套块炸开后的所有实体了!
发表于 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 "")
  )
然后呢?
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2024-11-6 11:41 , Processed in 0.185028 second(s), 27 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

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