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

dangtosy

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

  • Số lượng nội dung

    8

  • Đã tham gia

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

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

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

    Thanks bạn Doan Van Ha! Mình cần phải hiểu rõ về cách truy xuất Popup_list

     

    Mình làm thế này không biết được chưa?

     

    (setq Type (list "Lines Curve" "Polyline Curve" "Spline Curve" "Arcs Curve"))
(start_list "curve_type" 3)
(mapcar 'add_list Type)
(end_list)

 (setq sStr (get_tile "curve_type"))
 (if (= sStr "")
  (setq list_Item nil)
  (setq list_Item (nth (atoi sStr) Type))
 )

(if (= list_Item (nth 0 Type))
   (command "line")
   (if (= list_Item (nth 1 Type))
    (command "Pline")
    (if (= list_Item (nth 2 Type))
     (command "Spline")
    )
  )
)

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

    Chú đề này hay nhưng chưa ai có đề xuất mới nhỉ? Không biết các bạn có từng dùng phần mềm Gearteq để thiết kế bánh răng chưa. Dựa vào phần mềm này mình có ý tưởng là: Tạo một Dialog bằng Lisp chạy trong CAD (vẽ một khối trụ chẳng hạn), khi nhấn nút "vẽ" nó sẽ link sang SolidWorks và thực hiện từng lậnh con để vẽ nên khối trụ đó trong môi trường SolidWorks. Có cao thủ nào thử nghiên cứu xem ah!

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

    Có cao thủ nào giúp em với, đang cần gấp

    Vẽ biên dạng của đường sau:

     

    x=-e.cos(phi)+r.cos(e.phi/r)

    y=-e.sin(phi)+r.sin(e.phi/r)

     

    Các tham số e và r do người dùng nhập vào.

    Góc (phi) chạy từ 0 đến 360 độ, ứng với mỗi giá trị của góc (phi) ta có được x và y.

    Giả sử ta chia 360 độ ra làm 1000 phần thì mỗi phần là 0,36 độ. Ta cho i chạy từ 0 đến 999, tính được x và y tại điểm đó, nối các điểm đó lại được đường biên dạng.

     

    Ý tưởng của em là như vậy, mong các cao thủ giúp đỡ.

×