[merkur1y]

задача больше сводится к созданию нового типа линии
но
если требуется размечать объекты разными блоками и на разные расстояния, то задача и трудоёмка ( что вручную что новый тип линии делать)

[Хмурый]

что-то трудно понять

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

_.divide ?

[skkkk]

Могу вот такое предложить:

Код:

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

 ;;; Функция разметки нескольких полилиний за раз
;;; Аргументы
;;;   - block_name - имя блока (должен существовать в чертеже)
;;;   - dist - расстояние между вставляемыми блоками (длина сегмента)
;;; Команда для примера:
(defun C:TEST1 () (custom-measure "БЛОК1" 10))
(defun C:TEST2 () (custom-measure "БЛОК2" 20))
(defun custom-measure (block_name dist / ss i en)
	(setq ss (ssget '((0 . "*LINE,ARC"))))
	(if ss
		(repeat (setq i (sslength ss))
			(setq en (ssname ss (setq i (1- i))))
			(vl-cmdf "_.measure" en "_b" block_name "_y" dist)
		)
	)
)

[merkur1y]

skkkk, большое спасибо
вот примерно с таких элементарненьких лиспов можно начать уже наконец самому что-то писать под себя ))