列出AutoCAD內(nèi)部函數(shù)

時(shí)間:2010-11-18 21:43:14 來源:未知

一個(gè)方便,實(shí)用,能列出AutoCAD內(nèi)部函數(shù)的小程序

(defun c:test ()
(setq funn (getstring "nFunction Name <*>: "))
(if (= funn "")(setq funn "*"))
(setq fl (vl-remove-if-not
(function (lambda (i)(wcmatch i (strcase funn))))
(atoms-family 1)
)
)
(if fl
(foreach i (acad_strlsort fl)(write-line i))
(alert "no function definition!")
)
(princ)
)