Đến nội dung


Hình ảnh
- - - - -

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


  • Please log in to reply
3 replies to this topic

#1 vbao

vbao

    biết lệnh array

  • CADViet Team
  • PipPipPip
  • 184 Bài viết
Điểm đánh giá: 80 (tàm tạm)

Đã gửi 08 July 2007 - 11:25 AM

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
  • 0

#2 Nguyen Hoanh

Nguyen Hoanh

    biết lệnh adcenter

  • Moderator
  • PipPipPipPipPipPipPip
  • 4105 Bài viết
Điểm đánh giá: 4495 (đỉnh cao)

Đã gửi 08 July 2007 - 06:01 PM

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

#3 vbao

vbao

    biết lệnh array

  • CADViet Team
  • PipPipPip
  • 184 Bài viết
Điểm đánh giá: 80 (tàm tạm)

Đã gửi 08 July 2007 - 09:38 PM

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

#4 q288

q288

    biết lệnh fillet

  • Members
  • PipPipPipPip
  • 209 Bài viết
Điểm đánh giá: 164 (tàm tạm)

Đã gửi 10 April 2009 - 08:56 PM

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

  • 1