Последние сообщения

1

Адаптация AutoCAD и вертикальных приложений / Magicad получение свойст выносок

« Последний ответ от power85 16-05-2024, 19:30:23 »

Здравствуйте
Хочу из объекта MAGIDimLine (выноска) программы Magicad (надстройка Autocad) сделать мультивыноску Autocad. Для этого из объекта мне нужно получить текст, положение выноски и положение что она указывает. Прошу подсказать как получить информацию для этого. Много чего перепробовал:
1.Через
(setq mc_obj (vlax-ename->vla-object (car (entsel))))
(vlax-dump-object mc_obj)

Извините, вам запрещён просмотр содержимого спойлеров.

2.По Using MagiCAD COM Interface нужных свойств объекта не нашел.  https://www.dropbox.com/s/zkobivwiuezocaj/Using_MagiCAD_COM_Interface_201311.pdf?e=1
3.В Visual Studio 2022 свойств объекта нужных я не нашел.

Извините, вам запрещён просмотр содержимого спойлеров.

Также вот методы и свойства этого объекта тут сложнее так как много методом. (через GetProperties() и GetMethods() VB NET)

Извините, вам запрещён просмотр содержимого спойлеров.

4.Вот список файлов программы Magicad (надстройка Autocad).

Извините, вам запрещён просмотр содержимого спойлеров.

2

AutoLisp / VisualLISP и DCL / Re: проблема при смене цвта экрана

« Последний ответ от altver 15-05-2024, 19:43:38 »

Нет, к сожалению и Ваш код не рабтает...
Жаль...
Странно!
подождем, может у кого-то будет какая-то идея...
Спасибо!

3

AutoLisp / VisualLISP и DCL / Re: проблема при смене цвта экрана

« Последний ответ от Александр Ривилис 15-05-2024, 19:28:57 »

Должно быть что-то такое:

Код - Auto/Visual Lisp [Выбрать]

1. (defun c:SetBGColor ( / )  
2.  (vl-load-com)
3.  (setq disp (vla-get-display (vla-get-preferences (vlax-get-acad-object))))
4.  
5.    (setq col (vlax-make-variant 0 19))
6.   (vla-put-GraphicsWinModelBackgrndColor disp col)
7.  
8.   (command "-insert" "block-1" "_S" 1 pause 0)
9. )

Но я думаю, что всё-равно код прервется - изменение цвета фона должно прерывать lisp-код. Точнее прерывать ввод от пользователя.

4

AutoLisp / VisualLISP и DCL / Re: проблема при смене цвта экрана

« Последний ответ от altver 15-05-2024, 19:15:22 »

Александр, извините, но не понял...
Можно, пожалуйса, получить пример кода,
задача следующая:
заменить цвет экрана на любой другой (black например)
и загрзить блок в чертеж с паузой в конце загрузки:
(command "-insert" "block" "_S" 1 pause 0)
Спасибо!

5

AutoLisp / VisualLISP и DCL / Re: проблема при смене цвта экрана

« Последний ответ от Александр Ривилис 15-05-2024, 18:21:37 »

что значит ответ "vlax-vbdouble"

Это я поставил под сомнение тип данных. Судя по примеру из документации он должен быть равен 19. А color в твоем примере - это не индексный цвет, а RGB-цвет в виде целого числа (в примере в документации это было 127, т.е. 127,0,0)
У меня по умолчанию цвет экрана такой:

Т.е. RGB соответствует {33,40,48}. И программа из документации выдает значение 3156001, что соответствует 48*256*256+40*256+33

6

AutoLisp / VisualLISP и DCL / Re: проблема при смене цвта экрана

« Последний ответ от altver 15-05-2024, 10:43:05 »

что значит ответ "vlax-vbdouble"

7

AutoLisp / VisualLISP и DCL / Re: проблема при смене цвта экрана

« Последний ответ от Александр Ривилис 15-05-2024, 00:49:44 »

vlax-vbdouble

8

AutoLisp / VisualLISP и DCL / Re: проблема при смене цвта экрана

« Последний ответ от altver 14-05-2024, 19:19:17 »

я пробовал в безопасном режме, но ничего не получается

Код - Auto/Visual Lisp [Выбрать]

1. (defun c:SetBGColor (Color /)  
2.  (vl-load-com)
3.  (setq disp (vla-get-display (vla-get-preferences (vlax-get-acad-object))))
4.  
5.    (setq col (vlax-make-variant color vlax-vbdouble))
6.   (vla-put-GraphicsWinModelBackgrndColor disp Col)
7.  
8.   (command "-insert" "block-1" "_S" 1 pause 0)
9. )
10.  

9

AutoLisp / VisualLISP и DCL / Re: проблема при смене цвта экрана

« Последний ответ от Алексей Кулик 14-05-2024, 17:11:14 »

Строка (vla-put-GraphicsWinModelBackgrndColor ACADPref (vlax-make-variant 127 19)) как бы намекает, что надо передавать не число, а безопасный массив, мне кажется

10

AutoCAD .NET API / Re: AutoCAD 2025 - переползаю на Net8

« Последний ответ от avc 14-05-2024, 17:07:05 »

Net6 должен под 2025 запуститься. Если только конфликты версий общих библиотек не вызовут ошибок (общих с Автокадом и другими плагинами).
А 2024 тут вообще ни при делах. Там только Net Framework