找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 994|回复: 20

[已解决] 【已解决】求自动全选程序

[复制链接]
发表于 2020-6-5 21:11:53 | 显示全部楼层 |阅读模式
悬赏50D豆已解决
一幅图中有很多一模一样的矩形(复制得来的)位置不定     想要点一下其中一个矩形    就能自动选中整幅图纸中所有与点选矩形相同矩形内的所有文字(文字有一部分在界内一部分在界外也能一起选择就最好)    如图所示     文字不区分字体,字母,数字,大小写等,要能全部选择    谁能帮帮我    小女子在此先行谢过       在这里也感谢下之前帮助过我的所有朋友   谢谢你们
111111111111111111111111111111111111111.png
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!

已领礼包: 51个

财富等级: 招财进宝

发表于 2020-6-5 21:11:54 | 显示全部楼层
本帖最后由 Lispboy 于 2020-6-5 23:37 编辑

相同图形包含文字选择集.gif

  1. (defun c:tt ()
  2.   (defun _getmin (e)
  3.     (setq pts        (xdrx-getpropertyvalue e "vertices")
  4.           ptmin        (XD::PNTS:MinX->MinY pts 1.0)
  5.           ptmin        (car ptmin)
  6.           e        (XD::Polyline:ResetSTartPoint e ptmin)
  7.           pts        (xdrx-getpropertyvalue e "vertices")
  8.           pts1        (mapcar '(lambda (x) (mapcar '- x ptmin)) pts)
  9.     )
  10.   )
  11.   (if
  12.     (and (setq
  13.            e (car
  14.                (xdrx-entsel "\n拾取多段线<退出>:" '((0 . "LWPOLYLINE")))
  15.              )
  16.          )
  17.          (setq verts (xdrx-getpropertyvalue e "numverts"))
  18.          (setq ss (ssget "x" (list (cons 0 "lwpolyline") (cons 90 verts))))
  19.     )
  20.      (progn
  21.        (setq lst nil
  22.              v1         (_getmin e)
  23.              pts (xdrx-getpropertyvalue e "vertices")
  24.              lst (cons pts lst)
  25.        )
  26.        (mapcar
  27.          '(lambda (x)
  28.             (if        (not (equal e x))
  29.               (progn (setq v2 (_getmin x))
  30.                      (if (equal v1 v2)
  31.                        (setq
  32.                          lst (cons (xdrx-getpropertyvalue x "vertices") lst)
  33.                        )
  34.                      )
  35.               )
  36.             )
  37.           )
  38.          (xdrx-pickset->ents ss)
  39.        )
  40.        (setq box (xdrx-points-box lst))
  41.        (setq tf (xd::doc:safezoom box))
  42.        (setq ents nil)
  43.        (mapcar
  44.          '(lambda (x)
  45.             (if        (setq ss1 (ssget "cp"
  46.                                  (xd::pnts:open (xdrx-points-wcs2ucs x))
  47.                                  '((0 . "*text"))
  48.                           )
  49.                 )
  50.               (setq ents (cons (xdrx-pickset->ents ss1) ents))
  51.             )
  52.           )
  53.          lst
  54.        )
  55.        (sssetfirst nil (setq ss1 (xd::entity->pickset (xd::list:flat ents))))
  56.        (xdrx-prompt "\n发现相同图形 " (length lst) " 个,共选择到包含文字 " (sslength ss1) " 个.")
  57.        (if tf
  58.          (xdrx-document-zoomprevious))
  59.      )
  60.   )
  61.   (princ)
  62. )

点评

这个能改成 选择矩形内的所有图元吗  详情 回复 发表于 2020-6-10 17:11
这是什么意思啊  详情 回复 发表于 2020-6-5 22:45
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复

使用道具 举报

 楼主| 发表于 2020-6-5 22:45:33 | 显示全部楼层

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

使用道具 举报

已领礼包: 51个

财富等级: 招财进宝

发表于 2020-6-5 22:48:53 | 显示全部楼层

你API或者晓东工具箱版本太旧了,去下载 最新的

点评

如图所示 比如图纸里有图2那么多 我执行命令的时候如图1所示 点了矩形之后 最后界面不缩放成图2 还是图1这样 可以实现吗 平时出版都是几百张图纸一起 全部缩放的话 直接就会崩溃了  详情 回复 发表于 2020-6-5 23:20
弄好了 我试了一下 是这个效果 但是有一个问题就是 执行之后 会把全部的选择缩放显示在屏幕上 这一步能不能取消 因为图纸太多的话 执行这一步会崩溃的  详情 回复 发表于 2020-6-5 23:14
下载新版本API 三次都是压缩包已损坏  详情 回复 发表于 2020-6-5 23:05
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复

使用道具 举报

 楼主| 发表于 2020-6-5 23:05:14 | 显示全部楼层
