|
||
| Правила | Регистрация | Пользователи | Сообщения за день | | Поиск | | Справка по форуму | Файлообменник | |
|
Поиск в этой теме |
|
||||
Регистрация: 07.02.2007
Сообщений: 200
|
Цитата:
потому что потом все равно в ручную будем проходить и проверять вдруг еще что от ненужно попало в слой так сможешь? |
|||
|
||||
Регистрация: 07.02.2007
Сообщений: 200
|
если есть время и возможность помоги еще в паре вещей
буду очень признателен это тот твой лисп немного переделанный мною под заказчика Код:
Length Type = Decimal Precision = 0.00 Angel Type = Deg/Min/Sec Precision = 0d00`00`` Insertion scale Units to scale inserted content = Millimeters 2 встрой сюда пожалуйста сразу Plinegen = 1 для включения генерации линий 3 создание трех стилей для размеров 500 # Symbols Arrow size = 1.00 # Text Text style = new_style Text height = 0.8 Text placement Vertical = Above Horizontal = Centered Offset from dim line = 0.20 Text alignment = Aligned with dimension line # Primary Units Linear dimensions Unit format = Decimal Precision = 0.00 Measurement scale Scale factor = 2 Angular dimensions Units format = Degrees Minutes Seconds Precision = 0d00`00`` 1000 # Symbols Arrow size = 2.00 # Text Text style = new_style Text height = 1.6 Text placement Vertical = Above Horizontal = Centered Offset from dim line = 0.40 Text alignment = Aligned with dimension line # Primary Units Linear dimensions Unit format = Decimal Precision = 0.00 Measurement scale Scale factor = 1 Angular dimensions Units format = Degrees Minutes Seconds Precision = 0d00`00`` 2000 # Symbols Arrow size = 4.00 # Text Text style = new_style Text height = 3.2 Text placement Vertical = Above Horizontal = Centered Offset from dim line = 0.80 Text alignment = Aligned with dimension line # Primary Units Linear dimensions Unit format = Decimal Precision = 0.00 Measurement scale Scale factor = 0.5 Angular dimensions Units format = Degrees Minutes Seconds Precision = 0d00`00`` |
|||
|
||||
Инженер-строитель Регистрация: 15.08.2007
Киров
Сообщений: 2,204
|
Учитывая, что обращение именно ко мне, видимо мне и отвечать первым.
Так вот, к сожалению сейчас у меня нет ни времени, ни возможностей. Помочь не смогу. Но я точно знаю, что есть немало людей на форуме, которым это под силу. Тем более, что эти 3 вопроса никак не привязаны к коду, т.е. их можно сделать отдельно, даже не смотря на код и потом тупо вставить в начало. Надеюсь, они помогут. Как в старые добрые времена dwg.ru. Удачи. |
|||
|
||||
1.
Код:
__________________
Как использовать код на Лиспе читаем здесь |
||||
|
||||
Регистрация: 07.02.2007
Сообщений: 200
|
VVA а для второго пункта я так понимаю будет так -
(setvar "PLINEGEN" 1) или 2 или я ошибаюсь? Код:
их куда то в другое место надо ставить? убрал но все равно лисп почему то неработает вот что пишет Command: (test) ; error: no function definition: TEST перезагрузил лисп Command: _appload test.LSP successfully loaded. Command: ; error: misplaced dot on input Command: Command: (test) ; error: no function definition: TEST Последний раз редактировалось Gotch, 01.11.2010 в 14:15. |
|||
|
||||
Перевод-> ошибка: неверно расположенная точка на входе Найди строчку (setq txt_height .8) замени на (setq txt_height 0.8)
__________________
Как использовать код на Лиспе читаем здесь |
||||
|
||||
Регистрация: 07.02.2007
Сообщений: 200
|
Цитата:
у меня есть макрос но не совсем корректный он меняет в стиле Стандард настройки на нужные мне а хотелось бы что бы были созданы три новых размерных стиля ^C^C_-dimstyle;R;Standard;dimtxsty;new_style;dimasz;1;dimtxt;1;dimtih;Off;dimtad;1;dimgap;0.2;DIMDEC;2;DIMAUNIT;1;DIMADEC;3; как задать создать новый размерный стиль? (setvar "-DIMSTYLE" AN No 500) (setvar "DIMTXSTY" new_style) (setvar "DIMASZ" 1) (setvar "DIMTXT" 1) (setvar "DIMTIH" Off) (setvar "DIMTAD" 1) (setvar "DIMGAP" 0.2) (setvar "DIMDEC" 2) (setvar "DIMAUNIT" 1) (setvar "DIMADEC" 3) думал что так но неработает и хотел попросить помочь с сбросом масштабов _-scalelistedit Enter option [?/Add/Delete/Reset/Exit] <Add>: R Reset scale list to defaults? [Yes/No] <No>: y Scale list reset to default entries. Enter option [?/Add/Delete/Reset/Exit] <Add>: E чем тут пользоваться что бы заработало в смысле какими функциями? Последний раз редактировалось Gotch, 16.03.2011 в 07:57. |
|||
|
||||
Создание размерного стиля
Программное создание размерных стилей Не выполняется копирование объектов между файлами через буфер обмена Еще посмотри ссылку в конце варианта №1: Цитата:
__________________
Как использовать код на Лиспе читаем здесь |
||||
|
||||
Регистрация: 07.02.2007
Сообщений: 200
|
Цитата:
VVA хотел спросить по поводу сброса масштабов Код:
а в итоге при вызове списка масштабов в акаде меня выбивает из акада с фатальной ошибкой |
|||
|
||||
Вариант без командных методов нужно использовать осторожно. Он сносит все без учета, есть аннотативные объекты или нет. Я его использую только на новых чертежах.
В любом случае нужна версия Автокада, наличие серсивпаков, можно файлик приложить. Судя по именам слоев и блоков, ты получаешь dxf из Credo. Это так же может добавить нюансы. Попробуй по ссылке средний вариант. Там используются команды.
__________________
Как использовать код на Лиспе читаем здесь |
||||
|
||||
Регистрация: 07.02.2007
Сообщений: 200
|
Цитата:
масштабы в списке масштабов не очистились и не появились я правильно понимаю что я просто этот лисп вставляю в конце того длинного лиспа и все? |
|||
|
||||
Цитата:
Код:
__________________
Как использовать код на Лиспе читаем здесь |
||||
|
||||
я сейчас в отпуске, подними эту тему после 4 июля, разберемся
__________________
Как использовать код на Лиспе читаем здесь |
||||
|
||||
Регистрация: 07.02.2007
Сообщений: 200
|
лисп такой Код:
если DEFAULT Код:
Код:
Иначе (заместо слова "DEFAULT" может быть любое другое слово или число) Код:
иногда просто в этом есть нужда если не сильно затруднит помогите сегодня при открытии файла сработала вот такая вещь именно просто при открытии, без запуска лиспа Код:
но когда просто запускаю лисп масштабы не меняются |
|||
|
||||
Это сработала функция SETSCALE в твоем лиспе.
Правильно, так как вызов функции идет самой последней сточкой, загружая свой лисп последней строкой запускаешь функцию (setscale) на выполнение. И не будут. Так как надо перенести строчку (setscale) из конца файла в тело твоей функции test Код:
__________________
Как использовать код на Лиспе читаем здесь |
||||
|
||||
Регистрация: 07.02.2007
Сообщений: 200
|
Цитата:
Код:
смотри название слоя GOR_BDEFAULT будет переименовано с цветом 32 в (cons "И1 Рельеф Горизонтали основные утолщенные" 32) если в названии слоя присутствует DEFAULT то переименовывать как уже есть в лиспе (cons "И1 Рельеф Горизонтали основные утолщенные" 32) (cons "И1 Рельеф Горизонтали основные" 32) (cons "И1 Рельеф Контур рельеф" 92) (cons "И1 Растительность Контур" 172) (cons "И1 Текст" 7) (cons "И1 Рельеф Обрыв" 32) (cons "И1 Рельеф Откос" 32) (cons "И1 Рельеф Отметки номера" 1) (cons "И1 Рельеф Отметки" 5) (cons "И1 Рельеф Точки СТ" 6) (cons "И1 Рельеф Точки" 5) (cons "И1 Координатная сетка" 94) (cons "И1 Линии Ситуации" 7) (cons "И1 Рельеф Поверхность" 132) (cons "И1 Блоки Разные" 7) (cons "И1 Блоки Растительности" 92) иначе (если заместо DEFAULT написано что либо другое) имя слоя И1 Рельеф Горизонтали основные утолщенные(пробел) и то что заместо DEFAULT например слой - GOR_B122-125 переименовывается в - И1 Рельеф Горизонтали основные утолщенные 122-125 а слой - GOR_BDEFAULT переименовывается в - И1 Рельеф Горизонтали основные утолщенные |
|||
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Нужен Лисп для перевода цвета объекта | ilka_t | LISP | 28 | 25.01.2022 16:04 |
Для чего нужны фильтры слоев?Как ими пользоваться? | Aysulu | AutoCAD | 43 | 17.04.2019 10:59 |
Лисп для копирования данных нескольких мтекстов по принципу расположения. | Red Nova | LISP | 14 | 18.06.2008 22:08 |
Как удалять слои???????? | Абдула | AutoCAD | 2 | 03.10.2005 19:07 |