[batmax]

Добрый день.
Не работает следующий код:

Код:

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

(defun c:mbb ( / ent entobj minp maxp)
  (vl-load-com)
  (setq ent (entlast))
  (setq entobj (vlax-ename->vla-object ent))
  (setq minp (vlax-3D-point '(3.0 4.0 5.0)))
  (setq maxp (vlax-3D-point '(3.0 4.0 5.0)))
  (vlax-invoke-method entobj 'GetBoundingBox minp maxp)
  (setq minp (vlax-safearray->list (vlax-variant-value minp)))
  (setq maxp (vlax-safearray->list (vlax-variant-value maxp)))
  (princ minp)(princ "!!!")(princ maxp)(princ)
)

Пишет при запуске:
(3.0 4.0 5.0)!!!(3.0 4.0 5.0)
Хотя там должны быть другие значения.
То есть я так понимаю, что переменные minp и maxp не изменились при вызове метода GetBoundingBox. В документации по VBA написано, что этот метод возвращает аргументы ПО ССЫЛКЕ.
Как быть в таком случае, ведь в лиспе все переменные передаются по значению ?

[Кулик Алексей aka kpblc]

Попробуй так:

Код:

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

(defun c:mbb ( / ent entobj minp maxp)
  (vl-load-com)
  (setq ent (entlast))
  (setq entobj (vlax-ename->vla-object ent))
  (setq minp (vlax-3D-point '(3.0 4.0 5.0)))
  (setq maxp (vlax-3D-point '(3.0 4.0 5.0)))
  (vlax-invoke-method entobj 'GetBoundingBox 'minp 'maxp)
  (setq minp (vlax-safearray->list (vlax-variant-value minp)))
  (setq maxp (vlax-safearray->list (vlax-variant-value maxp)))
  (princ minp)(princ "!!!")(princ maxp)(princ)
)

Обрати внимание на апострофы.

[Дима_]

Во первых зачем ты передаешь "родную" автокадовскую функцию через vlax-invoke-method (подойдет и vla-getboundingbox),
2 для чего ты устанавливаешь точки minpt и maxpt,
3 в функцию надо передавать не значения установленных тобой точек а имена для заполнения то есть строчку
(vlax-invoke-method entobj 'GetBoundingBox minp maxp)
поменяй на
(vla-GetBoundingBox entobj 'minpt 'maxpt)
а две предыдущие строки вобще смысла не имеют (сотри).
p.s. опаздал - модератор не спит

[Кулик Алексей aka kpblc]

Offtop:

Сообщение от Дима_ модератор не спит

Я сегодня весь день был лишен инета - какие-то проблемы у провайдера. Только-только связь дали...
Поправка: только что сообразил, в коде ошибка:

Код:

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

(vl-load-com)

(defun test (/ ent minp maxp)
  (if (and (setq ent (entlast))
           (setq ent (vlax-ename->vla-object ent))
           (vlax-method-applicable-p ent 'getboundingbox)
           ) ;_ end of and
    (progn
      (vla-getboundingbox ent 'minp 'maxp)
      (princ (strcat "\nPoints :\nMinP : "
                     (vl-princ-to-string (vlax-safearray->list minp))
                     "\nMaxP : "
                     (vl-princ-to-string (vlax-safearray->list maxp))
                     ) ;_ end of strcat
             ) ;_ end of princ
      ) ;_ end of progn
    ) ;_ end of if
  (princ)
  ) ;_ end of defun

[gomer]

Сообщение от Дима_ имена для заполнения то есть строчку

не строчку, а символ

[Дима_]

да запятую я там не поставил - имелось в виду строчку кода (идет со следующей строки)

[batmax]

to kpblc: огромное спасибо за апострофы, синтаксис вполне в духе Лиспа - если нельзя передать переменную по ссылке, что мешает передать (по значению) её символ
to Дима_: в 2007 версии функции vla-getboundingbox (как и вообще всех vla-...) ещё нет.

К тому же пришлось убрать vlax-variant-value. Окончательно код выглядит так:

Код:

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

(defun c:mbb ( / ent entobj minp maxp)
  (vl-load-com)
  (setq ent (entlast))
  (setq entobj (vlax-ename->vla-object ent))
  (vlax-invoke-method entobj 'GetBoundingBox 'minp 'maxp)
  (setq minp (vlax-safearray->list minp))
  (setq maxp (vlax-safearray->list maxp))
  (princ minp)(princ "!!!")(princ maxp)(princ)
)

[Кулик Алексей aka kpblc]

vla-getboundingbox есть как минимум с 2005 версии ))
P.S. Посмотри мой вариант кода из #4, сравни со своим и найди отличия

[Дима_]

Сообщение от batmax to Дима_: в 2007 версии функции vla-getboundingbox (как и вообще всех vla-...) ещё нет.

да прям, проверь еще разок...
p.s. ну и если пошли слова про дух лиспа, то не очень понятно для чего тебе переменные ent и entobj попробуй:

Код:

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

(setq ent (entlast))
  (setq entobj (vlax-ename->vla-object ent))
  (vlax-invoke-method entobj 'GetBoundingBox 'minp 'maxp)

заменить на :

Код:

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

(vla-getboundingbox (vlax-ename->vla-object (entlast)) 'minp 'maxp)

p.p.s опять обогнал