[Джек]

Можно ли сделать програмно - чтоб рисовалось плоская труба.
Наружные линии бралось от слоя, а осевая была толщиной 0,2!
Потому что командой "Мультилиния" такое сделатьне возможно. Как можно выйти из этого положения?
Спасибо.

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

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

Можно почти все.

Наружные линии бралось от слоя, а осевая была толщиной 0,2!

Еще бы понять чего хотелось...

[Джек]

Для отрисовки плоских воздуховодов, я применяю маленькую программку, вот код:

Код:

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

;; Мультилиния
(defun c:mlinejekki()
   (setvar "cmdecho" 1)
  (command "_.mline")
  (while (/= (getvar "cmdactive") 0) (command pause))
  (command "_.explode" "_last" )
 (princ)
 )
;; Конец

Этот лисп хорош тем , что выбираешь стиль мультилинии, задаешь масштаб и чертишь. После окончания отрисовки все мультилинии расчленяются.

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


В котором отрезки 1, 3 цвета и вес линий бралось по слою, а отрезок 2 была осевая , толщиною 0,25.
И после отрисовки трех отрезков мультилиния расчленялась…

[zenon]

Хоть мульен, настраиваешь, как тебе надо мультилинию и все

[Profan]

С весом там проблемы. Придется цветозависимый стиль печати настраивать.

[Джек]

а мне надо програмно !!!

[ShaggyDoc]

На исходный вопрос:

"Можно ли..." - конечно можно. Хоть трубу (попроще), хоть воздуховод (чуть сложнее из-за соединений), хоть круглую, хоть прямоугольную. Пример - см. рисунок.

"Как..." - путем разработки программы или приобретения готовой. Но в таких программах не надо использовать мультилинии - они вообще мало на что пригодны. Для решения проблем с весом в программе, в момент рисования должен программно задаваться вес DEFAULT для осевой линии и текущий вес для контуров труб. ТОгда могут быть нарисованы трубы и основной линией, и тонкой. Толщина осевой всегда будет тонкой.

[Джек]

а у вас есть готовой? или хотя бы лиспик

[ShaggyDoc]

Читайте книгу "САПР на базе AutoCAD - как это делается". Там всё расписано. С приложением исходных текстов.

[getr]

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

[Джек]

getr - спасибо за прогу... но она к сожалению не работает
я вот подумал - можно добавить к моей прожки - что после окончания отрисовки и разбитии мультилинии - аосевая СРАЗУ же стала тонкой?
если стиль мультилинии уже известна!!!

и тишина

[getr]

->Джек
Прога реально рабочая (проверялась на Autocad 2004 и 2005eng)...пользуюсь до сих пор... прочти начало файла,там написано по типы линий,надо сделать свой файл *.lin или прописать свои линии в acad.lin,если хочешь стандартные применить,то тоже в файле надо сделать замену,но тогда придется подбирать масштабный коэффициент mskf в масштабирующей функции ,чтоб было красивше...мне стандартные осевые не нравятся и я сделал свои линии,как в госте, под себя..

[VVA]

Здесь кое-что можно почерпнуть
LISP. Одновременное вычерчивание 2 — 16 полилиний. Удобно для вычерчивания кабелей.
Но я бы рекомендовал OFF2 или MOFF2. Как раз для таких случаев.
Про OFF2 еще здесь http://forum.dwg.ru/showthread.php?t=12377

[Джек]

Всем спасибо за содействие- дома попробую проверить!
Вот еще вопрос - как программно запустить файл с типами мультилиниями
(файл с расширением *.mln) а то когда открываешь новый чертеж мой лиспик не работает - просит открыть файл *.mln

[Apelsinov]

Джек,
http://forum.dwg.ru/showthread.php?t...EB%E8%ED%E8%E8