|
||
| Правила | Регистрация | Пользователи | Поиск | Сообщения за день | Все разделы прочитаны | Справка по форуму | Файлообменник | |
|
Поиск в этой теме |
03.10.2008, 09:36 | #1 | |
Определение высотной отметки по двум соседним отметкам.
Руководитель фирмы
Москва
Регистрация: 28.03.2007
Сообщений: 1,831
|
||
Просмотров: 8341
|
|
||||
Moderator
LISP, C# (ACAD 200[9,12,13,14]) Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,787
|
"Текст отметки" - енто хто? однострочник? Многострочник? Блок с атрибутом? Атрибут?
__________________
Моя библиотека lisp-функций --- Обращение ко мне - на "ты". Все, что сказано - личное мнение. |
|||
|
||||
Всегда бывает либо Text, либо Mtext одна строчка. Если есть запятая - поменять перед подсчетом на точку и проверь на принадлежность к числу. Если несколько отметок в Mtext-e, то дать сообщение о невозможности выполнения макроса.
Всякие там блоки, ну можно в принципе запоминать точку указания и после определения типа объекта лезть в его глубины, но пока не надо. Пока не надо. Потом будет надо. Мне бы пока простенькие цифры переварить. |
||||
|
||||
Продуман Регистрация: 22.02.2007
Питер
Сообщений: 2,840
|
Вот так попробуй, основную процдуру пока не пишем ибо ТЗ на нее ясно не оформленно, офоршишь посмотрим, ну или сам ваяй.
Код:
__________________
Когда в руках молоток все вокруг кажется гвоздями. |
|||
|
||||
Lisp/VBA/VB.NET Hobbyist Регистрация: 24.03.2005
Славен Град Петров
Сообщений: 367
|
Цитата:
чисто интуитивно: Код:
|
|||
|
||||
fixo, отлично! Огромное спасибо. Правда с Mtext не работает, поскольку там 1-й код навороченный бывает, вот у меня такой и попался.
(1 . "\\Ftxt.shx|b0;168.263") тут она и глючит. Да и отключать привязки не нужно, поскольку у меня мышь 8-ми кнопочная и на ней F3 уже стоит. Легким шевелением пальца я и F3, и F8, и Esc, и Del, и Enter могу нажать. Второй рукой как правило почесываю. Вместо точки надо что-то покрупнее ставить, типа Tolerance. Кстати, а его умеет хоть кто-нибудь программно создавать? |
||||
|
||||
Регистрация: 05.09.2008
Сообщений: 24
|
Цитата:
Код:
Пойду в воскресенье за 8-микнопочной |
|||
|
||||
Цитата:
В коде fixo поправь выделенное красным Код:
Красин, Цитата:
К сожалению по неизвестным причинам покинул этот форум. Сейчас известен как ASMI. (сайт автора). А вот и TTC_MText_Clear
__________________
Как использовать код на Лиспе читаем здесь Последний раз редактировалось VVA, 04.10.2008 в 12:22. |
||||
|
||||
УУУУ! Дело идет.
Мышка самая лучшая - Logitech MX-518 (до нее были 500 и 510). Где-то 1500 р. стоит. (у меня 500 и 510 на другом компе). Вот код создания Tolerance с отметкой точки: Код:
После создания открываем программно последний созданный элемент и ковыряем 330 пару с целю модификации масштаба и прочего. Немного исправил data - это данные в виде числа (любого) point - список из трех координат точки вставки элемента. Последний раз редактировалось Supermax, 03.10.2008 в 18:18. |
||||
|
||||
Lisp/VBA/VB.NET Hobbyist Регистрация: 24.03.2005
Славен Град Петров
Сообщений: 367
|
Цитата:
У меня всего-то по пять пальцев и то кривых Со второй рукой поаакуратней там ~'J'~ |
|||
|
||||
Проектировщик СС Регистрация: 24.06.2008
Минск
Сообщений: 134
|
Цитата:
http://www.theswamp.org/index.php?PH...ic=14771.0;all |
|||
|
||||
Lisp/VBA/VB.NET Hobbyist Регистрация: 24.03.2005
Славен Град Петров
Сообщений: 367
|
|
|||
|
||||
Да, Donhuan, там наверное знают, но вчитываться в английский текст просто ужас. Мне бы функцию с аргументом в виде угла поворота в радианах, чтобы она список координат выдавала. И все.
Ну что бедному еврею надо? - Кусочек хлеба и вагон масла. Вот и все. Я могу сам сделать такую. Про единичную сферу и координаты точки на ней мне все известно, но я думал у народа уже есть такая функция. Думаю, что мучиться? А выходит есть, но не в России. Да и там я не нашел конкретики. А ведь надо. В очень многих элементах вместо 50-ой пары используется 11-ая с этим кошмаром. Придется вспоминать геометрию. Когда мы читаем текст, то берем от туда угол поворота, пересчитываем и при создании Tolerance 11 пару делаем как надо. При чтении того же текста берем свойство Height и его значение переписываем Tolerance свойству TextHeight. |
||||
|
||||
Короче в 11 паре идет первая цифра COS угла в градусах, вторая SIN угла в градусах и третья всегда 0.0, поскольку пооси Y мы ничего не крутим. Радианы в градусы - Ad = Ar * 180 / пи Где Ad — угол в градусах, Ar — угол в радианах. пи=3.1415926535897932384626433832795 ну это я так шутю.
|
||||