Lisp miễn phí cố định Text dim | LD Lock dimension Text | 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

   

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

LD Cố định Text dim

Thay thế giá trị Text trong dim bằng giá trị cố định. Cho phép điều chỉnh Scale/Stretch mà không làm thay đổi giá trị dim.

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

Hướng dẫn sử dụng

Tải lệnh: Sao chép đoạn mã trên, dán vào dòng lệnh (Command Line) của  và nhấn Enter (hoặc lưu thành file .lsp rồi dùng lệnh APPLOAD để tải).

Kích hoạt lệnh: Nhập lệnh LD và nhấn Enter.

Chọn kích thước: Quét chọn các đường kích thước cần khóa và nhấn Enter.

Mã nguồn mở

1 Thêm class LD by AJS_.lsp

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

Code:

(defun c:LD ( / ss i ent obj measure prec txt)
	(princ "Lock dim text by current DIMENSION text value - HN T9/2026")
	(if (setq ss (ssget '((0 . "DIMENSION"))))
		(progn
			(setq i 0)
			(while (< i (sslength ss))
				(setq ent (ssname ss i))
				(setq obj (vlax-ename->vla-object ent))
				;; 1. Lấy giá trị đo thực tế hiện tại
				(setq measure (vlax-get-property obj 'Measurement))
				;; 2. Lấy tên Dimstyle của đối tượng này từ mã DXF 3
				(setq dimstyle (cdr (assoc 3 (entget ent))))
				;; 3. Truy xuất mã DXF 271 (tương đương DIMDEC) từ bảng dữ liệu của Dimstyle đó
				;; Nếu không tìm thấy hoặc trả về cấu hình mặc định, LISP tự hiểu là 2 chữ số thập phân
				(setq dimdec_val (cdr (assoc 271 (tblsearch "DIMSTYLE" dimstyle))))
				(if (not dimdec_val) (setq dimdec_val 2))
				;; 4. Chuyển đổi số đo sang chuỗi văn bản theo đúng độ chính xác của Dimstyle
				(setq txt (rtos measure 2 dimdec_val))
				;; 5. Ghi đè để khóa giá trị
				(vlax-put-property obj 'TextOverride txt)
				(setq i (1+ i))
			)
			(princ (strcat "\nĐã khóa cố định giá trị cho " (itoa (sslength ss)) " kích thước."))
		)
		(princ "\nKhông chọn được đối tượng kích thước nào.")
	)
	(princ "Create by lisp.vn")
	(princ)
)

Khôi phục giá trị Dim

Trường hợp cần khôi phục giá trị dim theo Dimstyle, sử dụng lisp dưới đây =>

 Lisp miễn phí khôi phục giá trị dimension | RD Restore Dimension Text | AutoLISP Reviewer

Lisp dim nhanh QD

Giới thiệu ứng dụng dim nhanh QD

Ứng dụng QD do AJS phát triển!

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!