Не работает скрипт kpblc-vlr.LSP в английском 2006-м акаде
Реклама i
| Правила | Регистрация | Пользователи | Сообщения за день |  Справка по форуму | Файлообменник |

Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > LISP > Не работает скрипт kpblc-vlr.LSP в английском 2006-м акаде

Не работает скрипт kpblc-vlr.LSP в английском 2006-м акаде

Ответ
Перейти к новому Перейти к новому  
Поиск в этой теме
Непрочитано 23.06.2008, 12:45 #1
Не работает скрипт kpblc-vlr.LSP в английском 2006-м акаде
Witalij
 
AL-остекление, фасадка, оконка
 
Москва
Регистрация: 25.07.2007
Сообщений: 113
У Крыс-а был скрипт по разносу размеров, штриховок и текстов по слоям. Работал в русском 2006 Акаде. Только что Акад переставили - английский теперь - скрипт не работает
Код:
[Выделить все] 
 
(if (not *kpblc-activedoc*)
  (setq *kpblc-activedoc* (vla-get-activedocument (vlax-get-acad-object)))
  ) ;_ end of if
(if *vlr-cmd*
  (progn
    (setq *vlr-cmd* nil)
    (vlr-remove-all :vlr-command-reactor)
    ) ;_ end of progn
  ) ;_ end of if
(if (not *vlr-cmd*)
  (setq *vlr-cmd* (vlr-command-reactor
      "cmd"
      '(
        (:vlr-commandwillstart . cmd-start)
        (:vlr-commandended . cmd-end)
        (:vlr-commandcancelled . cmd-cancel)
        (:vlr-commandfailed . cmd-fail)
        )
      ) ;_ end of VLR-Command-Reactor
 ) ;_ end of setq
  ) ;_ end of if
;; Функция подгрузки типа линии - на http://www.autocad.ru/cgi-bin/f1/board.cgi?t=22730iW
;|=============================================================================
*    Создание слоя с указанными параметрами.
*    Параметры вызова:
*   layer-list   список параметров слоя вида:
   '(("name" . "TestLayer")   ; имя слоя. Не может быть пропущено
   ("color" . 3)         ; номер цвета. nil -> 7
   ("lw" . 50)         ; вес линии слоя. nil -> 25
   ("lt" . "hidden")      ; тип линии слоя. nil -> Continuous
               ; Если описания типа линии в acadiso.lin
               ; нет, обязательно указывать следующий
               ; параметр
   ("ltfile" . "c:\\cad\\ltypes\\lt.lin")   ; полный путь к файлу с описанием
               ; типа линии. Если файл находится в путях
               ; поддержки, путь можно не указывать
   ("plot" . "y")         ; Печатать ("y") или нет ("n") слой.
               ; nil -> "y"
   )
*    Возвращает vla-указатель на созданный слой. Если слой существует, его
* настройки приводятся в соответствие с переданным списком.
*    Слой размораживается, разблокируется и включается. Не активируется.
|;
(defun _kpblc-layer-create (layer-list / vla_layer)
  (setq vla_layer
  (vla-add
    (vla-get-layers *kpblc-activedoc*)
    (cdr (assoc "name" layer-list))
    ) ;_ end of vla-add
 ) ;_ end of setq
  (vla-put-color
    vla_layer
    (if (cdr (assoc "color" layer-list))
      (cdr (assoc "color" layer-list))
      7
      ) ;_ end of if
    ) ;_ end of vla-put-color
  (vla-put-lineweight
    vla_layer
    (if (cdr (assoc "lw" layer-list))
      (cdr (assoc "lw" layer-list))
      aclnwt025
      ) ;_ end of if
    ) ;_ end of vla-put-lineweight
  (if (and (cdr (assoc "lt" layer-list))
    (_kpblc-linetype-load
      (cdr (assoc "lt" layer-list))
      (cdr (assoc "ltfile" layer-list))
      ) ;_ end of _kpblc-linetype-load
    ) ;_ end of and
    (vla-put-linetype vla_layer (cdr (assoc "lt" layer-list)))
    (vla-put-linetype vla_layer "Continuous")
    ) ;_ end of if
  (vla-put-plottable
    vla_layer
    (if (= (cdr (assoc "plot" layer-list)) "n")
      :vlax-false
      :vlax-true
      ) ;_ end of if
    ) ;_ end of vla-put-Plottable
  (vla-put-lock vla_layer :vlax-false)
  (vla-put-layeron vla_layer :vlax-true)
  (if (not (equal (vla-get-activelayer *kpblc-activedoc*)
    vla_layer
    ) ;_ end of equal
    ) ;_ end of not
    (vla-put-freeze vla_layer :vlax-false)
    ) ;_ end of if
  vla_layer
  ) ;_ end of defun
