Cronus Z的博客

【代码】【VisualLISP 使用ActiveX对象关闭图层】

AutoLisp 加载菜单;; 主要为加载菜单(setq MenuGroupName "菜单名")(defun LoadMenu (/) (setq MenuFileName "菜单名") (setq MenuPath (findfile (strcat MenuFileName ".cuix"))) (if (= nil MenuPath) (progn (setq MenuPath (findfile (strcat MenuFileName ".mnu"))) (if (

(vl-load-com) 加载AutoLISP反应器支持函数和其他 AutoLISP 扩展表操作函数(vl-remove 1 '(1 2 3 4)) 返回值:’(2 3 4) ,函数从列表删除指定数(vl-position 1 '(2 3 1)) 返回值:2 ,函数获得数在列表中位置(vl-sort '(1 1 2 2 3 3) 返回值:’(1 2 3) ,自动去重(vl-l...