乐筑天下

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

[编程交流] 选择ob需要lisp

[复制链接]

6

主题

26

帖子

25

银币

初来乍到

Rank: 1

铜币
25
发表于 2022-7-5 18:12:22 | 显示全部楼层 |阅读模式
大家好,
 
我需要lisp来选择上一个之前的对象。例如,如果我使用不同的选择将对象移动到多个类型,是否有lisp(或命令)可以让我循环返回一个以上的先前选择集(历史记录为5最好/优于1)。
 
谢谢和问候
回复

使用道具 举报

0

主题

301

帖子

301

银币

初来乍到

Rank: 1

铜币
0
发表于 2022-7-5 18:21:13 | 显示全部楼层
希巴,
 
不是Lisp程序,而是在飞行中Lisp程序。将选择集指定给变量
在进行选择时。
 
在命令中并提示输入选择集时,键入:(setq ss1(ssget))
然后会再次提示您选择对象。但是,设置将是
完成选择后,保存在变量ss1中。
 
要重新使用刚才在另一个命令中创建的作为输入的选择提示集ss1,
您只需键入:!ss1
注意前面的感叹号。
 
您可以使用任何变量名而不是ss1。
 
请记住,可以保留多少选择集是有限制的。
不确定那个极限,但我记得有128集。
 
ymg公司
回复

使用道具 举报

106

主题

1万

帖子

101

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1299
发表于 2022-7-5 18:29:34 | 显示全部楼层
再多一点(setq sel1(ssget“P”))选择上一个。
 
也许可以尝试制作一个选择集列表,这样就可以重复使用sel1,基本上有你想要的数量
 
!sels()3个选项
(第n个0 sels)这是第一个选择集
回复

使用道具 举报

6

主题

26

帖子

25

银币

初来乍到

Rank: 1

铜币
25
发表于 2022-7-5 18:37:56 | 显示全部楼层
你好,温柔的男人,
 
我试过了,但没有完全正确。无论如何,如果有人创建一个教程并张贴在这里,使其易于理解,将不胜感激。
回复

使用道具 举报

6

主题

26

帖子

25

银币

初来乍到

Rank: 1

铜币
25
发表于 2022-7-5 18:40:18 | 显示全部楼层
你好
 
对不起,之前的回复,实际上我忘了键入“!”ss1之前。这个过程也很好,但我必须先保存所有选择,然后才能工作。。如果有人为最后五个选择创建或提供任何Lisp,那么这比选择对象并使用不同的快捷方式保存要好。
 
谢谢
回复

使用道具 举报

1

主题

6

帖子

5

银币

初来乍到

Rank: 1

铜币
5
发表于 2022-7-5 18:51:39 | 显示全部楼层
干得好。
但当命令提示和(p)输入以进行上一次选择时,上一次循环选择需要简单快捷的方式。
因为超负荷工作小,没有棒,节省了很多时间的选择。
请打个招呼或Lisp程序。
 
 
谢谢和问候
回复

使用道具 举报

106

主题

1万

帖子

101

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1299
发表于 2022-7-5 18:56:22 | 显示全部楼层
这将建立一个选择集使用列表(第n x个sels)
  1. (defun C:grabss ( / ss1)
  2. (setq ss1 (ssget "P"))
  3. (setq sels (cons ss1 sels))
  4. (alert (strcat (rtos (length sels) 2 0) " selection sets") )
  5. )
回复

使用道具 举报

1

主题

6

帖子

5

银币

初来乍到

Rank: 1

铜币
5
发表于 2022-7-5 19:03:58 | 显示全部楼层
谢谢你的回复。
 
我使用了这个LSP,在这个LSP的帮助下,我创建了10个不同的选择集。但我不知道哪个命令将应用于之前的选择。
(n×sels)的含义是什么。
 
 
再次感谢。
回复

使用道具 举报

106

主题

1万

帖子

101

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1299
发表于 2022-7-5 19:10:37 | 显示全部楼层
(nth x sels)=()3个选择集,但只有1个lisp。在创建选择集时,它会不断添加选择集列表
 
第n个命令只是在列表中查找与项目编号匹配的对象,因此如果您有3个与上面类似的对象
(第n个0 sels)=
(第n个1 sels)=
(第n个2个选择)=
 
(setq sels nil)将清空选择集,以便您可以再次启动。
一个例子
移动(第n个1 sels)这将找到选择集注释!需要工作
回复

使用道具 举报

17

主题

1274

帖子

25

银币

后起之秀

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

铜币
260
发表于 2022-7-5 19:18:45 | 显示全部楼层
http://forums.augi.com/showthread.php?81175-选择结果lisp修改#5
是我一直在用的。
将$Result Length修改为要保存的先前实体集的数量。
回复

使用道具 举报

发表回复

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

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

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

GMT+8, 2025-3-12 19:44 , Processed in 0.441822 second(s), 72 queries .

© 2020-2025 乐筑天下

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