Chuyển đến nội dung
Diễn đàn CADViet
A Tan

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

Các bài được khuyến nghị

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.

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

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

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
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))

 

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

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.

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

Tạo một tài khoản hoặc đăng nhập để nhận xét

Bạn cần phải là một thành viên để lại một bình luận

Tạo tài khoản

Đăng ký một tài khoản mới trong cộng đồng của chúng tôi. Điều đó dễ mà.

Đăng ký tài khoản mới

Đăng nhập

Bạn có sẵn sàng để tạo một tài khoản ? Đăng nhập tại đây.

Đăng nhập ngay

×