提取块的信息。

millermin

一个程序里中间的某个模块，需要提取块中子图元的属性信息，如图层，颜色等等。想用nentsel函数，单独试用该函数写了几句，基本够用了。现在的问题是，nentsel会提示用户选择目标，我想跳过这步，如何让函数直接获得程序里已经存在目标变量？因为我的程序开始已经选过一次目标并赋值给一个变量，所以不想再选择一次同样的目标。或者说如何带参数调用函数nentsel？
不知道说清楚没有。

wowan1314

nentselp这个函数楼主看可行不？！
nentsel还真不知道怎么弄

zyhandw

对nentsel还不太清楚，所以也想知道，请高手作答

USER2128

(entget(car(nentsel "\选取块内实体")))

Gu_xl

示例代码:

1. (defun c:tt ()
   
2.   (while
   
3.     (progn
   
4.       (setq en (car (entsel "\n选择图块:")))
   
5.       (and en
   
6.            (not (= "INSERT" (cdr (assoc 0 (setq el (entget en))))))
   
7.       )
   
8.     )
   
9.   )
   
10.   (vlax-for obj
    
11.             (vla-item (vla-get-blocks
    
12.                         (vla-get-ActiveDocument (vlax-get-acad-object))
    
13.                       )
    
14.                       (cdr (assoc 2 el))
    
15.             )
    
16.     (setq color          (vla-get-color obj)
    
17.           layer          (vla-get-layer obj)
    
18.           objname (vla-get-objectname obj)
    
19.     )
    
20.     (princ "\n对象名称 = ")
    
21.     (princ objname)
    
22.     (princ "\n对象图层 = ")
    
23.     (princ layer)
    
24.     (princ "\n对象颜色 = ")
    
25.     (princ color)
    
26.     ;;添加你的操作代码
    
27.     ;;...
    
28.   )
    
29.   (princ)
    
30. )

(defun c:tt ()<br />   (while<br />     (progn<br />       (setq en (car (entsel "\n选择图块:")))<br />       (and en<br />            (not (= "INSERT" (cdr (assoc 0 (setq el (entget en))))))<br />       )<br />     )<br />   )<br />   (vlax-for obj<br />             (vla-item (vla-get-blocks<br />                         (vla-get-ActiveDocument (vlax-get-acad-object))<br />                       )<br />                       (cdr (assoc 2 el))<br />             )<br />     (setq color          (vla-get-color obj)<br />           layer          (vla-get-layer obj)<br />           objname (vla-get-objectname obj)<br />     )<br />     (princ "\n对象名称 = ")<br />     (princ objname)<br />     (princ "\n对象图层 = ")<br />     (princ layer)<br />     (princ "\n对象颜色 = ")<br />     (princ color)<br />     ;;添加你的操作代码<br />     ;;...<br />   )<br />   (princ)<br /> )

millermin

Gu_xl 发表于 2012-12-19 21:41
示例代码:

超级还是有道理。这段代码很有用。我要的全有了。颜色，层，对象名称。这下干什么都行。我也来个超级感谢。

millermin

再请问：
这里说的对象名称相当于群码100，同时群码-1也叫对象名称（entity name），有什么区别。感觉-1这个可以作为许多函数的变量，而100就是个字符名称，没有什么用途。是吧？

millermin

millermin 发表于 2012-12-21 10:26
再请问：
这里说的对象名称相当于群码100，同时群码-1也叫对象名称（entity name），有什么区别。感觉-1这 ...

谢谢。我更喜欢这句程序。不过还是想知道这两种名称的真实意义。因为不搞懂概念，等于没入门。

happysheep

Gu_xl 发表于 2012-12-19 21:41
示例代码:

这个太有用了！！