(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
-
Hướng dẫn cắt dim trong AutoCAD Link tải miễn phí từ Lisp.vn :
-
Đôi khi AutoCAD không thể hiện được chính xác những gì người dùng mong muốn. Nguyên nhân thường đến từ hàng triệu lần copy S...
-
Đã bao giờ bạn có một danh sách toạ độ XYZ của các điểm cần phải thể hiện trên bản vẽ AutoCAD. List tọa độ trong Excel Hoặc bạn xây...
-
Đặt vấn đề Như đã biết, bản vẽ AutoCAD có 2 mô hình không gian để làm việc là Model và Layout . Thông thường, người ta ha...
-
Nguồn: AutoLISP Reviewer: Cách tắt Show more options trong windows 11 | Enable Disable Show more options in the Context menu Khi Click chuộ...