乐筑天下

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

[编程交流] 修改我的lisp的帮助

[复制链接]
hosyn

96

主题

322

帖子

234

银币

后起之秀

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

铜币
474
发表于 2022-7-5 22:47:01 | 显示全部楼层 |阅读模式
我有一个用于过滤块和select sample block的例程：
  2. (defun c:fbn ( / blockname sset); filter all blocks of same name
  3.  (setq blockname (cdr (assoc 2 (entget (car (entsel))))))
  4.  (setq sset (ssget (list (cons 2 blockname))))
  5.  (sssetfirst sset sset)
  6.  (princ (strcat "\nSelected " (itoa (sslength sset)) " instances of block "" blockname ""."))
  7.  (princ)
  8. )

，以及如何通过块的名称选择相同的过滤，例如块的名称“blockname1”，我可以通过以下命令提取此lisp：
  2. (c:fbn(blockname1))
回复

使用道具 举报

marko_ribar

5

主题

1334

帖子

1410

银币

限制会员

铜币
-20
发表于 2022-7-5 23:14:11 | 显示全部楼层 
  2. (defun fbn (blockname / sset)
  3.  (setq sset (ssget (list (cons 2 blockname))))
  4.  (sssetfirst nil sset)
  5.  (princ (strcat "\nSelected " (itoa (sslength sset)) " instances of block "" blockname ""."))
  6.  (princ)
  7. )
  9. ;;; Example : (fbn "blockname1") ;;;
回复

使用道具 举报

hosyn

96

主题

322

帖子

234

银币

后起之秀

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

铜币
474
发表于 2022-7-5 23:31:41 | 显示全部楼层
Thxxxx问候marko_ribar先生
如果我想分解选定的块，我该怎么办？？添加以下内容是正确的：
  2. (fbn "blockname1")
  3. (command "_explode")

 
我加了一句，但做得不好？
回复

使用道具 举报

7o7

0

主题

93

帖子

93

银币

初来乍到

Rank: 1

铜币
0
发表于 2022-7-5 23:35:48 | 显示全部楼层
（命令“_explode”“L”）可以执行。
回复

使用道具 举报

BIGAL

106

主题

1万

帖子

101

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1299
发表于 2022-7-5 23:47:28 | 显示全部楼层
7o7最后一个对象可能不是块
Hosyn和我的另一篇帖子一样，使用object来爆炸
 
  2. (setq blockname (cdr (assoc 2 (entget (car (entsel))))))
  3. ; now
  4. (setq obj (car (entsel)))
  5. (setq blockname (cdr (assoc 2 (entget obj))))
  7. (command "explode" obj "")
回复

使用道具 举报

返回列表 发帖

发表回复

高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

精选推荐

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

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

GMT+8, 2025-3-11 03:17 , Processed in 0.687948 second(s), 62 queries .

© 2020-2025 乐筑天下

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