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

Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > Готовые программы > LISP. Обнуление координаты Z (аналог FLATTEN )

LISP. Обнуление координаты Z (аналог FLATTEN )

Ответ
Поиск в этой теме
Непрочитано 08.10.2008, 16:06 3 |
LISP. Обнуление координаты Z (аналог FLATTEN )
VVA
 
Инженер LISP
 
Минск
Регистрация: 11.05.2005
Сообщений: 6,890

Программа написана Joe Burke и опубликована здесь: SuperFlatten
Там же будут публиковаться последующие версии. Начиная с версии 1.2c адаптирована к локализованным версиям Автокада.
Первая версия публиковалась здесь: Проклятая Z координата
Запускать:
SF или SuperFlatten
Кроме того с помощью опций можно устанавливать:
Rename blocks - переименовывать блоки, объекты в которых нужно плющить
Explodable blocks - сделать все блоки расчленяемыми
Overkill - запускает Express'овскую команду Overkill
Proxies - плющит прокси объекты
Должна работать начиная с 2000 версии Автокада. Для корректной работы всех опций нужен Автокад 2006 и позже и установленные Express Tools

1. SuperFlatten 2.0b beta VVA.rar - Обработка блоков, в имени которых есть UNICOD символы
2. Другие варианты см. #2
3. SuperFlatten 2.0c при "обнулении" взрывал мультивыноски см пост #91

Вложения
Тип файла: zip SuperFlatten 1.2g.zip (27.4 Кб, 331 просмотров)
Тип файла: zip SuperFlatten 2.0c.zip (30.1 Кб, 1075 просмотров)


Последний раз редактировалось VVA, 22.05.2021 в 10:10. Причина: Добавлена версия SuperFlatten 2.0c
Просмотров: 151439
 
Непрочитано 13.06.2019, 11:33
#81
kacugu

начинающий инженер-гидротехник
 
Регистрация: 18.04.2010
Санкт-Петербург
Сообщений: 794


Цитата:
Сообщение от pentaone Посмотреть сообщение
Почему при работе что с данной программой
Вот такая же проблема.
Цитата:
Сообщение от doctorraz Посмотреть сообщение
файлы чертежа до SF
В приложении.
Autocad 2015, использую SF от VVA
Вложения
Тип файла: dwg
DWG 2013
Дин.блок для форума_Рабочий.dwg (96.2 Кб, 20 просмотров)
Тип файла: dwg
DWG 2013
Дин.блок для форума_Сломанный.dwg (96.2 Кб, 16 просмотров)
kacugu вне форума  
 
Автор темы   Непрочитано 15.06.2019, 16:12
1 | #82
VVA

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


kacugu, На странице автора , была выложена версия SuperFlatten 1.2g. Проверил на твоем файле, вроде динблоки не ломает
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 15.06.2019, 22:50
#83
kacugu

начинающий инженер-гидротехник
 
Регистрация: 18.04.2010
Санкт-Петербург
Сообщений: 794


Цитата:
Сообщение от VVA Посмотреть сообщение
вроде динблоки не ломает
Попробовал ещё версию 2.0с отсюда. Вроде тоже работает нормально и не ломает динамические блоки
kacugu вне форума  
 
Автор темы   Непрочитано 15.06.2019, 23:20
#84
VVA

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


А слона то я и не заметил. Добавил в #1
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 05.02.2021, 11:24
#85
mindchamber


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


здравствуйте, вызываю команду SF и консоль пишет следующее:

Цитата:
Команда: SF
найдено: 32756
Analyzing selection... -Недействительное имя визуального стиля.
Недействительное имя визуального стиля.
Недействительное имя визуального стиля.
Недействительное имя визуального стиля.
Неправильное ключевое слово.
Error: Функция прервана.Задайте параметр [?/Удалить/Ортогонально/Восстановить/Сохранить/Настройка/Рамка]: С
Имя вида для сохранения: hcgf
UCSVIEW = 1 ПСК будет сохранена с видом
Команда: Задайте противоположный угол или [Линия/РМн-угол/СМн-угол]: *Прервано*
Подскажите пожалуйста, чертеж загаженный попался, надо его расплющить, а команде не помогает...

Обычный _flatten выдает следующее:
Цитата:
Вложенные элементы = Откл. Непривязанные данные = Откл-
Вложенные элементы = Откл. Непривязанные данные = Откл|
Вложенные элементы = Откл. Непривязанные данные = Откл-
Вложенные элементы = Откл. Непривязанные данные = Откл|
Вложенные элементы = Откл. Непривязанные данные = Откл/
Вложенные элементы = Откл. Непривязанные данные = Откл.К 2D-полилинии (DCE8C), имеющей только одну вершину, добавлена новая вершина.
К 2D-полилинии (DCE8F), имеющей только одну вершину, добавлена новая вершина.
\
Вложенные элементы = Откл. Непривязанные данные = Откл.К 2D-полилинии (DCEC0), имеющей только одну вершину, добавлена новая вершина.
К 2D-полилинии (DCEC3), имеющей только одну вершину, добавлена новая вершина.
/
Вложенные элементы = Откл. Непривязанные данные = Откл.К 2D-полилинии (DCEF4), имеющей только одну вершину, добавлена новая вершина.
К 2D-полилинии (DCEF7), имеющей только одну вершину, добавлена новая вершина.
\
Вложенные элементы = Откл. Непривязанные данные = Откл/
Вложенные элементы = Откл. Непривязанные данные = Откл\
Вложенные элементы = Откл. Непривязанные данные = Откл/
Вложенные элементы = Откл. Непривязанные данные = Откл\
Вложенные элементы = Откл. Непривязанные данные = Откл.
неверный тип аргумента: lselsetp nil
mindchamber вне форума  
 