(defun cmd-start (react    cmd     /      selset   cmd_name ent
    svr    res     tag      text     index    _attreq_
    _attdia_
    )
  (setq cmd_name (strcase (car cmd) t))
  (cond
    ((vl-string-search "dim" cmd_name)
     (setq *vlr-settings*
     (list (cons "layer"
   (vla-get-activelayer *kpblc-activedoc*)
   ) ;_ end of cons
    (cons "color" (getvar "cecolor"))
    (cons "lw" (getvar "celweight"))
    (cons "lt" (getvar "celtype"))
    ) ;_ end of list
    ) ;_ end of setq
     (vla-put-activelayer
       *kpblc-activedoc*
       (_kpblc-layer-create
  '(("name" . "Размеры")
    ("color" . 5)
    ("lw" . 15)
    )
  ) ;_ end of _kpblc-layer-create
       ) ;_ end of vla-put-ActiveLayer
     (mapcar 'setvar
      '("cecolor" "celweight" "celtype")
      '("bylayer" -1 "bylayer")
      ) ;_ end of mapcar
     )
    ((vl-string-search "hatch" cmd_name)
     (setq *vlr-settings*
     (list (cons "layer"
   (vla-get-activelayer *kpblc-activedoc*)
   ) ;_ end of cons
    (cons "color" (getvar "cecolor"))
    (cons "lw" (getvar "celweight"))
    (cons "lt" (getvar "celtype"))
    ) ;_ end of list
    ) ;_ end of setq
     (vla-put-activelayer
       *kpblc-activedoc*
       (_kpblc-layer-create
  '(("name" . "Штриховка")
    ("color" . 5)
    ("lw" . 15)
    )
  ) ;_ end of _kpblc-layer-create
       ) ;_ end of vla-put-ActiveLayer
     (mapcar 'setvar
      '("cecolor" "celweight" "celtype")
      '("bylayer" -1 "bylayer")
      ) ;_ end of mapcar
     )
    ((vl-string-search "text" cmd_name)
     (setq *vlr-settings*
     (list (cons "layer"
   (vla-get-activelayer *kpblc-activedoc*)
   ) ;_ end of cons
    (cons "color" (getvar "cecolor"))
    (cons "lw" (getvar "celweight"))
    (cons "lt" (getvar "celtype"))
    ) ;_ end of list
    ) ;_ end of setq
     (vla-put-activelayer
       *kpblc-activedoc*
       (_kpblc-layer-create
  '(("name" . "Текст")
    ("color" . 7)
    ("lw" . 3)
    )
  ) ;_ end of _kpblc-layer-create
       ) ;_ end of vla-put-ActiveLayer
     (mapcar 'setvar
      '("cecolor" "celweight" "celtype")
      '("bylayer" -1 "bylayer")
      ) ;_ end of mapcar
     )
    ) ;_ end of cond
  ) ;_ end of defun
