设为首页收藏本站

晓东CAD家园-论坛

 找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 31|回复: 2

[求助] 改匿名块遇到问题

[复制链接]

已领礼包: 4056个

财富等级: 富可敌国

发表于 6 天前 | 显示全部楼层 |阅读模式
20D豆
图中1、2为两个相同的图块“A”,内嵌图块“B”,运行程序,选择图块2,则图块2变为匿名块,图块1未变。炸开图块2,图块B也改成了匿名块。
但是,炸开图块1,其中的图块B也改为了匿名块!这不是我想要的结果,我希望图块2中的图块均改为匿名块,图块1中的图块均不改。
请问各位大佬,问题出在哪里?

tt.rar

20.46 KB, 下载次数: 0, 下载积分: D豆 -1 , 活跃度 1

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

已领礼包: 4056个

财富等级: 富可敌国

 楼主| 发表于 6 天前 | 显示全部楼层
;以下为程序
(defun trs_ano (blkRef / blkDxf blkNam anoNam entBlk entNxt etype entLst en pt m)
  (setq blkDxf (entget blkRef)
        blkNam (ai_dxf 2 blkDxf)
        entBlk (tblobjname "Block" blkNam)
        pt (ai_dxf 10 (entget entBlk))
        m 0
  )
  (while (setq entNxt (entnext entBlk))
    (setq etype (ai_dxf 0 (entget entNxt))
          entBlk entNxt
          entLst (cons entNxt entLst)
    )
    (if (= etype "INSERT") (trs_ano entNxt))
  )
  (entmake (list '(0 . "BLOCK") '(2 . "*U") '(70 . 1) (cons 10 pt)))
  (repeat (length entLst)
    (setq en (nth m entLst)
          m (1+ m)
    )
    (entmake (entget en))
    (entdel en)
  )
  (setq anoNam (entmake '((0 . "ENDBLK"))))
  (entmod (subst (cons 2 anoNam) (cons 2 blkNam) blkDxf))
)
(defun ai_dxf (key lst)
  (cdr (assoc key lst))
)

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

使用道具 举报

已领礼包: 4056个

财富等级: 富可敌国

 楼主| 发表于 6 天前 | 显示全部楼层
不下载图纸也可以。随便做一个含嵌套块的图块,复制一个就行了。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复

使用道具 举报

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

本版积分规则

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

GMT+8, 2020-10-23 20:05 , Processed in 0.075520 second(s), 32 queries , Gzip On, WinCache On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

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