Nhờ các bác sửa giúp Lisp thống kê diện tích và kích thước

[phuoc98 0]

Chẳng là e có tập tành viết một em Lisp để dùng thử, nhưng khi load vào thì nhập lệnh trong cad lại không hiện. Em up lên nhờ các bác xem giúp em với ạ. Em cảm ơn.

LLL.lsp

[vietduc147258 88]

Với tư cách là người không biết về lisp (Chưa viết được lệnh nào hoàn chỉnh, chỉ sửa lisp người khác để phù hợp với mình, đụng chỗ nào đọc help trên web chỗ đó, đọc xong lại quên) tôi góp ý bạn như sau:

Hạn chế tiếng việt có dấu trong lisp.

Sau hàn if thì chỉ có 2 hành động: 1 theo điều kiện, 2 là không theo điều kiện (cái này giống excel).

Tại dòng 18, chỗ entsel bạn bỏ bớt 2 dấu ()  chỗ nhấn Enter .... (tôi không biết tại sao, nhưng bỏ thấy hết lỗi..)

Các hàm khác tôi không hiểu nên chỉ góp ý vậy thôi.

Với lại bạn từ từ thôi, nóng vội quá

[phuoc98 0]

14 giờ trước, vietduc147258 đã nói:

Với tư cách là người không biết về lisp (Chưa viết được lệnh nào hoàn chỉnh, chỉ sửa lisp người khác để phù hợp với mình, đụng chỗ nào đọc help trên web chỗ đó, đọc xong lại quên) tôi góp ý bạn như sau:

Hạn chế tiếng việt có dấu trong lisp.

Sau hàn if thì chỉ có 2 hành động: 1 theo điều kiện, 2 là không theo điều kiện (cái này giống excel).

Tại dòng 18, chỗ entsel bạn bỏ bớt 2 dấu ()  chỗ nhấn Enter .... (tôi không biết tại sao, nhưng bỏ thấy hết lỗi..)

Các hàm khác tôi không hiểu nên chỉ góp ý vậy thôi.

Với lại bạn từ từ thôi, nóng vội quá

Em cảm ơn bác đã góp ý. Do đang mò mẫm mà chưa hiểu rõ, với e cũng ít tương tác nên hơi vội trong chuyện học hỏi ạ. 

[vietduc147258 88]

54 phút trước, phuoc98 đã nói:

Em cảm ơn bác đã góp ý. Do đang mò mẫm mà chưa hiểu rõ, với e cũng ít tương tác nên hơi vội trong chuyện học hỏi ạ. 

Từ từ học căn bản lên thôi bạn. Tôi thấy bạn viết những hàm Vitual lisp rất khó. Thực sự tôi không biết những cái đó. Nhưng bạn thiếu cái cơ bản khá là nghiêm trọng là dấu ) kết thúc.

Bạn nên thêm ghi chú kết thúc kiểu:

) ; end if

); end defun

Hoặc dùng notepad+ cũng có thể biết mình thiếu dấu )(.

Tôi thì tìm hiểu đủ dùng căn bản thôi. Những cái khó thì nhờ, thuê...viết tốt hơn. Họ viết mới còn nhanh hơn đi dò lỗi cho mình.

Hi vọng cadviet có thêm nhân tài. Bạn cố gắng nha

[phuoc98 0]

2 giờ trước, vietduc147258 đã nói:

Từ từ học căn bản lên thôi bạn. Tôi thấy bạn viết những hàm Vitual lisp rất khó. Thực sự tôi không biết những cái đó. Nhưng bạn thiếu cái cơ bản khá là nghiêm trọng là dấu ) kết thúc.

Bạn nên thêm ghi chú kết thúc kiểu:

) ; end if

); end defun

Hoặc dùng notepad+ cũng có thể biết mình thiếu dấu )(.

Tôi thì tìm hiểu đủ dùng căn bản thôi. Những cái khó thì nhờ, thuê...viết tốt hơn. Họ viết mới còn nhanh hơn đi dò lỗi cho mình.

Hi vọng cadviet có thêm nhân tài. Bạn cố gắng nha

Ok bác, cảm ơn bác nhiều. 

[tannguyen291 159]

21 giờ trước, phuoc98 đã nói:

Chẳng là e có tập tành viết một em Lisp để dùng thử, nhưng khi load vào thì nhập lệnh trong cad lại không hiện. Em up lên nhờ các bác xem giúp em với ạ. Em cảm ơn.

LLL.lsp

cái này giống như AI viết lisp chứ không giống người viết. :))

chả có ai tập tành viết mà hiểu biết đến Vlax. đã biết đến vlax mà còn viết ra những hàm không có định nghĩa (vlax-put-text là cái gì).  đã thế đóng ngoặc mở ngoặc lung tung bậy.

