[Sergey FS]

Помогите вспомнить больному на всю голову человеку, как в AutoCADe создать полилинию из двух и более линий.
Спасибо!

[виталич]

Что имеется в виду?
Мультилиния (MLINE), состоящая из нескольких эквидистантных отрезков (кривых), или, все-таки, полилиния (Pline), к которой нужно последовательно присобачить еще что-нибудь?
--------
Не стесняйтесь читать HELP.

[Startrek]

PEDIT >select > it is not a pline , do you want to convert> Y > J >select lines

[kos]

Сообщение от Startrek PEDIT >select > it is not a pline , do you want to convert> Y > J >select lines

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

Спасибо за помощь, всё заработало.
Специально для Виталича - у меня хэлпы на английском (в котором я знаю лишь несколько слов).

[виталич]

Сообщение от Anonymous Спасибо за помощь, всё заработало. Специально для Виталича - у меня хэлпы на английском (в котором я знаю лишь несколько слов).

А вот это напрасно.
На форуме где-то говорили про дистриб. русского HELPа. Поройся.
Или про ссылки , где его взять. Да и на сайте в разделе КОМАНДЫ много толкового.
---
Удачи

[Сергей FS]

Спасибо Виталичь за совет - будем искать. (Я на сайте новенький)

[Piton]

Как объединить примитивы без лишних вопросов? (выбрал нажал кнопку объединилось повтор по пробелу и опять запустилась команда объединения без вопросов).
как модернизировть PLJOIN.LSP из экспресс тулз от 2000 када или pledit из 2006?

[Vova]

2006: join

[Dym]

