| Правила | Регистрация | Пользователи | Поиск | Сообщения за день | Все разделы прочитаны |  Справка по форуму | Файлообменник |

Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > Новые команды для работы с полилинией

Новые команды для работы с полилинией

Ответ
Поиск в этой теме
Непрочитано 14.09.2006, 13:30 4 |
Новые команды для работы с полилинией
VVA
 
Инженер LISP
 
Минск
Регистрация: 11.05.2005
Сообщений: 6,991

Данный набор программ является коллективным продуктом участников форумов autocad.ru и dwg.ru с моими доработками.
Захотелось собрать все программы для работы с полилиниями воедино и оформить как полагается.

=========== Доступные команды PLTOOLS=================
Редакция 17.06.2014
PL-JOIN -Объединение выбранных полилиний
PL-VFI -вставка вершин в выбранной полилинии в местах пересечения с
указанными полилиниями, линиями, дугами
PL-JOIN3D -Объединение 3D полилиний
PL-L2A -Замена линейного сегмента в полилинии дуговым сегментом.
PL-A2L -Замена дугового сегмента в полилинии линейным сегментом.
PL-DIV -Разбивает выбранный сегмент полилинии на указанное количество
сегментов или через указанное расстояние
PL-DIVAll -Разбивает все сегменты полилинии на указанное количество
сегментов или через указанное расстояние
PL-VxAdd -Добавляет новую вершину к полилинии
ENTREVS -Реверс объекта
ENTREV -Реверс объектов (множественный выбор)
PL-CW -Реверс выбранных полилиний по часовой стрелке
PL-CCW -Реверс выбранных полилиний против часовой стрелки
PL-VxRdc -Удаление вершин полилиний, которые лежат на одной прямой
PL-VxDel -Удаление выбранной вершины
pl-VxOpt -Удаление совпадающих вершин из полилинии
PL-NoArc -Аппроксимация дуговых сегментов полилинии
PL-Clone -Построение полилинии путем копирования ее сегментов
PL-VxMove -Перемещение вершин полилинии
PL-Vx1 -Изменение начала полилинии
ConvTo2d -Преобразование линейных объектов в 2D полилинии
ConvTo3d -Преобразование линейных объектов в 3D полилинии
MPL -Построение средней линии Более продвинутая версия Rollin_Ball.lsp Find MidBoundary between two polylines.
R3P -Прямоугольгик по 3-м точкам
PL-P90 -Рисование перпендикулярных друг к другу сегментов полилинии
PL-CSE -Объединение 2d полилиний по примитиву
PL-SgWidth -Изменить ширину сегмента полилинии

Реверс дуговых сегментов полилинии из #79
На дуговых сегментах полилинии тип линий может быть "вверх тормашками", причем реверс не помогает. Этот артефакт можно побороть, если в полилинии включить "генерацию типа линий".

Панели, лисп и инструкции здесь http://dwg.ru/dnl/607
Иконки для темной темы здесь
Обсуждаем, критикуем, предлагаем

Миниатюры
Нажмите на изображение для увеличения
Название: plrevers.jpg
Просмотров: 15428
Размер:	30.3 Кб
ID:	21079  


Последний раз редактировалось VVA, 08.09.2023 в 13:25. Причина: ссылка на иконки для темной темы
Просмотров: 369095
 
Непрочитано 02.04.2012, 11:58
#381
Cfytrr

Балка на балку, кирпич на кирпич...
 
Регистрация: 09.10.2007
Питер
Сообщений: 4,818
Отправить сообщение для Cfytrr с помощью Skype™


Кулик Алексей aka kpblc,
Точно, Ваша правда.
Просто я так привык к pltools, что встроенными функциями и не пользовался...
__________________
...переменная FILEDIA создана для привлечения пользователей к форумам.
Cfytrr вне форума  
 
Непрочитано 30.04.2012, 22:54
#382
spitfire1975


 
Регистрация: 01.06.2010
Сообщений: 7


Вот если бы добавить две функции из этой утилиты (ломанной ее я не нашел) http://www.cad-organizer.com/product...duct=polytools ... Первая рисует по полилинии офсетом замкнутую полилинию (стену), а вторая делит эту полилинию на несколько замкнутых в один клик (вырезает оконные и дверные проемы)
spitfire1975 вне форума  
 
Непрочитано 30.04.2012, 23:17
#383
Кулик Алексей aka kpblc
Moderator

LISP, C# (ACAD 200[9,12,13,14])
 
Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,835


spitfire1975, во-первых, прочитай правила форума. Во-вторых, посмотри в теме про динамические блоки - насколько я помню, подобные вопросы там поднимались. И если решение не подойдет, то переходи либо на вертикальные решения типа AutoCAD Architecture /MEP, либо вообще на Revit и Ко.
__________________
Моя библиотека lisp-функций
---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума  
 
