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

Tìm giá trị trong tập hợp dim và zoom đến đối tượng

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

các anh trong diễn đàn có thể giúp tôi tiện ích tìm giá trị của 1 đối tượng trong tập hợp dim và sau đó zoom đến đối tượng này. Xin cảm ơ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
các anh trong diễn đàn có thể giúp tôi tiện ích tìm giá trị của 1 đối tượng trong tập hợp dim và sau đó zoom đến đối tượng này. Xin cảm ơn

Có vẻ bác Vbao vẫn vất vả với mấy việc check dim hôm nọ.

 

Nếu chỉ là check dim mà không phải hiệu chỉnh. Vbao có thể làm như sau:

- Dùng lệnh fake dim của diễn đàn, để fake toàn bộ giá trị dim (biến giá trị dim thành text).

- Dùng lệnh find có sẵn của AutoCAD, nhập giá trị cần tìm sau đó nhấn nút find. Nếu tìm thấy giá trị đó, phím Zoom to của lệnh find sẽ cho phép bạn zoom đến đối tượng chứa giá trị nà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
Có vẻ bác Vbao vẫn vất vả với mấy việc check dim hôm nọ.

 

Nếu chỉ là check dim mà không phải hiệu chỉnh. Vbao có thể làm như sau:

- Dùng lệnh fake dim của diễn đàn, để fake toàn bộ giá trị dim (biến giá trị dim thành text).

- Dùng lệnh find có sẵn của AutoCAD, nhập giá trị cần tìm sau đó nhấn nút find. Nếu tìm thấy giá trị đó, phím Zoom to của lệnh find sẽ cho phép bạn zoom đến đối tượng chứa giá trị này.

 

cảm ơn anh Hoành đã chỉ dẫn, nếu tôi cần hiệu chỉnh dim (không sử dụng lệnh fake dim) ta có cách nào thực hiện? hoan hô đội tuyển Việt Nam . . .

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ảm ơn anh Hoành đã chỉ dẫn, nếu tôi cần hiệu chỉnh dim (không sử dụng lệnh fake dim) ta có cách nào thực hiện? hoan hô đội tuyển Việt Nam . . .

 

Ct sau đây chắc cũng phù hợp với yêu cầu của bạn.

 

(defun c:td()
 (setq txt (getstring "\nNhap gia tri dim:")
ss  (ssget "X" '((0 . "DIMENSION")))
n 0
ss0 (ssadd))  

 (repeat (sslength ss)
   (setq v (ssname ss n)
  v1 (entget v)
  gt (cdr (assoc 1 v1)))

   (if (or (= gt "") (= gt "<>"))
     (progn
  (setq dis (cdr (assoc 42 v1)))      
   	  (if (equal dis (atof txt) 0.001) (setq ss0 (ssadd v ss0))))    
     (if (= gt txt) (setq ss0 (ssadd v ss0))))

   (setq n (1+ n))
 )
 (sssetfirst nil ss0)
 (princ)
)

  • Vote tăng 1

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


×