[求助]：[求助]：用变量选择块

lm7788

求助各位大侠，下面的语句为何不能选取所要的块
     (setq sset (ssget "X" (list (cons 2  blkname))))
     blkname是变量，表示不同BLOCK名
但是直接用  (setq sset (ssget "X"  ' ((2 . "具体块名")))) 的方法能选出块。可这样每种块都要写语句选择，多郁闷哪！

eachy

2. 
   
3. (defun c:tt (/ e bn ss)
   
4.   (and (setq e (car (entsel "\n选择图块:")))
   
5.        (setq bn (assoc 2 (entget e)))
   
6.        (setq ss (ssget "x" (list bn)))
   
7.        (sssetfirst nil ss)
   
8.   )
   
9. )
   

<br /> (defun c:tt (/ e bn ss)<br />   (and (setq e (car (entsel "\n选择图块:")))<br />        (setq bn (assoc 2 (entget e)))<br />        (setq ss (ssget "x" (list bn)))<br />        (sssetfirst nil ss)<br />   )<br /> )<br />

xyp1964

如果知道块名，可以这样：

2. [FONT=courier new]
   
3. (setq blkname (getstring "\n输入块名 : ")
   
4.       sset    (ssget "X" (list (cons 2 blkname)))
   
5. )[/FONT]

[FONT=courier new]<br /> (setq blkname (getstring "\n输入块名 : ")<br />       sset    (ssget "X" (list (cons 2 blkname)))<br /> )[/FONT]