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

Đánh số thứ tự bằng lệnh Tcount

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

Có mẹo này bạn có thể làm được:

 

- Đầu tiên, bạn tạo 1 text có nội dung là cadviet.

 

- Bạn copy đối tượng này thành nhiều (bạn muốn bao nhiêu chữ thì copy bấy nhiêu đối tượng).

 

- Bạn dùng lệnh TCount và chọn các đối tượng này:

Command: TCOUNT

Select objects: Specify opposite corner: 5 found

Select objects:

Sort selected objects by [X/Y/Select-order] <Select-order>:

Specify starting number and increment (Start,increment) <48,1>: 65,1

Placement of numbers in text [Overwrite/Prefix/Suffix/Find&replace..] <

Suffix>: S

5 objects modified.

 

Bây giờ trên màn hình sẽ là các chuỗi 'cadviet 65', 'cadviet 66', 'cadviet 67',...

 

- Bạn dùng lệnh FIND rồi thay toàn bộ các chuỗi 'cadviet ' (nhớ là có dấu cách ở cuối cùng) thành '%%'.

 

Trên màn hình bây giờ là thứ bạn cần.

Cả tháng nay tập theo cái cách này mà có được đâu.......Tức ói máu

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ả tháng nay tập theo cái cách này mà có được đâu.......Tức ói máu

Em cũng làm chỉ làm được đến đoạn tạo các dãy cadviet 65, cadviet 66,......còn đoạn sau thì...nó lại thay thế chữ cadviet bằng %% 65, %% 66,....

Ko biết là sai ở đâu nữa- nhờ các bác chỉ giúp cho!

Thanks!

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
Em cũng làm chỉ làm được đến đoạn tạo các dãy cadviet 65, cadviet 66,......còn đoạn sau thì...nó lại thay thế chữ cadviet bằng %% 65, %% 66,....

Ko biết là sai ở đâu nữa- nhờ các bác chỉ giúp cho!

Thanks!

Thôi thì xài tạm cái này đi.

chstt1 : có thể chọn nhiều text

chstt2 : chỉ chọn 1 text nhưng có thể đếm lùi.

texttool

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
Sao tôi làm không được nhỉ???

Thứ nhất là nó chỉ cho một số 65 đằng sau text của mình

Thứ hai là " text 65" cùng trong một cửa sổ text.

Bây jờ tôi muốn có chuỗi text 65, text 66.... đến text 70 nằm riêng biệt thì làm thế nào???

Júp với!! Cảm ơn nhiều!!

Bạn muốn thế nào,

và bạn đã làm thế nào?

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
Phải chăng là phải copy ra đúng số luợng mà mình muốn đánh số??

Ví dụ mình muốn đánh stt cho 1o cọc từ 1- 10: copy ra thành 10 cái text??

