Что надо... создать новую линию в виде шести паралельных линий (типа сечении дороги: тротуар, зедень, проезжая часть)
Как решил.....
прочитал форум и создал shp а потом из него сделал линию такого типа
--------------
--------------

--------------
--------------
все получилось но одно ! НО!

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

кто может помогите плиз ....

сейчас делаю так..............
ресую ось а от нее отступаю в разные стороны на нужное расстояние....
не очень удобно.....

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

Попробуй fillet. Может, не понял вопроса - вышли на мыло, гляну. А еще лучше - через Print Screen последовательность выполняемых действий

Все правильно понял....
филет не дает результата.....
меня вот что интересует: можно ли задать ручками параметр сопряжения при повороте в файлике lin

[Lenich]

можно ли задать ручками параметр сопряжения при повороте в файлике lin

По моему нет такой возможности у Када.

сейчас делаю так.............. ресую ось а от нее отступаю в разные стороны на нужное расстояние.... не очень удобно.....

Ось рисовать лучше полилинией и потом 5 офсетов смена типов линий и дорога готова.

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

Вот я знаю что есть для отрисовки генпланов всяких прога
Geonix

или вот прдложение

может ли кто то разработать приложение по моим требованием ддля отрисовке генпланов
основные задачи это -
ОТРИСИВКА ДОРОГ РАЗНОГО ПРОФИЛСЯ ТАКИМ ОБРАЗОМ ЧТО БЫЛИ РАДИУСЫ ПО ГОСТАМ, СОПРЯЖЕНИЯ.....
ПОДСЧЕТ ПЛОЩАДЕЙ В РАЗНЫХ ФИГУРАХ ....
ТИПЫ ЛИНИЙ ДЛЯ ОТОБРАЖЕНИЯ ИНЖЕНЕРНЫХ СЕТЕЙ...

И ПОНЯТНО ЧТО ИНТУИТИВНО ПОНЯТНЫЙ ИНТЕРФЕЙС

ЗА ОПЛАТУ ИСХОДЯ ИЗ МОЕЙ ЗАРПЛАТЫ....

[Vova]

Я сделал так-для трубы, то есть, читай, дорога из 2-х линий: *^C^CFILLETRAD;17;FILLET;\\FILLETRAD;13;FILLET Здесь цифра 17 это внещний радиус а 13-внутренний. для дороги 1 бы создал прямую multiline, взрывал ее и скруглял ее макросом, составленным по-подобию с этим

Спасибо, совет дельный, вот что еще интересует а можно ли сделать мультилинию в виде не двух паралельных а например 4,6,......
если да то как????????? :?
Это может облегчить работу одному несмышленому сотруднику в несколоко десятков раз и моей благодарности не будет придела

ОЧЕНЬ НАДЕЮСЬ.......

[KSI]

Необходимо в стилях мультилинии (пункт меню Формат) создать новый стиль. В нем можно создать столько элементов. сколько необходимо.
Замечание - созданный стиль нельзя отредактировать, если этим стилем отрисована мультилиния. У существующей мультилинии нельзя изменить стиль.

А ксли с другой стороны - по-машинному? Сначала чертится осевая линия дроги и соответственно скругляется. Потом ПРОГРАММНО строятся парллельные оффсеты с соответствкющими типами линий и тоже программно скругляются? Величину отступов можно задавать пользователем с созранением последнего значения. Я мог бы разработать такой лиспик - все равно сижу без работы.

Да, касательно мультилиний. Я полагаю. что их можно программно временно взрывать, строить ссоопряжение. сохраниять его как блок, если нужно, и восствнавливать исходную полилинию.

[Соня]

А я просто черчу все мультилиниями, потом все это хозяйство взрваю, и скругляю, бстро и легко..
или нарисовать полилинию, а потом ее скруглить и offset.

П.С. надо же..буква пропала, та что между "ф" и "в"... в других редакторах печатается, у тут пропала(

[Bep]

[email protected]

Для лентяя
если ты серьезно решил помочь,
напеши на мое мыло обсудим условия...
и договоримся о встрече....(я из Киева)
Жду......

Отчего же не встретиться? Вот будете у еас Калифорнийщине - милости просим! А пока - только виртуально.

Вер,
Я тут потратил пару дней и родил вот такое:

Код:

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

(defun fln (mln / ml coor sp ep)
  (setq	ml (vlax-ename->vla-object mln)
    	coor (vlax-safearray->list (vlax-variant-value (vla-get-coordinates ml)))
	sp (mapcar '(lambda (x) (nth x coor)) '(0 1 2))
	ep (mapcar '(lambda (x) (nth x coor)) '(3 4 5))	
  );setq
  (vla-addLine ms (vlax-3d-point sp) (vlax-3d-point ep))
  (vla-delete ml)
);defun
;
(defun nmln (fl / clst)
  (setq clst (append (cdr (assoc 10 (entget fl))) (cdr (assoc 11 (entget fl))))
	sac (vlax-safearray-fill (vlax-make-safearray vlax-vbDouble '(0 . 5)) clst)
  );setq
  (vla-addMLine ms sac)
  (entdel fl)
);defun
;
(defun C:MLinFil ( / mln1 mln2 fl1 fl2 ofs cofs ltofs prp)
  (setq adoc (vla-get-ActiveDocument (vlax-get-acad-object))
	ms (vla-get-ModelSpace adoc)
	mln1 (car (entsel "\nSelect First line: "))
	mln2 (car (entsel "\nSelect Second line: "))
	mlst (entget (cdr (assoc 340 (entget mln1))))
	rad (getdist (strcat "Enter Fillet Radius: <" (if rad0 (rtos rad0) "0") ">"))
  );setq
  (setq rad (if (= rad nil) rad0 rad) rad0 rad)
  (foreach n mlst
    (cond ((= (car n) 49) (setq ofs (cons (cdr n) ofs)))
	  ((= (car n) 62) (setq cofs (cons (cdr n) cofs)))
	  ((= (car n) 6) (setq ltofs (cons (cdr n) ltofs))));cond
  );foreach
  (setq cofs (cdr (reverse cofs)))
  (while ltofs
    (setq prp (cons (car cofs) (cons (car ltofs) prp))
	  cofs (cdr cofs)
	  ltofs (cdr ltofs));setq
  );while
  (fln mln1)(setq fl1 (entlast))
  (fln mln2)(setq fl2 (entlast))
  (command "FILLET" "r" rad) (command "FILLET" fl1 fl2)
  (setq arc (vlax-ename->vla-object (entlast)))
  (foreach n ofs
      (setq narc (car (vlax-safearray->list (vlax-variant-value (vla-offset arc n)))))
      (vla-put-color narc (car prp))
      (vla-put-linetype narc (cadr prp))
      (setq prp (cddr prp))
  );foreach
  (vla-delete arc)
  (nmln fl1) (nmln fl2)
);end

так что пользуйтесь на здоровье. Хочу сразу пердупредить о некоторых ограгичениях.
1. У меня - АвтоКАД-200, потому возможности ActiveX реализуются хуже, чем в более новых версиях. Отсюда - использование LISP-функций для обработки данных по стилю сопрягаемых мультилиний.
2. По этой же причине - сопрягаемые мультилинии должны быть начеряны с выравниванием по центру (JUSTIFICATION "ZERO"), иначе после сопряжения ускачут в сторону.
3. Отсутствует блок обработки ошибок (лень было возиться).
Вот, в общем, и все. Если будут какие-либо вапосы, спрашивайте - ответим.