如何馈送所选项目

wimal · 发表于 2022-7-6 07:07:57

DCL代码

: popup_list {                         key = "selections";                     value = "5" ;                         }

LISP代码

copy

 (setq NAMES '("M6" "M8" "M10" "M12"                 "M16" "M20" "M24" "M30")
(start_list "selections")                   (mapcar 'add_list NAMES)                   (end_list)
(setq SIZ (atof (get_tile "selections")))
(setq SIZ (fix SIZ))                       (setq SIZ (nth SIZ NAMES))

对话框和AutoLISP-第4部分

作者：Kenny Ramage