关于批量选择图块的问题

yhly555

为什么我这样写不能选择到指定块名称的图块呢？谢谢！

2. (defun c:tt (mane)
   
3.      (ssget "X" (list '(0 . "insert") (cons 2 mane)))
   
4. )
   
5. 
   
6. (c:tt "gc177")

(defun c:tt (mane)<br />      (ssget "X" (list '(0 . "insert") (cons 2 mane)))<br /> )<br /> <br /> (c:tt "gc177")

Andyhon

这样能选到吗?
(setq  mane "gc177")
(ssget "X" (list '(0 . "insert") (cons 2 mane)))

yhly555

Andyhon 发表于 2015-6-3 11:34
这样能选到吗?
(setq  mane "gc177")
(ssget "X" (list '(0 . "insert") (cons 2 mane)))

我试了也不行，且这样的话不带参数，我是想写成带参数的。

琴剑江山_10184

yhly555 发表于 2015-6-3 11:42
我试了也不行，且这样的话不带参数，我是想写成带参数的。

1. (defun c:tt (/ EN GE SEL)
   
2.   (princ "\n功能 [选择相同块名]")
   
3.   (and (setq seL (entsel "\n选择源图块:"))
   
4.        (progn
   
5. (setq en (cdr (assoc 2 (entget (car seL))))
   
6.       ge (ssget "x" (list '(0 . "INSERT") (cons 2 en))))   
   
7. )
   
8.        (if (> (sslength ge) 0) (sssetfirst nil ge))
   
9.        )
   
10.   (princ)
    
11.   )

(defun c:tt (/ EN GE SEL)<br />   (princ "\n功能 [选择相同块名]")<br />   (and (setq seL (entsel "\n选择源图块:"))<br />        (progn<br /> (setq en (cdr (assoc 2 (entget (car seL))))<br />       ge (ssget "x" (list '(0 . "INSERT") (cons 2 en))))   <br /> )<br />        (if (> (sslength ge) 0) (sssetfirst nil ge))<br />        )<br />   (princ)<br />   )

你的要这样定义函数
(defun tt (mane)
  (if (setq ii (ssget "X" (list '(0 . "insert") (cons 2 mane))))
    (sssetfirst nil ii)
  )
)


(tt "块名")

Andyhon

...我试了也不行...

这个得有 '不行 的调试图面供验证

xyp1964

(defun tt (name)  (ssget "X" (list '(0 . "insert") (cons 2 name))))