Chèn điểm point vào tâm của đường tròn

[chien_pecc1 0]

Help me!!!!!!!

 

Mình có một số đường tròn đều có tọa độ x, y, z của tâm đường tròn đó. Bây giờ mình muốn chèn các điểm vào đúng tâm của đường tròn đó và nhận tọa độ của tâm làm tọa độ của point.

Hãy giúp mình viết lisp để thực hiện công đoạn này!

Xin cảm ơn!

[Nguyen Hoanh 4670]

Help me!!!!!!!

 

Mình có một số đường tròn đều có tọa độ x, y, z của tâm đường tròn đó. Bây giờ mình muốn chèn các điểm vào đúng tâm của đường tròn đó và nhận tọa độ của tâm làm tọa độ của point.

Hãy giúp mình viết lisp để thực hiện công đoạn này!

Xin cảm ơn!

 

Lệnh là CHENP

(defun c:chenp ( / ss ent)
 (setq ss (ssget '((0 . "CIRCLE"))))
 (while (setq ent (ssname ss 0))
(setq ss (ssdel ent ss))
(entmake (cons (cons 0 "POINT") (vl-remove-if '(lambda(x) (member (car x) '(0 100 5 40))) (entget ent))))
 )
 (princ)
)