[Irenaz]

У меня есть програмка для 2006 Автокада кторая дает возможность чертить мультилинии состоящие из полилиний. Она написана для 2006 версии Автокада не в Lisp а, насколько я понимаю, в Basic и состоит из двух файлов-DBX и ARX. Есть еще для 2008 версии. А сейчас в нашей конторе установили 2010 версию и прогромма под ней не работает, а тот програмист, который ее писал бесследно исчез. Кто-то может помочь переделать под 2010?

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

Без исходных текстов это нереально. dbx и arx - это не Lisp и не VB(A).

[-mavlin-]

Сообщение от Irenaz У меня есть програмка для 2006 Автокада кторая дает возможность чертить мультилинии состоящие из полилиний. Она написана для 2006 версии Автокада не в Lisp а, насколько я понимаю, в Basic и состоит из двух файлов-DBX и ARX. Есть еще для 2008 версии. А сейчас в нашей конторе установили 2010 версию и прогромма под ней не работает, а тот програмист, который ее писал бесследно исчез. Кто-то может помочь переделать под 2010?

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

[Irenaz]

[left][right][size=3][FONT=Times New Roman]Эта программа чертила мультилинии, которые одновременно являются полилиниями т.е. каждой из линий можно задать определенную толщину и каждая группа параллельных линий явяется единым объектом. Для того чтоб это осуществить, програмист добавил дополнительный объект в Автокад (что в Лиспе сделать невозможно, насколько я понимаю). Один из двух файлов из которых состоит программа, описывает этот объект и если он не подключен к Автокаду, то этих линий даже не видно. [/FONT][/size][/left][/right]

[-mavlin-]

Ну можно вместо мультилинии нарисовать 2 полилинии и объеденить их в группу. Выделяться будут сразу 2 полилинии, и им можно будет задавать свойства по отдельности. Думаю это в лиспе реализовать можно.

[Irenaz]

[left][right][size=3][FONT=Times New Roman]У этих линий была начальная и конечная точка привязки, по центру между ними, и при перемещении одной из этих точек, линия меняла направление, но при этом все составляющие линии оставались параллельными. Я пробовала, в группах это сделать невозможно.[/FONT][/size][/left][/right]

[Олег (jr.)]

Сообщение от Irenaz [left][right][size=3][FONT=Times New Roman]У этих линий была начальная и конечная точка привязки, по центру между ними, и при перемещении одной из этих точек, линия меняла направление, но при этом все составляющие линии оставались параллельными. Я пробовала, в группах это сделать невозможно.[/FONT][/size][/left][/right]

Тут старенькая вещица завалялась - не совсем
конечно то, но все же лучше чем ничего

Код:

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

(defun C:2L (/ en ex os pa sset wid)
  (setq ex (getvar "explmode"))
  (setq os (getvar  "osmode"))
  (setq pa (getvar  "peditaccept"))
(setq wid (getint "\nEnter polyline width <40>: "))
(if (not wid)(setq wid 40))
(princ "\nPick points (or press Enter to Exit) >> ")
(command "._mline")
(while (= 1 (logand 1 (getvar "cmdactive")))
(command  pause))
(setq en (entlast))
(setvar "explmode" 0)
(command "._explode" en "")
(setq sset (ssadd))
(while (setq en (entnext en))
  (ssadd en sset))
(setvar  "peditaccept" 1)
(command "._pedit" "_M" sset "" "_W" wid "_J" 0.000 "")
(setvar "explmode" ex)
(setvar  "osmode" os)
(setvar  "peditaccept" pa)
(princ)
)
(prompt "\n==============================================\n")
(prompt "\n >>  	Type 2L to execute  		<<\n")
(prompt "\n==============================================\n")
(prin1)

~'J'~

[-mavlin-]

Есть вариант поиграться со стилями мультилиний. Например, если требуется, чтобы одна из линий была толще, то можно создать такой стиль мультилиний в котором будет не 2, а 4 линии - 3 из них на очень близком расстоянии друг от друга (при печати даст одну линию потолще).

[Profan]

Если говорить только об отрисовке, то вот еще вариант:
http://www.caduser.ru/forum/index.ph...D=44&TID=32345

[Vova]

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

[Profan]

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

Vova, посмотри здесь, может, подойдет:

http://www.caduser.ru/forum/index.ph...D=44&TID=19678

[-mavlin-]

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

Зачем заморачиваться с программками, не проще ли взорвать сплошную полилинию?

[Profan]

Сообщение от -mavlin- Зачем заморачиваться с программками, не проще ли взорвать сплошную полилинию?

И получишь отрезки.

[-mavlin-]

Сообщение от Profan И получишь отрезки.

Их легко преобразовать в полилинии.

[Profan]

No comments...

[-mavlin-]

Сообщение от Profan No comments...

Я понимаю, что это звучит немного нелепо , но это проще чем кажется.

[Profan]

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

[-mavlin-]

Сообщение от Profan Да на хрена тогда вообще рисовать сначала полилинию, а потом ее расчленять на отрезки? Рисуй, блин, сразу отрезками. Это проще, чем кажется.

А вдруг человеку нужны именно полилинии (хотя непонятно зачем, но всякое бывает).

[Vova]

Сообщение от -mavlin- Зачем заморачиваться с программками, не проще ли взорвать сплошную полилинию?

Я рисую эл. очень обширную схему. Полилинией с толщиной рисую те фидеры, которые содержат в себе несколько параллельных ветвей, в отличие от тех, которые состоят только их одной и сделаны отрезками. Представь, сколько раз надо подвинуть нарисованное туда-сюда, пока сформируется окончательный вид схемы. Теперь понятно, почему взрывать, а потом преобразовывать обратно нельзя?
Лисп от Profan работает правильно, как мне и надо, Спасибо. Лисп от Крыса (он был сделан 5 лет назад) в 2010 не работает. После построения ПЛ он ее взрывает (точно так, как хотел mavlin
Теперь-бы до кучи лисп, который-бы делал множественный Fillet, не соединяя при этом полилинии в единую.....
Заранее спасибо

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

Какой лисп не работает в 2010? Точную ссылку или код, пожалуйста.