[编程交流] 带循环和/

(defun C:ATTINC()
;;;--- Get an attributes value
(defun getAttData(en / enlist blkType group66 attData)
 ;;;--- Get the DXF group codes of the entity
 (setq enlist(entget en))
 (setq attData (list))
 ;;;--- Check to see if the block's attribute flag is there
 (if(cdr(assoc 66 enlist))
   (progn
        
     ;;;--- Get the entity name
     (setq en(entnext en))
     ;;;--- Get the entity dxf group codes
     (setq enlist(entget en))
     ;;;--- Get the type of block
     (setq blkType (cdr(assoc 0 enlist)))
     ;;;--- If group 66 then there are attributes nested inside this block
     (setq group66(cdr(assoc 66 enlist)))
     ;;;--- Loop while the type is an attribute or a nested attribute exist
     (while(or (= blkType "ATTRIB")(= group66 1))
          
       ;;;--- Get the block type 
       (setq blkType (cdr(assoc 0 enlist)))
       ;;;--- Check to see if this is an attribute
       (if(= blkType "ATTRIB")
         ;;;--- Save the tag of the attribute
         (setq attData(append attData(list (cdr(assoc 2 enlist)))))
       )
       ;;;--- Get the next sub-entity
       (setq en(entnext en))
       ;;;--- Get the dxf group codes of the next sub-entity
       (setq enlist(entget en))
       ;;;--- Get the block type of the next sub-entity
       (setq blkType (cdr(assoc 0 enlist)))
       ;;;--- See if the dxf group code 66 exist.  if so, there are more nested attributes
       (setq group66(cdr(assoc 66 enlist)))
     )
   )
 )
 attData
)
;;;--- Get an attributes value
(defun replaceAtt(en tagName str / enlist blkType group66)
 ;;;--- Get the DXF group codes of the entity
 (setq enlist(entget en))
 ;;;--- Check to see if the block's attribute flag is there
 (if(cdr(assoc 66 enlist))
   (progn
        
     ;;;--- Get the entity name
     (setq en(entnext en))
     ;;;--- Get the entity dxf group codes
     (setq enlist(entget en))
     ;;;--- Get the type of block
     (setq blkType (cdr(assoc 0 enlist)))
     ;;;--- If group 66 then there are attributes nested inside this block
     (setq group66(cdr(assoc 66 enlist)))
     ;;;--- Loop while the type is an attribute or a nested attribute exist
     (while(or (= blkType "ATTRIB")(= group66 1))
          
       ;;;--- Get the block type 
       (setq blkType (cdr(assoc 0 enlist)))
       ;;;--- Check to see if this is an attribute
       (if(= blkType "ATTRIB")
         ;;;--- If the attribute value matches....
         (if(= tagName (cdr(assoc 2 enlist)))
           (progn
             ;;;--- Substitute the dxf group codes
             (setq enlist(subst (cons 1 str)(assoc 1 enlist)enlist))
             (entmod enlist)
             (entupd en)
           )
         )
       )
       ;;;--- Get the next sub-entity
       (setq en(entnext en))
       ;;;--- Get the dxf group codes of the next sub-entity
       (setq enlist(entget en))
       ;;;--- Get the block type of the next sub-entity
       (setq blkType (cdr(assoc 0 enlist)))
       ;;;--- See if the dxf group code 66 exist.  if so, there are more nested attributes
       (setq group66(cdr(assoc 66 enlist)))
     )
   )
 )
)
;;;--- Function to save the dialog box settings
(defun saveVars(/ index retList readlist count item)
 ;;;--- Save the input from the SELECTPLOTTER.dcl file
 (setq retList(list))
 (setq readlist(get_tile "attdata"))  
 (setq count 1)
 (while (setq item (read readlist))
   (setq retlist(append retList (list (nth item attData))))
   (while (and (/= " " (substr readlist count 1))
     (/= "" (substr readlist count 1)))
     (setq count (1+ count))
   )
   (setq readlist (substr readlist count))
 )
 
 (if(= retList nil)
   (setq tagName nil)
   (setq tagName (car retList))
 )
 (setq str(get_tile "startstr"))
 (setq inc(atoi(get_tile "increment")))
 (setq order1(atoi(get_tile "order1")))
 (setq order2(atoi(get_tile "order2")))
)
;;;--- Function to increment a string
;;;    str = a string
;;;    inc = an integer
;;;
;;;    Examples (incStr "A100") would return "A101" if inc is set to 1
;;;             (incStr "A01")  would return "A11"  if inc is set to 10           
(defun incStr(str inc)
 ;;;--- Set up some variable defaults
 (setq strPart "" numPart "" chkStr str flag T)
 ;;;--- While there are characters left in the string to check
 (while(/= chkStr "") 
   ;;;--- Get the last character in the string
   (setq ch(substr chkStr (strlen chkStr)))
   ;;;--- If the flag is clear continue on...
   (if(= flag T)
     (progn
       ;;;--- If the character to check matches a numerical string value....
       (if(member ch (list "1" "2" "3" "4" "5" "6" "7" "8" "9" "0" "."))
         ;;;--- Add the numerical string value to the number portion
         (setq numPart(strcat ch numPart))
         ;;;--- Else set the flag to nil because the rest of the string is letters
         (setq flag nil strPart chkStr)
       )
     )
   )
   ;;;--- Drop the last character off the string
   (setq chkStr(substr chkStr 1 (- (strlen chkStr) 1)))
 )
 ;;;--- See how many characters make up the numerical string portion
 (setq numLen(strlen numPart))
 ;;;--- Convert the numerical to a string, add the increment, and convert back to a string
 (setq numStr (itoa(+ (atoi numPart) inc)))
 ;;;--- If the converted string is less characters than the original, prefix with zeros
 (while(< (strlen numStr) numLen)
   (setq numStr(strcat "0" numStr))
 )
 ;;;--- Put the string back together
 (setq str(strcat strPart numStr))
)
 ;;;--- Main application
 ;;;--- Let the user select the block
 (if(setq ent(entsel "\n Select Block: "))
   (progn
     ;;;--- Get the entity name from the entity selection
     (setq en(car ent))
     ;;;--- Get the dxf group codes of the entity
     (setq enlist(entget en))
     ;;;--- Make sure this is a block entity
     (if(= "INSERT" (cdr(assoc 0 enlist)))
       (progn
         ;;;--- Get the name of the block
         (setq blkName(cdr(assoc 2 enlist)))
         ;;;--- If attribute information is found in the block
         (if(setq attData(getAttData en))
           (progn
             ;;;--- Put up the dialog box
             (setq dcl_id (load_dialog "ATTINC.dcl"))
             ;;;--- Make sure the DCL file loaded
             (if (not (new_dialog "ATTINC" dcl_id))
               (progn
                 (alert "Could not find the ATTINC.DCL file!")
                 (exit)
               )
             )
             ;;;--- Add the list to the dialog box
             (start_list "attdata" 3)
             (mapcar 'add_list attData)
             (end_list)
             ;;;--- Set a default selection
             (set_tile "attdata" "0")
             ;;;--- If an action event occurs, do this...
             (action_tile "okay"  "(saveVars)(setq ddiag 1)(done_dialog)")
             (action_tile "cancel"  "(setq ddiag 2)(done_dialog)")
             ;;;--- Display the dialog box
             (start_dialog)
             ;;;-- Unload the dialog box
             (unload_dialog dcl_id)
             ;;;--- Start the routine
             (if(= ddiag 1)
               (progn
                 ;;;--- Display a message
                 (princ "\n Gathering all blocks named ")(princ blkName) (princ " .....")
                 ;;;--- Get the blocks
                 (if(setq eset(ssget "X" (list (cons 0 "INSERT")(cons 2 blkName))))
                   (progn
                     (princ "\n Manipulating data .....")
                     ;;;--- While entities exist in the selection set...
                     (while (> (sslength eset) 0)
                       ;;;--- If insertion order is to be used...
                       (if(= order1 1)
                         ;;;--- Get the first entity in the selection set
                         (setq en(ssname eset 0))
                         ;;;--- Else use reverse order and get the last entity in the selection set
                         (setq en(ssname eset (- (sslength eset)1)))
                       )
                       ;;;--- Replace the value of the tag
                       (replaceAtt en tagName str)
                       ;;;--- Increment the value for the next attribute                  
                       (setq str(incStr str inc))                        
                        
                       ;;;--- Remove the entity from the selection set
                       (ssdel en eset)
                     )
                   )
                 )
               )
             )
           )
           (alert "The block selected does not contain attributes!")
         )
       )
       (alert "The entity selected is not a block!")
     )     
     
   )
   (alert "No block selected!")
 )
 (princ)
)

ATTINC : dialog {
        label = "AttInc";
        : column {
          : column {
            : list_box{
              label ="Select Tag Name";
              key = "attdata";
              height = 15;
              width = 45;
              multiple_select = false;
              fixed_width_font = false;
            }
          }
          : column {
            : edit_box  {
              key = "startstr";
              label = "Start Value:";
              edit_width = 8;
              value  = "A001";
            }
            : edit_box  {
              key = "increment";
              label = "Increment:";
              edit_width = 8;
              value  = "1";
            }
            : radio_button {
              label = "Insertion order";
              key = "order1";
              value  = "0";
            }
            : radio_button {
              label = "Reverse insertion order";
              key = "order2";
              value = "1";
            } 
          }
          : column {
            : boxed_row {
              : button { 
                key = "okay";
                label = "Okay";
                is_default = true;
              }
              : button { 
                key = "cancel";
                label = "Exit";
                is_default = false;
                is_cancel = true;
              }
            }
          }
        }
}