Lisp miễn phí chuyển đổi line thành polyline | LTPL Line to Polyline | AutoLISP Reviewer

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

   

Link tải cuối bài viết: 👉👉👉

LTPL Convert line thành Pline

Chuyển đổi các line được chọn thành Polyline

Cách 1 Dùng Lệnh PE

Sử dụng lệnh PE có sẵn trong AutoCAD

1 Sử dụng lệnh PE (PEDIT)

Code:

Tùy chọn M - Multiple

Sau đó chọn toàn bộ các Line cần chuyển đổi. Enter để thực hiện chuyển đổi.

Cách 2 - Dùng lisp Mã nguồn mở

Tải mã nguồn mở lưu thành tệp tin .lsp

2 Thêm tệp tin LTPL by lisp.vn.lsp

Lưu mã sau dưới dạng tệp tin LTPL by lisp.vn.lsp

Code:

(defun c:LTPL ( / ss i e )
  (setvar "PEDITACCEPT" 1)
  (if (setq ss (ssget '((0 . "LINE"))))
    (repeat (setq i (sslength ss))
      (setq e (ssname ss (setq i (1- i))))
      (command "_.pedit" e "_exit")
    )
  )
  (setvar "PEDITACCEPT" 0)
  (princ "From lisp.vn")
  (princ)
)

HDSD mã nguồn mở

Nguồn tham khảo: https://www.autodesk.com/support/technical/article/caas/sfdcarticles/sfdcarticles/How-to-convert-line-to-polyline-in-AutoCAD.html

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!