乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 尊重版权,从我做起,拒绝盗版,拒绝倒卖 签到、发布资源、邀请好友注册,可以获得银币 请注意保管好自己的密码,避免账户资金被盗
查看: 54|回复: 9

[编程交流] 在o中自动选择数字

[复制链接]

1

主题

4

帖子

3

银币

初来乍到

Rank: 1

铜币
5
发表于 2022-7-5 22:51:10 | 显示全部楼层 |阅读模式
你好
 
有没有办法使autocad按正确的顺序(从501到530 ie.)自动选择数字?通过单击选择它们需要太多时间。
 
谢谢!
235113cb0lbc66vfv6vv6j.jpg
回复

使用道具 举报

48

主题

1073

帖子

1043

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
238
发表于 2022-7-5 22:59:40 | 显示全部楼层
一旦你选择了一个数字,你会做什么?
回复

使用道具 举报

1

主题

4

帖子

3

银币

初来乍到

Rank: 1

铜币
5
发表于 2022-7-5 23:07:59 | 显示全部楼层
我希望软件按顺序自动选择它们,这样我就可以使用TCOUNT更改数字。(例如:401…450到501…550)
通过单击来选择它们中的每一个都需要花费太多的时间。有没有办法按顺序自动选择它们?
回复

使用道具 举报

48

主题

1073

帖子

1043

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
238
发表于 2022-7-5 23:16:21 | 显示全部楼层
我从未使用过TCOUNT,但看着命令,我怀疑是否可以预先选择订单。但是,如果您可以更具体地了解您需要什么,可以编写一个自定义LISP(不是由我编写),它将结合选择和增量文本。
回复

使用道具 举报

106

主题

1万

帖子

101

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1299
发表于 2022-7-5 23:20:30 | 显示全部楼层
在lisp中使用ssget,你可以一次搜索所有的数字,如果我猜它们是块,然后说过滤到你的范围使用,VLsort,然后循环通过它们来更改数字。哎呀,没那么难。您希望每个数字都正确+1,还是只添加一个固定值?修复非常容易。
 
没有样品图纸,所以请张贴包括以上问题行的答案。
回复

使用道具 举报

1

主题

4

帖子

3

银币

初来乍到

Rank: 1

铜币
5
发表于 2022-7-5 23:28:42 | 显示全部楼层
 
我不确定你的意思,但是的,我需要数字总是增加+1,但数字的值取决于我使用它的房屋平面图。
(对不起,我的英语有点生疏了)
 
例如,如果您查看上面的屏幕截图,我希望autocad仅按递增顺序选择圆圈中的数字,以便稍后使用TCOUNT函数或将此函数放入lisp中。(使用TCOUNT假设您按特定顺序选择一个对象,并按相同的精确顺序对其进行编号)
回复

使用道具 举报

8

主题

1133

帖子

1164

银币

初来乍到

Rank: 1

铜币
10
发表于 2022-7-5 23:32:43 | 显示全部楼层
也许你可以用李的文本计算器
回复

使用道具 举报

63

主题

6297

帖子

6283

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
358
发表于 2022-7-5 23:43:33 | 显示全部楼层
你说的是单行文字吗?
回复

使用道具 举报

1

主题

4

帖子

3

银币

初来乍到

Rank: 1

铜币
5
发表于 2022-7-5 23:46:52 | 显示全部楼层
是的,单线
回复

使用道具 举报

63

主题

6297

帖子

6283

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
358
发表于 2022-7-5 23:51:48 | 显示全部楼层
 
试试这个,告诉我你会怎么做。
 
  1. (defun c:test (/ n1 n2 sad ss i sn e st)
  2. ;;    Tharwat 26.June.2014        ;;
  3. (if (and (setq n1 (getint "\n Specify First number in order [smallest] :"))
  4.           (setq n2 (getint "\n Specify Second number in order [biggest] :"))
  5.           (princ "\n Select texts ...")
  6.           (setq sad (ssadd)
  7.                 ss  (ssget "_:L" '((0 . "TEXT") (1 . "*#*")))
  8.           )
  9.      )
  10.    (repeat (setq i (sslength ss))
  11.      (setq sn (ssname ss (setq i (1- i)))
  12.            e  (entget sn)
  13.            st (cdr (assoc 1 e))
  14.      )
  15.      (if (and (numberp (setq n (read st))) (< (1- n1) n (1+ n2)))
  16.        (ssadd sn sad)
  17.      )
  18.    )
  19. )
  20. (sssetfirst nil sad)
  21. (princ)
  22. )
回复

使用道具 举报

发表回复

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

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁体中文

GMT+8, 2025-3-11 03:09 , Processed in 0.587983 second(s), 75 queries .

© 2020-2025 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表