一个方便,实用,能列出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)
)
(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)
)
相关文章
- 2021-07-16AutoCAD VBA函数库查询辞典PDF下载
- 2021-07-15AutoCAD LISP VLISP函数库查询辞典PDF下载
- 2015-09-09Raffles办公室室内设计图含效果图下载
- 2015-03-26金螳螂内部细节大样图立面图完整版下载
- 2014-08-18某办公区内部配电房建筑施工图
- 2013-06-20西昌邛海湾麓镇柏乐度假酒店内部装修完整施工图下载
- 2013-04-12别墅自建房立面及内部结构设计图下载
- 2013-02-04某整体衣柜公司内部标准衣柜图(约20套)
- 2012-06-01CAD基础练习题及动画解答下载
- 2012-05-24AutoCAD LISP/VLISP函数库查询辞典