(defun cmd-end (react      cmd   /        list_obj
  selset      item   counter      leader_item
  cmd_name     leader_item_list        up_string
  low_string
  )
  (setq cmd_name (strcase (car cmd) t)
 counter  0
 ) ;_ end of setq
  (cond
    ((or (vl-string-search "dim" cmd_name)
  (vl-string-search "text" cmd_name)
  (vl-string-search "hatch" cmd_name)
  ) ;_ end of or
     (if *vlr-settings*
       (progn
  (vla-put-activelayer
    *kpblc-activedoc*
    (cdr (assoc "layer" *vlr-settings*))
    ) ;_ end of vla-put-ActiveLayer
  (mapcar 'setvar
   '("cecolor" "celweight" "celtype")
   (list (cdr (assoc "color" *vlr-settings*))
         (cdr (assoc "lw" *vlr-settings*))
         (cdr (assoc "lt" *vlr-settings*))
         ) ;_ end of list
   ) ;_ end of mapcar
  (setq *vlr-settings* nil)
  ) ;_ end of progn
       ) ;_ end of if
     )
    ) ;_ end of cond
  ) ;_ end of defun
(defun cmd-cancel (react cmd / cmd_name)
  (setq cmd_name (strcase (car cmd) t))
  (cond
    ((or (vl-string-search "dim" cmd_name)
  (vl-string-search "text" cmd_name)
  (vl-string-search "hatch" cmd_name)
  ) ;_ end of or
     (if *vlr-settings*
       (progn
  (vla-put-activelayer
    *kpblc-activedoc*
    (cdr (assoc "layer" *vlr-settings*))
    ) ;_ end of vla-put-ActiveLayer
  (mapcar 'setvar
   '("cecolor" "celweight" "celtype")
   (list (cdr (assoc "color" *vlr-settings*))
         (cdr (assoc "lw" *vlr-settings*))
         (cdr (assoc "lt" *vlr-settings*))
         ) ;_ end of list
   ) ;_ end of mapcar
  (setq *vlr-settings* nil)
  ) ;_ end of progn
       ) ;_ end of if
     )
    ) ;_ end of cond
  ) ;_ end of defun
;|=============================================================================
*    Функция подгрузки типа линии в текущий файл. Учитывает возможную
* локализацию системы.
*    Параметры вызова:
*  ltype-name  имя типа линии для английской версии
*  ltype-file  имя файла описания типа линии. nil -> "acadiso.lin".
*      Если файл с описанием типа линии не лежит по путям
*      поддержки када, надо указывать полный путь к нему.
*    Примеры вызова:
(_kpblc-linetype-load "center" nil)  ; для русской версии подгружает Осевая и возвращает
                                     ; t при успехе
***  Соответствие наименований линий обеспечивается огромным списком ltype_list
*** который можно и нужно дополнять :) Только надо либо все делать мелкими
*** буквами, либо жестко соблюдать регистр в моменты вызовов.
***  Тип линии "Continuous" обработке не подвергается — он есть во всех версиях
=============================================================================|;
(defun _kpblc-linetype-load
       (ltype-name ltype-file / ltype_normal ltype_list result)
  (vl-load-com)
  (setq ltype_list '(("center" . "осевая")
       ("center2" . "осевая2")
       ("hidden" . "скрытая")
       ("hidden2" . "скрытая2")
       )
 ltype-name (strcase ltype-name t)
 ) ;_ end of setq
  (if (not ltype-file)
    (setq ltype-file "acadiso.lin")
    ) ;_ end of if
  (if (vl-string-search "419" (vlax-product-key))
    ;; Русская версия, меняем имя типа линии
    (setq ltype_normal (cdr (assoc ltype-name ltype_list)))
    (setq ltype_normal ltype-name)
    ) ;_ end of if
  (if (not (tblsearch "ltype" ltype_normal))
    ;; тип линии не найден, надо его загрузить. Тип линии должен быть
    ;; описан в файле
    (setq result (not (vl-catch-all-error-p
   (vl-catch-all-apply
     'vla-load
     (list
       (vlax-get-property
         (vla-get-activedocument (vlax-get-acad-object))
         'linetypes
         ) ;_ end of vlax-get-property
       ltype_normal
       ltype-file
       ) ;_ end of list
     ) ;_ end of vl-catch-all-apply
   ) ;_ end of vl-catch-all-error-p
        ) ;_ end of not
   ) ;_ end of setq
    ) ;_ end of if
  result
  ) ;_ end of defun
Алексей, посмотри плиз, а то я уже привык к скрипту как-то...
__________________
Фасадку черчу...
Просмотров: 2534
 
