Đến nội dung


Hình ảnh
- - - - -

A E Viết Giúp Tôi Lisp Trắc Ngang Trong Hầm Lò Với


  • Please log in to reply
41 replies to this topic

#21 Bee

Bee

    biết lệnh array

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

Đã gửi 31 October 2016 - 07:40 PM

Chân thành cám ơn bạn nhé...hôm nay KM Viettel... mình sẽ nhắn vào SĐT này

:) Mình dùng trả sau, không biết sài như thế đc ko. Dù sao thì mình cũng thích cái tính cách thẳng thắn của bạn. Được hay không được cũng ko sao. Thanks.


  • 1

#22 thikladuoc

thikladuoc

    biết vẽ line

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

Đã gửi 31 October 2016 - 10:00 PM

Rãnh rỗi, nghịch cái chơi: https://drive.google...iew?usp=sharing

Lệnh: HAMLO

P/s (bên excel):

- Muốn vẽ tất cả dữ liệu trong 3 cột thì bôi đen cả 3 cột, không cần chọn theo vùng (tức là pick vào cột A, giữ Shift pick cột C) rồi copy - Dòng dữ liệu nào hợp thì vẽ, không thì chuyển tiếp xuống dòng kế tiếp.

- Hoặc muốn vẽ vùng nào thì copy vùng đó.

Bạn ơi, bạn xem bỏ giúp tôi mặt cười và phần đo khoảng cách bên trái giúp tôi với... cám ơn bạn nhiều


  • 0

#23 Bee

Bee

    biết lệnh array

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

Đã gửi 01 November 2016 - 06:59 AM

Bạn ơi, bạn xem bỏ giúp tôi mặt cười và phần đo khoảng cách bên trái giúp tôi với... cám ơn bạn nhiề

Thử lisp này xem thế nào ^_^ Lỗi lần trước của bạn vẽ sai là do bên excel bạn để dấu "," chứ ko phải là "."  Bạn thay phẩy thành chấm là vẽ ngon.

 

http://vforum.vn/die...ong-Window-7-XP

https://drive.google.com/file/d/0B-3fZ45DSr_XN3B3U0hYMjBVblk/view?usp=sharing

  • 1

#24 Bee

Bee

    biết lệnh array

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

Đã gửi 01 November 2016 - 11:21 AM

 

Thử lisp này xem thế nào ^_^ Lỗi lần trước của bạn vẽ sai là do bên excel bạn để dấu "," chứ ko phải là "."  Bạn thay phẩy thành chấm là vẽ ngon.

 

http://vforum.vn/die...ong-Window-7-XP


Lisp này fix luôn chấm phẩy bên excell nhé.

https://drive.google.com/file/d/0B-3fZ45DSr_XdkhVQTZfRUhUdkk/view?usp=sharing

  • 1

#25 thikladuoc

thikladuoc

    biết vẽ line

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

Đã gửi 01 November 2016 - 10:17 PM

 

Lisp này fix luôn chấm phẩy bên excell nhé.

https://drive.google.com/file/d/0B-3fZ45DSr_XdkhVQTZfRUhUdkk/view?usp=sharing

Tôi đã thử lại rồi, chủ yếu báo sai dữ liệu ở cột độ cao, khi bắn ra thì được 1 độ cao gấp 2 lần độ cao đưa vào vẽ ( cột thứ 3 đó) mình cũng thử ở cả dấu . và dấu , nữa... 

Lisp của bạn quocmanh04tt mình thấy ổn rồi, nhưng bạn ấy lại thêm hình mặt cười và khoảng cách đo bên trái ( không có trong file số liệu ấy ) làm mình phải xóa tay ... hik

mình cám ơn bee nhé...

 


  • 0

#26 quocmanh04tt

quocmanh04tt

    biết lệnh imageclip

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

Đã gửi 01 November 2016 - 10:34 PM

Thấy Mr. Bean giúp rồi nên mình chỉ nghịch tý thôi, đây là lsp đã bỏ mặt cười và dim bên trái: https://drive.google...iew?usp=sharing

Của Mr. Bean: Nếu cho độ rộng to lên thì các MC sẽ đè lên nhau.

*** Cái của mình nếu số lượng MC > 10 thì tự xuống hàng.


  • 1

#27 Bee

Bee

    biết lệnh array

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

Đã gửi 01 November 2016 - 10:46 PM

 

 

Lisp này fix luôn chấm phẩy bên excell nhé.

https://drive.google.com/file/d/0B-3fZ45DSr_XdkhVQTZfRUhUdkk/view?usp=sharing

Tôi đã thử lại rồi, chủ yếu báo sai dữ liệu ở cột độ cao, khi bắn ra thì được 1 độ cao gấp 2 lần độ cao đưa vào vẽ ( cột thứ 3 đó) mình cũng thử ở cả dấu . và dấu , nữa... 

Lisp của bạn quocmanh04tt mình thấy ổn rồi, nhưng bạn ấy lại thêm hình mặt cười và khoảng cách đo bên trái ( không có trong file số liệu ấy ) làm mình phải xóa tay ... hik

mình cám ơn bee nhé...

 

 

Lạ nhỉ. mình test nhiều lần ở máy nhà và máy văn phòng, chỉ lỗi chấm phẩy, chưa thấy sai độ cao chút nào. hik.


  • 0

#28 quocmanh04tt

quocmanh04tt

    biết lệnh imageclip

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

Đã gửi 01 November 2016 - 10:56 PM

Uh, của Mr. Bean mình thử không thấy lỗi.

Về mặt code thì mình góp ý như sau:

Khi lấy dữ liệu từ ClipBoad thì đã có 1 chuỗi có thể biến thành list rồi, chỉ cần tut lại 1 tý là vẽ được, của bạn thì Entmake 1 Mtext, rồi lại Expolde, chọn lại rồi lại xử lý list, mấy bước này có vẻ thừa (có xem code có gì không phải bỏ qua nhé!).


  • 0

#29 Bee

Bee

    biết lệnh array

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

Đã gửi 01 November 2016 - 11:16 PM

Uh, của Mr. Bean mình thử không thấy lỗi.

Về mặt code thì mình góp ý như sau:

Khi lấy dữ liệu từ ClipBoad thì đã có 1 chuỗi có thể biến thành list rồi, chỉ cần tut lại 1 tý là vẽ được, của bạn thì Entmake 1 Mtext, rồi lại Expolde, chọn lại rồi lại xử lý list, mấy bước này có vẻ thừa (có xem code có gì không phải bỏ qua nhé!).

Đúng là thừa vì mình hay dùng data copy vào text bên cad để làm việc, nên cứ để nguyên vậy copy nguyên code.

 

Ps: xem hết code hay 1 phần code đã combine thành fas file vậy :)


  • 0

#30 Bee

Bee

    biết lệnh array

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

Đã gửi 01 November 2016 - 11:19 PM

 

 

Lisp này fix luôn chấm phẩy bên excell nhé.

https://drive.google.com/file/d/0B-3fZ45DSr_XdkhVQTZfRUhUdkk/view?usp=sharing

Tôi đã thử lại rồi, chủ yếu báo sai dữ liệu ở cột độ cao, khi bắn ra thì được 1 độ cao gấp 2 lần độ cao đưa vào vẽ ( cột thứ 3 đó) mình cũng thử ở cả dấu . và dấu , nữa... 

Lisp của bạn quocmanh04tt mình thấy ổn rồi, nhưng bạn ấy lại thêm hình mặt cười và khoảng cách đo bên trái ( không có trong file số liệu ấy ) làm mình phải xóa tay ... hik

mình cám ơn bee nhé...

 

 

Bạn chạy lại lisp này và post phần ảnh lịch sử command F2 lên đây mình xem lỗi gì nhé. Chủ yếu tìm lỗi, còn sài lisp QManh đc  rồi. ^_^

https://drive.google.com/file/d/0B-3fZ45DSr_XeE5vUmpQVU1fMjA/view?usp=sharing

  • 0

#31 quocmanh04tt

quocmanh04tt

    biết lệnh imageclip

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

Đã gửi 01 November 2016 - 11:23 PM

- Chuỗi lấy được: các hàng ngăn cách bởi "\r\n" => Split => list...

- Xem được cơ bản thôi, không chi tiết được.


  • 0

#32 Bee

Bee

    biết lệnh array

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

Đã gửi 01 November 2016 - 11:29 PM

- Chuỗi lấy được: các hàng ngăn cách bởi "\r\n" => Split => list...

- Xem được cơ bản thôi, không chi tiết được.

Yep, chuỗi là : "C1\t3\t2.7\r\nC2\t3\t2.6\r\nC3\t3.5\t2.9\r\n" đủ để xử lý roài.

Có những trường hợp xử lý qua mtext-> text sẽ ghép cặp list tiện hơn.

Ps: mềnh cũng có ngó qua code bạn, LM:3PArc và clock hơi nhiều. Code Lee thì xịn roài, chỉ việc sài. :D (bỏ qua nhé)


  • 0

#33 quocmanh04tt

quocmanh04tt

    biết lệnh imageclip

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

Đã gửi 01 November 2016 - 11:35 PM

Uh, có sao đâu! Các hàm con cơ bản thì nên dùng để tiết kiệm thời gian, chủ yếu là thuật toán thôi!


  • 1

#34 Bee

Bee

    biết lệnh array

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

Đã gửi 01 November 2016 - 11:40 PM

Uh, có sao đâu! Các hàm con cơ bản thì nên dùng để tiết kiệm thời gian, chủ yếu là thuật toán thôi!

Chuẩn  :wub:  

 

Chủ thớt đâu rồi nhỉ, thò lên test fix lỗi cái nào.


  • 1

#35 thikladuoc

thikladuoc

    biết vẽ line

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

Đã gửi 02 November 2016 - 05:36 PM

Thấy Mr. Bean giúp rồi nên mình chỉ nghịch tý thôi, đây là lsp đã bỏ mặt cười và dim bên trái: https://drive.google...iew?usp=sharing

Của Mr. Bean: Nếu cho độ rộng to lên thì các MC sẽ đè lên nhau.

*** Cái của mình nếu số lượng MC > 10 thì tự xuống hàng.

Cám ơn bạn nhé, mình đã làm được rồi...

Của bạn Bee thì mình đã gặp lỗi và có chụp ảnh lại nè;

http://www.mediafire...1ha6jyt/Loi.rar

Mình nhờ bạn Bee bổ xung giúp mình với:

Bạn thêm giúp mình thêm chọn cỡ chữ với, nếu bỏ qua chọn cỡ chữ thì sẽ về cỡ chữ mặc định bạn đang để.

Bạn tách giúp mình 4 yếu tố ra 4 layer ( hiện tại đang 2 layer, chữ trên, chữ dưới, đường tròn, đường gạch tương ứng ; layer1,2,3,4) 

Text Style bạn giúp tạo tex VLT (.vntimeH) thay cho standard để khỏi trùng với các text khác nhé:

https://drive.google.com/file/d/0B-3fZ45DSr_XWXV4U1VHZlU3OTQ/view?usp=sharing

Cám ơn các bạn đã giúp mình hoàn thiện thêm công tác...!


  • 0

#36 Bee

Bee

    biết lệnh array

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

Đã gửi 05 November 2016 - 01:41 PM

Cám ơn bạn nhé, mình đã làm được rồi...

Của bạn Bee thì mình đã gặp lỗi và có chụp ảnh lại nè;

http://www.mediafire...1ha6jyt/Loi.rar

Mình nhờ bạn Bee bổ xung giúp mình với:

Bạn thêm giúp mình thêm chọn cỡ chữ với, nếu bỏ qua chọn cỡ chữ thì sẽ về cỡ chữ mặc định bạn đang để.

Bạn tách giúp mình 4 yếu tố ra 4 layer ( hiện tại đang 2 layer, chữ trên, chữ dưới, đường tròn, đường gạch tương ứng ; layer1,2,3,4) 

Text Style bạn giúp tạo tex VLT (.vntimeH) thay cho standard để khỏi trùng với các text khác nhé:

https://drive.google.com/file/d/0B-3fZ45DSr_XWXV4U1VHZlU3OTQ/view?usp=sharing

Cám ơn các bạn đã giúp mình hoàn thiện thêm công tác...!

Đã sửa VLT tách layer và thay textstyle bạn nhé.

https://drive.google.com/file/d/0B-3fZ45DSr_XSmxmdGM0WVFFaFU/view?usp=sharing

  • 1

#37 quocmanh04tt

quocmanh04tt

    biết lệnh imageclip

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

Đã gửi 05 November 2016 - 04:54 PM

Trình diễn:


  • 1

#38 Bee

Bee

    biết lệnh array

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

Đã gửi 05 November 2016 - 09:16 PM

Cám ơn bạn nhé, mình đã làm được rồi...

Của bạn Bee thì mình đã gặp lỗi và có chụp ảnh lại nè;

http://www.mediafire...1ha6jyt/Loi.rar

Mình nhờ bạn Bee bổ xung giúp mình với:

Bạn thêm giúp mình thêm chọn cỡ chữ với, nếu bỏ qua chọn cỡ chữ thì sẽ về cỡ chữ mặc định bạn đang để.

Bạn tách giúp mình 4 yếu tố ra 4 layer ( hiện tại đang 2 layer, chữ trên, chữ dưới, đường tròn, đường gạch tương ứng ; layer1,2,3,4) 

Text Style bạn giúp tạo tex VLT (.vntimeH) thay cho standard để khỏi trùng với các text khác nhé:

https://drive.google.com/file/d/0B-3fZ45DSr_XWXV4U1VHZlU3OTQ/view?usp=sharing

Cám ơn các bạn đã giúp mình hoàn thiện thêm công tác...!

Fix lại 1 số lỗi, có thể chọn 2 cột data bên excel bạn nhé. ^_^

Excel mà nhiều điểm thì pick hơi bị đau tay :)

 

https://youtu.be/ug0sALGqwnQ

https://drive.google.com/file/d/0B-3fZ45DSr_XTXd2RlBnUjZxZ0U/view?usp=sharing

  • 1

#39 thikladuoc

thikladuoc

    biết vẽ line

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

Đã gửi 05 November 2016 - 10:58 PM

 

Fix lại 1 số lỗi, có thể chọn 2 cột data bên excel bạn nhé. ^_^

Excel mà nhiều điểm thì pick hơi bị đau tay :)

 

https://youtu.be/ug0sALGqwnQ

https://drive.google.com/file/d/0B-3fZ45DSr_XTXd2RlBnUjZxZ0U/view?usp=sharing

Thế này là ngon lắm rồi... cảm ơn bạn nhiều nhé... nhưng chữ là .VntimeH.ttf


  • 0

#40 Bee

Bee

    biết lệnh array

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

Đã gửi 05 November 2016 - 11:14 PM

 

 

Fix lại 1 số lỗi, có thể chọn 2 cột data bên excel bạn nhé. ^_^

Excel mà nhiều điểm thì pick hơi bị đau tay :)

 

https://youtu.be/ug0sALGqwnQ

https://drive.google.com/file/d/0B-3fZ45DSr_XTXd2RlBnUjZxZ0U/view?usp=sharing

Thế này là ngon lắm rồi... cảm ơn bạn nhiều nhé... nhưng chữ là .VntimeH.ttf

 

Chữ bên Excel thế nào thì bên CAD sẽ y nguyên. Bạn Format VnTimeH bên excel thì sang CAD sẽ đc. Để thế cho nó đồng bộ font :D


  • 1