Chuyển đến nội dung
Diễn đàn CADViet
  • Thông báo

    • Nguyen Hoanh

      CADViet đã hoàn tất nâng cấp   14/09/2017

      Chào các bạn, CADViet đã hoàn tất việc nâng cấp lên phiên bản mới. Tất cả các chức năng đã hoạt động theo kỳ vọng của ban quản trị. Nếu có vấn đề gì cần phản hồi, các bản post ở đây nhé: Trân trọng, Nguyễn Hoành.
Đăng nhập để thực hiện theo  
Kieu Tan

Lisp Tạo Text

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

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

Lib-str10

 

Error: bad argument type: streamp nil

Command:

 

 

Bác hôm nay khó ở ah, nó hiện lên cái bảng đó rồi out luô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

 

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
Lib-str10
 
Error: bad argument type: streamp nil
Command:
 
 
Bác hôm nay khó ở ah, nó hiện lên cái bảng đó rồi out luôn :|

 

Bác hôm nay khó ở ah, nó hiện lên cái bảng đó rồi out luô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

 

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
Lib-str10
 
Error: bad argument type: streamp nil
Command:
 
 
Bác hôm nay khó ở ah, nó hiện lên cái bảng đó rồi out luôn :|

 

Sr... Hề hề nhầm tý! Tải lại xem...

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

 

Command:
CRT
 
Specify point to insert text [R/O/</>/+/-/S]:
:: Create TEXT from Library | © QuocManh04tt-CadViet.com.

 

Chỉ thông báo thế thôi rồi out luô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

 

Command:
CRT
 
Specify point to insert text [R/O/</>/+/-/S]:
:: Create TEXT from Library | © QuocManh04tt-CadViet.com.

 

Uh, thế này thì khó tìm lỗi đây...! (trên máy của mình thì nó chạy ngon hơn cả clip ở trên) :D

Bạn thử làm theo hình dưới xem sao (Allow):

K0GrPz.jpg

  • 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

Bản thân ket suy nghĩ mãi chưa ra lý do để sử dụng lisp này, mặc dù bác quocmanh đã rất kỳ công cho nó. Làm hẳn 1 tool pallette cho nó có phải nhàn hơn không :D

  • 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 thân ket suy nghĩ mãi chưa ra lý do để sử dụng lisp này, mặc dù bác quocmanh đã rất kỳ công cho nó. Làm hẳn 1 tool pallette cho nó có phải nhàn hơn không :D

Luyện công thôi Ket! :D 

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 thân ket suy nghĩ mãi chưa ra lý do để sử dụng lisp này, mặc dù bác quocmanh đã rất kỳ công cho nó. Làm hẳn 1 tool pallette cho nó có phải nhàn hơn không :D

Không có ý chê bai lisp, nhưng mình cũng cùng suy nghĩ về lisp này. Giả dụ hệ thống string đồ sộ, cái công sức ngồi chọn loại ra tên string cũng kỳ công ko kém. Chậm hơn là copy text và ngồi gõ. Nhanh hơn chút là đặt tính năng gõ tắt cho unikey với khoảng 10 từ hay gõ nhất. Heizz 

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ặng bác quocmanh cái này để "luyện công"

 

Lisp này thiết tính năng lưu trữ file trực tiếp, cũng như ko hỗ trợ tiếng việt

 

http://www.mediafire.com/file/6niey8qb9itznkc/TextInsert.rar

 

Thanks! Lsp đồ sộ quá!

 

Không có ý chê bai lisp, nhưng mình cũng cùng suy nghĩ về lisp này. Giả dụ hệ thống string đồ sộ, cái công sức ngồi chọn loại ra tên string cũng kỳ công ko kém. Chậm hơn là copy text và ngồi gõ. Nhanh hơn chút là đặt tính năng gõ tắt cho unikey với khoảng 10 từ hay gõ nhất. Heizz 

 

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

  • 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

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!

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á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.

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

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

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

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ớ...

  • 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

@Kieu Tan,conghoa

https://drive.google.com/file/d/0B2LetfHDljPGMlFBcktDWU0ybms/view?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

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

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!

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

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ó ở...! 

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

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

 

Link:https://drive.google.com/file/d/0B2LetfHDljPGcThlcmhvdURCU1E/view?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?

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

Đăng nhập để thực hiện theo  

×