Непрочитано 23.06.2008, 13:07
#2
Кулик Алексей aka kpblc
Moderator

LISP, C# (ACAD 200[9,12,13,14])
 
Регистрация: 25.08.2003
С.-Петербург
Сообщений: 40,431

Специально только что проверил (ADT2006Eng+SP1). Реактор не срабатывает для текстов, т.к. вес линии задан непонятным: 3. То есть должно быть 0.03, а такого в списке нет. Если надо вес линии 0.3 мм, то задавать требуется 30. Исправленный вариант (извини, но сохранять, прикладывать...- долго):
Код:
[Выделить все] 
(if (not *kpblc-activedoc*)
  (setq *kpblc-activedoc* (vla-get-activedocument (vlax-get-acad-object)))
  ) ;_ end of if
(if *vlr-cmd*
  (progn
    (setq *vlr-cmd* nil)
    (vlr-remove-all :vlr-command-reactor)
    ) ;_ end of progn
  ) ;_ end of if
(if (not *vlr-cmd*)
  (setq *vlr-cmd* (vlr-command-reactor
                    "cmd"
                    '(
                      (:vlr-commandwillstart . cmd-start)
                      (:vlr-commandended . cmd-end)
                      (:vlr-commandcancelled . cmd-cancel)
                      (:vlr-commandfailed . cmd-fail)
                      )
                    ) ;_ end of VLR-Command-Reactor
        ) ;_ end of setq
  ) ;_ end of if
;; Функция подгрузки типа линии - на http://www.autocad.ru/cgi-bin/f1/board.cgi?t=22730iW
;|=============================================================================
*    Создание слоя с указанными параметрами.
*    Параметры вызова:
*   layer-list   список параметров слоя вида:
   '(("name" . "TestLayer")   ; имя слоя. Не может быть пропущено
   ("color" . 3)         ; номер цвета. nil -> 7
   ("lw" . 50)         ; вес линии слоя. nil -> 25
   ("lt" . "hidden")      ; тип линии слоя. nil -> Continuous
               ; Если описания типа линии в acadiso.lin
               ; нет, обязательно указывать следующий
               ; параметр
   ("ltfile" . "c:\\cad\\ltypes\\lt.lin")   ; полный путь к файлу с описанием
               ; типа линии. Если файл находится в путях
               ; поддержки, путь можно не указывать
   ("plot" . "y")         ; Печатать ("y") или нет ("n") слой.
               ; nil -> "y"
   )
*    Возвращает vla-указатель на созданный слой. Если слой существует, его
* настройки приводятся в соответствие с переданным списком.
*    Слой размораживается, разблокируется и включается. Не активируется.
|;
(defun _kpblc-layer-create (layer-list / vla_layer)
  (setq vla_layer
         (vla-add
           (vla-get-layers *kpblc-activedoc*)
           (cdr (assoc "name" layer-list))
           ) ;_ end of vla-add
        ) ;_ end of setq
  (vla-put-color
    vla_layer
    (if (cdr (assoc "color" layer-list))
      (cdr (assoc "color" layer-list))
      7
      ) ;_ end of if
    ) ;_ end of vla-put-color
  (vla-put-lineweight
    vla_layer
    (if (cdr (assoc "lw" layer-list))
      (cdr (assoc "lw" layer-list))
      aclnwt025
      ) ;_ end of if
    ) ;_ end of vla-put-lineweight
  (if (and (cdr (assoc "lt" layer-list))
           (_kpblc-linetype-load
             (cdr (assoc "lt" layer-list))
             (cdr (assoc "ltfile" layer-list))
             ) ;_ end of _kpblc-linetype-load
           ) ;_ end of and
    (vla-put-linetype vla_layer (cdr (assoc "lt" layer-list)))
    (vla-put-linetype vla_layer "Continuous")
    ) ;_ end of if
  (vla-put-plottable
    vla_layer
    (if (= (cdr (assoc "plot" layer-list)) "n")
      :vlax-false
      :vlax-true
      ) ;_ end of if
    ) ;_ end of vla-put-Plottable
  (vla-put-lock vla_layer :vlax-false)
  (vla-put-layeron vla_layer :vlax-true)
  (if (not (equal (vla-get-activelayer *kpblc-activedoc*)
                  vla_layer
                  ) ;_ end of equal
           ) ;_ end of not
    (vla-put-freeze vla_layer :vlax-false)
    ) ;_ end of if
  vla_layer
  ) ;_ end of defun

