SSGET的返回值

aicr317

（setq ss (ssget)）

(alert ss)

 

这个思路如何实现

比如我选择了图号：0825C-5-10-2001/2002-PL-ST-02/01,如何让他显示出来！或者赋值！

 

phoenixdjq

如果你只选一个文字的话

(setq a (entget (ssname (ssget) 0)))
(setq b (cdr (assoc 1 a)))
(alert b)

一句话  (alert (cdr (assoc 1 (entget (ssname (ssget) 0))  )))  也可以

aicr317

phoenixdjq发表于2009-10-21 15:57:00如果你只选一个文字的话(setq a (entget (ssname (ssget) 0)))(setq b (cdr (assoc 1 a)))(alert b)一句话  (alert (cdr (assoc 1 (entget (ssname (ssget) 0))  )))  也可以

那如果是多个文字怎么处理呢

ZZXXQQ

循环逐个处理。

quanguang

如果一个一个选择的话，还是使用entsel比较方便些

phoenixdjq

做个循环是最重要的，楼主看看关于“循环”方面的教材吧

aicr317

phoenixdjq发表于2009-10-22 11:59:00做个循环是最重要的，楼主看看关于“循环”方面的教材吧

找的半天，没有发现相关材料，能给个链接吗？用死办法写了一个：

(defun c:1()
(setq ss (ssget))
(setq sl (sslength ss))

(setq a1 (cdr (assoc 1 (entget (ssname ss 0)))))

(if (= sl 1) (alert a1))   
                                                      
(if (= sl 2) (alert (setq a2 (STRCAT a1 "," (cdr (assoc 1 (entget (ssname ss 1))))))))

(if (= sl 3) (alert (setq a3 (STRCAT a1 "," (cdr (assoc 1 (entget (ssname ss 1)))) "," (cdr (assoc 1 (entget (ssname ss 2))))))))
(if (= sl 4) (alert (setq a4 (STRCAT a1 "," (cdr (assoc 1 (entget (ssname ss 1)))) "," (cdr (assoc 1 (entget (ssname ss 2)))) "," (cdr (assoc 1 (entget (ssname ss 3))))))))
(if (= sl 5) (alert (setq a5 (STRCAT a1 "," (cdr (assoc 1 (entget (ssname ss 1)))) "," (cdr (assoc 1 (entget (ssname ss 2)))) "," (cdr (assoc 1 (entget (ssname ss 3)))) "," (cdr (assoc 1 (entget (ssname ss 4))))))))
(if (= sl 6) (alert (setq a6 (STRCAT a1 "," (cdr (assoc 1 (entget (ssname ss 1)))) "," (cdr (assoc 1 (entget (ssname ss 2)))) "," (cdr (assoc 1 (entget (ssname ss 3)))) "," (cdr (assoc 1 (entget (ssname ss 4)))) "," (cdr (assoc 1 (entget (ssname ss 5))))))))
(if (= sl 7) (alert (setq a7 (STRCAT a1 "," (cdr (assoc 1 (entget (ssname ss 1)))) "," (cdr (assoc 1 (entget (ssname ss 2)))) "," (cdr (assoc 1 (entget (ssname ss 3)))) "," (cdr (assoc 1 (entget (ssname ss 4)))) "," (cdr (assoc 1 (entget (ssname ss 5)))) "," (cdr (assoc 1 (entget (ssname ss 6))))))))
(if (= sl 8) (alert (setq a8 (STRCAT a1 "," (cdr (assoc 1 (entget (ssname ss 1)))) "," (cdr (assoc 1 (entget (ssname ss 2)))) "," (cdr (assoc 1 (entget (ssname ss 3)))) "," (cdr (assoc 1 (entget (ssname ss 4)))) "," (cdr (assoc 1 (entget (ssname ss 5)))) "," (cdr (assoc 1 (entget (ssname ss 6)))) "," (cdr (assoc 1 (entget (ssname ss 7))))))))
(if (= sl 9) (alert (setq a9(STRCAT a1 "," (cdr (assoc 1 (entget (ssname ss 1)))) "," (cdr (assoc 1 (entget (ssname ss 2)))) "," (cdr (assoc 1 (entget (ssname ss 3)))) "," (cdr (assoc 1 (entget (ssname ss 4)))) "," (cdr (assoc 1 (entget (ssname ss 5)))) "," (cdr (assoc 1 (entget (ssname ss 6)))) "," (cdr (assoc 1 (entget (ssname ss 7)))) "," (cdr (assoc 1 (entget (ssname ss 8))))))))
(if (= sl 10) (alert (setq a10(STRCAT a1 "," (cdr (assoc 1 (entget (ssname ss 1)))) "," (cdr (assoc 1 (entget (ssname ss 2)))) "," (cdr (assoc 1 (entget (ssname ss 3)))) "," (cdr (assoc 1 (entget (ssname ss 4)))) "," (cdr (assoc 1 (entget (ssname ss 5)))) "," (cdr (assoc 1 (entget (ssname ss 6)))) "," (cdr (assoc 1 (entget (ssname ss 7)))) "," (cdr (assoc 1 (entget (ssname ss 8)))) "," (cdr (assoc 1 (entget (ssname ss 9))))))))

)

 

 

 

龙龙仔

;;選擇與順序有關
(defun C:TT (/ N SS STR)
  (setq SS  (ssget '((0 . "text")))
 N   0
 STR ""
  )
  (repeat (sslength SS)
    (setq STR (strcat STR (cdr (assoc 1 (entget (ssname SS N)))) "\n"))
    (setq N (1+ N))
  )
  (alert STR)
  (princ)
)

phoenixdjq

本论坛有好多这样的书籍呀，像铁道部的<AUTOLISP&DCL>就很好，我就是从本论坛上下载的