找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 1220|回复: 17

[求助] 块里画的构造线,无法选中

[复制链接]
发表于 2017-3-6 23:09:23 | 显示全部楼层 |阅读模式
悬赏20D豆未解决
请教:在CAD里,忘了在哪个块里画的构造线,现在想删除,却无法选中,应该如何处理?

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

已领礼包: 40个

财富等级: 招财进宝

发表于 2017-3-6 23:26:52 | 显示全部楼层
提问题,贴图,传DWG,好让别人方便帮你。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复

使用道具 举报

已领礼包: 20个

财富等级: 恭喜发财

发表于 2017-3-6 23:59:38 | 显示全部楼层
你说的构造线是RAY ? 在块里面? 图块只能作为一个整体被选中,你用鼠标选里面的当然选不到了。
如果你想删除块里面的,你试下
  1. (defun c:tt ()
  2.   (while (and (setq e (nentsel "\n选取块中要删除的实体<退出>:"))
  3.               (> (length e) 2)
  4.          )
  5.     (vla-delete (vlax-ename->vla-object (car e)))
  6.     (vla-update (vlax-ename->vla-object (car (last e))))
  7.   )
  8.   (princ)
  9. )

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

使用道具 举报

 楼主| 发表于 2017-3-7 07:43:50 | 显示全部楼层

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

使用道具 举报

 楼主| 发表于 2017-3-7 07:54:53 | 显示全部楼层

marting 大大,谢谢回复,
我的问题没有给你图片说明很抱歉,
如图所示是XLINE这个直线和其他图元编辑成块
选在直线是选择不到的,只有选择圆才有效果,
谢谢
12.gif
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复

使用道具 举报

已领礼包: 40个

财富等级: 招财进宝

发表于 2017-3-7 08:07:27 | 显示全部楼层

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

使用道具 举报

已领礼包: 1268个

财富等级: 财源广进

发表于 2017-3-7 08:18:57 | 显示全部楼层


遍历图块

  1. (defun c:tt (/ ss)
  2.   (while (setq ss (ssget '((0 . "insert"))))
  3.     (foreach e (xdrx_pickset->ents ss)
  4.       (foreach x
  5.                  (xdrx_getpropertyvalue
  6.                    (cadr (xdrx_getpropertyvalue e "blocktablerecord")
  7.                    )
  8.                    "allentities"
  9.                  )
  10.         (if (= (car (xdrx_getpropertyvalue x "classname")) "XLINE")
  11.           (xdrx_entity_delete x)
  12.         )
  13.       )
  14.     )
  15.   )
  16.   (princ)
  17. )
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复

使用道具 举报

已领礼包: 1268个

财富等级: 财源广进

发表于 2017-3-7 08:30:27 | 显示全部楼层
用递归方法支持嵌套

  1. (defun c:tt (/ ss _del)
  2.   (defun _del (e)
  3.     (foreach x (xdrx_getpropertyvalue
  4.                  (cadr (xdrx_getpropertyvalue e "blocktablerecord"))
  5.                  "allentities"
  6.                )
  7.       (cond
  8.         ((= (car (xdrx_getpropertyvalue x "classname")) "XLINE")
  9.          (xdrx_entity_delete x)
  10.         )
  11.         ((= (car (xdrx_getpropertyvalue x "classname")) "INSERT")
  12.          (_del x)
  13.          (xdrx_block_update e)
  14.         )
  15.         (t)
  16.       )
  17.     )
  18.   )
  19.   (while (setq ss (ssget '((0 . "insert"))))
  20.     (foreach e (xdrx_pickset->ents ss)
  21.       (_del e)
  22.     )
  23.   )
  24.   (princ)
  25. )
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复

使用道具 举报

已领礼包: 40个

财富等级: 招财进宝

发表于 2017-3-7 08:45:00 | 显示全部楼层
本帖最后由 newer 于 2017-3-7 08:47 编辑

也可以用 xdrx_object_get , xdrx_object_next遍历块
  1. (defun c:tt ()
  2.   (if (setq ss (ssget '((0 . "INSERT"))))
  3.     (progn
  4.       (mapcar '(lambda (x)
  5.                  (setq blk   (xdrx_getpropertyvalue x "blocktablerecord")
  6.                        blkna (car blk)
  7.                  )
  8.                  (setq bl (xdrx_object_get "block" blkna) ents nil)
  9.                  (while        (setq e (xdrx_object_next))
  10.                    (if (= (car e) "AcDbXline")
  11.                      (setq ents (cons e ents))
  12.                    )
  13.                  )
  14.                  (xdrx_entity_delete ents)
  15.                )
  16.               (xdrx_pickset->ents ss)
  17.       )
  18.     )
  19.   )
  20.   (princ)
  21. )


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

使用道具 举报

已领礼包: 40个

财富等级: 招财进宝

发表于 2017-3-7 08:53:13 | 显示全部楼层

(xdrx_getpropertyvalue ent "allentities")

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

使用道具 举报

 楼主| 发表于 2017-3-7 12:26:29 | 显示全部楼层

我想选中他,或者是知道他在哪个块里
谢谢大大回复


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

使用道具 举报

 楼主| 发表于 2017-3-7 12:27:33 | 显示全部楼层

我想选中他,或者是知道他在哪个块里
谢谢大大回复


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

使用道具 举报

已领礼包: 593个

财富等级: 财运亨通

发表于 2017-3-7 17:42:51 来自手机 | 显示全部楼层
选不中了就不要钻牛角尖了! 除非官方有说法
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复

使用道具 举报

已领礼包: 40个

财富等级: 招财进宝

发表于 2017-3-7 17:59:01 | 显示全部楼层

你点上XLINE,所在的块夹点不会显示? 如果显示,不就知道是哪个块了吗



搜狗截图20170307175608.png

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

使用道具 举报

 楼主| 发表于 2017-3-7 19:13:56 | 显示全部楼层

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

使用道具 举报

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

本版积分规则

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

GMT+8, 2024-3-29 18:09 , Processed in 0.431013 second(s), 60 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

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