Автор темы   Непрочитано 05.02.2021, 11:42
#86
VVA

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


mindchamber, проверь сначала на ошибки (_audit)
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 05.02.2021, 12:00
#87
mindchamber


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


Цитата:
Сообщение от VVA Посмотреть сообщение
mindchamber, проверь сначала на ошибки (_audit)
Пациент во вложениях, аудит не помогает.
Вложения
Тип файла: dwg
DWG 2013
Чертеж3.dwg (560.0 Кб, 3 просмотров)
mindchamber вне форума  
 
Автор темы   Непрочитано 06.02.2021, 20:47
1 | #88
VVA

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


mindchamber, Сделал _purge. Запустил версию 1.2g
Вложения
Тип файла: dwg
DWG 2010
Чертеж3 SF 1.2g.dwg (525.2 Кб, 2 просмотров)
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 20.05.2021, 12:45
#89
zenon

Остекляем!!! Алюминим!!!
 
Регистрация: 21.02.2005
Москва
Сообщений: 3,564
<phrase 1=


Задам вопрос тут.
Можно как-то визуализировать (подсветить, выделить, пометить, указать) примитивы у которых проблемы с координатой Z ?
Вопрос связан с тем что есть чертежи у которых ошибка
Цитата:
Установлено в 0.000000.
Неверное число (Z координата) в объекте.
постоянно возникает при проверке, вне зависимости от того плющился чертеж или нет. При проверке пишет что исправлено, но повторный запуск опять выяляет данную проблему.
Отсюда и возникла мысль найти данный объект и вручную исправить.
__________________
Мы можем делать быстро, качественно и недорого, выбирайте любые 2 условия.:search:
zenon вне форума  
 
Непрочитано 20.05.2021, 14:00
#90
AlexCondor

инженер
 
Регистрация: 03.08.2007
Сообщений: 1,175


Цитата:
Сообщение от zenon Посмотреть сообщение
Можно как-то визуализировать (подсветить, выделить, пометить, указать) примитивы у которых проблемы с координатой Z ?
По частям правда, быстрый выбор. Для линии - Start Z или End Z, для окружностей - Center Z, не равно 0. Для полилиний - Elevation - не равно 0
AlexCondor вне форума  
 
Непрочитано 20.05.2021, 16:17
#91
kacugu

начинающий инженер-гидротехник
 
Регистрация: 18.04.2010
Санкт-Петербург
Сообщений: 794


Просьба к знатокам лиспа.
Лисп "SuperFlatten 2.0c" при "обнулении" взрывал мультивыноски (по-крайней мере у меня). На просторах инета был откопан следующий код и его адаптированная вариация вставлена в версию 2.0с (строки 2112-2129) :
Код:
[Выделить все]
 
(defun C:MLzero (/ SelectionSet i ii il mlEname ml)
	(setq SelectionSet (ssget "_X" '((0 . "MULTILEADER"))))
	(setq ii (sslength SelectionSet))
	(setq il 0)
	(repeat (setq i (sslength SelectionSet))
		(setq mlEname (ssname SelectionSet (setq i (1- i))))
		(if (/= 0 (last (assoc 10 (setq ml (entget mlEname)))))
			(progn 
				(setq il (1+ il))
				(entmod 
					(mapcar '(lambda (x) 
						(if 
						(and 
							(member (car x) '(10 12 110))
							(/= 1.0 (cadr x) (caddr x) (cadddr x))
						)
						(list (car x) (cadr x) (caddr x) 0.0)
						x)
					)
					(entget mlEname '("*"))
					)
				)
			);;end of progn
		)
	)
	(princ (strcat "\nПроверено " (itoa ii) " мультивыносок. Из них обработано " (itoa il)))
	(princ)
)
Что получилось - в приложении.
Собственно просьба: оценить найденный код на возможность использования, может там какие-нибудь подводные камни есть.
Вложения
Тип файла: zip SuperFlatten 2.0d.lsp.zip (29.8 Кб, 8 просмотров)
kacugu вне форума  
 
Непрочитано 21.05.2021, 13:55
#92
zenon

Остекляем!!! Алюминим!!!
 
Регистрация: 21.02.2005
Москва
Сообщений: 3,564
<phrase 1=


Цитата:
Сообщение от AlexCondor Посмотреть сообщение
По частям правда, быстрый выбор. Для линии - Start Z или End Z, для окружностей - Center Z, не равно 0. Для полилиний - Elevation - не равно 0
А если в блоке? анонимном? Взрывать? Не пойдет!
__________________
Мы можем делать быстро, качественно и недорого, выбирайте любые 2 условия.:search:
zenon вне форума  
Ответ
Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > Готовые программы > LISP. Обнуление координаты Z (аналог FLATTEN )

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Аналог функции EVAL (LISP) в Exele kp+ LISP 11 01.04.2010 16:52
Сменить быстро координату Z у нескольких сплайнов. andrey25 AutoCAD 11 18.09.2008 16:28
Координаты точки пересечения line и pline (LISP) paradoxvaha LISP 3 10.07.2007 13:04
загрузка DOS прог через LISP Gaa LISP 15 12.08.2005 19:19