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

Lisp Ghép Text Cần Giúp Đỡ

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

- MÌnh cần 1 cái líp có chức năng ghép các đối tượng dạng text rời rạc thành 1 dòng text . Cụ thể như hình vẽ sau:lwmaind62igoa6r70pjd.png.

Do bản vẽ của mình có rất nhiều các text bị như vậy, nên việc chỉnh sửa thủ công dường như là ko thể >> rất lâu. Mong các bác biết về Lisp nhiệt tình giúp đỡ . Xin chân thành cảm ơn :s_big:

  • 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
- MÌnh cần 1 cái líp có chức năng ghép các đối tượng dạng text rời rạc thành 1 dòng text . Cụ thể như hình vẽ sau:lwmaind62igoa6r70pjd.png.

Do bản vẽ của mình có rất nhiều các text bị như vậy, nên việc chỉnh sửa thủ công dường như là ko thể >> rất lâu. Mong các bác biết về Lisp nhiệt tình giúp đỡ . Xin chân thành cảm ơn :s_big:

- Bạn dùng lệnh TXT2MTXT để joint các text thành 1 MTEXT

- Bạn dùng lệnh EXPLODE để biến MTEXT vừa được tạo ra trở lại thành TEXT.

  • Vote tăng 9

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 dùng lệnh TXT2MTXT để joint các text thành 1 MTEXT

- Bạn dùng lệnh EXPLODE để biến MTEXT vừa được tạo ra trở lại thành TEXT.

Hề hề,

Bác Hoành trả lời khúc chiết quá, chắc bạn Bachngoctung chưa hiểu rõ lắm nhể. Mình xin phép múa rìu mấy cái, các bác đừng cười nha.

1/- Bạn Bachngoctung hãy vào cái chỗ này:

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

2/- Download cái lisp bạn cần là convert text to mtext về.

3/- Apload nó vào bản vẽ của bạn. Khi đó bạn sẽ có cái lệnh Txt2Mtxt để xài một cách vô tư như bác Hoành đã dạy. (À mà cái lệnh trong lisp là t2mt chứ hổng phải là Txt2Mtxt đâu nha)

4/- Tich thanks vài phát cho bác Hoành bể cái bụng.

Hề hề, hề hề hề.

  • Vote tăng 2

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
Hề hề,

Bác Hoành trả lời khúc chiết quá, chắc bạn Bachngoctung chưa hiểu rõ lắm nhể. Mình xin phép múa rìu mấy cái, các bác đừng cười nha.

1/- Bạn Bachngoctung hãy vào cái chỗ này:

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

2/- Download cái lisp bạn cần là convert text to mtext về.

3/- Apload nó vào bản vẽ của bạn. Khi đó bạn sẽ có cái lệnh Txt2Mtxt để xài một cách vô tư như bác Hoành đã dạy. (À mà cái lệnh trong lisp là t2mt chứ hổng phải là Txt2Mtxt đâu nha)

4/- Tich thanks vài phát cho bác Hoành bể cái bụng.

Hề hề, hề hề hề.

trong cad2007 có sẳn cái lệnh đó rồi bác Bình ạ. Tên lệnh chính xác như bác Hoành nói.

  • 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
trong cad2007 có sẳn cái lệnh đó rồi bác Bình ạ. Tên lệnh chính xác như bác Hoành nói.

Hề hề,

Tại mình chân chậm mắt cũng chậm luôn nên vẫn cứ cọc cạch với thằng cad2004, chửa biết cái mặt mũi thằng cad2007 nó giống ai bác ạ. Hề hề, nghe nói cứ cài thằng Express tools là có nhưng mà mình cũng chửa biết cài cái thằng nớ ra răng nên chắc như bắp là cứ xài cái của bác Tucdrom biếu bác ạ. Hề hề.

  • 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
- Bạn dùng lệnh TXT2MTXT để joint các text thành 1 MTEXT

- Bạn dùng lệnh EXPLODE để biến MTEXT vừa được tạo ra trở lại thành TEXT.

 

 

- Mình đã làm theo cách của bạn nhưng kết quả không đc như ý(xem hình). Lý do là vị trí và dạng text sau khi convert ko đúng như trước khi convert. Mình đã thử thay đổi các vị trí canh lề trái, phải vvv.... nhưng vẫn ko dc . Mình nghĩ cái này phải dùng đến lisp mới giải quyết dc, mong bạn giúp đỡ . :s_big:

 

1iwemqxrdp6e1wd1oq7v.png

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 theo cách của bạn nhưng kết quả không đc như ý(xem hình).

.....

Bạn chạy thử Lisp này :

Do có lỗi trong Insert Code Box