;*****************************************************************************
(defun cOF (/ a b b1 p1 d pckbox)
(setq d 20 p1 nil pee (/ pi 2)e 3 pckbox (getvar "pickbox")line " ")
(if(= #parof nil)(setq #parof(/(getvar "viewsize")10)))
(princ "\nCurrent offset <")(princ #parof)
(setq answer(getstring ">: "))
(if (/= (atof answer) 0.0)(setq #parof(atof answer)))

(princ line)
(setvar "pickbox" pckbox)
(setq ent(entsel "\nPick the line: "))
(setvar "pickbox" 2)
(setq point(cadr ent))
(princ line)
(setq side(getpoint "\nPick an offset side: "))
(setq dist(distance side point))(setq ang(angle side point))
(if(or(or(< ang 0.78)(> ang 5.5))(and(> ang 2.35)(< ang 3.92)))
(setq ang(- 0 ang))(setq ang(- pi ang))
);end if
(setq other(polar point ang dist))
(command "offset" #parof ent side ent other "")
(entdel(car ent))

(setvar "pickbox" pckbox)
(prin1)
)
(Prompt "\nType DOF to envoke the command")


var but eto spomozhet dlja razvitija. ne moe, zdesj najdeno, klanjajsja avtoru 2j denj voina..

[Кочетков Андрей]

Попробуй еще команду Тулпака PJS.

[Piton]

2 Vova
join не получается пишет

Код:

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

 Command: join
Select source object:
Line, open polyline, arc, elliptical arc, or open spline expected.  Select a 
supported object:
Select lines to join to source: 1 found
Select lines to join to source: 1 found, 2 total
Select lines to join to source: 1 found, 3 total
Select lines to join to source: Specify opposite corner: 1 found, 4 total
Select lines to join to source:
0 lines joined to source, 4 objects discarded from operation
Command: Specify opposite corner:

P.S. autocad 2006
2 mitjaj ругается при загруке

Код:

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

 Command: _appload dof.lsp successfully loaded.
Command: ; error: malformed list on input

2 Кочетков Андрей
PJS задает лишнии запросы

Код:

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

DS> Maximum Separation <0.0000>: 0
DS> Endpoint Average/Connect <A>/C:
DS> Process Layers Separately Y/<N>:

[Bredx]

А я себе просто кнопочку сделал
_pedit \_j _box \\
Может и не универсально, но работает,
Кстати, может кто подскажет как её можно довести до блеска(ну или хотя бы отшлифовать)

[Krieger]

Как объединить примитивы без лишних вопросов?

Кстати, есть переменная которая при команде pedit регулирует спрашивать или нет про переделку линии в полилинию. Щас не помню, какая, надо хелп пакопать.

[Piton]

2 Krieger
это переменная

Код:

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

PEDITACCEPT 1

но все равно проблемма не решиться так как еще спросит

Код:

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

 
Enter an option [Close/Open/Join/Width/Fit/Spline/Decurve/Ltype gen/Undo]: J
Join Type = Extend
Enter fuzz distance or [Jointype] <0.0000>:

[Serz]

Piton>
По поводу Join: Что бы все стыковалось, кончики линий должны быть прилеплены тютелька в тютельку. Для этого есть объектная привязка. А АКАД Вам сказал: объекты нашел, а присоединить не могу.

[Profan]

Для справки

В русской версии команды "СОЕДИНИТЬ" ("_JOIN") есть ошибка.
В файле acadres.dll в строковом ресурсе 2098 можно найти такую запись:
"Замкнуть пересечение _Crossing cLose"
а надо:
"Пересечение Замкнуть _Crossing cLose"
После исправления команда стала замыкать дуги и эллиптические дуги при вводе опции "З" в командной строке или через контекстное меню.

[Piton]

2 Serg
Все тютелька в тутельку :wink: (pedit тем более объединяет c опцией fuzz distance 0 )

2 Profan
У меня английская версия Autocad 2006

[Serz]

Piton>
Ну, тогда проверьте, в одной ли они плоскости. А еще лучше: выложите файл. А мы-то его ужо... :wink:

[Profan]

Для Piton
Ну, так я и написал не "Для Piton", а "Для справки".
У некоторых может быть русская версия AutoCAD 2006, и поскольку здесь упоминают команду "_JOIN" ("СОЕДИНИТЬ"), я и решил дать эту информацию.

[Piton]

2 Profan - сорри за невнимательность
Вот файл
[ATTACH]1140973942.dwg[/ATTACH]

[Serz]

Че-то не понял я. Join - и все дела. Упражнение для чайников?
[ATTACH]1140978497.dwg[/ATTACH]

А, может Вы, дружище, линию в полилинию в самом начале не преобразовали? Ведь АКАД ругается. Сначала матерно: пошел, мол, это не полилиния!!! Правда, потом ехидненько спрашивает: хошь преобразую в оную

Код:

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

Command: _pedit Select polyline or [Multiple]:
Object selected is not a polyline
Do you want to turn it into one? <Y>

Enter an option [Close/Join/Width/Edit vertex/Fit/Spline/Decurve/Ltype 
gen/Undo]: J

Select objects: 1 found

Select objects: 1 found, 2 total

Select objects: 1 found, 3 total

Select objects: 1 found, 4 total

Select objects:

4 segments added to polyline

Enter an option [Close/Join/Width/Edit vertex/Fit/Spline/Decurve/Ltype 
gen/Undo]:

Или я где-то туплю и тема не об этом.

[Piton]

2 Serz
Дело в том, что мне не всегда надо объединять несколько полилиней, а чаще линии в полилинии. (Но я)
Насколько я понял что join это
1 делает только с полилиниями
2 с линиями на одной прямой
3 либо первой должна быть полилиня, к которой присоединяться могут полилинии и линии.
Хочу не думать, хочу чтоб выбрал нажал и все что выбрал (дуги, линии, полилинии) преобразовалось в 1 полилинию без лишних вопросов

[Om81]

Сообщение от Piton 2 Serz Дело в том, что мне не всегда надо объединять несколько полилиней, а чаще линии в полилинии. (Но я) Насколько я понял что join это 1 делает только с полилиниями 2 с линиями на одной прямой 3 либо первой должна быть полилиня, к которой присоединяться могут полилинии и линии. Хочу не думать, хочу чтоб выбрал нажал и все что выбрал (дуги, линии, полилинии) преобразовалось в 1 полилинию без лишних вопросов

1. Делает это с отрезками, полилиниями, дугами...
2. Имеющими общие точки начала и конца
3. Первую линию, которую выберете, нужно преобразовать в полилинию (ответить Y) или поставить системную переменную PEDITACCEPT равной единице.. вроде все всё объяснили)) Естественно, не получится преобразовать в одну полилинию отрезки, разбросанные по всему чертежу и не связанные друг с другом

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

Можно вопрос? А что ж тогда делает запрос точности (fuzz distance), если не допустимые расхождения вершин? Только тут надо поаккуратнее - можно получить необъяснимый результат.

[Piton]

Сообщение от kpblc Можно вопрос? А что ж тогда делает запрос точности (fuzz distance), если не допустимые расхождения вершин? Только тут надо поаккуратнее - можно получить необъяснимый результат.

Пользуюсь объектными ппривязками
Ну допусим не точно соединено - ну так и не надо соединять - пусть программа ругнется мол у линий общих точек нет, а я уж сам посмотрю где косяк.
2 OM81 а ты не путаешь команду PEDIT и join?
Или ты предлагаешь Pedit одну линию в полилинию , а затем join
Так мне надо то что жирным в посте 23

[Om81]

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

[VVA]

>Piton Попробуй эту кнопку. Работает как с педварительным выбором, так и без

Код:

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

^C^C(defun C:JPL ( / ope ssnab )(setq ope (getvar "PEDITACCEPT"))(setvar "PEDITACCEPT" 1)(setq ssnab (ssget "_I"))(while (not ssnab)(setq ssnab (ssget)))(command "_pedit" "_Multiple" ssnab "" "_Join" 0 "")(setvar "PEDITACCEPT" ope)(setq ssnab nil)(princ));JPL;

[Apelsinov]

Piton
И сколько раз этот вопрос уже возникает? Поиск на что?

я пользуюсь pljoin (A2006 не пользуюсь, поэтому join не знаю),
там всего один запррос на этот самый fuzz distance, который умолчательно равен 0. Потому, если он нулем и нужен, то можно просто жать на пробел.

Но если Вы думаете, что Вам fuzz distance не пригодится (что вряд-ли), тогда в файле pljoin.lsp (который входил, кажется, в ET 2000 и найти который не составит труда) Вам надо заменить (открыв его тектовым редактором , например) выражение (acet-pljoin-get-fuzz-and-mode2) на (list 0.0 "Both") и запроса не будет.

[Кочетков Андрей]

Или такую:

Код:

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

^C^C^P(defun c:polyjoin () (ssget)(vl-cmdf "pedit" "m" "p" "" "y" "j" "" "")(princ));polyjoin;

[Piton]

VVA и Кочетков Андрей
Большое спасибо проверил все работает как надо

Apelsinov
попробовал в поиске набрать объединение полилиний
объединение линий
Результат поиска меня не удовлетворил
По поводу изменений в pljoin не нашел строчки (acet-pljoin-get-fuzz-and-mode2) то её я не нашел

ВСЕМ БОЛШОЕ ЗА ПОМОЩЬ ПРОБЛЕМА РЕШЕНА

[Tonic]

А у меня такая вот проблема адаптации программы под Bricscad для AutoCAD:
Имеются линии и дуги, построенные последовательно (точки начала и конца совпадают).
К примеру:
obj_all - список имён всех этих примитивов
obj_first - первый примитив из этого списка
selset - набор всех этих элементов

В Брикскаде эти примитивы объединялись с успехом так:
(vl-cmdf "_PEDIT" obj_first "" "_J" obj_all "" "")

В Автокаде это не проходит, т.к. список obj_all не воспринимается целиком, а только первый его элемент.
Эта команда тоже не работает: (vl-cmdf "_PEDIT" "_M" selset "") - пишет, что ничего не найдено.

Так как же правильно?

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

А если передавать не список примитивов, а набор?

[Log_in]

Сообщение от Piton 2 Serz Хочу не думать, хочу чтоб выбрал нажал и все что выбрал (дуги, линии, полилинии) преобразовалось в 1 полилинию без лишних вопросов

Есть набор замечательных утилит для работы с полилиниями http://dwg.ru/dnl/607 Сам пользуюсь. Огромное спасибо коллективу авторов за данное творение. Облегчает жизнь))

[Tonic]

Всё, заработало. Проблема решилась так: (vl-cmdf "_PEDIT" obj_first "" "_J" selset "" "")

[Счетовод]

Ребят, помогите разобраться!
Обвёл сканированный генплан в автокаде, полилиниями, дугами и прочими приспособлениями и сохранил.
Сегодня утром открываю и всё не сглаженно, а сделано острыми углами, весь чертёж..
как исправить можно?

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

Счетовод, а посмотреть рядом?
http://dwg.ru/f/showthread.php?t=19437

[kruz]

Рядом нет ни книг ни справочников, а надо срочно.
КАК разбить полилинию, т.е как увеличить количество сегментов и внедрить дополнительные узлы? Заранее спасибо

[zenon]

Сообщение от kruz Рядом нет ни книг ни справочников, а надо срочно. КАК разбить полилинию, т.е как увеличить количество сегментов и внедрить дополнительные узлы? Заранее спасибо

http://dwg.ru/dnl/607

[Vova]

Сообщение от kruz Рядом нет ни книг ни справочников, а надо срочно.

HELP Bсегда рядом

КАК разбить полилинию, т.е как увеличить количество сегментов и внедрить дополнительные узлы?

Если ее разбить- а смысл слова Разбить есть Расчленить-то полилинии уже не будет. Если надо внедрить узлы, см команду _Pedit

[komdisp]

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

[Хмурый]

1. не толщина полилинии- а ширина. (толщина- это по оси Z)
2. ручки находятся только на оси полилинии.