请教获取填充图案，储存的原点坐标？

sbwdx

请大神帮忙，这样的简单要求，如何实现？
想先选择一个填充图案，然后，获取该填充图案的填充原点坐标，并在图案原点的地方生成一个圆。

start4444

(entmake (list '(0 . "CIRCLE") (cons 10 (cdr (cadr (cadr (assoc -3 (entget (car (entsel"\n选取填充：")) '("ACAD"))))))) (cons 40 100) (cons 62 1)))

半径100，红色圆

sbwdx

start4444 发表于 2020-1-8 14:57
(entmake (list '(0 . "CIRCLE") (cons 10 (cdr (cadr (cadr (assoc -3 (entget (car (entsel"\n选取填充： ...

可以了，老师，谢谢！