[dextron3]

Для подгрузки лиспа использую такой макрос:

(if (= sum nil) ( Load (findfile "Lisp/sum.lsp"))) comand


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

Макрос:

^C^C_-vbarun comand

а как должен выглядеть максрос с автоматической подгрузкой .dvb ?


Заранее благодарен!

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

Попробуй использовать vla-vbaload или что-то наподобие этого.

[dextron3]

как макрос выглядеть будет то хоть намек?

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

Код:

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

(vl-load-com)
(defun startme()
(vl-vbaload "c:\\myadds\\mydvb.dvb")
)
(startme)

[dextron3]

(vl-load-com)
(defun startme()
(vl-vbaload "C:\\Program Files\\exampl\\Lisp\\РисованиеСварки.dvb")
)
(startme)


Command: (LOAD "C:/Documents and Settings/Admin/Рабочий стол/summa.lsp") nil

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

Так а сам-то VBA-проект загружен или нет?

[Makswell]

Для запуска макроса VBA я сделал примерно так:

Код:

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

(defun c:mydvb ()
  (vl-vbaload (findfile "D:\\PATCH\\mydvb.dvb"))
  (vl-vbarun (strcat (findfile "D:\\PATCH\\mydvb.dvb") "!Module1.mydvb"))
  (princ)
)

[dextron3]

Makswell, работает спасибо,

а для .arx какого вида будет лисп

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

(arxload <Имя файла>)

[dextron3]

Кулик Алексей aka kpblc, это в макрос? прописать

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

Это лисп-код загрузки arx-файла. посмотри в справке функцию arxload - там есть еще один параметр Специально его не упоминал

[Makswell]

Для загрузки ARX'а можно так:

Код:

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

(vla-LoadArx (vlax-Get-Acad-Object) "myarx.arx")

ЗЫ Кстати, для запуска макроса VBA недавно узнал, что есть ещё такой способ:

Код:

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

(defun c:mydvb ()
  (vla-LoadDVB
    (vlax-Get-Acad-Object)
    (findfile "D:\\PATCH\\mydvb.dvb")
  )
  (vla-RunMacro
    (vlax-Get-Acad-Object)
    (strcat (findfile "D:\\PATCH\\mydvb.dvb") "!Module1.mydvb")
  )
  (princ)
)

[dextron3]

Makswell, (vla-LoadArx (vlax-Get-Acad-Object) "myarx.arx")

а как через условие это прописать к примеру:

(if (= total nil) ( Load (findfile "Lisp/total.vlx"))) total

или это с последующем выполнением команды


(if (= sum nil) ( Load (findfile "Lisp/sum.lsp"))) auto

[Makswell]

Наверно как-то так

Код:

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

(if (not (member "myarx.arx" (vlax-safearray->list (vlax-variant-value (vla-ListArx (vlax-Get-Acad-Object)))))) (vla-LoadArx (vlax-Get-Acad-Object) "myarx.arx"))

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

Код:

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

(defun test (file-arx / err)
  (if (not (member (strcase (vl-filename-base file-arx))
                   (mapcar '(lambda (x) (strcase (vl-filename-base x))) (arx))
                   ) ;_ end of member
           ) ;_ end of not
    (arxload file-arx "Не удалось загрузить")
    ) ;_ end of if
  ) ;_ end of defun

То же самое, но без activex Почти без ActiveX

[dextron3]

Command: (if (not (member "Lisp/KSVAuto.arx" (vlax-safearray->list
(vlax-variant-value (vla-ListArx (vlax-Get-Acad-Object)))))) (vla-LoadArx
(vlax-Get-Acad-Object) "Lisp/KSVAuto.arx")) nil


знак
>
смущает

[dextron3]

Кулик Алексей aka kpblc, а где вставлять то что надо загрузить

[Makswell]

Сообщение от dextron3 Command: (if (not (member "Lisp/KSVAuto.arx" (vlax-safearray->list (vlax-variant-value (vla-ListArx (vlax-Get-Acad-Object)))))) (vla-LoadArx (vlax-Get-Acad-Object) "Lisp/KSVAuto.arx")) nil знак > смущает

То, что отмечено выше жирным красным, надо удалить, тогда заработает.

ЗЫ. Не смущайся насчёт ">" - есть такая фунция - vlax-safearray->list

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

Сообщение от dextron3 Кулик Алексей aka kpblc, а где вставлять то что надо загрузить

Если будешь использовать мой лисп, то вызов будет наподобие:

Код:

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

(test "myarx.arx")
; или
(test c:\\files\\arx\\myarx.arx")

На самом деле там в коде для полной гарантии еще не помешало бы проверять находимость файла...

[dextron3]

Makswell, Command: (if (not (member "KSVAuto.arx" (vlax-safearray->list
(vlax-variant-value (vla-ListArx (vlax-Get-Acad-Object)))))) (vla-LoadArx
(vlax-Get-Acad-Object) "Lisp/KSVAuto.arx")) nil

Кулик Алексей aka kpblc, а как и лисп и макрос на одну все на одну кнопку посадить