Lispboy 发表于 2020-6-5 22:48
你API或者晓东工具箱版本太旧了,去下载 最新的

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

使用道具 举报

 楼主| 发表于 2020-6-5 23:14:21 | 显示全部楼层
Lispboy 发表于 2020-6-5 22:48
你API或者晓东工具箱版本太旧了,去下载 最新的

弄好了   我试了一下  是这个效果   但是有一个问题就是   执行之后  会把全部的选择缩放显示在屏幕上   这一步能不能取消   因为图纸太多的话  执行这一步会崩溃的
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复

使用道具 举报

 楼主| 发表于 2020-6-5 23:20:49 | 显示全部楼层
Lispboy 发表于 2020-6-5 22:48
你API或者晓东工具箱版本太旧了,去下载 最新的

如图所示   比如图纸里有图2那么多      我执行命令的时候如图1所示  点了矩形之后    最后界面不缩放成图2   还是图1这样   可以实现吗    平时出版都是几百张图纸一起   全部缩放的话   直接就会崩溃了
0.png
1.png
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复

使用道具 举报

已领礼包: 51个

财富等级: 招财进宝

发表于 2020-6-5 23:33:44 | 显示全部楼层
本帖最后由 Lispboy 于 2020-6-5 23:38 编辑
小小的人 发表于 2020-6-5 23:20
如图所示   比如图纸里有图2那么多      我执行命令的时候如图1所示  点了矩形之后    最后界面不缩放成 ...

你确定要那样?重新拷贝代码
你ZOOM回原来的样子,屏幕外面选择到的你看不到了,是你想要的吗?

点评

可以了 非常感谢你的帮助  详情 回复 发表于 2020-6-6 00:01
Application Error: 0 :- no function definition: _GETMIN; 错误: *error* 函数中出错ADS 请求错误  详情 回复 发表于 2020-6-5 23:43
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复

使用道具 举报

 楼主| 发表于 2020-6-5 23:43:32 | 显示全部楼层
Lispboy 发表于 2020-6-5 23:33
你确定要那样?重新拷贝代码
你ZOOM回原来的样子,屏幕外面选择到的你看不到了,是你想要的吗?

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

使用道具 举报

 楼主| 发表于 2020-6-6 00:01:50 | 显示全部楼层
Lispboy 发表于 2020-6-5 23:33
你确定要那样?重新拷贝代码
你ZOOM回原来的样子,屏幕外面选择到的你看不到了,是你想要的吗?

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

使用道具 举报

已领礼包: 51个

财富等级: 招财进宝

发表于 2020-6-6 00:21:36 | 显示全部楼层
小小的人 发表于 2020-6-6 00:01
可以了   非常感谢你的帮助

你这个程序,你要用来做什么?

点评

要不然做图纸目录 一张图一张图的复制 几百张图纸 要好久 有了你这个程序之后 一下子就解决了  详情 回复 发表于 2020-6-6 01:15
出版的时候 用来选择每张图的图纸名称 然后导出到表格 做图纸目录  详情 回复 发表于 2020-6-6 01:13
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复

使用道具 举报

 楼主| 发表于 2020-6-6 01:13:26 | 显示全部楼层
Lispboy 发表于 2020-6-6 00:21
你这个程序,你要用来做什么?

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

使用道具 举报

 楼主| 发表于 2020-6-6 01:15:05 | 显示全部楼层
Lispboy 发表于 2020-6-6 00:21
你这个程序,你要用来做什么?

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

使用道具 举报

 楼主| 发表于 2020-6-10 17:11:08 | 显示全部楼层

这个能改成  选择矩形内的所有图元吗   

点评

把代码里面的: (setq ss1 (ssget "cp" (xd::pnts:open (xdrx-points-wcs2ucs x)) '((0 . "*text")) ) 改  详情 回复 发表于 2020-6-10 17:43
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复

使用道具 举报

已领礼包: 145个

财富等级: 日进斗金

发表于 2020-6-10 17:43:37 | 显示全部楼层
小小的人 发表于 2020-6-10 17:11
这个能改成  选择矩形内的所有图元吗

把代码里面的:

(setq ss1 (ssget "cp"
                                 (xd::pnts:open (xdrx-points-wcs2ucs x))
                                 '((0 . "*text"))
                          )

改成:

(setq ss1 (ssget "cp"
                                 (xd::pnts:open (xdrx-points-wcs2ucs x))
                             
                          )

点评

要是例如这种的 大矩形里还有一个小矩形 只想选择大矩形内小矩形外的图元 能实现吗  详情 回复 发表于 2020-6-10 18:06

评分

参与人数 1D豆 +5 收起 理由
小小的人 + 5 很给力!经验;技术要点;资料分享奖!

查看全部评分

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

使用道具 举报

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

本版积分规则

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

GMT+8, 2024-3-28 23:02 , Processed in 0.212365 second(s), 59 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

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