[Павел Кулигин]

Добрый вечер! Я студент электромеха, в данный момент занимаюсь реализацей проекта "Автоматизация расчета зон молниезащиты".

Так вот, в чем суть проблемы: у меня после всяческих вычислений и преобразований есть txt файл, в котором есть строчки в формате (x,y) - точки, по которым будут строится полилинии автокаде, а есть строчки для командной строки: _pline, arc, line и т.д. скопировав и вставив всё в автокад он мне всё нарисовал и всё красиво, но! так как для среднестатистической подстанции таких линий будет несколько сотен, даже опытному инженеру в этой каше не разобраться. Я нашел такое решение: штриховать, заливать полилинии, чтобы сразу было понятно, где у подстанции "дыры" в защите.

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

Сейчас размышляю над тем, чтобы реализовать это на autolispе. Алгоритм: берем из файла точки, делаем цикл в котором рисуем одну полилинию и делаем паузу для нанесения штриховки. Но как это реализовать понятия не имею) сел за учебники по autolisp, но чувствую что это на долго, был бы признателен, если кто-то укажет мне на уже существующие программы, где можно подсмотреть реализацию моих мыслей.

Заранее, спасибо!

[kp+]

Пример существующей проги вот: http://www.csoft.ru/catalog/soft/mod...lightning.html Стоит немалую денежку, но демку посмотреть обязательно, а потом...не мне Вас учить Есть и другие, но эта первая вспомнилась.

Алгоритм: берем из файла точки, делаем цикл в котором рисуем одну полилинию и делаем паузу для нанесения штриховки

Наверняка решается проще, например, с помощью слоев. Выложите фрагмент того, что есть и что должно быть.

[trir]

ГИС задача, получаем полигоны или тела, если в 3D. Можно в Civil'е реализовать через поверхности...

[Олег (jr.)]

Сообщение от Павел Кулигин Я нашел такое решение: штриховать, заливать полилинии, чтобы сразу было понятно, где у подстанции "дыры" в защите.

Попробуй без проверок на скорую руку:

Код:

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

(defun C:DEMO (/ grab reg sset)
(setvar "delobj" 0);<-- чтобы не удалять исходные полилинии
  (command "_-layer" "_M" "Defpoints" "" "");<--непечатаемый слой
(setq reg (entlast))
(setq sset (ssget))
(command "_region" sset "")
(setq grab (ssadd))
(while (setq reg (entnext reg))
(ssadd reg grab )
)
(command "_.chprop" grab "" "_LA" "Defpoints" "_Color" 121 "" ) 
(command "_union" grab "")
(command "_-bhatch" "_AN" "_Y" "_S" "_L" "" "")
(command "_.chprop" "_L" "" "_LA" "Defpoints" "_Color" 121 "" ) 
(princ)
  )