[xsakabsx]

Как вместо переменной вставить функцию как аргумент ??

Код:

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

 
(defun xxx (a b)
  (princ a)
  (b)
  (princ)
)

(defun yyy ()
(command "_.zoom" "_all")
)

как вызвать функцию xxx чтобы вместо переменной b вставилась функция yyy

[Дима_]

ну таки и вызови

Код:

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

(xxx 10 yyy)

а вобще для передачи "напрямую":

Код:

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

(xxx 10 (lambda () (command "_.zoom" "_all")))

более того в лиспе ничто не запрещает сделать функцию, которая, не только принимает другую в качестве аргумента, но и возращает функцию - иногда - за счет этих двух приемов мне удавалось примерно вдвое сократить объем кода.

[Лиспер]

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

А можно полюбопытствовать примерчиком?

[Дима_]

поверь их не мало и достаточно большие - выравать куски не буду - просто долго объяснять что-там к чему - вот тебе классический пример (который я тоже кстати не раз использовал) - есть список (lst) списков одинаковой длинны (таблица) - поменять местами строки со столбцами:

Код:

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

(apply 'mapcar (cons 'list lst))

попробуй написать "по своему" так, чтоб, не более чем в 2 раза длиней.

[Лиспер]

Дима_, я не стесняюсь учиться Мне было просто интересно.

[xsakabsx]

немного уточню вопрос
у меня сейчас так

Код:

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

(defun eql_mr_export ()
  (showall)
  (setq name (getvar 'dwgname))
  (setq path (getvar 'dwgprefix))
  (setq prefix "eql_mr")
  (setq fullname (strcat path name))
  (setq	exportfilename
	 (vl-string-subst
	   (strcat "_"  prefix  ".dwg")
	   ".dwg"
	   fullname
	   0
	 )
  )
  (all_off)
  (eql-mr_on)
  (rus_on)
  (command "_regen")
  (vl-file-delete exportfilename)
  (princ exportfilename)
  (setvar 'FILEDIA 0)
  (command "_.wblock" exportfilename "*")
  (setvar 'FILEDIA 1)
  (princ)
)

функцию (eql-mr_on) мне надо передать как аргумент (сама эта функция переключает слои как мне нужно)

я так и не смог понять как её вставлять аргументом (

подскажите люди умные !
буду очень признателен

[Дима_]

(defun функция_куда_надо_передать (F)
...
(F аргумент1 аргумент2...)
...)

(функция_куда_надо_передать eql-mr_on)

[xsakabsx]

to Дима_
тоесть как то так

Код:

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

 (defun eql_mr_export (insertfunc)
  (showall)
  (setq name (getvar 'dwgname))
  (setq path (getvar 'dwgprefix))
  (setq prefix "eql_mr")
  (setq fullname (strcat path name))
  (setq	exportfilename
	 (vl-string-subst
	   (strcat "_"  prefix  ".dwg")
	   ".dwg"
	   fullname
	   0
	 )
  )
  (all_off)
  insertfunc или так (insertfunc) немножко не понял
  (rus_on)
  (command "_regen")
  (vl-file-delete exportfilename)
  (princ exportfilename)
  (setvar 'FILEDIA 0)
  (command "_.wblock" exportfilename "*")
  (setvar 'FILEDIA 1)
  (princ)
)

а вызывать (eql_mr_export eql-mr_on )

[Дима_]

функция вызывается в скобках

[xsakabsx]

понял буду пробовать