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

vminh_ct

Thành viên
  • Số lượng nội dung

    165
  • Đã tham gia

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

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


  1. Cách chọn bình thường khi quét các đối tượng (crossing) với ucs là word thì hình chữ nhật quét luôn có các cạnh song song với trục x và y, vậy có cách nào thay đổi phương của hình chữ nhật này không các bác nhỉ, e dùng lệnh ucs xoay mp XOY quay quanh trục Z 1 góc bất kỳ nhưng hình chữ nhật quét các đối tượng vẫn có phuơng không đổi ( phương khi ucs là word).


  2. cám ơn anh lp_hai, đúng là a hiểu nhầm ý e, e muốn không phải sửa giá trị của dim mà cả chân dim,tức là trong bản vẽ có nhiều đối tượng, e "S" 1 vài đối tượng mà không Stretch dim theo nên e muốn sửa dim theo cách đấy, chứ không kéo grip thì lâu mà lại phải chỉnh sửa chân dim 1 lần nữa hì hì


  3. Bác nào có lisp thay đổi giá trị của dim khi mình pick vào 1 điểm, vd như hình vẽ của e dưới đây. Làm sao líp dùng chọn đối tượng dim có giá trị 1358.98 rồi pick vào điểm thuộc đường đỏ dim này sẽ biến thành giá trị của dim dưới có giá trị 1094,02.

    đây là file cad của em.

    http://www.cadviet.com/upfiles/3/sua_gia_tri_dim.dwg


  4. Ý tưởng của mình là viết 1 đoạn lisp để cad vẽ 1 đường PLINE, yêu cầu người dùng nhập vào: điểm đầu của đường thẳng, chiều dài đường thẳng và góc mà đường thẳng đó hợp với phương mặt phẳng ngang.

     

    Ví dụ: đoạn thẳng cần vẽ có chiều dài là 100 và hướng theo 1 góc xéo 45 độ. Bình thường nếu vẽ trong cad phải thao tác như sau:

    - gõ lệnh pline

    - click chọn điểm đầu tiên (first point)

    - sau đó ở dòng lệnh second point nhập vào: @100<45

     

    Và dưới đây là đoạn lisp mà mình viết nhưng không cho ra kết quả như mong muốn mà cho kết quả là "UNKNOW DPL..." (lệnh mà mình viết là DPL):

     

    (defun c:dpl()
    (setq P1 (getpoint "cho diem dau: "))
    (setq L (getint "nhap chieu dai: "))
    (setq G (getint "nhap so goc: "))
    (setq P2 (list @ L < G))
    (command "pline" P1 P2 "")
    (princ)
    )

     

    Mình biết chắc là đoạn lisp trên có sai nhưng mình không biết sửa như thế nào! Mình chỉ mới tìm hiểu lisp trên diễn đàn CADVIET thui nên chưa rành lắm. Mong các bác có kinh nghiệm chỉ bảo giủp. Nếu được thì bác nào hướng dẫn cho cách viết đoạn lisp để thực hiện ý tưởng trên.

     

    CẢM ƠN CÁC BÁC RẤT RẤT NHIỀU!

    Các bác cho e hỏi làm sao để gán luôn giá trị L =2 và g=45 độ trong lisp trên của mac hung, e dùng hàm setvar nhưng không biết làm thế nào. Trả lời hộ e nhé. e đang mắc chỗ gán giá trị cho biến này

×