用法
评论
建议
取 消
确 定
(defun block:ssget (blknames lst-attr / ss ss-res) "选择满足指定属性标记及对应值的块\n参数: blknames 块名，或块名列表\n参数: lst-attr 属性名与值的点对表" "满足条件的选择集" "(block:ssget '(\"块1\" \"块2\") '((\"属性1\" . \"值1\")(\"属性2\" . \"值2\")))" (if (= (quote str) (type blknames)) (setq blknames (list blknames))) (setq ss-res (ssadd)) (if (setq lst-ent (pickset:to-list (ssget "x" (quote ((0 . "insert")))))) (foreach ent% lst-ent (if (and (member (block:get-effectivename ent%) blknames) (apply (quote and) (mapcar (quote (lambda (x) (member x (block:get-attributes ent%)))) lst-attr))) (ssadd ent% ss-res)))) (sssetfirst nil ss-res) ss-res)
函数库使用说明
应用包
技术支持
统计信息
函数库规模: 733 个
函数库类别: 51 种
上传记录
刷新
冀公网安备 13050302000400号