[编程交流] 属性编号

;;; --- Version Notes ---
;;; v0001 - Initial Development
(defun c:pnm (/ atd blk cnt ech ipt next next_data osm pref suff tag i)
 (setq osm (getvar "osmode"))
 (setq ech (getvar "cmdecho"))
 (setq atd (getvar "attdia"))
 (setq cla (getvar "clayer"))
 
 (setvar "osmode" 0)
 (setvar "cmdecho" 0)
 (setvar "attdia" 0)
 (setvar "clayer" "A-AREA-IMAG-FLOR")
 (setq cnt (cond
    ((getint
        (strcat "\nStarting Photo Number <"
          (itoa
            (setq i
              (cond ( i ) ( 1 ))
            )
          )
          ">: "
        )
      )
    )
    ( i)
  )
i (1- i))
 
 (if cnt
   (progn
                                 ;(setq tag (strcase (getstring "\nEnter attribute tag for numbering: ")))
 (setq tag "Pic0")                        ;change attribute tag "Pic0" on tag name in your block which uses for increment numbering
 
(while (setq ipt (getpoint "\nPick insertion point of block or press Enter to Exit: "))
   (command "-insert" "PhotoBubble" ipt 1 0 0)            ;<- change block name "PhotoBubble" on your block name here
   (setq blk (entlast))
   (setq next blk)
       (while (setq next (entnext next))
   (setq next_data (entget next))
   (if (= tag (cdr (assoc 2 next_data)))
     (progn
       (entmod (subst (cons 1 (itoa (cons 1 (itoa cnt)) (assoc 1 next_data) next_data))
       (entupd blk)
     )
   )
     )
           (setq cnt (1+ cnt))
           )
     )
   )
 (setvar "osmode" osm)
 (setvar "attdia" atd)
 (setvar "cmdecho" ech)
 (setvar "clayer" cla)
 (princ)
 )

(defun PrefixStr (str pre len)
 (repeat (/ (- len (strlen str)) (strlen pre)) (setq str (strcat pre str)))
 str)

3