/

23 tháng 9, 2013

Chèn điểm point vào tâm hình tròn, Text, Line, block...

Chèn điểm point vào tâm hình tròn, Text, Line, block...

(defun c:vlisp ()
    (while
        (if (setq ent (car (entsel)))
            (progn
                (if (setq pt (cdr (assoc 10 (entget ent))))
                    (progn
                        (command "POINT" pt)
                        pt
                    )
                )
            )
        )
    )
    (princ)
)