Thư viện Autolisp !

Trích dẫn:

---

Gửi bởi shinnikel

Thanks bạn KTS_DUY đã trả lời và nhận viết dum mình.
-Mình chỉ cần 3 loại vật liệu thôi đó là thép, nhôm và kính .+Trọng lượng riêng của thép 7850kg/m3 + Trọng lượng riêng Nhôm = 2700kg/m3+ Trọng lượng riêng kính = 2500kg/m3 . Duy có thể cho ra kết quả (kg/m3).
-Tiết diện mình chọn theo cách :
+pick vào 1 vùng kín lisp tự tạo ra pline .
-Chiều dài của tiết diện do mình chọn thường đơn vị tính bằng (mm) mặc định là 1(m)
-Kết quả xuất ra kiểu text(kg)

Rất cảm ơn ban Duy :x

---

Bạn giải nén được 2 file. Tạo thư mục ktsduy trong ổ đĩa c của bạn (mình dùng đường dẩn tuyệt đối nên bạn phải làm đúng ổ đĩa và tên thư mục nhé) copy 2 file vừa có cho vào thư mục vừa tạo. Load file lisp lên.
-Tên lệnh: TRL
-Thao tác:
+Gỏ lệnh TRL
+Pick vào vùng cần tính nếu vùng chọn ko kín thì lisp yêu cầu bạn chọn lại đến khi nào chọn đúng trong vùng kín thì lisp chay qua bước tiếp theo.
+Hỏi bạn độ dày của tiết diện (nạm phải nhập theo mm nghĩa là một mét thì bạn nhập 1000)
+Hỏi bạn vật liệu cần tính là gì: có 3 lựa chọn :
*Nhôm: bạn gỏ N hoặc n.
*Kính: bạn gỏ K hoặc k.
*Thép: bạn gỏ T hoặc t.
+Bạn sẽ thấy lisp hỏi câu bên dưới
Mot met hien hanh la (1) <Diem viet ket qua>:
Giải thích như sau: mặc định 1 mét bạn vẽ là 1 (theo đề bài của bạn)
*Nếu không thay đổi thì bạn pick 1 điểm lisp sẽ viết kết quả ra tại điểm đó. Độ lớn text mình có hỏi nhưng bạn không trả lời nên mình cho nó bằng ¼ giá trị mét.
*Nếu bạn muốn thau đổi giá trị 1 mét ví dụ bạn vẽ 1 mét là 1000 như mấy ông kts tụi mình thì khi xuất hiện dòng trên bạn gỏ m enter lisp sẽ hỏi bạn một mét là bao nhiêu, bạn nhập vào (gí trị này sẽ lưu lại cho lần gọi lệnh sau trong 1 phiên mở cad), lisp lại hỏi điểm viết kết quả.
Lưu ý với bạn là bất cứ một mét bạn vẽ là bao nhiêu thì khi nhập độ dày tiết diện luôn luôn phải nhập theo mm. Mình có tự ý tạo ra 1 textstyle để phục vụ việc viết kết quả hy vọng không làm phiền bạn lắm. Chúc bạn thành công. (có nhu cầu thay đổi nội dung text kết quả thì phản hồi lại nhé)

Cám ơn bạn Duy rất nhiệt tình dúp mình từ lisp của bạn mình có thể tự sửa được theo ý của mình. Bạn giỏi lắm lisp của bạn giỏi vậy chắc là trình độ vẽ của bạn rất khũng phải không. Còn mình lisp không dược rành lắm nhưng làm bạn với autocad cung được 6 năm rồi. Hẹn gặp lại....=D>=D>:x:x

các bác ơi giúp em viết cái autolíp có yêu cầu như thế này với
Đo diện tích của một hình bất kỳ sau đó em nhập chiều cao của hình vào và suất ra thể tích tiếp theo em nhập bội số trao đổi không khí a=...thì nó cho kết quả lưu lượng gió với đơn vị m3/h (lưu lượng gió = thể tích X bội số trao đổi)
Em cảm ơn các bac nhiều lắm

Trích dẫn:

---

Gửi bởi anhhung49hk

các bác ơi giúp em viết cái autolíp có yêu cầu như thế này với
Đo diện tích của một hình bất kỳ sau đó em nhập chiều cao của hình vào và suất ra thể tích tiếp theo em nhập bội số trao đổi không khí a=...thì nó cho kết quả lưu lượng gió với đơn vị m3/h (lưu lượng gió = thể tích X bội số trao đổi)
Em cảm ơn các bac nhiều lắm

