[编程交流] 需要While expre的帮助

 
;;;--- Function to get the block data
(defun getAttData(/ eset dataList blkCntr en enlist blkType blkName entName 
                    attTag attVal group66)
 ;;;--- Set up an empty list
 (setq dataList(list))
 ;;;--- If that type of entity exist in drawing
 (if (setq eset(ssget ":s" (list (cons 0 "INSERT"))))
   (progn
     ;;;--- Set up some counters
     (setq blkCntr 0 cntr 0)
     ;;;--- Loop through each entity
     (while (< blkCntr (sslength eset))
       ;;;--- Get the entity's name
       (setq en(ssname eset blkCntr))
       ;;;--- Get the DXF group codes of the entity
       (setq enlist(entget en))
       ;;;--- Get the name of the block
       (setq blkName(cdr(assoc 2 enlist)))
       ;;;--- Check to see if the block's attribute flag is set
       (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)))
             ;;;--- Get the block name         
             (setq entName (cdr(assoc 2 enlist)))
             ;;;--- Check to see if this is an attribute or a block
             (if(= blkType "ATTRIB")
               (progn
                 ;;;--- Save the name of the attribute
                 (setq attTag(cdr(assoc 2 enlist)))
                 ;;;--- Get the value of the attribute
                 (setq attVal(cdr(assoc 1 enlist))) 
                 ;;;--- Save the data gathered
                 (setq dataList(append dataList(list (list blkName attTag attVal))))
                 ;;;--- Increment the counter
                 (setq cntr (+ cntr 1))
                 ;;;--- Get the next sub-entity or nested entity as you will
                 (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)))
               ) 
             )
           )
         )
         ;;;--- Else, the block does not contain attributes
         (progn
           ;;;--- Setup a bogus tag and value
           (setq attTag "" attVal "")
           ;;;--- Save the data gathered
           (setq dataList(append dataList(list (list blkName attTag attVal))))
         )
       )
       (setq blkCntr (+ blkCntr 1))
     )
   )                    
 )
 dataList
)
(defun c:npinum(/ datalist cnt pl ln off ls vr txt)
         ;;;--- Get a the data from the blocks
         (setq dataList(getattData))
         ;;;--- Set up counter
  (setq cnt 0)
         ;;;--- Define pl
    (setq pl "Plant__")
    ;;;--- Set loop off switch
    (setq off 0)
    ;;;--- Loop to find the Correct Tag
(while (= off 0)
  (
         ;;;--- Get each entry 
     (setq ls (nth cnt dataList))
      ;;;--- Get only the Tag Name
    (setq vr (nth 1 ls))
  ;;;--- Check if Tag matches 
   (If (= vr pl)
       (progn
          ;;;--- Set txt to Tag Value
   (setq txt(last ls))
   ;;;--- Turn off Loop
   (setq off(+ off 1))
       )
      ;;;--- If txt not found look at next item
     (Progn
 (setq cnt (+ cnt 1))
     )
   )
        )
      )    
        ;;;--- Set layer to 0 layer
 (command "layer" "set" "0" "")
   ;;;--- Place text with Tag Value
        (Command "MTEXT" PAUSE "WIDTH" "3" txt "")    
 (princ) 
))

(defun c:npinum(/ ); datalist cnt pl ln off ls vr txt)
         ;;;--- Get a the data from the blocks
         (setq dataList(getattData))
         ;;;--- Set up counter
  (setq cnt 0)
         ;;;--- Define pl
    (setq pl "Plant__")
    ;;;--- Set loop off switch
    (setq off 0)
    ;;;--- Loop to find the Correct Tag
(while (= off 0)
  
[color="Red"]   ;( -> Extra bracket removed[/color]
  
         ;;;--- Get each entry 
     (setq ls (nth cnt dataList))
      ;;;--- Get only the Tag Name
    (setq vr (nth 1 ls))
  ;;;--- Check if Tag matches 
   (If (= vr pl)
       (progn
          ;;;--- Set txt to Tag Value
   (setq txt(last ls))
   ;;;--- Turn off Loop
   (setq off(+ off 1))
       )
      ;;;--- If txt not found look at next item
     (Progn
 (setq cnt (+ cnt 1))
     )
   )
        );End of while
   [color="Red"]     -> Extra bracket removed[/color]
        ;;;--- Set layer to 0 layer
   (command "layer" "set" "0" "")
   ;;;--- Place text with Tag Value
        (Command "MTEXT" PAUSE "WIDTH" "3" txt "")    
 (princ) 
)[color="Red"]
-> Extra bracket removed