Скидки на VetCAD++
dwg.ru forum rss xml
| Правила | Регистрация | Пользователи | Поиск | Сообщения за день | Все разделы прочитаны |  Справка по форуму |

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

LISP.Построение откосов

Версия для печати
 
Закрытая тема
Опции темы Поиск в этой теме
Непрочитано 09.09.2009, 11:48 5 |
LISP.Построение откосов
Disney
 
Геодезист
 
Сибирь (где медведи по улицам ходят)
Регистрация: 12.03.2009
Сообщений: 859
Отправить сообщение для Disney с помощью Skype™

Disney вне форума Вставить имя


Описание (в скобках приведены выдержки из пояснений к условным знакам из "Условные знаки для топографических планов масштабов 1:500; 1:1000; 1:2000; 1:5000")
  1. Шаг штриховки. Устанавливает расстояние между штрихами по бровки откоса (1, при большой протяжённости 1.5, 2, 3)
  2. Не доводить до подошвы. Устанавливает расстояние на которое не доводятся длинные штрих до подошвы, чтобы они не сливались с подошвой.
  3. Длина короткого штриха. Устанавливает величину короткого штриха (2 - 1:500,1:1000. 1.5 - 1:2000,1:5000. 1\3 (33%) от длинного при ширине откоса более 3 см на плане)
  4. Объединить объекты. Можно объединить созданные штрихи в группу или в блок.
  5. Тип.
    - Обычный
    - Проектный
    - Добычный
    - Укреплённый

    [] Прореживать 5 (или 7 для добычного) штрихов строится, следующих 7 (или 10 для добычного) пропускаются, и так далее
  6. Слой. Можно выбрать слой для откоса, из списка существующих или создать новый. Так же можно задать цвет, в случаи нового слоя, цвеи будет назначен слою, в случаи выбора существующего слоя, цвет будет назначен непосредственно объектам откоса.
  7. Редактирование. После выбора бровки и подошвы, будут построены временные сплошные штрихи, методом равномерного распределения их положения по бровке и подошве, после чего будет предложено отредактировать их положение. Если войти в режим редактирования, будет предложено сначала выбрать диапазон(сектор) редактирования штрихов, потом выбрать основной редактируемый штрих в этом диапазоне и указать его новое положение. После выхода из режима редактирования, штрихи примут заданный им вид, согласно выбранному типу.
  8. Сохранение. все введённые\выбранные данные в диалоге, будут сохранены, даже между сеансами AutoCAD

Пример использования программы
Increase Size Decrease Size Geo_Otkos
Как загрузить VLX, и повесить программу на кнопку
Increase Size Decrease Size Нажмите для просмотра
Статья (как использовать Лисп)
Иконка на кнопку:
Макрос на кнопку: ^C^C^P(if (not c:Geo_Otkos)(load "Geo_Otkos_v3_3.VLX" ));^PGeo_Otkos;


Тестируйте…

Жду отзывов и предложения.

Миниатюры
Нажмите на изображение для увеличения
Название: Geo_Otkos_v3_3_ru.jpg
Просмотров: 20176
Размер:	37.3 Кб
ID:	96050  

Изображения
 

Вложения
Тип файла: rar Geo_Otkos_v3_3+ico.rar (17.4 Кб, 7777 просмотров)


Последний раз редактировалось Disney, 06.02.2013 в 11:14.
Просмотров: 75413
 
Непрочитано 09.04.2015, 17:53
#61
autocader


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


Disney, подскажите что может быть: при попытке построить очередной откос ничего не происходит, а в командной строке пишет "ошибка: ActiveX Server возвратил ошибку: Несовпадение типов" ?
autocader вне форума вставить имя Обратить внимание модератора на это сообщение  
 
Автор темы   Непрочитано 09.04.2015, 20:27
#62
Disney

Геодезист
 
Регистрация: 12.03.2009
Сибирь (где медведи по улицам ходят)
Сообщений: 859
Отправить сообщение для Disney с помощью Skype™


Цитата:
Сообщение от autocader Посмотреть сообщение
Disney, подскажите что может быть: при попытке построить очередной откос ничего не происходит, а в командной строке пишет "ошибка: ActiveX Server возвратил ошибку: Несовпадение типов" ?
Представления не имею.
Выложи файл в котором это происходит, ну и версию AutoCAD озвучь.
__________________
Почему все вдруг становятся умными, когда уже не надо?
Disney вне форума вставить имя Обратить внимание модератора на это сообщение  
 
Непрочитано 10.04.2015, 21:19
#63
autocader


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


Цитата:
Сообщение от Disney Посмотреть сообщение
Представления не имею.
Выложи файл в котором это происходит, ну и версию AutoCAD озвучь.
в чем проблема была я так и не понял, но помогло отрисовывание контура по новой...
autocader вне форума вставить имя Обратить внимание модератора на это сообщение  
 
Непрочитано 10.04.2015, 21:57
#64
gomer

