Chuyển đến nội dung
Diễn đàn CADViet
Đăng nhập để thực hiện theo  
victor85

[Hỏi] Về vấn đề lisp autoscale?

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

Trước đây trên diễn đàn mình có thấy có bài viết về cái lisp: autoscale.

Tức là chọn dimstyle hiện hành và khi chạy lisp các thao tác mình nhập tỷ lệ vào đều là 1:1 thì tương đương với mình đang thao tác với tỷ lệ của dimstyle hiện hành.

Lúc đầu mình đọc qua lisp đó thấy cũng ko áp dụng nhiều nên không download về dùng thử. Nay thấy có trường hợp cần nhưng tìm trong diễn đàn lại không thấy bài viết đó nữa. Nay phiền mọi người ai có lisp đó up lên dùm mình với.

 

Nhân tiện nhờ luôn các bác viết dùm lisp đo nhanh distance của 1 cái dim bất kỳ (để biết là cái dim đó scale mấy lần so với con số ghi trên dim mà ko phải vào dimstyle kiểm tra, chưa kể trường hợp cái dim đó lại còn bị modify scale factor trong thanh property nữa)

Thanks các bác nhiều nhé! :)

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

hic, có ai giúp được mình không vậy. Buồn thế!

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

 

Trước đây trên diễn đàn mình có thấy có bài viết về cái lisp: autoscale.

Tức là chọn dimstyle hiện hành và khi chạy lisp các thao tác mình nhập tỷ lệ vào đều là 1:1 thì tương đương với mình đang thao tác với tỷ lệ của dimstyle hiện hành.

Lúc đầu mình đọc qua lisp đó thấy cũng ko áp dụng nhiều nên không download về dùng thử. Nay thấy có trường hợp cần nhưng tìm trong diễn đàn lại không thấy bài viết đó nữa. Nay phiền mọi người ai có lisp đó up lên dùm mình với.

Cái này mình nhớ không nhầm thì là của Phanthanhtu (tức Tú đại hiệp). Mà hình như trang web của Tú đại hiệp die rồi thì phải.

Nhân tiện nhờ luôn các bác viết dùm lisp đo nhanh distance của 1 cái dim bất kỳ (để biết là cái dim đó scale mấy lần so với con số ghi trên dim mà ko phải vào dimstyle kiểm tra, chưa kể trường hợp cái dim đó lại còn bị modify scale factor trong thanh property nữa)

Thanks các bác nhiều nhé! :)

Còn cái này bạn test thử xem nhé.


(defun c:ktd( / a en kq)
 (setq a (vla-get-LinearScaleFactor(vlax-ename->vla-object(setq en (car(entsel "\nChon dim de xem kich thuoc thuc: "))))))
 (setq kq (/ (cdr(assoc 42 (entget en))) a))
 (alert (strcat "Kich thuoc thuc cua dim la: " (rtos kq 2 2)))
 )

  • Vote tăng 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

Cái này mình nhớ không nhầm thì là của Phanthanhtu (tức Tú đại hiệp). Mà hình như trang web của Tú đại hiệp die rồi thì phải.

 

Còn cái này bạn test thử xem nhé.


(defun c:ktd( / a en kq)
 (setq a (vla-get-LinearScaleFactor(vlax-ename->vla-object(setq en (car(entsel "\nChon dim de xem kich thuoc thuc: "))))))
 (setq kq (/ (cdr(assoc 42 (entget en))) a))
 (alert (strcat "Kich thuoc thuc cua dim la: " (rtos kq 2 2)))
 )

 

 

Cảm ơn bác phạm ngọc tú Kts nhé. Nhờ bác cung cấp cho em biết rằng bác phan thanh tu ( tức Tú Đại Hiệp ) viết cái em cần nên em đã gúc gồ và tìm ra được điều mình mong muốn. Xin cảm ơn dù vắng mặt bác Tú đại hiệp nhé! Quả là công cụ autoscale thật tuyệt vời.

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

Đã sent cho hòa văn. Mỗi tội sau khi test thì thấy lisp còn nhiều hạn chế. Khó sử dụng.

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

Chào cả nhà! Cho em hỏi : bạn em gửi cho em lip cad cắt dim, coppy trục, thống kê. em load và dùng trên máy bàn win xp cad 2007 thì không vấn đề gi. mà em dùng trên laptop win7 64bit ban đầu thì được. sau lần đầu dùng và tắt máy đi những lần sau load làm tương tự mà không được mặc dù em đã cài lại cad vẫn k được, không hiểu tại sao( bạn em nói trên cty nó cũng có người dùng lip đó trên win 7) mong các anh chỉ lỗi này giúp em. Cảm ơn nhiều!

up file, đi bạn mình cũng tò mò cái này đây, biết đâu sau này cài Cad64 lại dính như vậy

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

Đăng nhập để thực hiện theo  

×