19 giờ trước, vietduc147258 đã nói:

Hạn chế tiếng việt có dấu trong lisp.

cad 2021 trở lên đã hỗ trợ Unicode.

[phuoc98 0]

1 phút trước, tannguyen291 đã nói:

cái này giống như AI viết lisp chứ không giống người viết. :))

chả có ai tập tành viết mà hiểu biết đến Vlax. đã biết đến vlax mà còn viết ra những hàm không có thật. đã thế đóng ngoặc mở ngoặc lung tung bậy.

cad 2021 trở lên đã hỗ trợ Unicode.

Dạ bác e tập tành, không có tương tác với ai nên vẫn đang đọc thêm một số hàm trong các tài liệu và hỏi trên Ai. Còn trên diễn đàn thì e có gửi lên để xin ý kiến thêm để hiểu hơn ạ. E vẫn đang tập tành thôi bác, cảm ơn bác đã góp ý ạ

[tannguyen291 159]

6 phút trước, phuoc98 đã nói:

Dạ bác e tập tành, không có tương tác với ai nên vẫn đang đọc thêm một số hàm trong các tài liệu và hỏi trên Ai. Còn trên diễn đàn thì e có gửi lên để xin ý kiến thêm để hiểu hơn ạ. E vẫn đang tập tành thôi bác, cảm ơn bác đã góp ý ạ

Nếu bạn muốn học về lisp nên học bài bản theo thứ tự

1. AutoLISP Core Functions: các lệnh căn bản

2. Express Tools Library: các lệnh có trong thư viện express tool.

3. ActiveX Library Functions: thư viện VLa, VLax.

Nếu muốn học linh tinh thì tùy vào độ thông minh của bạn.

[phuoc98 0]

55 phút trước, tannguyen291 đã nói:

Nếu bạn muốn học về lisp nên học bài bản theo thứ tự

1. AutoLISP Core Functions: các lệnh căn bản

2. Express Tools Library: các lệnh có trong thư viện express tool.

3. ActiveX Library Functions: thư viện VLa, VLax.

Nếu muốn học linh tinh thì tùy vào độ thông minh của bạn.

Cảm ơn bác, để e tìm nghiên cứu thêm ạ. 

[conghoa 136]

Bạn có thể tham khảo lisp này của LeeMac

AreaLabelV1-9.lsp

 

[ketxu 2999]

Có nhiều lỗi vặt nhưng lỗi đáng quan ngại nhất là dòng này :
 ; Tạo chuỗi định dạng cạnh
        (setq edge-str (mapconcat 'rtos edge-list "-" 2))

[cuongtk2 415]

AI như đứa trẻ học nói thôi. Ưu điểm là luôn trả lời, dù không biết.

[limfx 32]

Vào lúc 3/8/2024 tại 15:29, cuongtk2 đã nói:

AI như đứa trẻ học nói thôi. Ưu điểm là luôn trả lời, dù không biết.

AI mà tích hợp thêm chạy thử và phát hiện lỗi thì tuyệt vời A nhỉ!

[phuoc98 0]

Cảm ơn các bác, sau khi mò mẫn một thời gian và tích hợp qua một số lisp có chức năng cũng gần với nhu cầu mà em cần. Em có tổng hợp và cân lại được 1 lisp khá hoàn thiện với nhu cầu của mình.

Lisp STL11: Tự động rải block "STL" gồm 2 thuộc tính là "STT: số thứ tự" và "DT: Diện tích" vào tâm vùng kín theo thứ tự tăng dần, tự cập nhật diện tích và Dim chiều dài các cạnh của vùng kín

Trước khi nhập lệnh cần chèn block STL vào bản vẽ.

Lệnh nhập: STL11

Nhập số thứ tự bắt đầu (Nhập từ số nào cũng được ạ)

Tiếp đó sẽ hiện bảng để chọn nơi lưu file CSV (dữ liệu thông số của đối tượng)

Sau khi lưu xong tiến hành chọn đối tượng vùng kín (Các bác chỉ cần quét chọn lisp tự động chỉ chọn các đối tượng là vùng kín)

Tiếp theo chọn hướng để rải Trên-Xuống (T), Dưới Lên (D), Trái phải (L), Phải trái (P)

Enter để kết thúc lệnh

File dữ liệu CSV xuất ra bao gồm 3 cột STT (Số thứ tự), DT (Diện tích), Chiều dài (định dạng a-b-c-d-....)

STL11.lsp

BLOCK STL.dwg

[Jennieduk 0]

The PS5’s 3D audio technology offers a new level of auditory immersion in buy diablo iv runewords. Whether through a headset or surround sound system, players can hear enemies approaching from different directions, enhancing awareness during combat. Dungeon footsteps and environmental sounds heighten the sense of danger and mystery.