строю, ломаю
 
Регистрация: 03.04.2008
Украина
Сообщений: 5,555


Цитата:
Сообщение от Disney Посмотреть сообщение
Сообщение от autocader
Disney, подскажите что может быть: при попытке построить очередной откос ничего не происходит, а в командной строке пишет "ошибка: ActiveX Server возвратил ошибку: Несовпадение типов" ?
Представления не имею.
Скорей всего ткнул не туда или недоткнул и передал в х-функцию nil. вот и получил ошибку. по идее программа должна обрабатывать такие вещи...
gomer вне форума вставить имя Обратить внимание модератора на это сообщение  
 
Автор темы   Непрочитано 11.04.2015, 09:39
#65
Disney

Геодезист
 
Регистрация: 12.03.2009
Сибирь (где медведи по улицам ходят)
Сообщений: 859
Отправить сообщение для Disney с помощью Skype™


Цитата:
Сообщение от gomer Посмотреть сообщение
Скорей всего ткнул не туда или недоткнул и передал в х-функцию nil. вот и получил ошибку. по идее программа должна обрабатывать такие вещи...
звучит как упрёк в мой адрес
В этой программе выбор объектов происходит через функцию
Код:
[Выделить все]
 (defun geo_vibor
		   (zap tip sloy exit_ / flag name ru)
    (setq Flag t
	  ru   (= (getvar "SysCodePage") "ANSI_1251")
    ) ;_ _end_ofsetq
    (setvar "ERRNO" 0)
    (while Flag
      (setq name
	     (car (entsel zap))
      ) ;_ _end_ofsetq
      (cond				;
	((and (= (getvar "ERRNO") 52) exit_)
	 (setq Flag nil)
	)
	((not name)
	 (princ	(if ru
		  "\nМимо :( "
		  "\nMiss :( "
		) ;_ _end_ofif
	 ) ;_ _end_ofprinc
	)				;
	((not
	   (wcmatch (cdr (assoc 0 (entget name)))
		    tip
	   ) ;_ _end_ofwcmatch
	 ) ;_ _end_ofnot
	 (princ
	   (strcat
	     (if ru
	       "\n Не верный объект, должен быть "
	       "\n Bad object that must be"
	     ) ;_ _end_ofif
	     tip
	   ) ;_ _end_ofstrcat
	 ) ;_ _end_ofprinc
	)				;
	((not
	   (wcmatch (cdr (assoc 8 (entget name)))
		    sloy
	   ) ;_ _end_ofwcmatch
	 ) ;_ _end_ofnot
	 (princ
	   (strcat
	     (if ru
	       "\nВыбран не штрих откоса"
	       "\nSelected object not dash slope"
	     ) ;_ _end_ofif
	     sloy
	   ) ;_ _end_ofstrcat
	 ) ;_ _end_ofprinc
	)				;
	(t
	 (setq Flag nil
	       name name
	 ) ;_ _end_ofsetq
	)
					;
      ) ;_ _end_ofcond
    ) ;_ _end_ofwhile
  )
Что я там ещё не предусмотрел?
__________________
Почему все вдруг становятся умными, когда уже не надо?
Disney вне форума вставить имя Обратить внимание модератора на это сообщение  
 
Непрочитано 11.04.2015, 10:22
#66
gomer

строю, ломаю
 
Регистрация: 03.04.2008
Украина
Сообщений: 5,555


Цитата:
Сообщение от Disney Посмотреть сообщение
Что я там ещё не предусмотрел?
Нужно смотреть глобальнее, еще лучше - дебажить на проблемном чертеже. Возможно программа не может найти точки пересечения и выдает nil, что соответственно приводит к ошибке в другой функции
ps Я могу и ошибаться, все зависит от того какая функция возвращает ошибку
gomer вне форума вставить имя Обратить внимание модератора на это сообщение  
 
Непрочитано 12.05.2015, 17:26
#67
Offrider


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


Спасибо огромное за труд.
Есть одна маленькая просьба/пожелание: нельзя ли сделать так, чтоб короткие и длинные штрихи распределялись в разные слои?
Тогда проще редактировать их толщину. Раньше был shatch, где такая фишка была реализована. Сейчас нигде нет...
Offrider вне форума вставить имя Обратить внимание модератора на это сообщение  
 
Автор темы   Непрочитано 13.05.2015, 06:04
#68
Disney

Геодезист
 
Регистрация: 12.03.2009
Сибирь (где медведи по улицам ходят)
Сообщений: 859
Отправить сообщение для Disney с помощью Skype™


Цитата:
Сообщение от Offrider Посмотреть сообщение
чтоб короткие и длинные штрихи распределялись в разные слои?
Тогда проще редактировать их толщину.
А какой в этом смысл? Разная толщина штрихов?
Как бы это совсем не сложно, но охота понять зачем? Сделать такое изменение для всех, или специально для тебя версию...
__________________
Почему все вдруг становятся умными, когда уже не надо?
Disney вне форума вставить имя Обратить внимание модератора на это сообщение  
 
