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

[Trnghiado 12]

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

[Bee 154]

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)
  )

[hiepttr 540]

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ỉ ^^

[Bee 154]

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

[Trnghiado 12]

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

[Bee 154]

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à. :(

[Trnghiado 12]

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

[ketxu 2.984]

@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

[Bee 154]

@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. 

[Danh Cong 422]

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)

[Bee 154]

 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 ^_^

[Danh Cong 422]

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.

[Bee 154]

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.