Sau đó dùng Tcount và nó nhảy cho mình tư` 1-10?

 

Đúng vậy Tcount chi đổi những số đã có truớc, chứ không có chức năng copy & đánh số tăng dần.

Còn nếu bạn muốn như vậy thì xem ở topic

http://www.cadviet.com/forum/index.php?showtopic=1398

 

Và đặc biệt là lệnh Oc của bác SSG

  • 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

Cam on anh Hoanh rat nhieu, Nhung dieu anh chi thuc su rat bo ich cho chung em moi vao nghe. Chuc anh vaf gia dinh luon manh khoe, thanh cong trong cong viec. Mong anh co nhieu bai viet hay de giup chung em hieu sau thep ve Autocad.

Mot lan nua cam on anh nhieu!

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
Nhiều khi chúng ta cần phải sửa từng text một để điền các số theo thứ tự tăng dần. Chẳng hạn phải điền chuỗi D1, D2, D3, D4,...D1000 theo thứ tự tăng dần của trục Y. nếu sửa bằng tay thì rất lâu. Lệnh Tcount của Express Tool cho phép chúng ta làm điều này.

 

Command: tcount

Chương trình sẽ cho bạn chọn đối tượng

Select objects: Specify opposite corner: 5 found

Select objects:

Chương trình hỏi bạn sắp xếp các đối tượng theo chiều tăng trục x, trục y hay theo thứ tự lúc bạn chọn các đối tượng

Sort selected objects by [X/Y/Select-order] <Y>:

Chương trình hỏi bạn số đầu tiên mà bạn đánh, số gia mà bạn cho vào. Ví dụ 2,-1 sẽ đánh các số: 2, 1, 0, -1, -2, ...

Specify starting number and increment (Start,increment) <2,-1>:

 

Chương trình hỏi bạn cách đánh số vào text: Overwrite - ghi đè luôn vào text, Prefix - viết thêm vào phía trước, Suffix - viết thêm vào phía sau, Find&replace - Thay những cụm từ được chỉ định bằng các text số này.

Placement of numbers in text [Overwrite/Prefix/Suffix/Find&replace..] < Find&replace>:

Nếu bạn chọn Find&replace, máy hỏi thêm cụ từ mà bạn muốn chỉ định.

Enter search string <kts>:

Và cuối cùng chương trình thông báo có bao nhiêu đối tượng text đã được sửa

5 objects modified.

cám ơn bác Hoành nhiều lắm!

Bác chỉ dẫn lai cái lệnh đánh A,B,C đưojc ko ạ!em ko làm được!hic

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ớ là thành viên mới toanh, chưa post bài lần nào, các bạn cho tớ hỏi một chút: Làm thế nào để đánh STT tự động dãy 1S, 2S, 3S... nhanh nhất nhỉ. Mình thường xuyên phải làm công việc đánh STT này nhưng mỗi lần làm lại copy rồi sửa thủ công từng text một thấy mất thời gian quá. Ai biết thì chỉ cho tớ với nhé. Cảm ơn nhiều.

---------------

Hô hô cái này dễ thôi mà:s_big: cậu copy chữ S ra ...số lần cần rồi thực hiện lệnh TCount

Sort selected objects by [X/Y/Select-order] <Y>: Chọn các đổi tượng text cần sửa đổi ( vd 5 hay 10 .. 100 đối tượng )

Specify starting number and increment (Start,increment) <a,b>:

a là số bắt đầu b là bước nhảy

ví dụ: a = 5 b= 2

thì dãy số sẽ là: 5 , 7, 9 ....v..vv

trong truong hợp của bạn sẽ là 1,1 số bắt đầu = 1 và bước nhảy bằng 1

Placement of numbers in text [Overwrite/Prefix/Suffix/Find&replace..] <

Overwrite>: các lựa chọn cho việc thay đổi text

OVERwirte: tức là đè hết lên text ( sẽ đè hết các phần sửa lên text cũ)

Preff SUff tiền tố hậu tố( tức viết trước hoặc sau) trường hợp của bạn là pre

Find and replace thì MOD Hoành giải thích rồi

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
Mình làm cad2004 ok mà bạn, thử đi!

Bạn à Mình thử ở cad 2004 rùi Nhưng ko thấy có .Sao vậy nhỉ

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
Vậy muốn đánh theo tứ tự A, B, C, D thì sao nhỉ, các bạn có biết chỉ giúp

Em có cách này cũng đánh số thứ tự theo chuỗi:1 2 3 4 5,or 5 4 3 2 1

Express\textAutomatic text Numbering\chọn đối tượng\select order\chọn text bắt đầu và bước nhảy.

Tuỳ theo thứ tự tăng hay giảm theo cách chọn khung cửa sổ.Ok

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ẹo này bạn có thể làm được:

 

- Đầu tiên, bạn tạo 1 text có nội dung là cadviet.

 

- Bạn copy đối tượng này thành nhiều (bạn muốn bao nhiêu chữ thì copy bấy nhiêu đối tượng).

 

- Bạn dùng lệnh TCount và chọn các đối tượng này:

Command: TCOUNT

Select objects: Specify opposite corner: 5 found

Select objects:

Sort selected objects by [X/Y/Select-order] <Select-order>:

Specify starting number and increment (Start,increment) <48,1>: 65,1

Placement of numbers in text [Overwrite/Prefix/Suffix/Find&replace..] <

Suffix>: S

5 objects modified.

 

Bây giờ trên màn hình sẽ là các chuỗi 'cadviet 65', 'cadviet 66', 'cadviet 67',...

 

- Bạn dùng lệnh FIND rồi thay toàn bộ các chuỗi 'cadviet ' (nhớ là có dấu cách ở cuối cùng) thành '%%'.

 

Trên màn hình bây giờ là thứ bạn cần.

bác Hoành chỉ giúp cho anh em cách đánh dãy ký tự:A,B,C,D.Cái này dùng để đánh thứ tự trục thì tuyệt.Thanks bác

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
bác Hoành chỉ giúp cho anh em cách đánh dãy ký tự:A,B,C,D.Cái này dùng để đánh thứ tự trục thì tuyệt.Thanks bác

Tôi buồn quá, bạn không đọc bài sao?

 

Tôi không hiểu là do văn hoá hay do tính cách nhưng nhiều người trong chúng ta chẳng chịu đọc bài gì cả, muốn gì là họ cứ hỏi luôn cho nhanh. Bất kể vấn đề họ hỏi vừa được đề cập xong.

  • Vote tăng 4

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ôi buồn quá, bạn không đọc bài sao?

 

Tôi không hiểu là do văn hoá hay do tính cách nhưng nhiều người trong chúng ta chẳng chịu đọc bài gì cả, muốn gì là họ cứ hỏi luôn cho nhanh. Bất kể vấn đề họ hỏi vừa được đề cập xong.

 

Cảm ơn anh lệnh hay quá, he he. Đang phải vẽ bản vẽ thi công 21 bước và bản vẽ thép 17 bước. Có cái để áp dụng rồi.

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 lệnh hay quá, he he. Đang phải vẽ bản vẽ thi công 21 bước và bản vẽ thép 17 bước. Có cái để áp dụng rồi.

Hay thật, cái lệnh Tcont này hay hơn mấy cái lisp đánh số thứ tự, cảm ơn các bác nhé !

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ớ là thành viên mới toanh, chưa post bài lần nào, các bạn cho tớ hỏi một chút: Làm thế nào để đánh STT tự động dãy 1S, 2S, 3S... nhanh nhất nhỉ. Mình thường xuyên phải làm công việc đánh STT này nhưng mỗi lần làm lại copy rồi sửa thủ công từng text một thấy mất thời gian quá. Ai biết thì chỉ cho tớ với nhé. Cảm ơn nhiều.

Bạn thử dùng lệnh "tcout" xem, giải quyết được yêu cầu của bạn đấy. Chúc thành công.

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
Bạn thử dùng lệnh "tcout" xem, giải quyết được yêu cầu của bạn đấy. Chúc thành công.

 

nhầm, lệnh "tcount".

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
Mình có 1 cách thế này nhé

bạn cứ việc đánh ssố thứ ttụ bình thuờng

khi xong bạn dùng lệnh sss để điền chữ S vào cuối, chọn tất cả các text cùng 1 lúc, ok

chúc thành công!!!

<a href="http://www.cadviet.com/upfiles/MHPro4.lsp" target="_blank"><a href="http://www.cadviet.com/upfiles/MHPro4.lsp" target="_blank"><a href="http://www.cadviet.com/upfiles/MHPro4.lsp" target="_blank">http://www.cadviet.com/upfiles/MHPro4.lsp</a></a></a>

 

Bác nào cho em hỏi tý, cái Lisp này mà muốn:

Giá trị đuợc chọn <12 thì thêm là "abc" ở đầu

Còn Nếu giá trị đuợc chọn mà >12 thì thêm xyz ở đầu

Có cao thủ nào giúp em với!

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
Bác nào cho em hỏi tý, cái Lisp này mà muốn:

Giá trị đuợc chọn <12 thì thêm là "abc" ở đầu

Còn Nếu giá trị đuợc chọn mà >12 thì thêm xyz ở đầu

Có cao thủ nào giúp em với!

Bác nào giúp muội tý! Cần gấp quá!

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
Bác nào cho em hỏi tý, cái Lisp này mà muốn:

Giá trị đuợc chọn <12 thì thêm là "abc" ở đầu

Còn Nếu giá trị đuợc chọn mà >12 thì thêm xyz ở đầu

Có cao thủ nào giúp em với!

 

Không bác nào ra tay cứu giúp thảo muội tý à

Cũng không có ai nói j....huhuu.... :cheers:

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
Không bác nào ra tay cứu giúp thảo muội tý à

Cũng không có ai nói j....huhuu.... :cheers:

1. Vì yêu cầu của bạn hơi... kỳ cục! Bạn có thể nói rõ, bạn cần cái lisp kiểu như vậy để làm gì không? Người lập trình chỉ có hứng thú khi biết rằng, lisp họ viết ra có thể giúp ích được cho nhiều người chứ không chỉ đáp ứng một yêu cầu đặc biệt của một người nào đó.

2. Nếu giá trị = 12 thì sao?

3. Dù sao thì yêu cầu của bạn cũng thuộc dạng đơn giản, bạn thử lisp này xem. Giá trị = 12 cũng thêm xyz luôn. Tên lệnh ABC:

 

(defun C:ABC( / ss e d txt )
(setq ss (ssget '((0 . "TEXT"))))
(while (setq e (ssname ss 0))
   (setq
       d (entget e)
       txt (cdr (assoc 1 d))
   )
   (if (< (atof txt) 12) (setq txt (strcat "abc" txt)) (setq txt (strcat "xyz" txt)))
   (setq d (subst (cons 1 txt) (assoc 1 d) d))
   (entmod d)
   (ssdel e ss)
)
(princ)
)

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
1. Vì yêu cầu của bạn hơi... kỳ cục! Bạn có thể nói rõ, bạn cần cái lisp kiểu như vậy để làm gì không? Người lập trình chỉ có hứng thú khi biết rằng, lisp họ viết ra có thể giúp ích được cho nhiều người chứ không chỉ đáp ứng một yêu cầu đặc biệt của một người nào đó.

2. Nếu giá trị = 12 thì sao?

3. Dù sao thì yêu cầu của bạn cũng thuộc dạng đơn giản, bạn thử lisp này xem. Giá trị = 12 cũng thêm xyz luôn. Tên lệnh ABC:

 

(defun C:ABC( / ss e d txt )
(setq ss (ssget '((0 . "TEXT")))))

 

Viết lisp theo "phong cách SSG!"

Thật đơn giản!

  • 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

×