一個方便,實用,能列出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函數庫查詢辭典