找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 2070|回复: 7

[已解决] 取得PEDIT后的选择集

[复制链接]

已领礼包: 61个

财富等级: 招财进宝

发表于 2013-6-10 20:15:46 | 显示全部楼层 |阅读模式

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

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

×
创建这个由直线。圆弧和圆组成的图元的选择集,
对这个选择集进行PEDIT,
要把这个新生成的多段线和圆添加到新的选择集要怎么写呀?
感谢了。。{:soso_e183:}

在论坛的朋友的帮助下,总算搞好了,{:soso_e113:}
  1. (defun c:tt ()
  2.   (setq ss (ssget))
  3.   (setq bj (entlast))
  4.   (command "_pedit" "m" ss "" "j" "0.1" "")
  5.   (setq sss (XD::SS:EntNextALL bj))
  6.   (setq i -1)
  7.   (while
  8.     (setq s1 (ssname ss (setq i (1+ i))))
  9.     (IF (and (= "CIRCLE" (cdr (assoc 0 (entget s1))))
  10.              (< 100 (cdr (assoc 40 (entget s1))))
  11.         )
  12.        (setq sss (ssadd s1 sss))
  13.     )
  14.   )
  15.   (sssetfirst nil sss)
  16. )



函数(XD::SS:EntNextALL)请看2楼LispHK发帖,再次感谢各位大侠。{:soso_e183:}


QQ图片20130610201431.jpg
0.jpg

评分

参与人数 1D豆 +10 收起 理由
XDSoft + 10 有始有终奖!

查看全部评分

论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!

已领礼包: 19个

财富等级: 恭喜发财

发表于 2013-6-10 20:27:32 | 显示全部楼层
PEDIT前,保存ENTLAST,之后,一直ENTNEXT不可以吗?

看看 http://www.xdcad.net/forum/thread-668669-1-1.html 这个帖子,能有帮助不。

点评

(defun c:tt () (setq ss (ssget)) (command "_pedit" "m" ss "" "j" "0.1" "") ) 这里也不能一直entlast吧?  详情 回复 发表于 2013-6-10 20:36

评分

参与人数 1D豆 +4 收起 理由
XDSoft + 4 热心帮忙奖!

查看全部评分

论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 61个

财富等级: 招财进宝

 楼主| 发表于 2013-6-10 20:36:25 | 显示全部楼层
Lisphk 发表于 2013-6-10 20:27
PEDIT前,保存ENTLAST,之后,一直ENTNEXT不可以吗?

看看 http://www.xdcad.net/forum/thread-668669-1 ...

(defun c:tt ()
  (setq ss (ssget))
  (command "_pedit" "m" ss "" "j" "0.1" "")
)

这里也不能一直entnext吧?

点评

在你执行command 前,加上 (setq bj (entlast)),command后加上 (setq ss ((XD::SS:EntNextALL bj))  详情 回复 发表于 2013-6-10 20:41
(Ssget "_p")  详情 回复 发表于 2013-6-10 20:41
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 344个

财富等级: 日进斗金

发表于 2013-6-10 20:41:53 来自手机 | 显示全部楼层
rjtiantian 发表于 2013-6-10 20:36
(defun c:tt ()
  (setq ss (ssget))
  (command "_pedit" "m" ss "" "j" "0.1" "")

(Ssget "_p")

点评

(defun c:tt () (setq ss (ssget)) (command "_pedit" "m" ss "" "j" "0.1" "") (setq sss (ssget "_p")) (sssetfirst nil sss) ) sss 为nil  详情 回复 发表于 2013-6-10 20:46
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 51个

财富等级: 招财进宝

发表于 2013-6-10 20:41:55 | 显示全部楼层
rjtiantian 发表于 2013-6-10 20:36
(defun c:tt ()
  (setq ss (ssget))
  (command "_pedit" "m" ss "" "j" "0.1" "")

在你执行command 前,加上 (setq bj (entlast)),command后加上 (setq ss ((XD::SS:EntNextALL bj))

点评

(defun c:tt () (setq ss (ssget)) (setq bj (entlast)) (command "_pedit" "m" ss "" "j" "0.1" "") (setq sss (XD::SS:EntNextALL bj)) (sssetfirst nil sss) ) 不好意思, 还是有个问题  详情 回复 发表于 2013-6-10 20:51
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 61个

财富等级: 招财进宝

 楼主| 发表于 2013-6-10 20:46:14 | 显示全部楼层

(defun c:tt ()
  (setq ss (ssget))
  (command "_pedit" "m" ss "" "j" "0.1" "")
  (setq sss (ssget "_p"))
  (sssetfirst nil sss)
)

sss 为nil
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 61个

财富等级: 招财进宝

 楼主| 发表于 2013-6-10 20:51:50 | 显示全部楼层
Lispboy 发表于 2013-6-10 20:41
在你执行command 前,加上 (setq bj (entlast)),command后加上 (setq ss ((XD::SS:EntNextALL bj))

(defun c:tt ()
  (setq ss (ssget))
  (setq bj (entlast))
  (command "_pedit" "m" ss "" "j" "0.1" "")
  (setq sss (XD::SS:EntNextALL bj))
  (sssetfirst nil sss)
)

不好意思,
:lol还是有个问题,PE不处理圆,所以圆就漏掉了,还得要把ss里的圆加到sss里才行,我再改改就行了,
非常多谢哈,{:soso_e183:}

点评

改好了,别忘记把代码贴到论坛来啊。  详情 回复 发表于 2013-6-10 21:13
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 51个

财富等级: 招财进宝

发表于 2013-6-10 21:13:59 | 显示全部楼层
rjtiantian 发表于 2013-6-10 20:51
(defun c:tt ()
  (setq ss (ssget))
  (setq bj (entlast))

改好了,别忘记把代码贴到论坛来啊。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|申请友链|Archiver|手机版|小黑屋|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )

GMT+8, 2024-3-29 21:38 , Processed in 0.424233 second(s), 54 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

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