取填充点表
有时候需要取得实体点表，[*];取填充点表----(一级)------
[*];;nam 填充实体名 返回：点表 by 尘缘一生 QQ：15290049
[*](defun getpt-hatch (nam / ent plst pt en)
[*](setqent (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
[*])
希望谁能提供，取各种标注的点表，也就是各种“穴点”
填充的可以哦哦
页:
[1]