Chuyển đến nội dung
Diễn đàn CADViet
Đăng nhập để thực hiện theo  
ramborock

Giúp mình làm đoạn lisp này với

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

Các bạn giúp mình làm đoạn lisp này với:

Tao text:

-Text name: ROMANS

-Height: 200

-Width factor: 0.85

-Layer text: Text200

-Text color: green

Chạy lisp:

-Kiểm tra file đã có kiểu text này hay chưa

-Nếu có rồi thì nhập đoạn văn bản "ROMANS" vào model và set đoạn văn bản này về kiểu text trên.

-Nếu chưa có thì tạo kiểu text trên sau đó cũng nhập vào đoạn văn bản "ROMANS" vào model và set đoạn văn về đúng kiểu text vừa tạo.

Thanks các bạn trước.

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

Mình hơi tò mò về mục đích của bạn nhưng cũng k sao

Bạn thử cái này của mình xem sao

;Free lisp code from CADViet
(defun C:ROMANS (/ diem)
(command "TILEMODE" "1" "")
(command "-style" "ROMANS" "ROMANS" "200" "1" "0" "N" "N" "N" "")
(setq diem (getpoint "\nChon diem dat text... "))
(command "TEXT" diem "0" "ROMANS")
(princ)
)

 

Lệnh ROMANS - Hơi dài một chút bạn có thể sửa lại theo ý sau

Trong code này k kiểm tra đã tồn tại style này chưa, mà tự động tạo style mới, nếu có sẽ trùng vào cũng k sao cả

  • 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 Mathan, tuy nhiên khi minh load file lisp thi nó tự động thực hiện lệnh luôn, chẳng hiểu nữa, vả lại còn đoạn set layer nữa, bạn viết đủ giùm mình được ko?

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

Cụ thể hơn đi bạn ơi. Set layer gì?

Bạn cứ trình bày cụ thể nhé.

Mà trên diễn đàn có nhiều bài về layer rùi.

Bạn chịu khó kiếm coi, nếu chưa đúng ý bạn muốn thì bạn trình bày để xem mình có giúp được j k

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

Ý của mình như sau:

Sau khi tạo được kiểu text rồi và xuất được chữ ROMANS, sau đó lại set layer mới có tên là Text200, màu Green và gán layer này cho chữ ROMANS vừa tạo.

Mục đích của mình là dùng lệnh cho nhanh, mỗi lần mở bản vẽ mới làm việc là phải set up lại từ đầu, mệt lắm.

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 như trên nhé, mình thêm mấy dòng về món layer nữa cho bạn

;Free lisp code from CADViet
(defun C:ROMANS (/ diem)
(command "TILEMODE" "1" "")
(command "-style" "ROMANS" "ROMANS" "200" "1" "0" "N" "N" "N" "")
(setq diem (getpoint "\nChon diem dat text... "))
(command "TEXT" diem "0" "ROMANS")
(command "-LAYER" "NEW" "TEXT200" ^C)
(command "-LAYER" "SET" "TEXT200" ^C)
(command "-LAYER" "COLOR" "3" "TEXT200" ^C)
(princ)
)

  • 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

Cảm ơn mathan về những lisp bạn bắt đầu đóng góp cho diễn đàn :x. Chúc bạn sớm thành 1 cây đại thụ

 

P/s :tuy nhiên những topic không đúng nội quy của box mong mọi người không trả lời, vì sớm muộn nó cũng bị dọn, như vậy phí công lắm, lại loãng box :(

 

@Op : Bạn chú ý đọc nội quy box autolisp. Có link ở chữ ký của mình

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  

×