Nhờ viết hộ lisp đổi Linetype Scale. Thanh you so much!

[A Tan 0]

Có một chút yêu cầu: 

- quét chọn được một hoặc nhiều đối tượng

- sử dụng lệnh trước hoặc sau khi quét chọn

- gõ lệnh là đổi linetype scale(lts) luôn (VD: lệnh 05 đổi lts là 0.5;  2 đổi lts là 2..... )

cảm ơn mọi người đã đọc.

[ketxu 3007]

Mình đã đọc rồi. K có gì đâu, bạn đừng khách sáo quá ^^

[Nguyễn Hà Huy 48]

lên xài lệnh CELTSCALE để vẽ chứ dùng LTS copy ra file khác là nét đứt thành nét liền hết, khó tận dụng thư viện

[vietduc147258 104]

Vào lúc 25/5/2025 tại 15:09, A Tan đã nói:

Có một chút yêu cầu: 

- quét chọn được một hoặc nhiều đối tượng

- sử dụng lệnh trước hoặc sau khi quét chọn

- gõ lệnh là đổi linetype scale(lts) luôn (VD: lệnh 05 đổi lts là 0.5;  2 đổi lts là 2..... )

cảm ơn mọi người đã đọc.

Bạn viết thêm chữ LTS làm mọi người hiểu nhầm.

Chỉ thay đỏi Linetype Scale của đối tượng được chọn thôi.

Thấy bạn có lisp rồi nhưng lại xoá bài. Nay đưa cái này bạn dùng thử.

;;Tham khảo: https://forums.augi.com/showthread.php?168172-Change-Linetype-Scale-LISP
(defun ltschange ( nlts / ss i sn obj)
  (vl-load-com)
  (if (setq ss (ssget))
    (repeat (setq i (sslength ss))
      (setq sn (ssname ss (setq i (1- i))))
      (setq obj (vlax-ename->vla-object sn))
      (vla-put-LinetypeScale obj nlts)
    )
  )
 (princ)
)
(defun c:05 (/ nlts) (ltschange 0.5))
(defun c:5 (/ nlts) (ltschange 5))
(defun c:2 (/ nlts) (ltschange 2))

 

[amateurday 21]

Thực ra khi luôn bật cần trôn 1 để ở 1 bên thì lia chuột và chọn lai tai scale nhập vào cũng được mà.

Xét thấy cũng không mất quá nhiều thời gian.