(defun cmd-start (react    cmd      /        selset   cmd_name ent
                  svr      res      tag      text     index    _attreq_
                  _attdia_
                  )
  (setq cmd_name (strcase (car cmd) t))
  (cond
    ((vl-string-search "dim" cmd_name)
     (setq *vlr-settings*
            (list (cons "layer"
                        (vla-get-activelayer *kpblc-activedoc*)
                        ) ;_ end of cons
                  (cons "color" (getvar "cecolor"))
                  (cons "lw" (getvar "celweight"))
                  (cons "lt" (getvar "celtype"))
                  ) ;_ end of list
           ) ;_ end of setq
     (vla-put-activelayer
       *kpblc-activedoc*
       (_kpblc-layer-create
         '(("name" . "Размеры")
           ("color" . 5)
           ("lw" . 15)
           )
         ) ;_ end of _kpblc-layer-create
       ) ;_ end of vla-put-ActiveLayer
     (mapcar 'setvar
             '("cecolor" "celweight" "celtype")
             '("bylayer" -1 "bylayer")
             ) ;_ end of mapcar
     )
    ((vl-string-search "hatch" cmd_name)
     (setq *vlr-settings*
            (list (cons "layer"
                        (vla-get-activelayer *kpblc-activedoc*)
                        ) ;_ end of cons
                  (cons "color" (getvar "cecolor"))
                  (cons "lw" (getvar "celweight"))
                  (cons "lt" (getvar "celtype"))
                  ) ;_ end of list
           ) ;_ end of setq
     (vla-put-activelayer
       *kpblc-activedoc*
       (_kpblc-layer-create
         '(("name" . "Штриховка")
           ("color" . 5)
           ("lw" . 15)
           )
         ) ;_ end of _kpblc-layer-create
       ) ;_ end of vla-put-ActiveLayer
     (mapcar 'setvar
             '("cecolor" "celweight" "celtype")
             '("bylayer" -1 "bylayer")
             ) ;_ end of mapcar
     )
    ((vl-string-search "text" cmd_name)
     (setq *vlr-settings*
            (list (cons "layer"
                        (vla-get-activelayer *kpblc-activedoc*)
                        ) ;_ end of cons
                  (cons "color" (getvar "cecolor"))
                  (cons "lw" (getvar "celweight"))
                  (cons "lt" (getvar "celtype"))
                  ) ;_ end of list
           ) ;_ end of setq
     (vla-put-activelayer
       *kpblc-activedoc*
       (_kpblc-layer-create
         '(("name" . "Текст")
           ("color" . 7)
           ("lw" . 30)
           )
         ) ;_ end of _kpblc-layer-create
       ) ;_ end of vla-put-ActiveLayer
     (mapcar 'setvar
             '("cecolor" "celweight" "celtype")
             '("bylayer" -1 "bylayer")
             ) ;_ end of mapcar
     )
    ) ;_ end of cond
  ) ;_ end of defun

(defun cmd-end (react        cmd          /            list_obj
                selset       item         counter      leader_item
                cmd_name     leader_item_list          up_string
                low_string
                )
  (setq cmd_name (strcase (car cmd) t)
        counter  0
        ) ;_ end of setq
  (cond
    ((or (vl-string-search "dim" cmd_name)
         (vl-string-search "text" cmd_name)
         (vl-string-search "hatch" cmd_name)
         ) ;_ end of or
     (if *vlr-settings*
       (progn
         (vla-put-activelayer
           *kpblc-activedoc*
           (cdr (assoc "layer" *vlr-settings*))
           ) ;_ end of vla-put-ActiveLayer
         (mapcar 'setvar
                 '("cecolor" "celweight" "celtype")
                 (list (cdr (assoc "color" *vlr-settings*))
                       (cdr (assoc "lw" *vlr-settings*))
                       (cdr (assoc "lt" *vlr-settings*))
                       ) ;_ end of list
                 ) ;_ end of mapcar
         (setq *vlr-settings* nil)
         ) ;_ end of progn
       ) ;_ end of if
     )
    ) ;_ end of cond
  ) ;_ end of defun

