|
||
| Правила | Регистрация | Пользователи | Сообщения за день | | Поиск | | Справка по форуму | Файлообменник | |
|
Поиск в этой теме |
18.12.2018, 10:36 | #1 | |
Vb.net Как послать в кад diesel команду
новичок
Ярославль
Регистрация: 19.06.2005
Сообщений: 3,396
|
||
Просмотров: 10522
|
|
||||
Регистрация: 10.08.2013
Сообщений: 11,049
|
ну если внешнее приложение на vbnet, то работайте через COM-модель. Если внутреннее - через Interop/ApiNet. Если есть возможность, надо избегать использования комстроки - хотя бы в силу того, что это односторонний процесс: засылаете строки на исполнение без всякой обратной связи и контроля.
|
|||
|
||||
КЖ; C# Регистрация: 03.11.2005
Санкт-Петербург
Сообщений: 2,589
|
p_sh, ключевой вопрос зачем всё это делать?
Чтение и установка системных переменных выполняется вот так: Код:
Код:
Пытался себя заставить этот код перекинуть а VB.NET .... не смог, глаза кровоточить начинают =) Последний раз редактировалось Boxa, 18.12.2018 в 11:24. |
|||
|
||||
новичок Регистрация: 19.06.2005
Ярославль
Сообщений: 3,396
|
Цитата:
команду пишет сам пользователь. вообще можно разложить команду разделенную запятыми на отдельные команды и выдать по отдельности в командную строку. |
|||
|
||||
КЖ; C# Регистрация: 03.11.2005
Санкт-Петербург
Сообщений: 2,589
|
Цитата:
И еще тут почитайте: https://sites.google.com/site/bushma...tringtoexecute Код:
Последний раз редактировалось Boxa, 18.12.2018 в 12:52. |
|||
|
||||
Регистрация: 10.08.2013
Сообщений: 11,049
|
Цитата:
|
|||
|
||||
Регистрация: 26.12.2011
Сообщений: 2
|
На LISP проще, но надо знать команда и их параметры - создание слоя с цветом розовый типом линии сплошная и толщиной 0.15
(command "_.LAYER" "_M" "1_КАРТА" "_C" 6 "" "_LT" "continuous" "" "_LWEIGHT" 0.15 "" "");цвет розовый эту строку в Сервис->Адаптация->Интерфейс в правой части таблицы с параметрами кнопки вставить как макрос На VBA строчка для команды сложнее - создание слоя с цветом розовый (другие параметры по аналогии Chr(34)-кавычки и Chr(13) + Chr(10)-Enter Sub q1() AutoCAD.Application.ActiveDocument.SendCommand ("(command " & Chr(34) & "_.LAYER" _ & Chr(34) & " " & Chr(34) & "_M" & Chr(34) & " " & Chr(34) & "R_НовыйСлой1" _ & Chr(34) & " " & Chr(34) & "_C" & & " 6)" & Chr(13) + Chr(10) & Chr(13) + Chr(10)) End Sub |
|||
|
||||
Регистрация: 10.08.2013
Сообщений: 11,049
|
действительно - зачем проверять наличие слоя в таблице слоев, когда можно просто пытаться каждый раз создавать слой заново, игнорируя ошибки)
|
|||
|
||||
новичок Регистрация: 19.06.2005
Ярославль
Сообщений: 3,396
|
разбив строку типа (как исходные данные)(CELTSCALE;50;CELTYPE;bylayer;Clayer;опалубка;CECOLOR;bylayer;CELWEIGHT;25;_line) на отдельные команды запускаю каждую
app.ActiveDocument.SendCommand("CELTSCALE" & vbCr) app.ActiveDocument.SendCommand("50" & vbCr) и т.д. |
|||
|
||||
КЖ; C# Регистрация: 03.11.2005
Санкт-Петербург
Сообщений: 2,589
|
Я это в самом начале написал, как считать значения, как изменить/восстановить... но у автора действительно свой путь.
|
|||
|
||||
новичок Регистрация: 19.06.2005
Ярославль
Сообщений: 3,396
|
Цитата:
а в 2019x64 работает acdoc.SendStringToExecute("CELTSCALE" & vbCr, True, False, True) acdoc.SendStringToExecute("50" & vbCr, True, False, True) Цитата:
Задача кнопки просто их выполнить. Если у вас есть решение более элегантное, то я буду рад позаимствовать. |
|||
|
||||
Регистрация: 10.08.2013
Сообщений: 11,049
|
Цитата:
|
|||
|
||||
Регистрация: 10.08.2013
Сообщений: 11,049
|
Пользоваться не обязательно - но представление то иметь нужно: Создание и использование инструментов-команд
|
|||
|
||||
КЖ; C# Регистрация: 03.11.2005
Санкт-Петербург
Сообщений: 2,589
|
|
|||
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Diesel. Как передать значение атрибута? | DANZZ | Программирование | 2 | 21.12.2023 14:23 |
Diesel. Значения поля не работают внутри diesel | wetr | Программирование | 15 | 06.08.2014 15:43 |
Как заставить прозрачную команду на ЛИСП возвращать значение | 480725 | LISP | 10 | 17.06.2014 01:43 |
LISP. Как закончить циклическую команду (послать ей ESC)? | WhiteShark | LISP | 15 | 13.01.2014 22:24 |
vb.net, AutoCAD + windows form | Gelia | .NET | 6 | 23.03.2012 22:14 |