Непрочитано 16.05.2012, 13:29
#384
АлексЮстасу

топограф, технолог
 
Блог
 
Регистрация: 24.05.2009
Москва
Сообщений: 3,031


Пришел чужой файл, в котором попытался полилинии преобразовать в 3Д полилинии. Получил:
Команда: ConvTo3d
найдено: 202
; ошибка: Верхняя граница SAFEARRAYBOUND оказалась меньше нижней.

или
Command: ConvTo3d
202 found
; error: Upper bound in SAFEARRAYBOUND occurred to be less than lower.
Что бы это значило?
АлексЮстасу вне форума  
 
Автор темы   Непрочитано 16.05.2012, 15:48
#385
VVA

Инженер LISP
 
Регистрация: 11.05.2005
Минск
Сообщений: 6,991
<phrase 1= Отправить сообщение для VVA с помощью Skype™


АлексЮстасу, Файлик покажи (можно по почте если секретный)
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 16.05.2012, 23:54
#386
АлексЮстасу

топограф, технолог
 
Блог
 
Регистрация: 24.05.2009
Москва
Сообщений: 3,031


Цитата:
Сообщение от VVA Посмотреть сообщение
АлексЮстасу, Файлик покажи (можно по почте если секретный)
...в довершении препятствий вырубился сервер и инет
В файле осталась одна "кривая" полилиния - остальное преобразовать в 3Д удалось. Но только после того, как удалил элементы всех остальных типов.
Вложения
Тип файла: dwg
DWG 2004
не_преобразуется_в_3Д.dwg (306.3 Кб, 5026 просмотров)
АлексЮстасу вне форума  
 
Автор темы   Непрочитано 17.05.2012, 10:29
1 | #387
VVA

Инженер LISP
 
Регистрация: 11.05.2005
Минск
Сообщений: 6,991
<phrase 1= Отправить сообщение для VVA с помощью Skype™


АлексЮстасу, "кривая" полилиния - полилиния 0 длины (совпадают начальные и конечные точки). Добавил соотвествующую проверку. Рекомендую всегда чужие чертежи проверять на
Цитата:
Команда: _-purge
Enter type of unused objects to purge
[Blocks/Dimstyles/LAyers/LTypes/MAterials/MUltileaderstyles/Plotstyles/SHapes/te
xtSTyles/Mlinestyles/Tablestyles/Visualstyles/Regapps/Zero length
geometry/Empty text objects
/All]:
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 17.05.2012, 12:08
#388
АлексЮстасу

топограф, технолог
 
Блог
 
Регистрация: 24.05.2009
Москва
Сообщений: 3,031


Цитата:
Сообщение от VVA Посмотреть сообщение
АлексЮстасу, "кривая" полилиния - полилиния 0 длины (совпадают начальные и конечные точки). Добавил соотвествующую проверку. Рекомендую всегда чужие чертежи проверять на
Спасибо!
Волшебная сила тире перед командой.
Почему только в окне Purge этих опций нет? Мы же не телепаты. Да и девочкам лет 50-ти такие нюансы не под силу.
АлексЮстасу вне форума  
 
Непрочитано 17.05.2012, 12:20
#389
_REGEN


 
Регистрация: 14.12.2010
Там, где мамонты жили ...
Сообщений: 224


Цитата:
Сообщение от АлексЮстасу Посмотреть сообщение
Почему только в окне Purge этих опций нет?
AutoCAD 2011 - есть
__________________
Время – лучшее лекарство, лечит даже от жизни.
_REGEN вне форума  
 
Автор темы   Непрочитано 17.05.2012, 12:52
#390
VVA

Инженер LISP
 
Регистрация: 11.05.2005
Минск
Сообщений: 6,991
<phrase 1= Отправить сообщение для VVA с помощью Skype™


Эти опции есть стандартно, по моему, уже с 2010. Для 2009 появятся, если поставить Bonus pack 1 и 2
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 18.05.2012, 00:45
#391
АлексЮстасу

топограф, технолог
 
Блог
 
Регистрация: 24.05.2009
Москва
Сообщений: 3,031


Цитата:
Сообщение от _REGEN Посмотреть сообщение
AutoCAD 2011 - есть
Вот мое окно Purge, 2012 рус. Да и в 2006 оно было, кажется, ровно таким же.
Никогда не замечал, и сейчас не вижу в нем опций удаления элементов нулевой длины и т.п.
Миниатюры
Нажмите на изображение для увеличения
Название: окно_Purge_2012.JPG
Просмотров: 152
Размер:	42.8 Кб
ID:	80464  
АлексЮстасу вне форума  
 
