Chuyển đến nội dung
Diễn đàn CADViet

xuanvi

Thành viên
 Xem Hồ Sơ  Xem hoạt động của họ

  • Số lượng nội dung

    4

  • Đã tham gia

  • Lần ghé thăm cuối

Bài đăng được đăng bởi xuanvi

  1. Đã đăng · Trả lời báo cáo

    bạn q288 ơi, cho mình hỏi chút: tại sao khi AP lên máy này thì được, AP lên máy khác lại không được?

     

    Có một vấn đề nảy sinh:

     

    - Text nhập vào sẽ lấy theo font của style hiện tại (current style). Không can thiệp được chiều cao của text.

    - Nếu dùng lệnh "ST", thay đổi chiều cao chữ trong ô "Height" của style hiện hành thì chương trình sẽ có lỗi xảy ra: ví dụ text sẽ nhảy thành số, góc nghiêng không song song với đường thẳng đã chọn.

     

    vậy mình có thể yêu cầu nhập vào chiều cao của đoạn text được không? như vậy không ảnh hưởng bởi style hiện tại mà có thể tuỳ chọn chiều cao text cho phù hợp.

     

    mong sớm nhận được giúp đỡ của mọi người.

  2. Đã đăng · Trả lời báo cáo

    ôi, hay quá! cám ơn bạn q288 rất nhiều. Mình là người mới bắt đầu học lisp, nên loay hoay mãi mà không ra.

     

    cái này rất giúp ích cho mình trong thiết kế.

     

    Ah, mà bạn viết bằng cái gì vậy, có cả mầu cho các lệnh, dấu ngoặc vậy? Mình viết bằng notepad nên theo dõi rất khó khăn.

     

    Bạn có tài liệu hướng dẫn lập trình lisp mà dễ hiểu không, chỉ cho mình với. Mỗi lần làm cái gì lại đi nhờ vả, ngại lắm!!!

  3. Đã đăng · Trả lời báo cáo

    Cám ơn bạn q288 đã có bài viết. Mình đã dùng thử, thấy rất được. Tuy nhiên mình còn một vấn đề cần bạn giúp là:

     

    Sau khi chèn text vào đường thẳng đã chọn rồi, con chuột vẫn ở rạng "ô vuông", mình chọn đường thẳng khác nó lại chèn đoạn text trên vào đường thẳng mình vừa chọn. Lệnh sẽ kết thúc khi mình nhấn Enter hoặc ESC.

     

    Mình xin giải thích: Trên bản vẽ có nhiều đoạn line, mình muốn chèn một đoạn text cố định vào tất cả các đường line đó. chỉ cần một lệnh: chọn line chèn text, chọn line chèn text,....enter, esc -->kết thúc lệnh. Như vậy giảm được rất nhiều thời gian.

     

    Cám ơn bạn huyhuong đã có ý kiến đóng góp. Tuy nhiên ở đây mình chỉ cần ghi các thông số kỹ thuật lên đoạn line đó thôi, không cần ghi tiếng việt có dấu. thông số kỹ thuật có thể khác nhau theo từng trường hợp, do vậy đoạn text mình phải nhập vào từ bàn phím.

     

    Để text nằm trên đoạn thẳng mình chỉ cần thay "MC" bằng "BC" như đoạn mã dưới đây là được:

     

    (command "text" "j" "BC" pm "" (* 180 (/ (angle p1 p2) pi)) chu)

     

    Nếu bạn q288 mà viết cho cả đường pline thì tốt.

     

    PS:

     

    Hơn nữa, bạn cần xử lý góc chèn text, để text không bị ngược như khi ta chèn text vào đoạn thẳng mà được vẽ từ phải qua trái ( Điểm p1 bên phải, p2 bên trái theo trục thẳng đứng)

    • Vote tăng 1

  4. Đã đăng · Trả lời báo cáo

    Có pác nào giúp em với.

     

    Em có nhiều đường thẳng khác nhau trên một bản vẽ mà cần ghi các thông số chi tiết lên đường thẳng đó (ví dụ: em cần ghi đường kính các ống cấp nước là D32 lên tất cảc các đường thẳng trên). Vậy có pác nào viết dùm em một cái lisp mà mình có thể nhập đoạn text từ bàn phím rồi chèn đoạn text đó theo đường thẳng bất kỳ không? các đường thẳng tiếp theo chỉ cần chọn là chèn đoạn text vào, lệnh sẽ kết thúc khi ta nhần enter hoặc ESC.

     

    PS:

    đoạn Text được chèn vào nằm đúng giữa đường thẳng và có góc quay song song với đoạn thẳng đó.

     

    Cám ơn các pác.

×