[alivstar]

тема эта уже вроде как поднималась, нужно пронуменовать несколько блоков по порядку их выбора, но что-то ни один из лиспов не работает кроме этого :

Код:

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

(defun c:nvec ( / p1 p2 v1 sn blokset blklength spis_b i 
                  name_blk spis_blk name_b kord_b XY_b 
                  name_XY spis_b nb nm1 sps atr n_atr ) 
(setq snp (getvar "Osmode"))
(setvar "Osmode" 0)
(setq p1 (getpoint "Point one"))
(setq p2 (getpoint "Point two"))
(setq v1 (list (-(car p2)(car p1))(-(cadr p2)(cadr p1)))) 
(setq sn (getint "Start number: "))
(setq blokset (ssget "_:L" '(( 0 . "INSERT"))))
(setq blklength (sslength blokset)) 
(setq spis_b nil i -1)
(repeat  blklength
  (setq i (1+ i))      
  (setq name_blk (ssname blokset i))
  (setq spis_blk  (entget  name_blk))
  (setq name_b   (cdr(assoc -1 spis_blk)))
  (setq kord_b   (cdr(assoc 10 spis_blk)))
  (setq XY_b     (reverse(cdr(reverse kord_b))))
  (setq name_XY  (append XY_b (list name_b)))
  (setq spis_b (append spis_b (list name_XY)))
)
(setq spis_b (vl-sort spis_b
(function (lambda (e1 e2)
(< (+ (*(car e1)(car v1))(*(cadr e1)(cadr v1)))
   (+ (*(car e2)(car v1))(*(cadr e2)(cadr v1)))) ) ) ) )
(setq i -1)
(repeat  blklength
  (setq i (1+ i))  
  (setq nb (caddr (nth i spis_b)))
  (setq nm1  (entnext nb))
  (setq sps (entget  nm1))
  (setq atr (assoc 1 sps))
  (setq n_atr (cons 1 (itoa (+ sn i))))
  (setq sps (subst n_atr atr sps))
  (entmod sps)
  (entupd  (cdr (assoc -1 sps))) 
)
(setvar "Osmode" snp)
)

но он нумерует по направлению а мне надо чтобы блоки нумеровались по порядку выбора, может блок у меня кривой, может потомучто autocad x64.. прошу совета, может кто сталкивался уже с подобной проблемой...

[VVA]

Наверное плохо искал. Нумераторов на данный момент написано достиаточно во всевозможных вариантах
Посмотри по этим ссылкам:
http://forum.dwg.ru/showthread.php?t=46382
http://forum.dwg.ru/showthread.php?t...ighlight=apnum
http://forum.dwg.ru/showthread.php?t=38193
http://forum.dwg.ru/showthread.php?t=25334
http://dwg.ru/dnl/1929

[Nike]

до кучи:
http://dwg.ru/dnl/515

[alivstar]

Спасибо Nike, Спасибо VVA, http://dwg.ru/dnl/515- то что мне нужно, но видимо из-за версии автокада (2011x64) при нажатии кнопки Stop из программы не выходит, http://dwg.ru/dnl/1929 вообще отказывается работать вылетая в редактор VB

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

alivstar, а VBAEnabler для AutoCAD 2011 64 bit установлен?

[alivstar]

Конечно