Đến nội dung


Hình ảnh
- - - - -

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


  • Please log in to reply
12 replies to this topic

#1 Trnghiado

Trnghiado

    biết vẽ arc

  • Members
  • PipPip
  • 43 Bài viết
Điểm đánh giá: -11 (hơi kém)

Đã gửi 08 October 2016 - 01:45 PM

https://drive.google...iew?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


  • 0

#2 Bee

Bee

    biết lệnh extend

  • Members
  • PipPipPip
  • 198 Bài viết
Điểm đánh giá: 68 (tàm tạm)

Đã gửi 08 October 2016 - 08:34 PM

https://drive.google...iew?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)
  )


  • 0

#3 hiepttr

hiepttr

    Edu level: li10

  • Members
  • PipPipPipPipPipPipPip
  • 1298 Bài viết
Điểm đánh giá: 518 (tốt)

Đã gửi 08 October 2016 - 09:03 PM

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


  • 0

Có vợ dù dữ dù hiền , bạn đều có lợi
_ Nếu vợ hiền, bạn sẽ là người đàn ông sung sướng
_ Nếu vợ dữ, bạn sẽ thành ... triết gia !

Bergson


#4 Bee

Bee

    biết lệnh extend

  • Members
  • PipPipPip
  • 198 Bài viết
Điểm đánh giá: 68 (tàm tạm)

Đã gửi 09 October 2016 - 01:37 AM

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.v...le/SATXXM38M7TA


  • 0

#5 Trnghiado

Trnghiado

    biết vẽ arc

  • Members
  • PipPip
  • 43 Bài viết
Điểm đánh giá: -11 (hơi kém)

Đã gửi 09 October 2016 - 12:19 PM

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.v...le/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


  • 0

#6 Bee

Bee

    biết lệnh extend

  • Members
  • PipPipPip
  • 198 Bài viết
Điểm đánh giá: 68 (tàm tạm)

Đã gửi 09 October 2016 - 01:31 PM

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


  • 2

#7 Trnghiado

Trnghiado

    biết vẽ arc

  • Members
  • PipPip
  • 43 Bài viết
Điểm đánh giá: -11 (hơi kém)

Đã gửi 10 October 2016 - 07:46 AM

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


  • 0

#8 ketxu

ketxu

    Copier - Paster - Editor

  • Moderator
  • PipPipPipPipPipPipPip
  • 5685 Bài viết
Điểm đánh giá: 2606 (tuyệt vời)

Đã gửi 10 October 2016 - 10:33 AM

@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


  • 0

Thành viên nhóm CadMagic.
Mời bạn ghé thăm facebook nhóm - Page viết lisp theo yêu cầu  :
CAD MAGIC


#9 Bee

Bee

    biết lệnh extend

  • Members
  • PipPipPip
  • 198 Bài viết
Điểm đánh giá: 68 (tàm tạm)

Đã gửi 10 October 2016 - 01:54 PM

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


  • 1

#10 Danh Cong

Danh Cong

    biết lệnh hatchedit

  • Members
  • PipPipPipPip
  • 260 Bài viết
Điểm đánh giá: 43 (tàm tạm)

Đã gửi 10 October 2016 - 02:53 PM

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)


  • 0

             ***  Vô lo - Vô nghĩ - Vô sầu hận  ***

***  Chẳng thương - Chẳng giận - Chẳng đau lòng  ***


#11 Bee

Bee

    biết lệnh extend

  • Members
  • PipPipPip
  • 198 Bài viết
Điểm đánh giá: 68 (tàm tạm)

Đã gửi 10 October 2016 - 07:38 PM

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


  • 0

#12 Danh Cong

Danh Cong

    biết lệnh hatchedit

  • Members
  • PipPipPipPip
  • 260 Bài viết
Điểm đánh giá: 43 (tàm tạm)

Đã gửi 11 October 2016 - 09:43 AM

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.


  • 0

             ***  Vô lo - Vô nghĩ - Vô sầu hận  ***

***  Chẳng thương - Chẳng giận - Chẳng đau lòng  ***


#13 Bee

Bee

    biết lệnh extend

  • Members
  • PipPipPip
  • 198 Bài viết
Điểm đánh giá: 68 (tàm tạm)

Đã gửi 11 October 2016 - 10:16 AM

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....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.au...B9FE30-htm.html

 

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


  • 0