您的位置:网站首页 > CAD新闻

列出AutoCAD内部函数

时间:2010-11-18 21:43:14 来源:未知

一个方便,实用,能列出AutoCAD内部函数的小程序

(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)
)