[Nhờ Viết Lisp] Tạo Text Dưới Dim

[castanea 3]

Mình thường tận dụng dim đoạn cắt thép 1/4 dầm để thể hiện luôn cốt đai. Cách làm là sau khi dim, vào edit dim, chuyển dấu nháy về cuối và gõ \ Shift x để xuống dòng viết thêm text.

Nhờ các Anh Em và các Bạn giúp mình làm lisp để có thể click vào dim và thêm text luôn thay vì phải thực hiện các bước trên

Thanks all. 

 

[castanea 3]

Đọc xong mà thấy nghẹn cả lòng ...  

:(  :(  :(

Cuối dòng+ xuống dòng khác gì 2 nốt gõ cành cạch......." End "+" Enter "... 

Bạn đã dùng thử cách mình nêu trên và cách bạn làm có gì khác nhau chưa???

Nếu đơn giản như bạn nghĩ thì autodesk họ cũng không rảnh đưa ra cái tổ hợp phím "\ Shift+x"

Thanks bạn đã comment cho không trôi bài 

[ketxu 2.984]

Dim của bạn là dim chuẩn hay dim edit số hay dim có làm tròn hay dim có Prefix Suffix ?

[quocmanh04tt 634]

@Danhcong, Khác nhau mà ...

[quocmanh04tt 634]

Chủ thớt thử xem ở bài này có phù hợp không nhé!

http://www.cadviet.com/forum/topic/162441-nho-chinh-lisp-cat-thep-dam-momen/?p=400222

[quang_lac 32]

@@ hi hi. Anh @QuocManh... Em hiểu ạ... Nhưng nếu có nhiều Dimention như thế em sẽ gõ them "MA" 1 loạt. Chứ hổng sửa từng số đâu :P

 

Bạn đã thử dùng chưa mà comment nhanh thế, nếu Ma được thì người ta ko nhờ đâu

[ketxu 2.984]

Nếu dùng tay thì sử dụng Alternate Units sẽ đơn giản và nhanh hơn nhiều :)

@Danh Cong : bạn tham khảo :

https://www.facebook.com/autocadusers/posts/792906217390769

 

Xuống dòng under dimension liné : mã P

Xuống dòng như ý OP : mã X

Tuy nhiên, thực tế tôi thấy lisp này nếu viết ra cũng chẳng nhanh hơn là mấy :)

[quang_lac 32]

Nếu dùng tay thì sử dụng Alternate Units sẽ đơn giản và nhanh hơn nhiều :)

 

Lâu hơn đấy ket vì giá trị bên dưới chân dim ko tự sửa được.

[ketxu 2.984]

Mình dân kết cấu mình hiểu mà. Ví dụ tạo 1 dimension style rải thép @150

=> Alternate :

+ Scale 1/150; Roundoff : 1; Sufix : "x150"

[Danh Cong 422]

Ủa, ko "Ma" dc ạ a @Quanglac.hi,t hế e xin lỗi ạ. Em đang ko có cad, vô điện thoại nên "căm mừn" hơi nhanh.

Dạ, cám ơn anh Ket gợi ý ạ.: )

[castanea 3]

Chủ thớt thử xem ở bài này có phù hợp không nhé!

http://www.cadviet.com/forum/topic/162441-nho-chinh-lisp-cat-thep-dam-momen/?p=400222

Thanks bạn. cũng ok nhưng mình đang coi bỏ bớt phần số lượng 

[doducchinh 0]

@Danhcong, Khác nhau mà ...

Làm sao để được như hình 2 vậy bạn, chữ và số đều nằm trong dim chứ. Mình nhiều lúc rất cần ghi chú một dòng nào đó ngay dưới dim và phải nằm trong dim

[quang_lac 32]

Làm sao để được như hình 2 vậy bạn, chữ và số đều nằm trong dim chứ. Mình nhiều lúc rất cần ghi chú một dòng nào đó ngay dưới dim và phải nằm trong dim

bấm tổ hợp phím "\ shift x" như chủ thớt ấy

[Danh Cong 422]

Mình thường tận dụng dim đoạn cắt thép 1/4 dầm để thể hiện luôn cốt đai. Cách làm là sau khi dim, vào edit dim, chuyển dấu nháy về cuối và gõ \ Shift x để xuống dòng viết thêm text.

Nhờ các Anh Em và các Bạn giúp mình làm lisp để có thể click vào dim và thêm text luôn thay vì phải thực hiện các bước trên

Thanks all. 

 

Chủ thớt test thử lisp này coi xài được ko? 

 

(defun c:td ()

  (setq stext (Getstring T "Viet text muon them ben duoi Dimention: "))

  (setq snamedim  (car (entsel "\n Chon Dimention? ")))

 

  (setq dxfdim (entget snamedim))

  (setq dxfdim (subst (cons 1 (strcat "<>\\X" stext)) (assoc 1 dxfdim) dxfdim))

  (entmod dxfdim)

  (princ))

[Danh Cong 422]

Test lisp Td nhé. Xài Enter nếu text thêm có dấu cách. nếu ko cần dấu cách thì bỏ giùm chữ "T" sau code (Getstring T).

 

 

Chủ thớt test thử lisp này coi xài được ko? 

 

(defun c:td ()

  (setq stext (Getstring T "Viet text muon them ben duoi Dimention: "))

  (setq snamedim  (car (entsel "\n Chon Dimention? ")))

 

  (setq dxfdim (entget snamedim))

  (setq dxfdim (subst (cons 1 (strcat "<>\\X" stext)) (assoc 1 dxfdim) dxfdim))

  (entmod dxfdim)

  (princ))

 

[doducchinh 0]

bấm tổ hợp phím "\ shift x" như chủ thớt ấy

làm mãi mới được, đầu tiên phải tắt caps lock rồi bấm đồng thời "\ shift x" làm sao để ra " \ X" mới được. Thế mà lâu nay mình không biết

[vanhuy1989 0]

Vào lúc 24/11/2016 tại 18:03, Danh Cong đã nói:

Test lisp Td nhé. Xài Enter nếu text thêm có dấu cách. nếu ko cần dấu cách thì bỏ giùm chữ "T" sau code (Getstring T).

 

Bác ơi có thể chỉnh lại để quét nhiều dim không

[vietduc147258 54]

Vào lúc 1/11/2023 tại 12:43, vanhuy1989 đã nói:

Bác ơi có thể chỉnh lại để quét nhiều dim không

Chưa đủ trình để làm được như bạn Danh Công. Sửa tạm lisp trên bằng dimedit, bạn dùng thử coi.

(defun c:td (/ newdimvalue stext)
(setq stext (Getstring T "Viet text muon them ben duoi Dimention: "))
(setq newdimvalue (strcat "<>\\X" stext))
(command "dimedit" "n" newdimvalue)
(princ)
)

[vanhuy1989 0]

Vào lúc 3/11/2023 tại 07:47, vietduc147258 đã nói:

Chưa đủ trình để làm được như bạn Danh Công. Sửa tạm lisp trên bằng dimedit, bạn dùng thử coi.

(defun c:td (/ newdimvalue stext)
(setq stext (Getstring T "Viet text muon them ben duoi Dimention: "))
(setq newdimvalue (strcat "<>\\X" stext))
(command "dimedit" "n" newdimvalue)
(princ)
)

cám ơn bác nhé