如。
(defun c:MKLayer(/layers data)(setq layers’((“SAMPLE”001 SAMPLE Project-“140”Continuous”)(“CURRENT”002 CURRENT Project-“4”Continuous”)(“TEST”003测试系统-“4”Continuous”))(cond)((not(setq data(cdr)(assoc(car)(AT:ListSelect“选择层过滤器名称以创建层”)“20 15”假“(vl排序(mapcar‘car layers)”
页:
1
[2]