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

[vbao 80]

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

[Nguyen Hoanh 4669]

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.

[vbao 80]

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 . . .

[q288 166]

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)
)