[gizmo_zx]

Бодрого дня.
Подсобите с прогой можно на коленке.
Надо пронумеровать блоки "слева-направо". Номера страци в штампах больших и маленьких.
Основная проблемма, если после Большого штампа "ramka" идет маленькая "ramkam" к номеру добавляется индех (2.1 ; 2.2 и тд). Следующая большая рамка продолжает нумерацию. (3 ; 4 и тд.)
Имя атрибута "NUM" .

[Кулик Алексей aka kpblc]

А поискать по словам "нумератор"?

[Alexeipost]

Нумератор он для общих случаев, а для этого частного случая нумератор, конечно можно прикрутить, но совсем быстрой автоматизации не получится.

[kha]

http://forum.dwg.ru/showthread.php?t=5307 - не подойдёт?

[gizmo_zx]

Сообщение от kha не подойдёт?

Код:

[Выделить все]

 (defun C:NLIST (/ adoc att_list axss blk_list num sort_blk_list blk_obj blk1 space lays lay lock) 
  (vl-load-com) 
  (setq   adoc (vla-get-activedocument 
          (vlax-get-acad-object) 
        ) 
  ) 
  (if (and 
   (= (getvar "tilemode") 0) 
   (= (getvar "cvport") 1) 
      ) 
    (setq acsp (vla-get-paperspace adoc) space (cons 410 (vla-get-name (vla-get-ActiveLayout adoc)))) 
    (setq acsp (vla-get-modelspace adoc) space (cons 410 "Model")) 
  )  
(if (ssget "_X" (list (cons 0 "INSERT") 
         '(-4 . "<OR")       
            (cons 2 "ЛИСТ ЛИСТОВ") ;_Имя блока штампа 
            (cons 2 "Лист") ;_Имя блока штампа 
   '(-4 . "OR>") 
        space ;_Модель или лист 
         (cons 66 1))) 
(progn 
;(setvar "attreq" 1) 
(vla-endundomark adoc) 
(vla-startundomark adoc) 
(initget 4) 
(setq num 1) ;_Начальный номер
(setq lays (vla-get-layers adoc))
(setq axss (vla-get-activeselectionset adoc)) 
(vlax-for a axss 
      (setq blk_list (cons a blk_list))) 
    
(setq sort_blk_list 
 (vl-sort blk_list 
    (function 
      (lambda (e1 e2) 
   (< (car (vlax-get e1 'Insertionpoint)) 
        (car (vlax-get e2 'Insertionpoint))))))) 
(foreach blk_obj sort_blk_list
 (setq lay (vla-item lays (vla-get-layer blk_obj)))
 (if (= (vla-get-lock lay) :vlax-true)
   (progn (vla-put-lock lay :vlax-false) (setq lock (cons lay lock))))
(if (and (vlax-property-available-p blk_obj 'Hasattributes) 
    (vlax-read-enabled-p blk_obj) 
    (vlax-write-enabled-p blk_obj)) 
      (progn 
  (setq att_list (vlax-invoke blk_obj 'Getattributes)) 
  (foreach at att_list 
    (if (eq (strcase (vla-get-tagstring at)) "ЛИСТОВ") 
      (setq blk1 blk_obj));_Запоминаем штамп с атрибутом листов 
    (if (eq (strcase (vla-get-tagstring at)) "ЛИСТ") 
      (progn
	 (setq AAT at)
	 (setq lay (vla-item lays (vla-get-layer at)))
         (if (= (vla-get-lock lay) :vlax-true)
	   (progn (vla-put-lock lay :vlax-false) (setq lock (cons lay lock))))
   (vla-put-textstring at (itoa num)) 
   (vla-update at) 
   (vla-update blk_obj)))))) 
  (setq num (1+ num))) 
(if blk1 
      (progn 
        (setq att_list (vlax-invoke blk1 'Getattributes)) 
     (foreach at att_list 
       (if (eq (vla-get-tagstring at) "ЛИСТОВ") 
         (progn
	 (setq lay (vla-item lays (vla-get-layer at)))
         (if (= (vla-get-lock lay) :vlax-true)
	   (progn (vla-put-lock lay :vlax-false) (setq lock (cons lay lock))))
           (vla-put-textstring at (itoa (1- num))) 
          (vla-update at) 
          (vla-update blk1))))))
(if lock (foreach x lock (vla-put-lock x :vlax-true)))
(vla-clear axss) 
(vla-delete axss) 
(vlax-release-object axss))) 
(vla-regen adoc acactiveviewport) 
(vla-endundomark adoc) 
(prompt (strcat "\nНумерация завершена. Всего "(itoa (1- num)) " элементов в пространстве " (cdr space))) 
(princ) 
) 
(prompt "\nВ командной строке набери NLIST \n")

Только не умеет делать номера для маленьких рамок типа 2.2 ; 2.3

[kha]

Допиливать лисп нужно под твою конкретную задачу