如何将图面上所有不同大小的圆放在不同的图层上

blue123

请教哪位高手指点一下:如何用AutoLisp将图面上所有不同大小的圆放在不同的图层上,然后再将其以列表的形式显示出来啊!!!

ZZXXQQ

程序，试一下是否满足楼主的要求。

2. (DEFUN C:LISTCIR ()
3. (SETVAR "CMDECHO" 0)
4. (IF (SETQ SS (SSGET "X" (LIST (CONS 0 "CIRCLE")))) (PROGN
5.   (COMMAND ".UNDO" "BE")
6.   (SETQ OLDL (GETVAR "CLAYER"))
7.   (SETQ I -1 RR 0)
8.   (REPEAT (SSLENGTH SS)
9.    (SETQ EN (SSNAME SS (SETQ I (1+ I)))
10.          R (CDR (ASSOC 40 (ENTGET EN)))
11.          RR (IF (> R RR) R RR)
12.          LN (STRCAT "L" (ITOA (FIX R))))
13.    (COMMAND "LAYER" "M" LN "" "CHANGE" EN "" "P" "LA" LN "")
14.    (SET (READ LN) (IF (NUMBERP (READ LN)) (1+ (EVAL (READ LN))) 1))
15.   )
16.   (SETQ I 0)
17.   (TEXTSCR)
18.   (PRINC "直径 ： 数量\n")
19.   (REPEAT (FIX RR)
20.    (SETQ LN (STRCAT "L" (ITOA (SETQ I (1+ I)))))
21.    (IF (SETQ SS (SSGET "X" (LIST (CONS 0 "CIRCLE") (CONS 8 LN)))) (PROGN
22.     (PRINC I) (PRINC " : ") (PRINC (SSLENGTH SS)) (PRINC "\n")
23.    ))
24.   )
25.   (SETVAR "CLAYER" OLDL)
26.   (COMMAND ".UNDO" "E")
27. ))
28. (SETVAR "CMDECHO" 1)
29. (PRINC)
30. )

复制代码

blue123

非常多谢二楼的侠客.正是所欲!!!

MJTD_7777

(DEFUN CISTCIR (/ ss oldl i rr layerlist en ln)
 (SETvar "CMDECHO" 0)
 (IF (SETQ SS (SSGET "X" (LIST (CONS 0 "CIRCLE"))))
   (PROGN
  (COMMAND ".UNDO" "BE")
  (SETQ OLDL (GETvar "CLAYER"))
  (SETQ I -1 RR 0)
  (setq layerlist(list (cons "LinShi" "LinShi" )))
  (REPEAT (SSLENGTH SS)
    (SETQ EN (SSNAME SS (SETQ I (1+ I)))
   R (CDR (ASSOC 40 (ENTGET EN)))
   RR (IF (> R RR) R RR)
   LN (STRCAT "L" (rtos r)))
    (COMMAND "LAYER" "M" LN "" "CHANGE" EN "" "P" "LA" LN "")
    (if (assoc ln layerList)
      (setq layerlist(subst (cons ln (1+(cdr (assoc ln layerList))))(assoc ln layerList)  layerlist))
      (setq layerlist(append layerlist (list(cons ln 1))))
    )
    (SETvar "CLAYER" OLDL)
    (COMMAND ".UNDO" "E")
    )
  (setq layerlist(cdr layerlist))
   
  (TEXTSCR)
  (PRINC "直径 ： 数量\n")
  (while (car layerlist)
    (progn
    (PRINC (car (car layerlist)))
    (PRINC " : ")
    (PRINC (cdr (car layerlist)))
    (PRINC "\n")
    (setq layerlist(cdr layerlist))
    )
    )
  )
   )
 (SETvar "CMDECHO" 1)
 (PRINC)
)

很久没用Lisp了，不知如何。