[求助]过年了,有一堆数字要统计,大家能帮我夏吗?

xyp1964

linkai2004发表于2006-1-24 9:12:00版主呀 这个怎么用呀 最后得到一个!ss的结果.要怎么用?

2. (defun c:test ()
3.   (CMDLA0)
4.   (setq STR (USTR 1 "\n数字字符串(格式 : a,b,c,...)" STR NIL)
5. ss  (ssget  (list '(0 . "TEXT") (cons 1 str)))
6.   )
7.   (princ"\n选择集为 !ss")
8.   (CMDLA1)
9. )

(defun c:test ()   (CMDLA0)   (setq STR (USTR 1 "\n数字字符串(格式 : a,b,c,...)" STR NIL) ss  (ssget  (list '(0 . "TEXT") (cons 1 str)))   )   (princ"\n选择集为 !ss")   (CMDLA1) )

选择集的名称：!ss
主题只要生成选择集，剩下的操作就是你自己的事情了！呵呵……

linkai2004

Andyhon发表于2006-1-24 12:11:00 (defun sslist (sso / n lst)(if (= (type sso) 'PICKSET) ...

好像提示 错误: 输入的列表有缺陷

能不能再帮我改进一下子  谢谢

我要得基本上就是这样的

linkai2004

(setq ss (ssget '((0 . "TEXT"))))

好像是丢了一个括号其他的好像也有点不对,请作者再帮一下忙啦

Andyhon

 
  http://www.faqs.org/faqs/CAD/autolisp-faq/part2/section-1.html
  ;;; convert selection set to list,
  ;;; Note: it's also wise to use ai_ssget, because some ents could be
  ;;;       on locked layers
  ;;; Ex: (sslist (ai_ssget (ssget))) => list of selected unlocked ents
  ;;; or  (mapcar 'entupd (sslist (ssget "X" '((8 . "TEMP")))))
  ;;;       - regens all entities on layer TEMP
  (defun SSLIST (ss / n lst)
    (if (= (type ss) 'PICKSET)
      (repeat (setq n (sslength ss))
        (setq n (1- n)
              lst (cons (ssname ss n) lst)))))
 
 
  http://www.d2cad.nl/lisp/lisps/sslist.html
  (defun SSList (f_sel) ;converts a selection set to a list of enames
  (if f_sel
    (progn
  (if (/= (type f_sel) 'PICKSET)
    (exit)
  ) ; end if
  (setq f_ss_list nil
 f_loop -1
  ) ; end setq
  (repeat (sslength f_sel)
    (progn
      (setq f_loop (1+ f_loop))
;      (princ (strcat "\rSorting " (itoa f_loop) " of " (itoa (sslength f_sel)) "     "))
      (setq f_ss_list (append f_ss_list (list (ssname f_sel f_loop))))
    ) ; end progn
  ) ; end repest
  ) ; end progn
    nil
    ) ; end if
) ; end defun
  
  
http://forum.paug.org/messages/24/973.html?WednesdayMay1920040929am           
;--- sslist -----------------------------------------------
; convert selection-set into a list of entities
; result is the list
; Example: (sslist )
;
(defun sslist (SS / N P)
(repeat (setq N (sslength SS)) ;seed N
(setq N (1- N) ;index number
P (cons (ssname SS N) P)) ;setq
);repeat
); sslist
           

linkai2004

Andyhon 师兄能不能帮我整理一下啦

我看不懂呀..

你开始变编的那个就是我想要得,

能不能完善一下,好像一加载就运行了?怎么回事

Andyhon

    
    (defun dxg (code ele)
      (cdr (assoc code (entget ele)))
    )
   
    (defun sslist (SS / N P)
       (repeat (setq N (sslength SS)) ;seed N
         (setq N (1- N) ;index number
               P (cons (ssname SS N) P)
         ) ;setq
       );repeat
    )
   
 ;;; for test only
 ;;; (setq MyStrSet (scopeStr))
 ;;; 返回类如 (<Entity name: 1d232d0> <Entity name: 1d232d8> . . .) 
 (defun scopeStr ()   
    (setq Lint (getInt "下限值起自: ")
            Uint (getInt "上限结束值: ")
    )
    (princ "\n 框选范围内的数字,生成一个选择集: ")
    (setq ss (ssget '((0 . "TEXT"))))
   
    (vl-remove-if
     '(lambda (x)
       (setq y (atoi (dxg 1 x)))
       (cond
        ;((< y Lint) x)
        ;((> y Uint) x)
        ((< y Lint))
        ((> y Uint))
      ))
      (sslist ss)
    )
 )

linkai2004

Andyhon发表于2006-1-25 8:23:00(defun sslist (sso / n lst)(if (= (type sso) 'PICKSET)&n...

好像还是不能用?

linkai2004

请求大家的帮助亚

Andyhon

那就用阳春型的 SSLIST 好了
这样比较单纯