乐筑天下

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

[编程交流] 选择帮助

[复制链接]

4

主题

8

帖子

4

银币

初来乍到

Rank: 1

铜币
20
发表于 2022-7-6 08:38:46 | 显示全部楼层 |阅读模式
大家好,
 
我想使用(ssget“:L”)选择实体。选择集由多条线和一个块组成。使用交叉选择,如何选择所有线并在选择中获得块的插入点,而不将块放入选择集中。非常感谢。
回复

使用道具 举报

pBe

32

主题

2722

帖子

2666

银币

后起之秀

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

铜币
211
发表于 2022-7-6 09:00:36 | 显示全部楼层
您可以:
两个选择提示。。
 
  1. (ssget ":L" '((0 . "LINE")))
  2. (ssget ":S:E:L" '((0 . "INSERT")))

 
 

 
一气呵成:
  1. (defun c:test (/ ss i ent inspt)
  2.   (setq ss (ssget ":L" '((0 . "INSERT,LINE"))))
  3.    (repeat (setq i (sslength ss))
  4.     (setq ent (entget (ssname ss (setq i (1- i)))))
  5.      (if (eq (cdr (assoc 0 ent)) "INSERT")
  6.       (setq inspt (cdr (assoc 10 ent))
  7.                  ss (ssdel (ssname ss i) ss))
  8.       (princ "\nFunctions for lines: ")
  9.      )
  10.    )
  11.   (print inspt)
  12. (sssetfirst nil ss)
  13.   (princ)
  14. )
回复

使用道具 举报

4

主题

8

帖子

4

银币

初来乍到

Rank: 1

铜币
20
发表于 2022-7-6 09:31:01 | 显示全部楼层
谢谢pBe,它有效。这就是我想要实现的目标。
 
回复

使用道具 举报

pBe

32

主题

2722

帖子

2666

银币

后起之秀

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

铜币
211
发表于 2022-7-6 09:42:19 | 显示全部楼层
 
太棒了真为你高兴
 
干杯
回复

使用道具 举报

发表回复

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

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

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

GMT+8, 2025-3-7 08:53 , Processed in 1.266642 second(s), 60 queries .

© 2020-2025 乐筑天下

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