选择图块内实体，如何实现实体亮显

casd

打算穿透图块选择实体，获得实体的特性。但如何实现选择实体亮显，求教如何实现

casd

便于知道自己到底选择了哪个图元。
肯定可以实现的。exprss中的ncopy就可以（菜单中的“复制嵌套对象）

牢固

块内实体是无法亮显的！
你可以把块内实体复制出来，再亮显复制的物体，不过这样做有何意义啊？

wowan1314

我想是不是可以利用TRIM来亮显。具体还要 看你的程序是否适合。

Free-Lancer

那个是explode副本来自: Android客户端

casd

Free-Lancer 发表于 2013-5-22 12:35
那个是explode副本

有办法在自己的lisp程序中实现吗？

casd

我的要求就是获得该实体的图层。

wowan1314

为什么不按我说的方法试呢！！！！！！  白说了是吧！。  哎 。  伤心呐...不跟你们玩了{:soso_e146:}

casd

手机上网，看不清wowan1314的帖子，等会电脑上研究您的方法。谢谢

2012淡然之马

楼上真大虾是也！
顶起

casd

求教如何实现

casd

wowan1314 发表于 2013-5-22 11:34
我想是不是可以利用TRIM来亮显。具体还要 看你的程序是否适合。

大侠，我领悟了你的指点，就是你说的太高深了，我领悟了太长时间了。

1. (defun c:tt ()
   
2.   (setq tag t)
   
3.   (prompt "\n选择冻结图层")
   
4.   (command "trim")
   
5.   (while tag
   
6.     (command (setq tag (nentsel)
   
7.                    pt (cadr tag)
   
8.              )
   
9.     )
   
10.     (command pt)
    
11.     (if tag
    
12.       (progn
    
13.         (setq tag-name (car tag))
    
14.         (setq tag-entity (entget (car tag)))
    
15.         (setq tag-lay (cdr (assoc 8 tag-entity)))
    
16.       )
    
17.     )
    
18.   )
    
19.   (princ "ok")
    
20. )
    
21. 
    

(defun c:tt ()<br />   (setq tag t)<br />   (prompt "\n选择冻结图层")<br />   (command "trim")<br />   (while tag<br />     (command (setq tag (nentsel)<br />                    pt (cadr tag)<br />              )<br />     )<br />     (command pt)<br />     (if tag<br />       (progn<br />         (setq tag-name (car tag))<br />         (setq tag-entity (entget (car tag)))<br />         (setq tag-lay (cdr (assoc 8 tag-entity)))<br />       )<br />     )<br />   )<br />   (princ "ok")<br /> )<br /> <br />

wowan1314

casd 发表于 2013-6-16 13:00
大侠，我领悟了你的指点，就是你说的太高深了，我领悟了太长时间了。
(defun c:tt ()

莫这么叫！ 我都是刚入门。

另：我说的哪里高深了？！ 本就是如此简单呀

casd

wowan1314 发表于 2013-6-16 13:42
莫这么叫！ 我都是刚入门。

另：我说的哪里高深了？！ 本就是如此简单呀

灰常感谢啊，就是以后再指点清楚点。这个程序也是结合你在mjtd里的那个修改块内线型比例程序才搞懂的。

XDSoft

casd 发表于 2013-6-16 16:02
灰常感谢啊，就是以后再指点清楚点。这个程序也是结合你在mjtd里的那个修改块内线型比例程序才搞懂的。

程序写的那么好，就是不会贴代码:D

下次在贴代码，用亮显。