Lisp đổi chiều Polyline trong AutoCAD 2007 | AutoLISP Reviewer

Ứng dụng được phát triển/Sưu tầm bởi đội ngũ AutoLISP Thật là đơn giản

   

AutoCAD đời mới có sẵn Option Reverse trong lệnh PEDIT

Thông tin thêm: 👉👉👉

LỆNH REP 

Dùng để đảo chiều Polyline đối với AutoCAD 2007 và các phiên bản PEDIT chưa có option Reverse.

1 Thêm class AJS_.lsp

Lưu mã sau dưới dạng tệp tin AJS_.lsp

Code:

(defun c:REP( / c10 tt)
 (setq 
tt (entget (car (entsel "\nHay pick vao mot Polyline: ")))
c10 (reverse (vl-remove-if '(lambda (x) (/= (car x) 10)) tt))
tt (mapcar '(lambda (x) (if (= 10 (car x)) (setq e (car c10) c10 (cdr c10) e e) x)) tt)
 )
 (entmod tt)
 (princ)
)
(vl-load-com)

Link tải (MediaFire)

📥 https://www.mediafire.com/

---------------------------------------------------------------------------------------------

Ứng dụng được phát triển bởi đội ngũ AutoLISP Thật là đơn giản - Tác giả ứng dụng in D2P

    

Mọi thông tin xin liên hệ Fanpage AutoLISP Thật là đơn giản!

Cảm ơn bạn đã theo dõi!