Update : Aug 28 2009, 7:30 download here

  • Like 1
  • Vote tăng 3

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 chạy thử Lisp này :

-Bạn gia bach ơi xem lại hộ mình với mình ap lisp vào mà ko dùng dc. Nó báo:"; error: malformed list on input"> file bị lỗi khi đưa vào hệ thống > nên đánh lệnh nó ko nhận. Mong bạn sửa lại hộ mình 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ạn dùng lệnh TXT2MTXT để joint các text thành 1 MTEXT

- Bạn dùng lệnh EXPLODE để biến MTEXT vừa được tạo ra trở lại thành TEXT.

Anh Hoành cho em hỏi nếu muốn joint 2 dtext lại với nhau thì làm sao?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
Anh Hoành cho em hỏi nếu muốn joint 2 dtext lại với nhau thì làm sao?Thanks

- Bạn dùng lệnh như Nguyễn Hoành đã hướng dẫn và chọn 2hay nhiều dtext mà bạn muốn join thì nó sẽ tự chuyển thành 1 dòng và convert luôn sang mtext. Nhưng sau khi làm nó sẽ bị như vấn đề mình đã gặp ở trên(text sau khi dc join và convert sẽ bị lộn xộn). Vấn đề này đang chờ các bạn giúp đỡ

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 sửa mấy dòng này là ok

(setq lst (vl-sort lst '(lambda (a :s_big: )

(if (equal (car(car a)) (car(car :s_big:)))

(:cheers:)))

(:s_big:)))

))))

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 dùng lệnh như Nguyễn Hoành đã hướng dẫn và chọn 2hay nhiều dtext mà bạn muốn join thì nó sẽ tự chuyển thành 1 dòng và convert luôn sang mtext. Nhưng sau khi làm nó sẽ bị như vấn đề mình đã gặp ở trên(text sau khi dc join và convert sẽ bị lộn xộn). Vấn đề này đang chờ các bạn giúp đỡ

Ý mình là khi joint 2 dtext lại với nhau thì nó sẽ ra 1 dtext mới chứ không thành mtext.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
bạn sửa mấy dòng này là ok

(setq lst (vl-sort lst '(lambda (a :s_big: )

(if (equal (car(car a)) (car(car :s_big:)))

(:cheers:)))

(:s_big:)))

))))

- Bạn tivanteo này mình sửa như bạn nói thì nó báo "; error: syntax error">> lỗi cú pháp. Nếu bạn đã sửa và dùng dc lisp đó thì up giúp mình cái lisp lên với. mình down về cho nhanh. 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

ừ đúng là lỗi cú pháp

vừa rôi thiếu dấu ngoặc mình chỉ sửa lỗi đó chứ cũng không kiểm tra lỗi cú pháp

thôi nhờ bác gia bach kiểm tra giúp

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
ừ đúng là lỗi cú pháp

vừa rôi thiếu dấu ngoặc mình chỉ sửa lỗi đó chứ cũng không kiểm tra lỗi cú pháp

thôi nhờ bác gia bach kiểm tra giúp

Do có lỗi trong Insert Code Box

Đã Upload file . xem bài số 7

  • Vote tăng 3

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
Do có lỗi trong Insert Code Box

Đã Upload file . xem bài số 7

lisp này nếu có dấu chấm hay phẩy ở giữa thì mình làm ko được GIA BACH ơi!bạn nâng cấp lên dc ko?cảm ơn bạn nhiều! (ví dụ là 1.5) thì chỉ hiểu là 15 thôi!)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
lisp này nếu có dấu chấm hay phẩy ở giữa thì mình làm ko được GIA BACH ơi!bạn nâng cấp lên dc ko?cảm ơn bạn nhiều! (ví dụ là 1.5) thì chỉ hiểu là 15 thôi!)thanks!

Chào truongthanh

Lisp at2t (All Text to Text) chỉ nối các Text thành 1 Text.

có thể trong file CAD của bạn dấu chấm là đối tuợng POINT -> Lisp không đúng yêu cầu.

Truờng hợp dấu phẩy thì tui không chắc, bạn có thể Upload file lên diễn đàn ?

 

Nếu dấu chấm là đối tuợng POINT bạn tham khảo bài viết nối text cao độ

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 gia bach này lại phải nhờ bạn giúp rồi. Nhờ bạn chỉnh cho cái lisp trên thêm 1 chức năng như sau: tự động thay đổi màu của text sau khi thực hiện ghép text(cho đỡ nhầm lẫn với các text chưa đuợc ghép)>>>> Xin chân thành cảm ơn

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 gia bach này lại phải nhờ bạn giúp rồi. Nhờ bạn chỉnh cho cái lisp trên thêm 1 chức năng như sau: tự động thay đổi màu của text sau khi thực hiện ghép text(cho đỡ nhầm lẫn với các text chưa đuợc ghép)>>>> Xin chân thành cảm ơn

