[Дмитрий-конструктор]

Может кто сталкивался с проблемой. Есть программа PBLock Владимира Клещёва версии от 2007 года. http://wiki.lblss.ru/pblock.lsp.20070204
Имеется свой файл адаптации к которому хочется добавить на кнопки с макросами запуска PBLock. Скажем на выноску в одну строку макрос ^C^C(if (eq pblock nil) (load "pblock.lsp"));_.pblock;_o;
Но на своем файле адаптации не работает. При выполнении команды с кнопки:
Команда:
Enter option? [Multiple/Lines/Rectangle/Circle/OneString/TwoString/XY/2XY/Edit/AddLeader] <Lines>:
Однако, ошибка... ActiveX Server возвратил ошибку: Параметр является обязательным ERRNO=0

Но стоит подгрузить файл mnu http://wiki.lblss.ru/pblock16.mnu.20041006 и не добавлять панель с кнопками в рабочее пространство, а вызывать из своей панели- уже все начинает работать.

Кажется ошибка где то в "Основном блоке программы".

____________________________________________

Код:

[Выделить все]

 ;;        *** Основной блок программы ***
  (defun pbl_main (bord / hmul)              ; ***   НАЧНЕМ...   ***
    (setq doc (vla-get-activedocument (vlax-get-acad-object)))
    (vla-startundomark doc)             ; начнем группу для отмены командой _.U
    ;; сохранение и установка переменных
    (setq mode1   (vk_modes '("cmdecho" "blipmode" "limcheck" "ucsfollow" "celtype" "textstyle" "pickfirst"))
          mode2   (vk_modes '("osmode" "snapmode")) ; эти будут меняться часто
          mode3   (vk_modes '("cecolor" "clayer" "celweight" "celtype")) ; цвет, слой, толщина и тип линии
          modezer '("osmode" 0 "snapmode" 0)
          modeset (list "cmdecho"
                        0
                        "blipmode"
                        0
                        "limcheck"
                        0
                        "ucsfollow"
                        0
                        "celtype"       ; тип линий "CONTINUOUS"
                        "CONTINUOUS"
                        "textstyle"     ; стиль текста как в стиле размера
                        (getvar "dimtxsty")
                        "cecolor"       ; цвет byblock,
                        "0"
                        "clayer"        ; текущий слой "0",
                        "0"
                        "celweight"     ; толщина линии byblock для примитивов блока
                        -2
                        "celtype"       ; тип линии
                        "ByBlock"
                        "pickfirst"     ; очистим текущий выбор
                        1
                  ) ;_  list
    ) ;_  setq
......
____________________________________________________

Ссылка на все файлы программы http://wiki.lblss.ru/Pblock

[Александр Ривилис]

Подозреваю, что разница в том, что если не загружен mnu-файл, то и не грузится pblock16.mnl - его нужно загрузить любым способом.

[hwd]

Offtop: Может всё таки AutoCAD 2013, а не AutoCAD 13? Это две большие разницы...

[gomer]

Сообщение от Дмитрий-конструктор Есть программа PBLock Владимира Клещёва

Вы, батенька, извращенец, за то и наказаны, нечего расчлененкой заниматься. А афтар тоже лопух, столько умных буков, а дефолтные значения в программе не прописал

[Олег (jr.)]

Сообщение от gomer Вы, батенька, извращенец, за то и наказаны, нечего расчлененкой заниматься. А афтар тоже лопух, столько умных буков, а дефолтные значения в программе не прописал

Offtop: Если ты имеешь в виду Владимира Клещёва я был бы рад
если бы ты дорос до его уровня хотя бы лет через пять

[Дмитрий-конструктор]

Сообщение от Александр Ривилис Подозреваю, что разница в том, что если не загружен mnu-файл, то и не грузится pblock16.mnl - его нужно загрузить любым способом.

- в этом и оказалась проблема. Спасибо