---

Vẫn là câu hỏi cũ. Hình bất kỳ của bạn là chọn pline (nếu pline phải khép kín) hay pick điểm.

Trích dẫn:

---

Gửi bởi KTS_DUY

Bạn giải nén được 2 file. Tạo thư mục ktsduy trong ổ đĩa c của bạn (mình dùng đường dẩn tuyệt đối nên bạn phải làm đúng ổ đĩa và tên thư mục nhé) copy 2 file vừa có cho vào thư mục vừa tạo. Load file lisp lên.
-Tên lệnh: TRL
-Thao tác:
+Gỏ lệnh TRL
+Pick vào vùng cần tính nếu vùng chọn ko kín thì lisp yêu cầu bạn chọn lại đến khi nào chọn đúng trong vùng kín thì lisp chay qua bước tiếp theo.
+Hỏi bạn độ dày của tiết diện (nạm phải nhập theo mm nghĩa là một mét thì bạn nhập 1000)
+Hỏi bạn vật liệu cần tính là gì: có 3 lựa chọn :
*Nhôm: bạn gỏ N hoặc n.
*Kính: bạn gỏ K hoặc k.
*Thép: bạn gỏ T hoặc t.
+Bạn sẽ thấy lisp hỏi câu bên dưới
Mot met hien hanh la (1) <Diem viet ket qua>:
Giải thích như sau: mặc định 1 mét bạn vẽ là 1 (theo đề bài của bạn)
*Nếu không thay đổi thì bạn pick 1 điểm lisp sẽ viết kết quả ra tại điểm đó. Độ lớn text mình có hỏi nhưng bạn không trả lời nên mình cho nó bằng ¼ giá trị mét.
*Nếu bạn muốn thau đổi giá trị 1 mét ví dụ bạn vẽ 1 mét là 1000 như mấy ông kts tụi mình thì khi xuất hiện dòng trên bạn gỏ m enter lisp sẽ hỏi bạn một mét là bao nhiêu, bạn nhập vào (gí trị này sẽ lưu lại cho lần gọi lệnh sau trong 1 phiên mở cad), lisp lại hỏi điểm viết kết quả.
Lưu ý với bạn là bất cứ một mét bạn vẽ là bao nhiêu thì khi nhập độ dày tiết diện luôn luôn phải nhập theo mm. Mình có tự ý tạo ra 1 textstyle để phục vụ việc viết kết quả hy vọng không làm phiền bạn lắm. Chúc bạn thành công. (có nhu cầu thay đổi nội dung text kết quả thì phản hồi lại nhé)

---

Ban Duy ui có thể chỉnh lại dùm mình không mình muốn kết quả là Kg/m công thức tính thì ok với những tiết diện đặc còn rỗng thì bó tay công việc của mình là tính toán tải trọng kết cấu các hạng mục mặt dựng lisp của bạn chút xíu nữa là tiêu mình rồi . :((

Có bác nào biết về VBA trong cad ko chỉ giáo em với ? Em nghe nói cái này cũng gần giống như lisp cad nhưng tính năng mạnh hơn, nhưng cũng chưa rõ mạnh hơn cái gì ?

chào các bạn mình đang rất cần lish dổi layer ,vd mình đang dùng layer tường,đến một layer khác mình muốn chuyển thành layer tường,mình chỉ càn bấm phím 1 thì layer tự nhảy thành layer tường,mong anh em chỉ giáo

chào các bạn mình đang rất cần lish dổi layer ,vd mình đang dùng layer tường,đến một layer khác mình muốn chuyển thành layer tường,mình chỉ càn bấm phím 1 thì layer tự nhảy thành layer tường,mong anh em chỉ giáo

Anh ơi chỉ giúp em lệnh tính diện tích và chiều dài sau khi load nhé! Em cảm ơn!

Trích dẫn:

---

Gửi bởi MrHienNo1

Còn đây là file lisp dùng để đo diện tích và tính chiều dài.
Rất hay và tuyệt vời dành cho dân xây dựng.

---

Anh dùng lệnh luôn, cần gì dùng list. Dùng lệnh AA hoặc lệnh LI, lệnh LI tính diện tích, chiều dài luôn. Bạn dùng lệnh LI thì nên dùng lệnh BO trước.