用法
评论
建议
取 消
确 定
(defun pickset:ss-forword-en (en / ss) "将图元 ent 之后的所有图元形成的选择集" "pickset" (if en (progn (setq ss (ssadd)) (while (setq en (entnext en)) (if (not (member (cdr (assoc 0 (entget en))) (quote ("ATTRIB" "VERTEX" "SEQEND")))) (ssadd en ss))) (if (zerop (sslength ss)) (setq ss nil)) ss) (ssget "_x")))
函数库使用说明
应用包
技术支持
统计信息
函数库规模: 733 个
函数库类别: 51 种
上传记录
刷新