Doan Van Ha

https://www.cadviet.com/forum/topic/54624-yêu-cầu-lisp-kết-hợp-lệnh-array-và-copy/

Đã tìm ra nguồn của lisp trên (video) là của Ket (như đã từng viết ở trên).

Chả lẽ nó khó?

Nếu tôi nhớ không nhầm thì 4f này có lisp đó, array dynamic 2 hướng bất kỳ luôn.

Với đầu đề thiếu dữ liệu như trên, trong trường hợp tổng quát bài này không có đường giải.

"bạn nào có thể viết 1 lisp thống kê thuần cad theo phương pháp này được không" Tôi nghĩ là trên forum này có nhiều người viết được. Hãy chờ và hy vọng!

Lisp này không viết theo kiểu ssget được đâu (hoặc nếu được cũng xét điều kiện rất khổ). Cách đơn giản để không vơ đũa cả nắm là pick từng line/pline.

Bạn AutoTay.com cũng dễ thương và có đóng góp cho forum, ai lại nở vote (-) thế chứ.

1 câu hỏi mà bung lụa ở 3 topic như thế sẽ ảnh hưởng đến forum. 1 câu hỏi mà bung lụa ở 3 topic như thế sẽ ảnh hưởng forum.

Bạn cần thì bạn hỏi, chứ người ta trả lời cho người khác chứ không phải cho bạn mà.

Gộp lại: (setq TH (ssget "W" D1 D2)) (acet-geom-vertex-list (ssname TH 0))

Thư mục và file đừng viết tiếng Đông Lào.

Dịch Covid đang tràn vào Autolisp!

Dấu (+ ; like) không bổ béo gì. Dấu (- ; dislike) cũng không ốm o thêm. Nhưng nó cũng "định giá" được tư cách hoặc đóng góp của cá nhân với cộng đồng.

Code này lấy height là height của style current

Có thể do bạn cài autoload 1 file lisp nào đó. Tìm nó mà trị.

Cad không biết tính độ lún đâu.

;; Vẽ hình chữ nhật có chiều dày 20 (defun c:foo (/ p1 p2 p3 p4 p5 p6 p7 p8 os) (setq p1 (getpoint "\nChon point thu nhat") p3 (getpoint "\nChon point thu ba") p2 (list (car p3) (cadr p1)) p4 (list (car p1) (cadr p3)) ; p5 (list (car p1) (cadr p1) 20) p6 (list (car p2) (cadr p2) 20) p7 (list (car p3) (cadr p3) 20) p8 (list (car p4) (cadr p4) 20) ) ; (setq os (getvar "osmode")) (setvar "osmode" 0) (command vpoint "" 1,-1,1 "") (command ".3dface" p1 p2 p3 p4 "" ".3dface" p5 p6 p7 p8 "" ".3dface" p1 p4 p8 p5 "" ".3dface" p2 p3 p7 p6 "" ".3dface" p3 p4 p8 p7 "" ".3dface" p1 p2 p6 p5 "" ) (setvar "osmode" os) (command "zoom" "all") )

Chắc bị osnap

Tình trạng trốn Covid nhiều lắm, có khi cả năm lận

Sẵn bạn gởi bản vẽ (2007) để dễ test.

Cách bá đạo là: bạn cứ add bằng cad rồi sau đó lấy entget rồi tìm cách xử bằng entmod.

Tìm mấy cái lisp bạn đã cài autoload mà xử hoặc xóa.

Trúng quả đậm!