用法
评论
建议
取 消
确 定
(defun std:insertpopmenuitems (popupmenu popitems / k tmp) (setq k 0) (mapcar (function (lambda (x / label cmdstr hlpstr subitems tmp) (setq label (car x) cmdstr (cadr x) hlpstr (caddr x) subitems (cadddr x)) (if (= label "--") (vla-addseparator popupmenu (setq k (1+ k))) (if (and label cmdstr) (progn (setq tmp (vla-addmenuitem popupmenu (setq k (1+ k)) label cmdstr)) (vla-put-helpstring tmp hlpstr)) (progn (setq tmp (vla-addsubmenu popupmenu (setq k (1+ k)) label)) (if subitems (std:insertpopmenuitems tmp subitems))))))) popitems))
函数库使用说明
应用包
技术支持
统计信息
函数库规模: 747 个
函数库类别: 52 种
上传记录
刷新
冀公网安备 13050302000400号