Chào bachngoctung

Lisp cập nhật theo yêu cầu của bạn "đổi màu của text sau khi thực hiện ghép text"

download here

  • Vote tăng 2

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
Do có lỗi trong Insert Code Box

Đã Upload file . xem bài số 7

Chào gia_bach!

Lisp của bạn chạy rất tốt nhưng có vấn đề này mình muốn hỏi thêm

1. Lisp nối 2 đối tường là Dtext, (nhưng với Mtext thì không được?)

2. Khi nối 2 chuỗi text thì không hiểu được dấu cách (ví dụ: Chuỗi là Công, chuỗi là ty khi ghép lại là Côngty chứ không phải Công ty)

Lisp có thể giải quyết được 2 vấn đề trên không bạn, nếu được nhờ bạn nâng cấp giúp mình. Cảm ơn bạn nhiề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
Chào gia_bach!

Lisp của bạn chạy rất tốt nhưng có vấn đề này mình muốn hỏi thêm

1. Lisp nối 2 đối tường là Dtext, (nhưng với Mtext thì không được?)

2. Khi nối 2 chuỗi text thì không hiểu được dấu cách (ví dụ: Chuỗi là Công, chuỗi là ty khi ghép lại là Côngty chứ không phải Công ty)

Lisp có thể giải quyết được 2 vấn đề trên không bạn, nếu được nhờ bạn nâng cấp giúp mình. Cảm ơn bạn nhiều

Chào HoangSon614

1. Lisp nối 2 đối tường là Dtext, (nhưng với Mtext thì không được?)

-> Trước khi chạy Lisp, Bạn dùng lệnh EXPLODE để biến MTEXT thành TEXT.

 

2. Khi nối 2 chuỗi text thì không hiểu được dấu cách

-> Lisp này đuợc viết theo yêu cầu của bạn bachngoctung (bạn xem bài đầu tiên), nội dung chính là ghép các Text rời rạc (dạng kí tự) thành 1 Text

vd : có 3 Text : "Diễn" "đàn" "CADViet" -> "DiễnđànCADViet" (không có dấu cách giữa các từ)

nhưng với 3 Text : "Diễn " "đàn " "CADViet" -> "Diễn đàn CADViet" (có dấu cách giữa các từ)

bạn chú ý sự khác nhau giữa chuỗi "Diễn" và "Diễn " (từ phía truớc không có dấu cách nhưng từ phía sau có dấu cách ở vị trí cuối)

Như vậy Lisp này chỉ thích hợp cho việc nối các kí tự rời rạc, còn truờng hợp của bạn là nối các từ với nhau (chèn thêm dấu cách giữa cách từ).

 

Gửi bạn Lisp nối các từ với nhau (có chèn thêm dấu cách giữa cách từ).

download here

  • 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
Chào HoangSon614

1. Lisp nối 2 đối tường là Dtext, (nhưng với Mtext thì không được?)

-> Trước khi chạy Lisp, Bạn dùng lệnh EXPLODE để biến MTEXT thành TEXT.

 

2. Khi nối 2 chuỗi text thì không hiểu được dấu cách

-> Lisp này đuợc viết theo yêu cầu của bạn bachngoctung (bạn xem bài đầu tiên), nội dung chính là ghép các Text rời rạc (dạng kí tự) thành 1 Text

vd : có 3 Text : "Diễn" "đàn" "CADViet" -> "DiễnđànCADViet" (không có dấu cách giữa các từ)

nhưng với 3 Text : "Diễn " "đàn " "CADViet" -> "Diễn đàn CADViet" (có dấu cách giữa các từ)

bạn chú ý sự khác nhau giữa chuỗi "Diễn" và "Diễn " (từ phía truớc không có dấu cách nhưng từ phía sau có dấu cách ở vị trí cuối)

Như vậy Lisp này chỉ thích hợp cho việc nối các kí tự rời rạc, còn truờng hợp của bạn là nối các từ với nhau (chèn thêm dấu cách giữa cách từ).

 

Gửi bạn Lisp nối các từ với nhau (có chèn thêm dấu cách giữa cách từ).

download here

Cảm ơn gia_bach nhiều lắm

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 gia_bach sửa giùm mình thêm tí là kết quả text nối theo thứ tự các text được chọn. Mình nối 2 dòng text trên và dưới thì kết quả là text trên luôn được chuyển ra đầu.

  • 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

×