取填充点表

尘缘一生

有时候需要取得实体点表，

• ;取填充点表----(一级)------
• ;;nam 填充实体名 返回：点表 by 尘缘一生 QQ：15290049
• (defun getpt-hatch (nam / ent plst pt en)
•   (setq  ent (vl-remove-if '(lambda (en) (null (member (car en) '(10 11)))) (entget nam)))
•   (setq plst '())
•   (foreach en ent
•     (if (> (distance (setq pt (cdr en)) '(0.0 0.0 0.0)) 0)
•       (setq plst (cons pt plst))
•     )
•   )
•   plst
• )
  

希望谁能提供，取各种标注的点表，也就是各种“穴点”

下文没句号。

填充的可以哦哦