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  
Trnghiado

Nhờ Viết Lisp Tính Khối Lượng Khuôn

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

https://drive.google.com/file/d/0B-gIuhLk2Nw1OEI4U0NPLXdVRmM/view?usp=sharing

 

Xin chào anh em trên diễn đàn

Mình muốn nhờ anh em viết cho một lisp tính khối lượng khuôn. Yêu cầu cụ thể mình có ghi trong file ảnh đính kèm.

Mong anh em giúp đỡ.

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

https://drive.google.com/file/d/0B-gIuhLk2Nw1OEI4U0NPLXdVRmM/view?usp=sharing

 

Xin chào anh em trên diễn đàn

Mình muốn nhờ anh em viết cho một lisp tính khối lượng khuôn. Yêu cầu cụ thể mình có ghi trong file ảnh đính kèm.

Mong anh em giúp đỡ.

Thanks

Thử lisp này nhé.

(defun c:test (/ pt d obj area m)
  (if (setq pt (getpoint "\nChon point bat ky: "))
    (progn
      (setq d nil)
      (while (not (setq d (getreal "\nChon chieu dai khuon: "))))
      (command "-hatch" pt "")
      (setq obj (vlax-ename->vla-object (entlast)))
      (setq area (vlax-get Obj "Area"))
      (setq m (rtos (/ (* (* area d) 7.86) 1000000.) 2 2))
      (vla-AddText
	(vla-get-modelspace (vla-get-activedocument (vlax-get-acad-object)))
	m
	(vlax-3d-point pt)
	(getvar 'textsize)
	)
      (vla-delete obj)
      )
    (princ "\nBan da khong chon diem bat ky.")
    )
  (princ)
  )

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ỡ mà trước đó đã vẽ 1 đối tượng có diện tích và hatch trong lisp không thành công thì hơi tai hại 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

Lỡ mà trước đó đã vẽ 1 đối tượng có diện tích và hatch trong lisp không thành công thì hơi tai hại nhỉ ^^

Uhm, con mình ngủ mới rảnh sửa.

Lisp trên mình viết nhanh ko tính hết, chỉ tính trường hợp đúng nhất. Thử lisp này xem thế nào. Nếu error mình sẽ sửa tiếp cho hoàn thiện hơn . Điều kiện là có cài express và vùng cần tính như trong đầu bài là pline nhé. :D

Download file:

 

https://www.fshare.vn/file/SATXXM38M7TA

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

Uhm, con mình ngủ mới rảnh sửa.

Lisp trên mình viết nhanh ko tính hết, chỉ tính trường hợp đúng nhất. Thử lisp này xem thế nào. Nếu error mình sẽ sửa tiếp cho hoàn thiện hơn . Điều kiện là có cài express và vùng cần tính như trong đầu bài là pline nhé. :D

Download file:

 

https://www.fshare.vn/file/SATXXM38M7TA

Lisp trên mình đã thử và ko cho ra kết quả, hơn nữa lúc đến phần nhập chiều dài khuôn mình muốn phần nhập hiện lên màn hình ý. Còn lisp sau thì bạn gửi là lisp mã hóa mà ko nhắc cho mình lệnh tắt là gì nên mình chịu chưa thử đc  :P  :P  :P

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

Lisp trên mình đã thử và ko cho ra kết quả, hơn nữa lúc đến phần nhập chiều dài khuôn mình muốn phần nhập hiện lên màn hình ý. Còn lisp sau thì bạn gửi là lisp mã hóa mà ko nhắc cho mình lệnh tắt là gì nên mình chịu chưa thử đc  :P  :P  :P

Heizz tập thói quen cẩn thẩn đi chứ. Lúc load lisp thì có hiện thông báo lệnh ở dòng command mà. :(

  • 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

Heizz tập thói quen cẩn thẩn đi chứ. Lúc load lisp thì có hiện thông báo lệnh ở dòng command mà. :(

Ok bạn, thế này là đúng ý mình rồi. 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

@Bee : Thêm một cao thủ trong CADVIET nữa chăng ^^ Hân hạnh được học hỏi từ các lisp của bá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

@Bee : Thêm một cao thủ trong CADVIET nữa chăng ^^ Hân hạnh được học hỏi từ các lisp của bác

Chào ketxu. Cao thủ thì không dám nhận, những điều mình biết cũng đủ dùng thôi. :) Mình cũng mong được học hỏi từ diễn đàn và của mọi người. 

  • 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

Chào ketxu. Cao thủ thì không dám nhận, những điều mình biết cũng đủ dùng thôi. :) Mình cũng mong được học hỏi từ diễn đàn và của mọi người. 

 

 Các anh- chị- bác trai- bác gái..... toàn sử dụng "Vla" với "Acet" "Geom" các kiểu, còn em thì chưa hiểu gì..... :wacko:  :wacko:  :wacko:  Tự thấy bản thân còn gà quá. !!!

 Có bác nào dạy em phần này ko, em nhận mang xôi gà đến học hỏi !!!   (TT)

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ác anh- chị- bác trai- bác gái..... toàn sử dụng "Vla" với "Acet" "Geom" các kiểu, còn em thì chưa hiểu gì..... :wacko:  :wacko:  :wacko:  Tự thấy bản thân còn gà quá. !!!

 Có bác nào dạy em phần này ko, em nhận mang xôi gà đến học hỏi !!!   (TT)

Hỏi Ketxu xem nào ^_^

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

Hỏi Ketxu xem nào ^_^

 

Thôi thì hỏi đơn giản 1 chút. Mấy anh học món này như thế nào ạ.

Lisp đơn thuần ko sử dụng Vla- Acet... thì em còn có thể đọc sách để biết.

Vậy những thứ nâng cao kia em phải học như thế nào, mong mấy anh chỉ bảo.

 

Nếu có sách học thì hay  :(  :( Chứ tự dưng thấy 1 lisp nào đó, mò ra tìm hiểu nó là gì thì ko hệ thống cho 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

Mình luôn có ông bạn tên Google. Hỏi gì cũng trả lời. :D Hỏi được vài trang web: trong đó có http://www.afralisp.net/visual-lisp/tutorials/là ví dụ tìm hiểu tốt. Có thể seach thêm.

 

Đây là cách ACAD tổ chức quản lý đối tượng :

 

https://knowledge.autodesk.com/search-result/caas/CloudHelp/cloudhelp/2016/ENU/AutoCAD-ActiveX/files/GUID-A809CD71-4655-44E2-B674-1FE200B9FE30-htm.html

 

Và hỏi thêm mọi người. ^_^ Good luck.

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  

×