明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 2197|回复: 6

[求助] 怎么样得到n个实体 拷贝后的选择集?

[复制链接]
发表于 2007-1-19 13:41 | 显示全部楼层 |阅读模式

怎么样得到n个实体 拷贝后的选择集?不是那种 用原选择集中检索出实体 分别复制 再用entlast得到?有简单电的方法吗?

发表于 2007-1-19 14:08 | 显示全部楼层
參考
  1. (defun c:test()
  2.   (setq p1 (getpoint "\n p1:"))
  3.   (setq p2 (getpoint "\n p2:"))
  4.   (command "line" p1 p2 "")
  5. (setq ent (entlast))
  6.   ;(VL-CMDF ".EXPLODE" ent)
  7. (command "array" ent "" "r" "3" "4" "100" "150")
  8. ;array
  9. (setq ss (ssadd))
  10. (ssadd ent ss)
  11. (while (setq ent (entnext ent))
  12.   (ssadd ent ss)
  13. )
  14. )
 楼主| 发表于 2007-1-19 15:44 | 显示全部楼层

谢谢bdycad斑竹!

原来我也用到了

(setq ss (ssadd))
(ssadd ent ss)
(while (setq ent (entnext ent))
(ssadd ent ss)
可是老是不对 !最后看了你的程序后 才大雾,我的(entlast) 语句用错了地方应该在command “copy”之前 我用在了后面

发表于 2007-1-19 17:48 | 显示全部楼层

如果想玩一玩,可以写成反应器。

只要有拷贝动作,自动把最近一次拷贝新生成的实体放到某个变量。方便调用

 楼主| 发表于 2007-1-22 10:31 | 显示全部楼层
反应器?不懂 看lisp里好像有 还没学到
发表于 2018-6-4 14:28 | 显示全部楼层
本帖最后由 tender138 于 2018-6-4 14:31 编辑

发错了,不好意思

本帖子中包含更多资源

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

x
发表于 2018-6-5 10:09 | 显示全部楼层
  1. (defun c:tcc3()
  2.      (setq AcadDoc (vla-get-ActiveDocument (vlax-get-acad-object)))
  3.      (if (setq ssa (ssget ))
  4.          (If (setq p1 (getpoint "\n指定基准点:"))
  5.              (if (setq p2 (getpoint p1 "\n指定第2点:"))
  6.                  (progn
  7.                       (setq ssb (ssadd)) ;新建一空选择集ssb
  8.                       (vlax-for obj (vla-get-ActiveSelectionSet AcadDoc) ;对选择集ssa中的图元逐一进行复制
  9.                            (setq Newobj (vla-Copy obj))
  10.                            (vla-Move Newobj (vlax-3d-point p1) (vlax-3d-point p2))
  11.                            (ssadd (vlax-vla-object->ename Newobj) ssb) ;将复制后产生的图元逐一加入到选择集ssb中
  12.                       )
  13.                  )
  14.             )
  15.          )
  16.      )
  17.      (vlax-release-object AcadDoc)
  18.      (setq AcadDoc nil)
  19.      (princ)
  20. )
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2024-3-29 10:28 , Processed in 0.221677 second(s), 26 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

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