Непрочитано 18.05.2012, 00:53
1 | #392
Кулик Алексей aka kpblc
Moderator

LISP, C# (ACAD 200[9,12,13,14])
 
Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,835


Самая нижняя, недоступная опция - "Удалить геометрию нулевой длины"
__________________
Моя библиотека lisp-функций
---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума  
 
Непрочитано 18.05.2012, 00:57
#393
АлексЮстасу

топограф, технолог
 
Блог
 
Регистрация: 24.05.2009
Москва
Сообщений: 3,031


Цитата:
Сообщение от Кулик Алексей aka kpblc Посмотреть сообщение
Самая нижняя, недоступная опция - "Удалить геометрию нулевой длины"
О, где были мои глаза!
Спасибо!!

Попробовал из окна - сильно не понравилось. Не вижу возможности удалить только линии нулевой длины и пустые тексты. Только вместе с чем-нибудь еще. (Не удивлюсь, если промажу и на этот раз)

Последний раз редактировалось АлексЮстасу, 18.05.2012 в 01:19.
АлексЮстасу вне форума  
 
Непрочитано 26.09.2012, 11:37
#394
mr_Crow


 
Регистрация: 02.11.2011
Сообщений: 2


помогите, что случилось, как лечить? перестали работать pltools:

Command:
---- MIP Pltools loading; error: no function definition: VLAX-GET-ACAD-OBJECT
Command: R3P
Unknown command "R3P". Press F1 for help.
mr_Crow вне форума  
 
Непрочитано 26.09.2012, 12:46
#395
Кулик Алексей aka kpblc
Moderator

LISP, C# (ACAD 200[9,12,13,14])
 
Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,835


http://autolisp.ru/2010/06/09/no-fun...t-acad-object/
__________________
Моя библиотека lisp-функций
---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума  
 
Непрочитано 16.10.2012, 16:43
#396
АлексЮстасу

топограф, технолог
 
Блог
 
Регистрация: 24.05.2009
Москва
Сообщений: 3,031


Опять морока со сплайнами. Не удается получить в меру похожие трехмерные полилинии - отклонения в пределах 2 см. PlTools слишком сильно изменяет их геометрию при преобразованиях
Пример приложен.
Это начерчены тросы подвеса контактной сети. Они провисают под своей тяжестью, плюс на их положение влияют разные подвесы и оттяжки (здесь не показаны).
Вложения
Тип файла: dwg
DWG 2004
3dSpline.dwg (2.87 Мб, 4941 просмотров)
АлексЮстасу вне форума  
 
Автор темы   Непрочитано 16.10.2012, 19:33
#397
VVA

Инженер LISP
 
Регистрация: 11.05.2005
Минск
Сообщений: 6,991
<phrase 1= Отправить сообщение для VVA с помощью Skype™


АлексЮстасу, Попробуй _splinedit опция "Преобразовать в полилинию" Появилась, по моему, с 2010 када.
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 16.10.2012, 20:15
#398
АлексЮстасу

топограф, технолог
 
Блог
 
Регистрация: 24.05.2009
Москва
Сообщений: 3,031


Цитата:
Сообщение от VVA Посмотреть сообщение
АлексЮстасу, Попробуй _splinedit опция "Преобразовать в полилинию" Появилась, по моему, с 2010 када.
Пардон! Забыл написать, что люди здесь упорствуют в 2006-2008! Уж скоро год будет, как держатся кремнями
АлексЮстасу вне форума  
 
Автор темы   Непрочитано 18.10.2012, 09:49
#399
VVA

Инженер LISP
 
Регистрация: 11.05.2005
Минск
Сообщений: 6,991
<phrase 1= Отправить сообщение для VVA с помощью Skype™


АлексЮстасу, Тады ой. Вспомнил про программу TotalPurge
В описании сказано
Цитата:
Возможность преобразования сплайн-объектов в полилинии как методом аппроксимации линейными отрезками так и дуговыми сегментами.
Пробуй. Заявлена поддержка 2004 - 2010 версий
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 26.11.2012, 18:56
#400
WATRES

горный инженер
 
Регистрация: 25.05.2011
Петербург
Сообщений: 19


Спасибо за труд!
Часто пользуюсь. Но не разберусь, возможно ли использовать команду PL-DIVAll для нескольких полилиний сразу.
Все, разобрался, нельзя.

Последний раз редактировалось WATRES, 27.11.2012 в 17:41.
WATRES вне форума  
Ответ
Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > Новые команды для работы с полилинией

Размещение рекламы
Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск