[编程交流] 选择一个项目

(setq ss1 (ssget "X" '((0 . "INSERT")(66 . 1))))

(if (and (setq ent (car (entsel "\nSelect Item: ")))
        (= "INSERT" (cdr (assoc 0 (entget ent))))
        (= 1 (cdr (assoc 66 (entget ent)))))
 (progn
 ;...do stuff...
  )
 (princ "\nSelected Item Isn't an Attributed Block"))

(if (setq ss (ssget "_:S" '((0 . "INSERT") (66 . 1))))
 (progn
  ;; do stuff here...
  )
 (princ "\nNothing Selected"))

(while
(not
 (setq ss (ssget "_:S" '((0 . "INSERT") (66 . 1))))
)
)

(setq en (ssname ss1 0))
(setq ed (entget en))
(setq blkn (dxf 2 ed))

(= "ITEMBALLOON" blkn)

(while
(not
 (setq ss (ssget "_:S" '((0 . "INSERT")(2 . "ITEMBALLOON")(66 . 1))))
)
)

(setq blkn (cdr (assoc 2 (entget (ssname ss1 0)))))

(defun c:ct ()
    ;for testing
    ;to find if want to increase or renumber from a selected up
 (setq incre (getstring (strcat "\nDo you want to renumber(1,2) or increment (+1,-2)? <" incre "> :")))
    ;works out the choice made
 (cond ((= (substr incre 1 1) "+")
 (progn
   (setq change 0)
   (setq orgno (atoi (substr incre 2)))
 )
)
((= (substr incre 1 1) "-")
 (progn
   (setq change 1)
   (setq orgno (atoi (substr incre 2)))
 )
)
((<= 1 (atoi incre))
 (progn
   (setq change 2)
   (setq orgno (atoi incre))
 )
)
 )
[color=red];this while!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!![/color]
(while
 (progn
   (setq ss1 nil) ;select the block for it to be done to.
 (while
   (not
     (setq ss1 (ssget "_:S" '((0 . "INSERT") (66 . 1))))
   )
 )
    ;finds its data
 (setq en (ssname ss1 0))
 (setq ed (entget en))
    ;makes sure its itemballoon
 (setq blkn (cdr (assoc 2 ed)))
 (cond
   ((= blkn "ITEMBALLOON")
    (progn
      (setq edata (entget en))
      (setq edata (entget (entnext (cdr (assoc -1 edata)))))
    ;gives attibutes current number
      (setq itembubbleorg (atoi (cdr (assoc 1 edata))))
      (rever)
    )
   )
   ((not (= blkn "ITEMBALLOON"))
    (Princ "\nYou Must Select the Item Bubble or masslist block")
 )
   )
 )
)
 )
(defun rever ()     ;0, addes the number to the items one,1 takes it away, 2 changes it to selected one, then every item seleted will add one to that (change 3)     
 (cond
   ((= change 0)
    (setq itembubblenew (+ itembubbleorg orgno))
   )
   ((= change 1)
    (setq itembubblenew (- itembubbleorg orgno))
   )
   ((= change 2)
    (progn
      (setq change 3)
      (setq itembubblenew orgno)
    )
   )
   ((= change 3)
    (setq itembubblenew (1+ itembubblenew))
   )
 )
    ;creates the number to a string
 (setq interitembubblenew (itoa itembubblenew))
    ;inserts it back to the attribute
 (setq el (subst (cons 1 interitembubblenew) (assoc 1 edata) edata))
 (entmod el)
)