September 23, 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)
)

Featured Post

Dịch bản vẽ AutoCAD | Google Translator on AutoCAD drawing | AutoLISP Thật là đơn giản

Ứng dụng được phát triển bởi đội ngũ  AutoLISP Thật là đơn giản       Thông tin thêm: 👉👉👉

Popular Posts