chỉnh sửa dim kích thước

[minhvan21287 2]

các bác ơi cho em hỏi đó là: em có một bản vẽ và bàn vẽ này thì bị ed hết kích thước rùi, giờ em muốn lấy lại kích thước thật của nó thì làm thế nào mà ko phải ngồi dim lại toàn bộ kích thước đó ạh.

[Tri 24]

các bác ơi cho em hỏi đó là: em có một bản vẽ và bàn vẽ này thì bị ed hết kích thước rùi, giờ em muốn lấy lại kích thước thật của nó thì làm thế nào mà ko phải ngồi dim lại toàn bộ kích thước đó ạh.

Bạn dùng lệnh Dimedit (tắt là Ded)

 

Command: ded DIMEDIT

Enter type of dimension editing [Home/New/Rotate/Oblique] <Home>: n -> gõ N

-> hộp Text Formating xuất hiện -> Bạn gõ <>

 

Select objects: Specify opposite corner: 5 found -> Quét chọn toàn bộ đối tượng DIM

 

Select objects: Enter

 

-> Xong

[ketxu 3023]

Hoặc bạn có thể dùng lisp này cho tiện

 

(Defun c:rd ()
(setq Set1 (ssget '((0 . "DIMENSION"))))	
(setq i 0)
(repeat (sslength Set1)
(setq newdimvalue "")
(command "dimedit" "n" newdimvalue set1 "")
(setq i (+ i 1))
(princ)
)
)

[Tri 24]

Hoặc bạn có thể dùng lisp này cho tiện

 

(Defun c:rd ()
(setq Set1 (ssget '((0 . "DIMENSION"))))	
(setq i 0)
(repeat (sslength Set1)
(setq newdimvalue "<>")
(command "dimedit" "n" newdimvalue set1 "")
(setq i (+ i 1))
(princ)
)
)

Mạn phép bac , xin sửa lại cho gọn :

(Defun c:rd ()    
(command "dimedit" "n" "<>" (ssget '((0 . "DIMENSION"))) "")
(princ)
)

PS: Các bác quan tâm, giúp đỡ em câu hỏi này với.

Hỏi về VBA-Bắt đầu học VBA-Bài viết số 12

Thanks

[ketxu 3023]

Cám ơn bạn , nhìu khi cứ máy móc rồi tự làm nó rườm rà ra ^^

[meocon_159 1]

Vậy mà lâu nay mình không biết .

[phamngocsang 1]

các bác ơi cho em hỏi đó là: em có một bản vẽ và bàn vẽ này thì bị ed hết kích thước rùi, giờ em muốn lấy lại kích thước thật của nó thì làm thế nào mà ko phải ngồi dim lại toàn bộ kích thước đó ạh.

 

 

Sử dụng lệnh QDim xem sao nhé !!!

[vuhuyhung 1]

các bác ơi cho em hỏi đó là: em có một bản vẽ và bàn vẽ này thì bị ed hết kích thước rùi, giờ em muốn lấy lại kích thước thật của nó thì làm thế nào mà ko phải ngồi dim lại toàn bộ kích thước đó ạh.

Bạn vào Express/ Dimention/ Reset Dim Text Value sau đó chọn dim cần reset là ok

[tinya1225 36]

các bác ơi cho em hỏi đó là: em có một bản vẽ và bàn vẽ này thì bị ed hết kích thước rùi, giờ em muốn lấy lại kích thước thật của nó thì làm thế nào mà ko phải ngồi dim lại toàn bộ kích thước đó ạh.

dùng lệnh Dimreassoc cho nhanh :blink: