Đến nội dung


Hình ảnh

Lisp Tạo Text


  • Please log in to reply
62 replies to this topic

#41 conghoa

conghoa

    biết lệnh attdef

  • Members
  • PipPipPipPipPipPip
  • 411 Bài viết
Điểm đánh giá: 88 (tàm tạm)

Đã gửi 01 November 2016 - 04:55 PM

Thanks! Lsp đồ sộ quá!

 

 

Với mỗi lần chỉ 1 dòng string thì chậm, nếu phân loại thành từng khối text để chèn cả cụm thì có phần nào an ủi. Và có thể phân loại Library... (ngoài ra prop của text được ghi nhớ khi chèn lần tiếp theo). Xây dựng thư viện 1 lần và dùng mãi mãi...

myCbaf.jpg

 

Bác QuocManh phát triển thêm phần Lib-No_0 đi, để có thể gom các ghi chú theo từng chủng loại. :)

Thêm nữa là có thể làm sao để khỏi phải dùng lệnh "re" sau mỗi lần insert được không? hiện tại lisp đang không insert liên tục được.

Thanks!


  • 0

#42 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 - 05:02 PM

Bác QuocManh phát triển thêm phần Lib-No_0 đi, để có thể gom các ghi chú theo từng chủng loại. :)

Thêm nữa là có thể làm sao để khỏi phải dùng lệnh "re" sau mỗi lần insert được không? hiện tại lisp đang không insert liên tục được.

Thanks!

- Người chê nhiều hơn người ủng hộ, đang nản đây! :D 

- Re chưa tìm ra nguyên nhân, trên máy mình thì không sao.


  • 0

#43 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 - 05:20 PM

Thanks! Lsp đồ sộ quá!

 

 

Với mỗi lần chỉ 1 dòng string thì chậm, nếu phân loại thành từng khối text để chèn cả cụm thì có phần nào an ủi. Và có thể phân loại Library... (ngoài ra prop của text được ghi nhớ khi chèn lần tiếp theo). Xây dựng thư viện 1 lần và dùng mãi mãi...

myCbaf.jpg

Xây dựng thư viện thì tùy từng chuyên ngành có những file CAD thư viện riêng. Và cũng làm 1 lần có thể dùng mãi mãi. Có cả trình bày hình thức sẵn, màu mè, layer .....chỉ việc copy cả lũ vào là xong. Chỉnh sửa cũng đơn giản hơn cho người dùng beginer. Lisp này làm cầu kỳ mà thay đổi thì khó cho người dùng. :D


  • 0

#44 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 - 06:41 PM

Xây dựng thư viện thì tùy từng chuyên ngành có những file CAD thư viện riêng. Và cũng làm 1 lần có thể dùng mãi mãi. Có cả trình bày hình thức sẵn, màu mè, layer .....chỉ việc copy cả lũ vào là xong. Chỉnh sửa cũng đơn giản hơn cho người dùng beginer. Lisp này làm cầu kỳ mà thay đổi thì khó cho người dùng. :D

 

- Autocad là Pm có môi trường mở, để tạo ra 1 đối tượng có nhiều cách làm, tùy vào người dùng.

- Lisp này có phụ thuộc vào chuyên ngành nào đâu!??? Mấy dòng string ở trên là khi chạy lần đầu lisp tự tạo ra, sau khi modify thì là thư viện của người dùng, và dùng cho đến khi người dùng tự thay đổi hoặc cài lại CAD (Khắc phục vấn đề này đã có chức năng Export để lưu trữ - Hoặc dùng sang máy khác).

- Thư viện là do người dùng tự xây dựng, có đủ công cụ ở phần modify, đặc biệt nút Get-str có thể quét text trên bản vẽ hiện hành để cập nhật vào thư viện. Vậy thì sao mà khó cho người dùng?

- Dự kiến ở phần list-Library để phân loại, người dùng có thể add thêm hoặc tự thay đổi tên Lib cho dễ nhớ...


  • 1

#45 Kieu Tan

Kieu Tan

    biết vẽ rectang

  • Members
  • PipPip
  • 87 Bài viết
Điểm đánh giá: -23 (kém)

Đã gửi 01 November 2016 - 08:39 PM

@Kieu Tan,conghoa

https://drive.google...iew?usp=sharing

Hướng dẫn:

1. Lệnh CRT

2. Các nút điều khiển trên hộp thoại có thể xem ở Clip ở trên.

3. Sau khi chọn String và OK => trước khi chọn điểm đặt Text, có thể điều chỉnh Text như sau:

    a. Gõ phím S: để thay đổi chiều cao text của dòng đầu tiên, các dòng thứ 2 trở đi giữ nguyên theo giá trị trên hộp thoại.

    b. Nhấn giữ hoặc gõ phím: + , - để thay đổi khoảng cách giữa các dòng.

    c. Nhấn giữ hoặc gõ phím: > , < để thay đổi Width của text.

    d. Nhấn giữ hoặc gõ phím: [ , ] để thay đổi chiều cao text các dòng thứ 2 trở đi.

    e. Nhấn giữ hoặc gõ phím: R, O để xoay text.

P/s: - Khi tạo thư viện String từ nút Get-str: Thì tất cả các string được chuyển sang mã UNICODE.

       - Khi xuất String->Text: Đối với các font .TTF (thuộc các bảng mã: TCVN3, VNI) thì lisp tự chuyển đổi => Có nghĩa: Sau khi chọn các string, dùng TextStyle nào cũng được (Uni, Tcvn, Vni <=> font: *.ttf).

apload xong và sử dụng thì nó báo như này là sao vậy bạn quocmanh04tt 

(Không sử dụng được bạn ơi !)

 
Command: ap APPLOAD CRT_KT_CH.fas successfully loaded.
 
 
Command:
:: Create TEXT from Library | © QuocManh04tt 2016 - www.CadViet.com ::
:: Type "CRT" to Invoke ::
Command:
Command: crt

  • 0

#46 Kieu Tan

Kieu Tan

    biết vẽ rectang

  • Members
  • PipPip
  • 87 Bài viết
Điểm đánh giá: -23 (kém)

Đã gửi 02 November 2016 - 08:31 PM

Vẫn chưa fix được lỗi hả bạn quocmanh04tt ?


  • 0

#47 quocmanh04tt

quocmanh04tt

    biết lệnh imageclip

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

Đã gửi 02 November 2016 - 09:31 PM

Vẫn chưa fix được lỗi hả bạn quocmanh04tt ?

Lỗi gì? Lỗi như thế nào?

@conghoa: Nếu chưa dùng lệnh Re thì có hiện tượng ra sao? Bản test đầu tiên có bị vậy không? Trên máy của mình dùng bình thường nên không đoán được nguyên do. Mình dùng Cad2017 x64 - Win10, cài xong chỉ có 1 số biến hệ thống thay đổi theo lisp làm nhẹ cad (SPA) của Mr.NguyenHoanh. Không biết có khắc tinh với lisp khác trên máy của bạn không??? => Thử không tải lsp khác xem sao!


  • 0

#48 Kieu Tan

Kieu Tan

    biết vẽ rectang

  • Members
  • PipPip
  • 87 Bài viết
Điểm đánh giá: -23 (kém)

Đã gửi 03 November 2016 - 05:10 AM

Lỗi gì? Lỗi như thế nào?

@conghoa: Nếu chưa dùng lệnh Re thì có hiện tượng ra sao? Bản test đầu tiên có bị vậy không? Trên máy của mình dùng bình thường nên không đoán được nguyên do. Mình dùng Cad2017 x64 - Win10, cài xong chỉ có 1 số biến hệ thống thay đổi theo lisp làm nhẹ cad (SPA) của Mr.NguyenHoanh. Không biết có khắc tinh với lisp khác trên máy của bạn không??? => Thử không tải lsp khác xem sao!

Sau khi apload và sử dụng thì nó xuất hiện bảng:

Hôm nay em hơi bị khó ở...! 


  • 0

#49 quocmanh04tt

quocmanh04tt

    biết lệnh imageclip

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

Đã gửi 03 November 2016 - 08:02 AM

@conghoa: Sử dụng bản này xem (Thi triển hết ý tưởng)=> CNc8CL.jpg

 

Link:https://drive.google...iew?usp=sharing


  • 1

#50 conghoa

conghoa

    biết lệnh attdef

  • Members
  • PipPipPipPipPipPip
  • 411 Bài viết
Điểm đánh giá: 88 (tàm tạm)

Đã gửi 03 November 2016 - 08:46 AM

@conghoa: Sử dụng bản này xem (Thi triển hết ý tưởng)=>

 

Link:https://drive.google...iew?usp=sharing

 

Thanks Quocmanh,

Mình đã dùng mà thấy ổn rồi, hiện tượng "re" lúc bị lúc không nên cũng ko rõ như nào :D

 

Tính năng Lib-no bạn có thể thêm cho nó tự nhận dữ liệu *.dat theo folder chỉ định được không? Nghĩa là khi bấm vào Mầu đỏ lần đầu thì nó sẽ yêu cầu đưa thư mục lưu trữ các Lib-no (lưu đường dẫn để lần sau vào không yêu cầu nữa), rồi nó tự động cập nhật các tên file.dat thành các Lib-no theo thứ tự.

 

Việc xóa Lib-no mới thêm vào như nào?

 

Cái ô mầu xanh có tính năng gì thế Quocmanh?


  • 0

#51 quocmanh04tt

quocmanh04tt

    biết lệnh imageclip

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

Đã gửi 03 November 2016 - 08:53 AM

Thanks Quocmanh,

Mình đã dùng mà thấy ổn rồi, hiện tượng "re" lúc bị lúc không nên cũng ko rõ như nào :D

 

Tính năng Lib-no bạn có thể thêm cho nó tự nhận dữ liệu *.dat theo folder chỉ định được không? Nghĩa là khi bấm vào Mầu đỏ lần đầu thì nó sẽ yêu cầu đưa thư mục lưu trữ các Lib-no (lưu đường dẫn để lần sau vào không yêu cầu nữa), rồi nó tự động cập nhật các tên file.dat thành các Lib-no theo thứ tự.

 

Việc xóa Lib-no mới thêm vào như nào?

 

Cái ô mầu xanh có tính năng gì thế Quocmanh?

- Lip-no thì dùng Import, Export thôi! Vì Export ra được nhiều file và lưu trữ những file này (đặt tên cho nó để dễ nhớ) => Lưu theo thư mục thì nảy sinh vấn đề phức tạp.

- Nút màu xanh là lấy tính chất 1 text trên bản vẽ hiện hành (Layer, Height, Width...) để gán vào hộp thoại (gần giống lệnh MA).

- Ở dòng nhắc có nhiều tính năng truy cập bằng cách gõ các ký tự thấy ở đó, (Tab là nhấn phím Tab).


  • 0

#52 Kieu Tan

Kieu Tan

    biết vẽ rectang

  • Members
  • PipPip
  • 87 Bài viết
Điểm đánh giá: -23 (kém)

Đã gửi 03 November 2016 - 09:12 AM

- Lip-no thì dùng Import, Export thôi! Vì Export ra được nhiều file và lưu trữ những file này (đặt tên cho nó để dễ nhớ) => Lưu theo thư mục thì nảy sinh vấn đề phức tạp.
- Nút màu xanh là lấy tính chất 1 text trên bản vẽ hiện hành (Layer, Height, Width...) để gán vào hộp thoại (gần giống lệnh MA).
- Ở dòng nhắc có nhiều tính năng truy cập bằng cách gõ các ký tự thấy ở đó, (Tab là nhấn phím Tab).


Mình dùng cad2007 và cad2014 là không được bạn ah
  • 0

#53 conghoa

conghoa

    biết lệnh attdef

  • Members
  • PipPipPipPipPipPip
  • 411 Bài viết
Điểm đánh giá: 88 (tàm tạm)

Đã gửi 03 November 2016 - 09:20 AM

- Lip-no thì dùng Import, Export thôi! Vì Export ra được nhiều file và lưu trữ những file này (đặt tên cho nó để dễ nhớ) => Lưu theo thư mục thì nảy sinh vấn đề phức tạp.

- Nút màu xanh là lấy tính chất 1 text trên bản vẽ hiện hành (Layer, Height, Width...) để gán vào hộp thoại (gần giống lệnh MA).

- Ở dòng nhắc có nhiều tính năng truy cập bằng cách gõ các ký tự thấy ở đó, (Tab là nhấn phím Tab).

Ý mình không phải là lưu theo folder, mà chỉ là nhận dạng các Lib-no đã được tạo trong Folder có sẵn để cập nhật vào cái phần List của Lib-no 1 lần đầu tiên khi chạy lisp.

Diễn giải:

- Mình có sẵn các file (A1.dat, A2.dat, .... An.dat)

- Khi copy sang máy mới thì sẽ phải vào nút mầu đỏ để tạo các tên Lib-no là "A1.dat, A2.dat, .... An.dat", sau đó phải chọn từng A*.dat rồi import lần lượt từng cái một. Như thế sẽ khá lằng nhằng :)

 

Nói dài dòng như thế tóm lại là: Quocmanh sẽ làm thế nào để lisp cập nhật được các file.dat mà mình đã tạo được khi dùng với một máy mới?


  • 0

#54 quocmanh04tt

quocmanh04tt

    biết lệnh imageclip

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

Đã gửi 03 November 2016 - 09:26 AM

Ý mình không phải là lưu theo folder, mà chỉ là nhận dạng các Lib-no đã được tạo trong Folder có sẵn để cập nhật vào cái phần List của Lib-no 1 lần đầu tiên khi chạy lisp.

Diễn giải:

- Mình có sẵn các file (A1.dat, A2.dat, .... An.dat)

- Khi copy sang máy mới thì sẽ phải vào nút mầu đỏ để tạo các tên Lib-no là "A1.dat, A2.dat, .... An.dat", sau đó phải chọn từng A*.dat rồi import lần lượt từng cái một. Như thế sẽ khá lằng nhằng :)

 

Nói dài dòng như thế tóm lại là: Quocmanh sẽ làm thế nào để lisp cập nhật được các file.dat mà mình đã tạo được khi dùng với một máy mới.

Mình vẫn hiểu như vậy và đã nói ở trên => Nó liên quan đến đọc và ghi dữ liệu...


  • 0

#55 quocmanh04tt

quocmanh04tt

    biết lệnh imageclip

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

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

Update cuối tuần: 4Wqtvg.jpg

Link: https://drive.google...iew?usp=sharing

P/s: - Bổ sung 2 nút vàng và xanh (green) => Xuất nhập 1 file.

       - Xóa thư viện con.


  • 2

#56 Kieu Tan

Kieu Tan

    biết vẽ rectang

  • Members
  • PipPip
  • 87 Bài viết
Điểm đánh giá: -23 (kém)

Đã gửi 04 November 2016 - 08:56 PM

Update cuối tuần: 4Wqtvg.jpg

Link: https://drive.google...iew?usp=sharing

P/s: - Bổ sung 2 nút vàng và xanh (green) => Xuất nhập 1 file.

       - Xóa thư viện con.

Không hiểu tại sao mà load xong mà không chạy được nhỉ ! 


  • 0

#57 conghoa

conghoa

    biết lệnh attdef

  • Members
  • PipPipPipPipPipPip
  • 411 Bài viết
Điểm đánh giá: 88 (tàm tạm)

Đã gửi 04 November 2016 - 10:00 PM

@Kieu Tan, bạn xem lại trang trước quocmanh có hướng dẫn cách chạy lisp đó.
@quocmanh04tt, cảm ơn bác về sự nhiệt tình nhé!
  • 1

#58 conghoa

conghoa

    biết lệnh attdef

  • Members
  • PipPipPipPipPipPip
  • 411 Bài viết
Điểm đánh giá: 88 (tàm tạm)

Đã gửi 05 November 2016 - 03:46 PM

@Quocmanh, mình có test thì 3 mầu (Đỏ, Vàng, Xanh (Green) ) lúc kick vào không hiện ra gì cả, Bác check lại zùm nhé!


  • 0

#59 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:16 PM

Đã làm theo dòng ***chú ý:... ở cuối cùng của phần hướng dẫn chưa?


  • 1

#60 conghoa

conghoa

    biết lệnh attdef

  • Members
  • PipPipPipPipPipPip
  • 411 Bài viết
Điểm đánh giá: 88 (tàm tạm)

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

Thanks :D, bây giờ mới hiểu nghĩa của dòng đó hì hì


  • 0