(defun cmd-cancel (react cmd / cmd_name)
  (setq cmd_name (strcase (car cmd) t))
  (cond
    ((or (vl-string-search "dim" cmd_name)
         (vl-string-search "text" cmd_name)
         (vl-string-search "hatch" cmd_name)
         ) ;_ end of or
     (if *vlr-settings*
       (progn
         (vla-put-activelayer
           *kpblc-activedoc*
           (cdr (assoc "layer" *vlr-settings*))
           ) ;_ end of vla-put-ActiveLayer
         (mapcar 'setvar
                 '("cecolor" "celweight" "celtype")
                 (list (cdr (assoc "color" *vlr-settings*))
                       (cdr (assoc "lw" *vlr-settings*))
                       (cdr (assoc "lt" *vlr-settings*))
                       ) ;_ end of list
                 ) ;_ end of mapcar
         (setq *vlr-settings* nil)
         ) ;_ end of progn
       ) ;_ end of if
     )
    ) ;_ end of cond
  ) ;_ end of defun

;|=============================================================================
*    Функция подгрузки типа линии в текущий файл. Учитывает возможную
* локализацию системы.
*    Параметры вызова:
*  ltype-name  имя типа линии для английской версии
*  ltype-file  имя файла описания типа линии. nil -> "acadiso.lin".
*      Если файл с описанием типа линии не лежит по путям
*      поддержки када, надо указывать полный путь к нему.
*    Примеры вызова:
(_kpblc-linetype-load "center" nil)  ; для русской версии подгружает Осевая и возвращает
                                     ; t при успехе
***  Соответствие наименований линий обеспечивается огромным списком ltype_list
*** который можно и нужно дополнять :) Только надо либо все делать мелкими
*** буквами, либо жестко соблюдать регистр в моменты вызовов.
***  Тип линии "Continuous" обработке не подвергается — он есть во всех версиях
=============================================================================|;
(defun _kpblc-linetype-load
       (ltype-name ltype-file / ltype_normal ltype_list result)
  (vl-load-com)
  (setq ltype_list '(("center" . "осевая")
                     ("center2" . "осевая2")
                     ("hidden" . "скрытая")
                     ("hidden2" . "скрытая2")
                     )
        ltype-name (strcase ltype-name t)
        ) ;_ end of setq
  (if (not ltype-file)
    (setq ltype-file "acadiso.lin")
    ) ;_ end of if
  (if (vl-string-search "419" (vlax-product-key))
    ;; Русская версия, меняем имя типа линии
    (setq ltype_normal (cdr (assoc ltype-name ltype_list)))
    (setq ltype_normal ltype-name)
    ) ;_ end of if
  (if (not (tblsearch "ltype" ltype_normal))
    ;; тип линии не найден, надо его загрузить. Тип линии должен быть
    ;; описан в файле
    (setq result (not (vl-catch-all-error-p
                        (vl-catch-all-apply
                          'vla-load
                          (list
                            (vlax-get-property
                              (vla-get-activedocument (vlax-get-acad-object))
                              'linetypes
                              ) ;_ end of vlax-get-property
                            ltype_normal
                            ltype-file
                            ) ;_ end of list
                          ) ;_ end of vl-catch-all-apply
                        ) ;_ end of vl-catch-all-error-p
                      ) ;_ end of not
          ) ;_ end of setq
    ) ;_ end of if
  result
  ) ;_ end of defun
Полужирным выделено исправление.
__________________
Моя библиотека lisp-функций
---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума  
 
Автор темы   Непрочитано 23.06.2008, 13:25
#3
Witalij

AL-остекление, фасадка, оконка
 
