[АлексЮстасу]

Добрый человек прислал ссылку http://www.4d-technologies.com/techcenter/index.htm, в которой много готовых лисп-функций.
Как не программисту ими воспользоваться?
Какой-то минимум, наверное, и не программист может дописывать, чтобы подобное использовать? Или вряд ли?
Например из http://www.4d-technologies.com/techcenter/index.htm:

Код:

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

 ;; | ---------------------------------------------------------------------------
;; | AM_GetTmpTable
;; | ---------------------------------------------------------------------------
;; | Function : Returns the name of an un-used object table that can be used as
;; |            a temporary table
;; | Arguments: (none)
;; | Returns  : An available name of object table
;; | Updated  : May 6, 2001
;; | (C) 1999-2004, Four Dimension Technologies, Bangalore
;; | e-mail   : rakesh.rao@4d-technologies.com 
;; | Web      : www.4d-technologies.com
;; | ---------------------------------------------------------------------------


(defun AM_GetTmpTable( / tmp cnt More )

(setq
	cnt 1
	More T
)
(while More
	(if (ade_odtabledefn (setq tmp (strcat "$TEMP$" (itoa cnt))))
		(setq cnt (1+ cnt))
		(setq More nil)
	)
)
(if (not More) tmp nil)
)

Или из http://www.4d-technologies.com/techcenter/index.htm:

Код:

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

 ;; | ---------------------------------------------------------------------------
;; | AM_CopyObjectData
;; | ---------------------------------------------------------------------------
;; | Function : Copies all object data from one entity to another
;; | Arguments: 'srcEname' - Source entity name
;; |            'tgtEname' - Target entity name
;; | Comments : All object data in all tables attached to the source entity will
;; |            be copied to the target entity
;; | Updated  : July 10, 2005
;; | e-mail   : rakesh.rao@4d-technologies.com 
;; | Web      : www.4d-technologies.com
;; | ---------------------------------------------------------------------------


(defun AM_CopyObjectData( srcEname tgtEname / TableLst )
(setq TableLst (AM_GetTables srcEname))

(foreach Table TableLst
	(setq Lst (AM_GetTableData srcEname Table))
	(if Lst
	(progn
		(AM_PutTableData tgtEname Lst Table "Overwrite")
		(if #Verbose (princ (strcat "\n" (itoa (length Lst)) " record(s) of table " Table " transferred.")))
	))
)
)

[ShaggyDoc]

Как не программисту ими воспользоваться?

"Не программисту" функции не нужны. А программист (пусть "простой инженер") может использовать их в своих функциях и всё вместе - в своих "программах" (которые также являются функциями).

Для практического использования надо собирать из подобных функций библиотеку - файл, в котором собраны определения всех функций, но нет вызовов их на исполнение. Далее надо обеспечить автоматическую загрузку этого файла, например включением его загрузки в acaddoc.lsp. Тогда каждая такая функция будет доступна так же, как и штатные.

Подробно все это писано в книге "САПР на базе AutoCAD - как это делается".

Какой-то минимум, наверное, и не программист может дописывать, чтобы подобное использовать? Или вряд ли?

Разумеется, может. И не минимум. Как раз подавляющее большинство "лиспов" написаны инженерами, не имеющими специального программисткого образования. Надо только рационально организовать сам процесс разработки, чтобы в результате использования библиотеки функций "конечные программы" были простыми и короткими.

А функции с http://www.4d-technologies.com/ можно использовать как прекрасные образцы - хотя снобы и будут морщить носики - "фи, #Verbose, фи, setq".
Их там много, надо все себе утащить. Именно все, потому что нельзя будет использовать AM_CopyObjectData если в библиотеке не будет функций AM_GetTables, AM_GetTableData, AM_PutTableData. А в них наверняка могут тоже использоваться еще какие-то нештатные функции.