Đến nội dung


Hình ảnh
- - - - -

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


  • Please log in to reply
123 replies to this topic

#1 bachngoctung

bachngoctung

    biết lệnh copy

  • Members
  • PipPipPip
  • 115 Bài viết
Điểm đánh giá: 11 (tàm tạm)

Đã gửi 26 August 2009 - 09:58 PM

- 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:Hình đã gửi.
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:
  • 1

#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 26 August 2009 - 11:12 PM

- 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:Hình đã gửi.
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.
  • 9

#3 phamthanhbinh

phamthanhbinh

    biết lệnh adcenter

  • Moderator
  • PipPipPipPipPipPipPip
  • 6007 Bài viết
Điểm đánh giá: 3113 (tuyệt vời)

Đã gửi 27 August 2009 - 10:04 AM

- 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.c...?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ề.
  • 2
Chúc các quý Anh trên diễn đàn luôn khỏe, đẻ thêm được nhiều thứ để mót.

#4 duy782006

duy782006

    PHẠM QUỐC DUY

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 2155 Bài viết
Điểm đánh giá: 1360 (rất tốt)

Đã gửi 27 August 2009 - 11:25 AM

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.c...?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.
  • 1

Cứ ngỡ trần gian là cõi thật.Cho nên tất bật đến bây giờ.
Tạo hộp thoại bằng lisp My blog QUY ĐỊNH ĐẶT TÊN TOPIC TRONG CHUYÊN MỤC LISPD http://ktsduy.wordpress.com/
Để cám ơn chỉ cần nhấn rep_up.png
(Là nhấn vào nút đó phía bài viết của người ta í chứ đừng có nhè cái hình này mà nhấn miết đi nha :-D


#5 phamthanhbinh

phamthanhbinh

    biết lệnh adcenter

  • Moderator
  • PipPipPipPipPipPipPip
  • 6007 Bài viết
Điểm đánh giá: 3113 (tuyệt vời)

Đã gửi 27 August 2009 - 11:33 AM

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ề.
  • 1
Chúc các quý Anh trên diễn đàn luôn khỏe, đẻ thêm được nhiều thứ để mót.

#6 bachngoctung

bachngoctung

    biết lệnh copy

  • Members
  • PipPipPip
  • 115 Bài viết
Điểm đánh giá: 11 (tàm tạm)

Đã gửi 27 August 2009 - 02:59 PM

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

Hình đã gửi
  • 0

#7 gia_bach

gia_bach

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 1434 Bài viết
Điểm đánh giá: 1426 (rất tốt)

Đã gửi 27 August 2009 - 03:40 PM

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

#8 bachngoctung

bachngoctung

    biết lệnh copy

  • Members
  • PipPipPip
  • 115 Bài viết
Điểm đánh giá: 11 (tàm tạm)

Đã gửi 27 August 2009 - 08:54 PM

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

#9 t031285

t031285

    biết vẽ rectang

  • Members
  • PipPip
  • 89 Bài viết
Điểm đánh giá: 1 (bình thường)

Đã gửi 27 August 2009 - 09:33 PM

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

#10 bachngoctung

bachngoctung

    biết lệnh copy

  • Members
  • PipPipPip
  • 115 Bài viết
Điểm đánh giá: 11 (tàm tạm)

Đã gửi 27 August 2009 - 09:56 PM

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

#11 tivanteo

tivanteo

    biết vẽ circle

  • Members
  • PipPip
  • 36 Bài viết
Điểm đánh giá: 17 (tàm tạm)

Đã gửi 27 August 2009 - 09:58 PM

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

#12 t031285

t031285

    biết vẽ rectang

  • Members
  • PipPip
  • 89 Bài viết
Điểm đánh giá: 1 (bình thường)

Đã gửi 27 August 2009 - 10:23 PM

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

#13 bachngoctung

bachngoctung

    biết lệnh copy

  • Members
  • PipPipPip
  • 115 Bài viết
Điểm đánh giá: 11 (tàm tạm)

Đã gửi 27 August 2009 - 10:48 PM

Ý 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

- Bạn Eplode(lệnh tắt X) Mtext sẽ thành dtext
  • 0

#14 bachngoctung

bachngoctung

    biết lệnh copy

  • Members
  • PipPipPip
  • 115 Bài viết
Điểm đánh giá: 11 (tàm tạm)

Đã gửi 27 August 2009 - 10:58 PM

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

#15 tivanteo

tivanteo

    biết vẽ circle

  • Members
  • PipPip
  • 36 Bài viết
Điểm đánh giá: 17 (tàm tạm)

Đã gửi 28 August 2009 - 12:15 AM

ừ đú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
  • 0

#16 gia_bach

gia_bach

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 1434 Bài viết
Điểm đánh giá: 1426 (rất tốt)

Đã gửi 28 August 2009 - 07:42 AM

ừ đú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
  • 3

#17 bachngoctung

bachngoctung

    biết lệnh copy

  • Members
  • PipPipPip
  • 115 Bài viết
Điểm đánh giá: 11 (tàm tạm)

Đã gửi 28 August 2009 - 11:29 PM

Do có lỗi trong Insert Code Box
Đã Upload file . xem bài số 7


- Lisp chạy ổn rồi>>> Cám ơn bạn gia bach nhiều nhé!
  • 0

#18 truongthanh

truongthanh

    biết lệnh text

  • Members
  • PipPipPipPip
  • 275 Bài viết
Điểm đánh giá: 7 (bình thường)

Đã gửi 03 September 2009 - 09:04 AM

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

#19 gia_bach

gia_bach

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 1434 Bài viết
Điểm đánh giá: 1426 (rất tốt)

Đã gửi 03 September 2009 - 11:02 AM

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

#20 bachngoctung

bachngoctung

    biết lệnh copy

  • Members
  • PipPipPip
  • 115 Bài viết
Điểm đánh giá: 11 (tàm tạm)

Đã gửi 06 September 2009 - 12:28 AM

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