[koovp]

подскажите, как распределить точки (или блоки) по линии, т.е не разбить линию на равные части, а распределить по ее длине определенное кол-во точек? (при этом по краям дожны быть меньшие расстояния)

[Сергей Богатов]

_divide чтоля?

А нет(внимательно прочитал условие) Тогда макрос...

[koovp]

а где это макрос взять?

[KSI]

а макрос самому писать. Или делать разрыв линии вручную в этих двух точках (первой и последней). А остальное командой.

[Nike]

_measure

[Vintorez]

Сообщение от Nike _measure

или Разметить .(в русской версии)

[Хмурый]

только меньшие участки на концах линии не получатся.

[GRIFEL]

Код:

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

 (defun c:test(/ pn pk pt e ee an dl n r rc)
  (setq e(car(entsel"\n Ïîêàæè ëèíèþ äëÿ ðàçìåùåíèÿ : "));óêàçàëè ëèíèþ
	ee(entget e)       ;ïîëó÷èëè ñïèñîê åå äàííûõ
	pn(cdr(assoc 10 ee));íà÷àëüíàÿ òî÷êà
	pk(cdr(assoc 11 ee));êîíå÷íàÿ òî÷êà
	an(angle pn pk)      ;óãîë íàêëîíà ëèíèè
	dl(getreal"\n Ðàçìåð îòñòóïà îò íà÷àëà ëèíèè : ");ââåëè çíà÷åíèå
	n(getint"\n Êîëè÷åñòâî ðàçìåùàåìûõ ýëåìåíòîâ : ");ââåëè çíà÷åíèå
	pt(polar pn an dl);ïîëó÷èëè ïåðâóþ òî÷êó âñòàâêè
	r(/(-(distance pn pk)(* dl 2)) (1- n));îïðåäåëèëè øàã
	rc(/(getreal" \n Äèàìåòð ðàçìåùàåìîé îêðóæíîñòè  : ")2); íàïðèìåð çàïðîñ ïî ýëåìåíòó âñòàâêè    
  )

  (repeat n ;ïîâòîðÿåì n ðàç íàïðèìåð ïîñòðîåíèå îêðóæíîñòè
  (entmakex (list(cons 0 "CIRCLE")(cons 10 pt)(cons 40 rc)))
    (setq pt(polar pt an r));ïåðåîïðåäåëÿåì òî÷êó
  )(princ)
 )

Макрос может выглядеть примерно так ....

[koovp]

GRIFEL, только применить его еще.) щас открыл применение -там целая история. надо как-то почитать и попробовать

[GRIFEL]

Скопируй код в файл с любым названием и с расширением .lsp . Загрузи его командой APPLOAD и командой TEST с клавиатуры запусти функцию . В данном варианте будут прорисованы окружности в необходимых точках ..... если в этих зонах что-то другое нужно разместить - привязкой к центру это сделать можно , или уточни задачу ... подправь код

[koovp]

сработать макрос не получилось. команду test не знает (версия автокада 2008 англ)
через создание новой команды пробую юзать:
1) номера строк тоже в макрос копировать 2) со шрифтом ерунда http://clip2net.com/s/1a3mI (при создании лсп-файла ругался)

[ie.spb]

Сообщение от koovp 1) номера строк тоже в макрос копировать

Номера строк копировать не надо

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

"Как использовать код на Лиспе читаем здесь".
У всех срабатывает
Буквально то же, что описал своими словами GRIFEL в #10.

[Хмурый]

Сообщение от GRIFEL Скопируй код в файл с любым названием и с расширением .lsp . Загрузи его командой APPLOAD и командой TEST с клавиатуры запусти функцию . В данном варианте будут прорисованы окружности в необходимых точках ..... если в этих зонах что-то другое нужно разместить - привязкой к центру это сделать можно , или уточни задачу ... подправь код

в локализованных версиях следует вызывать английскую команду их ком. строки с подчёркиванием _APPLOAD

[sasha_lif]

Поправлю опечатку Хмурого
_APPLOAD

[koovp]

спасиб АлексЮстасу за линк. appload срабатывал изначально, команда test нет. щас вроде заводится все, но проблема остается в юникоде, который у меня идет с приведенным макросом http://clip2net.com/s/1a3mI - из-за этого описание иероглифами. как это поправить? может кто-нить предоставит дубль

[ie.spb]

Как то вот так

Код:

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

 
(defun c:test(/ pn pk pt e ee an dl n r rc)
	 (setq e(car(entsel"\n Покажи линию для размещения : "));указали линию
	   ee(entget e)       ;получили список ее данных
	   pn(cdr(assoc 10 ee));начальная точка
	   pk(cdr(assoc 11 ee));конечная точка
	   an(angle pn pk)      ;угол наклона линии
	   dl(getreal"\n Размер отступа от начала линии : ");ввели значение
	   n(getint"\n Количество размещаемых элементов : ");ввели значение
	   pt(polar pn an dl);получили первую точку вставки
	   r(/(-(distance pn pk)(* dl 2)) (1- n));определили шаг
	   rc(/(getreal" \n Диаметр размещаемой окружности  : ")2); например запрос по элементу вставки  
	 )
	 
	 (repeat n ;повторяем n раз например построение окружности   
	 (entmakex (list(cons 0 "CIRCLE")(cons 10 pt)(cons 40 rc)))
	   (setq pt(polar pt an r));переопределяем точку
	 )(princ)
	)

[koovp]

спасибо Djonikbishkek. хоть посмотрел что за макрос. интересно. правда данных про отступы не было. только кол-во объектов и общее расстояние. а меньшие отступы по краям были как условие. но и этот метод наверно можно практиковать. GRIFEL спасибо за решение