[编程交流] 将两个LISP合并为一个

(defun c:attselect ( / ss2 ss tag val n na)
(setq ss2 (ssadd))
(sssetfirst nil nil)
(princ "\nSelect blocks containing attributes.")
(if (setq ss (ssget '((0 . "INSERT") (66 . 1))))
   (progn
    (setq tag "COLOR"
          val "OR (1)"
    );setq
    (if (equal tag "")
        (setq tag "*")
    );if
    (if (equal val "")
        (setq val "*")
    );if
    (setq n 0)
    (repeat (sslength ss)
    (setq na (ssname ss n))
    (if (sample_att_match na tag val)
        (setq ss2 (ssadd na ss2))
    );if
    (setq n (+ n 1));setq
    );repeat
    (if (equal (getvar "cmdnames")  "")
        (sssetfirst ss2 ss2)
        (command ss2)
    );if
   );progn then
);if
(princ)
);defun c:attselect
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun sample_att_match ( na tag val / e1 a b flag)
(while (and (setq na (entnext na))
            (setq e1 (entget na)) 
            (not (equal (cdr (assoc 0 e1)) "SEQEND"))
            (not flag)
       );and
  (if (equal (cdr (assoc 0 e1)) "ATTRIB")
      (progn
       (setq a (cdr (assoc 2 e1)) ;2 is tag
             b (cdr (assoc 1 e1)) ;1 is value 
       );setq
       (if (and a
                (wcmatch a tag)
                b
                (wcmatch b val)
           );and
           (setq flag T);then jump out of the loop
       );if
      );progn then attrib
  );if
 );while
flag
);defun sample_att_match
(princ "\nType ATTSELECT to run")
(princ)

; Changes selected objects to Layer PL1
(defun c:setpl1 ()
 (tolayer
   (ssget "_:L") ;;selection
   "PL1"         ;;Layer
   )
 (princ)
)
(defun tolayer ( ss lay / i e )
 ;;; ss - pickset
 ;;; lay -layer name
 (repeat (setq i (sslength ss))
   (entmod
     (subst
       (cons 8 lay)
       (assoc 8 (entget (setq e (ssname ss (setq i (1- i))))))
       (entget e)
       )
     )
   )
 )

(C:setpl1)

not tested
(defun c:attselect ( / ss2 tag val n na) ss has been removed so makes it a global variable
ignore setpl1
(defun c:test ()
(c:attselect)
(setq lay "PL1")
(defun tolayer ( ss lay / i e ) ;ignore setpl1
)

;|combining attselect and layer change.
c:test- it works!
- at the end should do this: select all blocks in drawing, filter it by attribute value "OR (1)", change layer of those to PURPLE
- main command that combines two of those:
        c:attselect - selects all blocks in layer GREEN with attribute value "OR (1)"
        c:tolay - it changes selection layer to PURPLE
idea1: I wish that I dont need to select manualy whole drawing with mouse. I wish LISP do it without me.
idea2: Later... :-)        |;
;final combining command
(defun c:test ()
(c:attselect)
(c:tolay)
)
;makes selection (only blocks within layer GREEN)
(defun c:attselect ( / ss tag val n na)
(setq ss2 (ssget "all" '((8 . "GREEN")(0 . "INSERT"))))        
;|
comment for line above
this is original line in original command: (setq ss2 (ssadd))  
I'm trying to make this selection automatic (without mouse input of selecting all
I don't know how!!!
|;
(sssetfirst nil nil)
(princ "\nSelect blocks containing attributes.")
(if (setq ss (ssget '((0 . "INSERT") (66 . 1))))
   (progn
    (setq tag "COLOR"
          val "OR (1)"
    );setq
    (if (equal tag "")
        (setq tag "*")
    );if
    (if (equal val "")
        (setq val "*")
    );if
    (setq n 0)
    (repeat (sslength ss)
    (setq na (ssname ss n))
    (if (sample_att_match na tag val)
        (setq ss2 (ssadd na ss2))
    );if
    (setq n (+ n 1));setq
    );repeat
    (if (equal (getvar "cmdnames")  "")
        (sssetfirst ss2 ss2)
        (command ss2)
    );if
   );progn then
);if
(princ)
);defun c:attselect
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun sample_att_match ( na tag val / e1 a b flag)
(while (and (setq na (entnext na))
            (setq e1 (entget na)) 
            (not (equal (cdr (assoc 0 e1)) "SEQEND"))
            (not flag)
       );and
  (if (equal (cdr (assoc 0 e1)) "ATTRIB")
      (progn
       (setq a (cdr (assoc 2 e1)) ;2 is tag
             b (cdr (assoc 1 e1)) ;1 is value 
       );setq
       (if (and a
                (wcmatch a tag)
                b
                (wcmatch b val)
           );and
           (setq flag T);then jump out of the loop
       );if
      );progn then attrib
  );if
 );while
flag
);defun sample_att_match
(princ "\nType ATTSELECT to run")
(princ)
; changes layer of selection provided by attselect
(defun c:tolay ()
 (command "_.chprop" (eval ss2) "" "_layer" "PURPLE" "")
)