Непрочитано 05.08.2015, 14:10
#69
YVR


 
Регистрация: 20.12.2009
Красноярск
Сообщений: 8
Отправить сообщение для YVR с помощью ICQ


Цитата:
Сообщение от Offrider Посмотреть сообщение
Спасибо огромное за труд.
Есть одна маленькая просьба/пожелание: нельзя ли сделать так, чтоб короткие и длинные штрихи распределялись в разные слои?
Тогда проще редактировать их толщину. Раньше был shatch, где такая фишка была реализована. Сейчас нигде нет...
Присоединяюсь к благодарности и просьбе! Было бы очень хорошо короткие штрихи сделать толщиной как верхняя бровка (горняки поймут), да и по ГОСТу разные толщины требуется делать.
YVR вне форума вставить имя Обратить внимание модератора на это сообщение  
 
Непрочитано 28.10.2015, 14:46
#70
Kirill_Ja


 
Регистрация: 28.07.2008
Мурманск
Сообщений: 208
Отправить сообщение для Kirill_Ja с помощью ICQ


Disney, приветствую. Большое спасибо за проделанную работу.
Внезапно стала появляться ошибка
"Укажите бровку: <Выход>
Укажите подошву: <Выход>
Мимо
Укажите подошву: <Выход>
Редактировать штрихи? [Да/Нет] <Нет>:Н
; ошибка: деление на нуль
Команда:"

AutoCad Civil 3D 2014.
Ошибка возникает в самом конце работы программы,
__________________
Мне не нужно сделать за меня. Если я что-то ищу, то пути решения.
Kirill_Ja вне форума вставить имя Обратить внимание модератора на это сообщение  
 
Автор темы   Непрочитано 30.10.2015, 12:59
#71
Disney

Геодезист
 
Регистрация: 12.03.2009
Сибирь (где медведи по улицам ходят)
Сообщений: 859
Отправить сообщение для Disney с помощью Skype™


Цитата:
Сообщение от Kirill_Ja Посмотреть сообщение
; ошибка: деление на нуль
Странно, просмотрел весь код, все места где возможно деление на 0, проверяется чтоб не было ноля.

На любых откосах так, или каком-то конкретно? Выложи пример чертежа с таким откосом, посмотрю.
__________________
Почему все вдруг становятся умными, когда уже не надо?
Disney вне форума вставить имя Обратить внимание модератора на это сообщение  
 
Непрочитано 16.04.2018, 12:23
#72
Дмитррр

НЛО
 
Регистрация: 09.07.2007
Тутошние мы.
Сообщений: 2,480


Перпендикуляра не хватает, конечно... А то было бы совсем шикарно.
Цитата:
Сообщение от Disney Посмотреть сообщение
Да, я знаю, что в условных знаках, чёрным по русскому написано: - "Перпендикулярно к бровке", как их построить я знаю, но они будут пересекать друг друга, продлеваться до мнимого продолжения подошвы или наоборот не отрисовываться там где перпендикулярно к бровке нет подошвы, т.е. отображаться не корректно, а вот как их потом программно(массово) подправить(отредактировать) я не знаю, поэтому этого варианта нет.
Если ещё есть кому заниматься этим благородным делом, то возможен такой алгоритм:
0. В настройках нужен выбор "строить перпендикулярно бровке" и "строить перпендикулярно подошве"
1. Везде где можно построить перпендикуляр (то есть перпендикуляр от бровки упирается в подошву или наоборот), надо его построить.
2. Где нельзя - ничего не надо строить.
Уже этих правил в 95% случаев хватит. То что в углах не будет пары штрихов не критично.
3. Для оставшихся 5% случаев можно добавить возможность выбора в качестве бровки и подошвы нескольких объектов.
Например, для классического прямоугольного котлована 1 отрезок бровки, а подошва из трёх отрезков (собственно подошва и 2 кромки).
__________________
Я ведь - огонь, и холод и... обман.
Я - радугой пронизанный... туман
Дмитррр вне форума вставить имя Обратить внимание модератора на это сообщение  
Закрытая тема
Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > Готовые программы > LISP.Построение откосов

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

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

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Програма для рисования откосов AlxdDike Тигра Программирование 64 25.08.2016 17:10
Ищу серию 501-0-46 Укрепление русел и откосов насыпей у водопропускных труб Gary Поиск литературы, чертежей, моделей и прочих материалов 15 05.02.2013 08:19
Теплотехнический расчет с учетом откосов v_alex Конструкции зданий и сооружений 22 16.03.2012 01:38
Вертикальное крепление откосов котлована tushka Технология и организация строительства 1 20.11.2008 18:19

|| Главная || Каталог САПР || Тендеры || Публикации || Объявления || Биржа труда || Download || Галерея ||
|| Библиотека || Кунсткамера || Каталог предприятий || Контакты || Файлообменник || Блоги ||