[Victor]

Программа не коммерческая, поэтому нет проверок на введёные значения, на ошибки. Кому нужно добавляйте. Прога расставляет блоки с начала линии (не с конца). Надавно это обнаружил и долго не мог сообразить, в чём же дело, но реверс линии лень было добавлять.
Нумерует атрибут. Суффикс, префикс.
Редактируйте эти строки под свой стандарты
Масштаб (setq sc '("0.05" "0.10" "0.25" "0.50" "1.00" "2.50" "5.00"))
Имя блока (setq bl '("BL1" "BL2" "BL3" "BL4" "BL5"))
dcl файл сохранить как b2l.dcl

Код:

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

b2l  : dialog { label = "Block to polyline" ;				     		   
:spacer{height=1;}
: row {label = "";
   : column {label = "Scale";			      			
      : popup_list {			        
        value = "4"; key=b1;width=15;}				
        }		 
:spacer{width=1;}
   : column {			
      label = "Block";			
      : popup_list {				
        value = "0"; key=b2;width=15;}				
        }		
} 
:spacer{height=1;}
: row {label = "Dimensions";
: column {label = "";
:spacer{width=7;}
}
: edit_box  {label="Distance";edit_width=7;key="ds_s";}
: column {label = "";
:spacer{width=7;}
}
}

:toggle{label="Use atribute";key="att";value="1";}
:toggle{label="Alignment";key="aln";value="1";}

:spacer{height=1;}
: row {label = "";
   : column {label = "Numbers";
   : edit_box  {label="Start";edit_width=5;key="st_s";}
   : edit_box  {label="Step" ;edit_width=5;key="sp_s";}
}
:spacer{width=1;}
   : column {label = "Letters";
   : edit_box  {label="Prefix";edit_width=5;key="pf_s";}
   : edit_box  {label="Suffix";edit_width=5;key="sf_s";}
}
}      
:spacer{height=1;}
ok_cancel;
}

лисп файл

Код:

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

(vl-load-com)
(defun c:b2l ( / name_of_bl dis pln dis_pl dis_run i krd prm_pnt
                 proiz ugol_pl ugol_pl_gr my_blok my_att spis_att
                 att_old att_new spis_att strt stp)
(command "_.undo" "_begin") 
(setq sc '("0.05" "0.10" "0.25" "0.50" "1.00" "2.50" "5.00"))
(setq bl '("BL1" "BL2" "BL3" "BL4" "BL5"))
(if(<(setq dcl_id(load_dialog"b2l"))0)(exit))
(if(not(new_dialog"b2l" dcl_id))(exit))
  (start_list "b1")				
  (mapcar 'add_list sc)				
  (end_list)
  (start_list "b2")				
  (mapcar 'add_list bl)				
  (end_list)
(action_tile"accept"						
     "(setq scl (atof (get_tile \"b1\")))	
      (setq blk (atof (get_tile \"b2\")))
      (setq dis (atof (get_tile \"ds_s\")))
      (setq strt (atoi(get_tile \"st_s\")))
      (setq stp  (atoi(get_tile \"sp_s\")))
      (setq atr  (atoi(get_tile \"att\")))
      (setq alg  (atoi(get_tile \"aln\")))
      (setq pref (get_tile \"pf_s\"))
      (setq suff (get_tile \"sf_s\"))
      (done_dialog)(setq userclick T))")		
(action_tile"cancel" "(done_dialog)(exit)")
(start_dialog)
(unload_dialog dcl_id)
(setq sc_s (nth (fix scl) sc))
(setq name_of_bl (nth (fix blk) bl))
(setq snp (getvar "Osmode"))
(setvar "Osmode" 0) 
(setq scl sc_s)
(if(not (tblsearch "layer"  name_of_bl))
(entmake(list '(0 . "LAYER" )'(100 . "AcDbSymbolTableRecord")
              '(100 . "AcDbLayerTableRecord")'(70 . 0)(cons 2 name_of_bl)'(62 . 7))))
(setvar "Clayer" name_of_bl)
(setq pln (car (entsel)))
(setq dis_pl (vlax-curve-getDistAtParam pln (vlax-curve-getEndParam pln)))
(setq dis_run (- 0.0 dis) i (- strt stp))
(while(< (+ dis_run dis) dis_pl)
 (progn
 (setq i (+ i stp))
 (setq dis_run (+ dis_run dis))
 (setq krd (vlax-curve-getPointAtDist pln dis_run))
 (setq prm_pnt  (vlax-curve-getParamAtPoint pln krd))
 (if(= alg 1)
    (progn
    (setq proiz (vlax-curve-getFirstDeriv pln prm_pnt))
    (setq ugol_pl (angle '(0 0 0) proiz))
    (setq ugol_pl_gr (* ugol_pl 57.29747))
    ) ;progn
    (setq ugol_pl_gr 0.0)
 ) ;if
 (setvar "attreq" 0)
 (command "_.insert" name_of_bl krd scl scl ugol_pl_gr)
 (if(= atr 1)
    (progn
    (setq my_blok (entlast))
    (setq my_att (entnext my_blok))
    (setq spis_att (entget my_att)) ;spisok 
    (setq att_old (assoc 1 spis_att)) ;name
    (setq num_new (itoa i))
    (setq num_new (strcat pref num_new suff))  
    (setq att_new (cons 1 num_new)) ;
    (setq spis_att (subst att_new att_old spis_att)); zamena
    (entmod spis_att)
    (entupd  (cdr (assoc -1 spis_att)))
    ) ;progn
  ) ;if
 ) ;progn
)
(setvar "Osmode" snp)
(command "_.undo" "_end") 
)

[Stierlitz]

в автокаде есть команды:
divide
measure
с их помощью расставляются блоки вдоль линий, полилиний и сплайнов.
===
а эта программа как-то по особенному расставляет?

[Victor]

Да нет, расставляет также.

[Valery Brelovsky]

Так в чём тогда прикол.

[Stierlitz]

вот и я не понял

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

Сообщение от Valery Brelovsky Так в чём тогда прикол.

ИМХО - как минимум в тренировке.

[Shaft]

Единственный минус этих комманд:

Сообщение от guliaevskij в автокаде есть команды: divide measure

что они непозволяют вставлять блоки вдоль плиний, сплайнов и etc, использую вершины этих самых объектов.
Предлагаю сделать такую программу. Всем желающим потренироваться и нетолько... т.к. сам я с лиспом недружу - увы.

[ronik710]

Есть еще такая команда "me" в английской версии AutoCAD. Эта команда расстовляет блоки по полилинии(Линии точно нет, сплайны не пробовал, но помоему тоже нет) через определенное расстояние(шаг цоколей барьерного ограждения через 2 м по радиусу). Если кому интересно пишие в лику, сделаю пример поподробне(может даже видео при желании).

[Лиспер]

Команды me не существует. Есть команда _.measure.

[Shaft]

Сообщение от ronik710 Есть еще такая команда "me" в английской версии AutoCAD. Эта команда расстовляет блоки по полилинии(Линии точно нет, сплайны не пробовал, но помоему тоже нет) через определенное расстояние.

А если надо чтобы блоки вставлялись в только в вершинах полилинии, а не через заданное расстояние? Кто-нибудь знает как такое можно реализовать...

[Victor]

Попробуй. Распакуй. Затащи в пространство модели. Если ставишь галочку в "By vertex" то дистанция игнорируется.

[Shaft]

Сообщение от Victor Попробуй. Распакуй. Затащи в пространство модели. Если ставишь галочку в "By vertex" то дистанция игнорируется.

Большое спасибо!!! сейчас буду пробовать!

upd: Это то что нужно... НО...хотелось бы добавить немного конструктивной критики

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

Отсюда такой вопрос: Можно ли докрутить к программе возможность выбора из спсиска тех блоков, которые находяться в файле чертежа? Вместо bl1...bl5.

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

Поэтому предлагаю довести шаг выбора нужного блока, до ума. И на мой взгляд самым весомым и важным отличием данной программы от автокадовских аналогов является пункт - by Vertex. Который для мне просто жизненно необходим ! Т.к. до этого подобную процедуру я выполнял вручную. А к хорошему как известно ОЧЕНЬ БЫСТРО ПРИВЫКАЕШЬ !!! И попробовав один раз, больше нехочеться это делать вручную!!!
Автору ОГРОМНЕЙШЕЕ СПАСИБО!!!

[ronik710]

Сообщение от Лиспер Команды me не существует. Есть команда _.measure.

Совершенно верно. Я ввожу сокращение данной команды.

[Stierlitz]

Сообщение от ronik710 Совершенно верно. Я ввожу сокращение данной команды.

это видимо чтобы всем было понятно

[TararykovDG]

Если кому-то интересно, вот еще мой вариант расстановки блоков (и вообще любых выбранных объектов вдоль кривой) с возможность задания параметров вставки тынц

[angel-fear]

В AutoCAD 2012 ввели отдельную команду для расстановки объектов по траектории

[makcez]

Сообщение от angel-fear В AutoCAD 2012 ввели отдельную команду для расстановки объектов по траектории

какую?

[Victor]

Проблема в том что исходники в Израиле а я сейчас в Анголе.

[Victor]

Нашёл похожий. Переделал, кажется. Хотя по-моему мнению это неправильно. Как правило нужных блоков в файле нет.

[Victor]

Переделал. Кликайте сначала и с конца. В файле primer разные варианты работы программы, в зависимости от положения галочек - атрибут, блок.

[АлексЮстасу]

Сообщение от Victor Переделал. Кликайте сначала и с конца. В файле primer разные варианты работы программы, в зависимости от положения галочек - атрибут, блок.

Загрузил b2l.VLX в 2008, в 2012, вызвал "b2l" - реакция отсутствует полностью.
Загрузил b2l.lsp из предыдущего сообщения - реакции тоже никакой. Что-то не так делаю?

В целом - программа под какие Автокады?

[Джаз]

Хотел создать новую тему, но в поиске нашёл подходящее общение здесь
На топосъёмках расставляем опоры ЛЭП с указанием связи/направления проводов на предыдущую/следующую опоры. Блок выглядит так O--->. Базовая точка в центре круга. Хочу выбирая точки (съёмочные пикеты) по порядку расставлять на них по 2 блока. Один будет направлен на предыдущую опору, другой на следующую. Т.е. вот так <---O--->. И пройдя по порядку по всем точкам отрисовать ЛЭП в условных знаках.
P.S. Сейчас копированием расставляем блоки по точкам. Потом эти блоки вручную вращаем ориентируя направление на предыдущую/следующую опоры. Не айс.

[Victor]

Без проверок на наличие блока, полилинии, виндовса, прокладки между монитором и стулом. 15 минут у меня было.

[Джаз]

Спасибо, добрый человек.
Работает даже лучше, чем хотел.
В узлах полилинии расставляет пары блоков.
Тут я набираюсь наглости...
Только ориентировка одного отличается на 180гр от нужной.
Вот так есть.


А надо так.


Сам боюсь ваш код трогать. Скажите, пожалуйста, что подправить?

[zenon]

Джаз, Что мешает создать 2 зеркальных блока? Религия?

[Джаз]

Потом 2 раза воспользоваться Лиспом, выбрать неправильно ориентированные пары блоков и удалить.
В принципе вариант.
Но я всё же подожду помощи Виктора.


Добавлено.
Разобрался. Понял как пишутся процедуры в Лиспе.

Код:

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

 (vl-load-com) 
(defun in_bl (name_of_bl pln krd j dir / ugol_pl ugol_pl_gr )
(setq prm_pnt (+ j (* dir 0.1)))
(setq proiz (vlax-curve-getFirstDeriv pln prm_pnt))
(setq ugol_pl (angle '(0 0 0) proiz))
(setq ugol_pl_gr (* ugol_pl 57.29747))
(command "_.insert" name_of_bl krd 1.0 1.0 ugol_pl_gr)
)
(vl-load-com) 
(defun in_bla (name_of_bl pln krd j dir / ugol_pl ugol_pl_gr )
(setq prm_pnt (+ j (* dir 0.1)))
(setq proiz (vlax-curve-getFirstDeriv pln prm_pnt))
(setq ugol_pl (angle '(0 0 0) proiz))
(setq ugol_pl_gr (+ (* ugol_pl 57.29747) 180))
(command "_.insert" name_of_bl krd 1.0 1.0 ugol_pl_gr)
)

(defun c:l2p ( / snp cmdh name_of_bl pln krd num j )
(command "_.undo" "_begin")
(setq snp (getvar "Osmode"))
(setq cmdh (getvar "CMDECHO"))
(setvar "Osmode" 0) 
(setvar "CMDECHO" 0)
(setq name_of_bl (getstring "\nName of blok?  "))
(setq pln (car (entsel)))
(setq krd (vlax-curve-getPointAtParam pln 0))
(in_bl name_of_bl pln krd 0.0 1.0)
(setq num (fix(-(vlax-curve-getEndParam pln) 1)))
(setq j 0)
(repeat num
   (setq j (1+ j))
   (setq krd (vlax-curve-getPointAtParam pln j))
   (in_bla name_of_bl pln krd j -1.0)
   (in_bl name_of_bl pln krd j 1.0)
)
(setq krd (vlax-curve-getPointAtParam pln (+ 1 num)))
(in_bla name_of_bl pln krd (+ 1 num) -1.0)
(setvar "Osmode"  snp) 
(setvar "CMDECHO" cmdh)
(command "_.undo" "_end")
)
    

Виктор, ещё раз спасибо.

[Иван Павлов]

Может я что-то не так делаю, но прога не запускается:
Команда: B2L
; ошибка: завершить / выйти прервать

Лисп взял с 1 сообщения, Autocad 2012 rus, Win 7? 64bit.

[potrox]

Подскажите пожалуйста, что нужно дописать чтоб при выборе можно было выбрать несколько полилиний?

[Джаз]

Сообщение от potrox Подскажите пожалуйста, что нужно дописать чтоб при выборе можно было выбрать несколько полилиний?

Здесь добрый человек выложил нужное вам, правда скомпилированное в .fas
http://geodesist.ru/forum/threads/%D...5/#post-330971

[potrox]

спасибо)

[Rassol11]

Всем здравствуйте!
Нужно то же, что нужно было Джаз

Сообщение от Джаз На топосъёмках расставляем опоры ЛЭП с указанием связи/направления проводов на предыдущую/следующую опоры. Блок выглядит так O--->. Базовая точка в центре круга. Хочу выбирая точки (съёмочные пикеты) по порядку расставлять на них по 2 блока. Один будет направлен на предыдущую опору, другой на следующую. Т.е. вот так <---O--->. И пройдя по порядку по всем точкам отрисовать ЛЭП в условных знаках. P.S. Сейчас копированием расставляем блоки по точкам. Потом эти блоки вручную вращаем ориентируя направление на предыдущую/следующую опоры. Не айс.

, воспользовался его лиспом. Он расставляет блоки по вершинам полилинии, но стрелки от условного знака ЛЭП не смотрят каждая на предыдущую и на послледующую.
Может быть, у меня что-то с блоком моим не то? Прикладываю свой блок.
Подскажите, пожалуйста.

[Джаз]

Попробуйте этот блок.
Столб_ЛЭП

[Rassol11]

Cпасибо большое! Вы спасли весь наш офис от долгих мучений!

[boretskiy.a]

Вообще-то проблема не в блоке, а в формате представления угловых данных, должны быть только не грады или радианы, а градусы или градусы минуты секунды.

[Air81]

Лисп в шапке почему то не работает в русской версии Autocad 2015 (WIN 7, 64). Вот что выдает на команду b2l
"
Команда: B2L
_.undo Текущие настройки: Авто = Вкл, Управление = Все, Объединить = Есть, Слой = Есть
Количество отменяемых операций или [Авто/Управление/Начало/Конец/Метка/Обратно] <1>: _begin
Команда: ; ошибка: завершить / выйти прервать
"
Что не так делаю?

[gomer]

видимо лисп не находит диалог и завершается выходом с обработкой ошибки... как вариант можно скомпилировать его или положить на видимое место диалог

[anyasl]

Сообщение от Shaft А если надо чтобы блоки вставлялись в только в вершинах полилинии, а не через заданное расстояние? Кто-нибудь знает как такое можно реализовать...

Здравствуйте.
У меня ровно такая же потребность - расставить блоки вдоль полилинии строго по ее вершинам. Пыталась я читать про лиспы, но пользоваться не умею и в сознании прочтенное не отложилось.
Помогите, объясните плиз?

[АлексЮстасу]

Сообщение от Леонид Ильич а если нужно расставить не по вершинам, а с определённой дистанцией?

Для этого есть штатная _MEASURE.

Сообщение от anyasl Пыталась я читать про лиспы, но пользоваться не умею

Как использовать лисп.

[boretskiy.a]

anyasl расставить блоки вдоль полилинии строго по ее вершинам. Пыталась я читать про лиспы, но пользоваться не умею и в сознании прочтенное не отложилось. Помогите, объясните плиз?

Код:

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

 (vl-load-com)
(defun in_bl (name_of_bl pln krd j dir / ugol_pl ugol_pl_gr )
(setq prm_pnt (+ j (* dir 0.1)))
(setq proiz (vlax-curve-getFirstDeriv pln prm_pnt))
(setq ugol_pl (angle '(0 0 0) proiz))
(setq ugol_pl_gr (* ugol_pl 57.29747))
(command "_.insert" name_of_bl krd 1.0 1.0 ugol_pl_gr)
)
(vl-load-com)
(defun in_bla (name_of_bl pln krd j dir / ugol_pl ugol_pl_gr )
(setq prm_pnt (+ j (* dir 0.1)))
(setq proiz (vlax-curve-getFirstDeriv pln prm_pnt))
(setq ugol_pl (angle '(0 0 0) proiz))
(setq ugol_pl_gr (+ (* ugol_pl 57.29747) 180))
(command "_.insert" name_of_bl krd 1.0 1.0 ugol_pl_gr)
)
 
(defun c:l1p ( / snp cmdh name_of_bl pln krd num j )
(command "_.undo" "_begin")
(setq snp (getvar "Osmode"))
(setq cmdh (getvar "CMDECHO"))
(setvar "Osmode" 0)
(setvar "CMDECHO" 0)
(setq name_of_bl "bl1.dwg")
(setq pln (car (entsel)))
(setq krd (vlax-curve-getPointAtParam pln 0))
(in_bl name_of_bl pln krd 0.0 1.0)
(setq num (fix(-(vlax-curve-getEndParam pln) 1)))
(setq j 0)
(repeat num
   (setq j (1+ j))
   (setq krd (vlax-curve-getPointAtParam pln j))
   (in_bla name_of_bl pln krd j -1.0)
   (in_bl name_of_bl pln krd j 1.0)
)
(setq krd (vlax-curve-getPointAtParam pln (+ 1 num)))
(in_bla name_of_bl pln krd (+ 1 num) -1.0)
(setvar "Osmode"  snp)
(setvar "CMDECHO" cmdh)
(command "_.undo" "_end")
)

Макрос на кнопку
^C^C^P(if (tblsearch "layer" "НАДЗЕМКА")(command "_layer" "_set" "НАДЗЕМКА" "")(command "_layer" "_make" "НАДЗЕМКА" "") );^Pl1p;
Проводиш полилинию и жмем кнопочку, все расставлено.
LSP код и вложенный файл блока должны бить в папке доступа.
Удачи!

bl1.dwg

[ivankashuba]

Сообщение от Victor Без проверок на наличие блока, полилинии, виндовса, прокладки между монитором и стулом. 15 минут у меня было.

добрый день. не разбираюсь в кодах. не могли бы вы подкорректировать данный лисп, только чтобы расставленные блоки не дублировались, а вставлялись по 1 шт на вершину? очень надо!!!
заранее, спасибо !!

[Victor]

нашёл какой-то

[otsva]

Может есть lisp или команда расстановки блоков вдоль линии, полилинии с возможность задания длины для каждого блока.
Нужно разместить блоки вдоль линии, полилинии через определенное не одинаковое расстояние.
Спасибо!

[kegorovsc]

Сообщение от Victor Без проверок на наличие блока, полилинии, виндовса, прокладки между монитором и стулом. 15 минут у меня было.

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

[VVA]

Сообщение от kegorovsc тличная команда, но у меня почему то вставляет два блока в точку - один поверх другого.

привязка грабли №1
Найди строку

(command "_.insert" name_of_bl krd scl scl ugol_pl_gr)

Замени

(command "_.insert" name_of_bl "_non" krd scl scl ugol_pl_gr)

Без проверки но должно работать
Что такое "_non"

[n0str0m0]

Приветствую. Скажите, получается, что b2l.lsp расставляет только блоки с атрибутами?
А если блок без атрибутов, то он ставит этот блок только в начальную точку полилинии и на этом заканчивает работу.
1Можно ли сделать так, чтобы любые блоки вставлялись в узлы полилинии?
2 Можно ли сделать так, чтобы блоки на ломаной/криволинейной полилинии расставлялись без наклона, перпендикулярному сегменту полилинии?

[n0str0m0]

Установил себе и вот что получается, см. во вложенном файле:
В первом случае лисп расставляет блок только в первую вершину полилини, в остальные никак (у меня единственное объяснение: у блока нет атрибутов)
Во втором случае блоки расставляет по одному, для каждой последующей вставки необходим клик ЛКМ в любом месте. Причем атрибуты во всех вершинах расположены горизонтально.
В третьем случае блок автоматом расставляется по всем вершинам полилинии, но уже с разворотом
Подскажите, в чем принципиальная разница между этими тремя блоками, что лисп b2l по разному их обрабатывает?
Особенно интересна разница между вторым и третьим случаем.

[АлексЮстасу]

Сообщение от n0str0m0 Возникла необходимость расставить блоки в вершинах полилинии не вручную, а автоматически.

Попробуйте перенести все на положительные координаты - может быть в этом дело?
Еще можно удалить прокси - они есть. Есть следы СПДС.
-----
Про координаты и пр. предположения, скорее мистические.
Например, в этом файле Purge-Очистить не предлагает вычистить блоки, хотя их описаний в файле много. Т.е. описания блоков в файле как бы есть, но их как бы и нет.

[n0str0m0]

Насчет описаний блоков в файле: не знаю даже, где это искать.
В другом файле, где координаты положительные, всё то же самое.
К тому же совершенно не пойму, почему блоки 2 и 3 ведут себя совершенно по разному при прочих равных

[berstrider]

Не с первого раза, но смог запустить Лисп из топикстартера.
Такой вопрос: А как можно обработать предварительно выбранную группу полилиний или отрезков?

Задача такая, приходит файл контуров, надо по определённым группам полилиний расставить соответствующие блоки бортовых камней.

[name02]

Можешь вот это попробовать:

Код:

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

 (vl-load-com)
(defun c:b2l (/		sc	  bl	    name_of_bl		dis	  pln	    dis_pl    dis_run	i
	      krd	prm_pnt	  proiz	    ugol_pl   ugol_pl_gr	  my_blok   my_att    spis_att	att_old
	      att_new	spis_att  strt	    stp
	     )
  (command "_.undo" "_begin")
  (setq sc '("0.05" "0.10" "0.25" "0.50" "1.00" "2.50" "5.00"))
  (setq bl '("BL1" "BL2" "BL3" "BL4" "BL5"))
  (if (< (setq dcl_id (load_dialog "b2l")) 0)
    (exit)
  ) ;_ end of if
  (if (not (new_dialog "b2l" dcl_id))
    (exit)
  ) ;_ end of if
  (start_list "b1")
  (mapcar 'add_list sc)
  (end_list)
  (start_list "b2")
  (mapcar 'add_list bl)
  (end_list)
  (action_tile
    "accept"
    "(setq scl (atof (get_tile \"b1\")))	
      (setq blk (atof (get_tile \"b2\")))
      (setq dis (atof (get_tile \"ds_s\")))
      (setq strt (atoi(get_tile \"st_s\")))
      (setq stp  (atoi(get_tile \"sp_s\")))
      (setq atr  (atoi(get_tile \"att\")))
      (setq alg  (atoi(get_tile \"aln\")))
      (setq pref (get_tile \"pf_s\"))
      (setq suff (get_tile \"sf_s\"))
      (done_dialog)(setq userclick T))"
  ) ;_ end of action_tile
  (action_tile "cancel" "(done_dialog)(exit)")
  (start_dialog)
  (unload_dialog dcl_id)
  (setq sc_s (nth (fix scl) sc))
  (setq name_of_bl (nth (fix blk) bl))
  (setq snp (getvar "Osmode"))
  (setvar "Osmode" 0)
  (setq scl sc_s)
  (if (not (tblsearch "layer" name_of_bl))
    (entmake (list '(0 . "LAYER")
		   '(100 . "AcDbSymbolTableRecord")
		   '(100 . "AcDbLayerTableRecord")
		   '(70 . 0)
		   (cons 2 name_of_bl)
		   '(62 . 7)
	     ) ;_ end of list
    ) ;_ end of entmake
  ) ;_ end of if
  (setvar "Clayer" name_of_bl)

  ;; Предварительно выбранный набор объектов
  (setq ss (cadr (ssgetfirst)))

  (cond
    ;; Если предварительного набора нет
    ((null ss)
     (princ "\Выберите отрезки или полилинии: ")
     (setq ss (ssget '((0 . "*LINE"))))
     (setq lst (vl-remove-if 'listp (mapcar 'cadr (ssnamex ss))))
    )
    ;; Если есть предварительно выбранные объекты
    (T
     (setq lst (vl-remove-if-not
		 '(lambda (x)
		    (wcmatch (cdr (assoc 0 (entget x))) "*LINE")
		  ) ;_ end lambda
		 (vl-remove-if 'listp (mapcar 'cadr (ssnamex ss)))
	       ) ;_ end vl-remove-if
     ) ;_ end setq
    )
  ) ;_ end cond

  ;;Проходим список объектов и размещаем блоки
  (foreach pln lst
    ;;;(setq pln (car (entsel)))
    (setq dis_pl (vlax-curve-getDistAtParam pln (vlax-curve-getEndParam pln)))
    (setq dis_run (- 0.0 dis)
	  i	  (- strt stp)
    ) ;_ end of setq
    (while (< (+ dis_run dis) dis_pl)
      (progn
	(setq i (+ i stp))
	(setq dis_run (+ dis_run dis))
	(setq krd (vlax-curve-getPointAtDist pln dis_run))
	(setq prm_pnt (vlax-curve-getParamAtPoint pln krd))
	(if (= alg 1)
	  (progn
	    (setq proiz (vlax-curve-getFirstDeriv pln prm_pnt))
	    (setq ugol_pl (angle '(0 0 0) proiz))
	    (setq ugol_pl_gr (* ugol_pl 57.29747))
	  ) ;_ end of progn
	  (setq ugol_pl_gr 0.0)
	) ;_ end of if
	(setvar "attreq" 0)
	(command "_.insert" name_of_bl "_non" krd scl scl ugol_pl_gr) ;_ end of command
	(if (= atr 1)
	  (progn
	    (setq my_blok (entlast))
	    (setq my_att (entnext my_blok))
	    (setq spis_att (entget my_att)) ;spisok 
	    (setq att_old (assoc 1 spis_att)) ;name
	    (setq num_new (itoa i))
	    (setq num_new (strcat pref num_new suff))
	    (setq att_new (cons 1 num_new)) ;
	    (setq spis_att (subst att_new att_old spis_att)) ; zamena
	    (entmod spis_att)
	    (entupd (cdr (assoc -1 spis_att)))
	  ) ;_ end of progn
	) ;_ end of if
      ) ;_ end of progn
    ) ;_ end of while

  ) ;_ end of foreach
  (setvar "Osmode" snp)
  (command "_.undo" "_end")
) ;_ end of defun