Đến nội dung


Hình ảnh
- - - - -

Nhờ Tìm Lisp Có Tên Lệnh Là Defun C: Txtx


  • Please log in to reply
9 replies to this topic

#1 huyenle

huyenle

    biết zoom

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

Đã gửi 29 July 2016 - 10:54 PM

chào cách anh chị trên diễn đàn trước đây em có một lisp xuất text từ cad sang excel nó giống hệt với lisp trong topic này http://www.cadviet.c...-chon-ra-excel/  và em nghĩ nó được đẻ ra từ đó. Một lần mất dữ liệu trên ổ cứng và lisp đó đã ra đi em tìm trên diễn đàn cadviet thì tìm được bài viết mà em vừa đưa link lên đó nhưng lisp của em sau khi xuất sang csv nó bố trí giống với bảng trong cad  tức là cũng tách hàng tác cột như bên bảng chèn trong cad. Xin lỗi nếu mất thời gian của mọi người nhưng thực sự nó rất cần với em lúc này nếu ai có hoặc vô tình thấy nó thì cho em xin với. em cảm ơn. Mấy lisp trên diễn đàn thì số liệu cũng được tách thành hàng nhưng ở cột thì text nằm hết vào 1 ô chỉ ngăn cách nhau dấu phẩy như thế này ví dụ: 123,123,125,145,155, và em muốn nó phải tác ra giống cái bảng trong cad không

Em xin chân thành cảm ơn :((


  • 0

#2 hiepttr

hiepttr

    Edu level: li10

  • Members
  • PipPipPipPipPipPipPip
  • 1298 Bài viết
Điểm đánh giá: 518 (tốt)

Đã gửi 30 July 2016 - 08:21 AM

Cái khoản tìm hộ thì mình cực nhác nhưng nhiều chuyện tí thì có ^^ :D :D :D

Với cái lisp "..nhưng ở cột thì text nằm hết vào 1 ô chỉ ngăn cách nhau dấu phẩy như thế này ví dụ: 123,123,125,145,155..." Bạn có thể thử cài:

- Với win (System): Decimal symbol là dấu chấm (.), Digit grouping symbol là dâu phẩy (,)

- Với excel: Tích chọn Use system separators

 >>> Chạy lisp lại xem sao ?!


  • 1

Có vợ dù dữ dù hiền , bạn đều có lợi
_ Nếu vợ hiền, bạn sẽ là người đàn ông sung sướng
_ Nếu vợ dữ, bạn sẽ thành ... triết gia !

Bergson


#3 huyenle

huyenle

    biết zoom

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

Đã gửi 30 July 2016 - 08:41 AM

Chào bạn hiepttr mình cảm ơn bạn đã giúp mình làm được. Mình là dân hay chạy dự toán nên hay để  Decimal symbol là dấu chấm (,), Digit grouping symbol là dâu phẩy (.) bây giờ mà để như thế thì mỗi lần chạy lisp xong là phải chỉnh lại để làm các việc khác thì có vẻ hơi bất tiện. Lẽ ra phải thảo luận trong chủ đề của lisp đó nhưng mình đã lỡ hỏi trong chủ đề này rồi mong mọi người thông cảm. Bạn hiepttr  và các anh chị trên diễn đàn có cách nào không cần đổi Decimal symbol là dấu chấm (,), Digit grouping symbol là dâu phẩy (.) không? 


  • 0

#4 quocmanh04tt

quocmanh04tt

    biết lệnh imageclip

  • Members
  • PipPipPipPipPipPipPip
  • 665 Bài viết
Điểm đánh giá: 312 (khá)

Đã gửi 30 July 2016 - 09:59 AM

Nếu dùng lisp ở bài #13, bạn thử thay ở dòng này: txl (strcat txl t1 ","))  thành: txl (strcat txl t1 ";")) xem sao (tức là thay "," thành ";").


  • 0

#5 huyenle

huyenle

    biết zoom

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

Đã gửi 30 July 2016 - 12:21 PM

Nếu dùng lisp ở bài #13, bạn thử thay ở dòng này: txl (strcat txl t1 ","))  thành: txl (strcat txl t1 ";")) xem sao (tức là thay "," thành ";")

Bạn ơi cho hỏi tí nó bị thế này là thế nào ; error: no function definition: ACET-SS-TO-LIST sau khi mình sử theo bạn bảo


  • 0

#6 quocmanh04tt

quocmanh04tt

    biết lệnh imageclip

  • Members
  • PipPipPipPipPipPipPip
  • 665 Bài viết
Điểm đánh giá: 312 (khá)

Đã gửi 30 July 2016 - 04:44 PM

Lisp đòi hỏi phải cài Express.


  • 1

#7 huyenle

huyenle

    biết zoom

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

Đã gửi 30 July 2016 - 05:10 PM

152408_anh_cad_3.jpgBạn ơi mình cài cad 2010 thì ok rồi thanks, nhưng mình cài 2007 thì không được mình gửi ảnh bạn xem nhé mình vẫn có Express.


  • 0

#8 quocmanh04tt

quocmanh04tt

    biết lệnh imageclip

  • Members
  • PipPipPipPipPipPipPip
  • 665 Bài viết
Điểm đánh giá: 312 (khá)

Đã gửi 30 July 2016 - 06:31 PM

Có thể cad2007 của bạn có vấn đề về Express. Cad báo: no function definition: ACET-SS-TO-LIST, hàm ACET-SS-TO-LIST là của Express.


  • 1

#9 huyenle

huyenle

    biết zoom

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

Đã gửi 30 July 2016 - 06:48 PM

cảm ơn  quocmanh04tt  và mọi người mình sẽ xem lại cad mọi việc thế là ổn rồi, nhưng mình muốn bạn có thể bổ sung cho mình các hàng nó cách nhau một hàng trắng khi xuất sang csc không? mình gửi kèm hình bên dưới. Mình biết không nên yêu cầu như thế vì lisp này nó được sinh ra trong một chủ đề khác và phải trao đổi ở mục đó nhưng mình đã lỡ tạo bài viết rồi nên mong bạn và mọi người thông cảm admin đừng xóa bài của mình nhé vì mình mới tham gia diễn đàn và trình độ còn kém152408_01.jpg


  • 0

#10 quocmanh04tt

quocmanh04tt

    biết lệnh imageclip

  • Members
  • PipPipPipPipPipPipPip
  • 665 Bài viết
Điểm đánh giá: 312 (khá)

Đã gửi 30 July 2016 - 08:09 PM

Bạn thêm dòng này (write-line ";;" fw) ngay phía sau dòng (write-line txl fw) .


  • 1