Регистрация: 25.07.2007
Москва
Сообщений: 113
<phrase 1=

Цитата:
Сообщение от Кулик Алексей aka kpblc Посмотреть сообщение
Специально только что проверил (ADT2006Eng+SP1). Реактор не срабатывает для текстов, т.к. вес линии задан непонятным: 3. Полужирным выделено исправление.
Не, у меня и размеры, и штриховка не переносятся. Может ,в путях что-то не прописано?

Вот что пишет - error: no function definition: VLAX-GET-ACAD-OBJECT
это он пишет после тог, как лисп загрузил.
__________________
Фасадку черчу...
Последний раз редактировалось Witalij, 23.06.2008 в 13:33.
Witalij вне форума  
 
Непрочитано 23.06.2008, 13:32
#4
Кулик Алексей aka kpblc
Moderator

LISP, C# (ACAD 200[9,12,13,14])
 
Регистрация: 25.08.2003
С.-Петербург
Сообщений: 40,431

Размеры и тексты я прогонял - работало (после исправления). Для штриховки просто проверил код - там вроде ошибок не было... Минут через 20 попробую еще разок проверить.
__________________
Моя библиотека lisp-функций
---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума  
 
Автор темы   Непрочитано 23.06.2008, 13:42
#5
Witalij

AL-остекление, фасадка, оконка
 
Регистрация: 25.07.2007
Москва
Сообщений: 113
<phrase 1=

Цитата:
Сообщение от Кулик Алексей aka kpblc Посмотреть сообщение
Размеры и тексты я прогонял - работало (после исправления). Для штриховки просто проверил код - там вроде ошибок не было... Минут через 20 попробую еще разок проверить.
А что с error: no function definition: VLAX-GET-ACAD-OBJECT?
__________________
Фасадку черчу...
Witalij вне форума  
 
Непрочитано 23.06.2008, 13:44
#6
Кулик Алексей aka kpblc
Moderator

LISP, C# (ACAD 200[9,12,13,14])
 
Регистрация: 25.08.2003
С.-Петербург
Сообщений: 40,431

(vl-load-com) в самое начало поставь...
__________________
Моя библиотека lisp-функций
---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума  
 
Автор темы   Непрочитано 23.06.2008, 14:15
#7
Witalij

AL-остекление, фасадка, оконка
 
Регистрация: 25.07.2007
Москва
Сообщений: 113
<phrase 1=

Цитата:
Сообщение от Кулик Алексей aka kpblc Посмотреть сообщение
(vl-load-com) в самое начало поставь...

Биг сенкс!!! Всё заработало!
__________________
Фасадку черчу...
Witalij вне форума  
 
Непрочитано 23.06.2008, 14:21
#8
Кулик Алексей aka kpblc
Moderator

LISP, C# (ACAD 200[9,12,13,14])
 
Регистрация: 25.08.2003
С.-Петербург
Сообщений: 40,431

То есть штриховку не гонять?
__________________
Моя библиотека lisp-функций
---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума  
 
Автор темы   Непрочитано 24.06.2008, 11:37
#9
Witalij

AL-остекление, фасадка, оконка
 
Регистрация: 25.07.2007
Москва
Сообщений: 113
<phrase 1=

Цитата:
Сообщение от Кулик Алексей aka kpblc Посмотреть сообщение
То есть штриховку не гонять?
Не, не надо, спасибо.
__________________
Фасадку черчу...
Witalij вне форума  
Ответ
Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > LISP > Не работает скрипт kpblc-vlr.LSP в английском 2006-м акаде



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Народ -Автокад 2006 работает в Windows Vista? amilu AutoCAD 7 09.06.2010 23:55
Вызов команд с помощью клавы в 2006 акаде Руслан13 AutoCAD 5 07.02.2008 17:07
Ошибка открытия в Акаде 2006 (рус) Alan AutoCAD 5 10.11.2007 23:43
тулбар в 2006 акаде str02 AutoCAD 13 10.01.2007 08:20
Не работает функция поиска в автокад 2006 CеРеГа AutoCAD 6 31.07.2006 16:33

Обратная связь - Вверх