Doan Van Ha

Bạn nên gởi một ít chữ HOA, một ít dấu phẩy, một ít dấu huyền sắc nặng hỏi ngã để "xử" câu thần chú trên cho rõ nghĩa, rồi may ra mới hiểu để tính tiếp được.

Tại sao bạn không thử để biết? (CK:str->lst "Toi;Di;Hoc" ";") >> ("Toi" "Di" "Hoc")

"X": là chọn tất cả đối tượng trên bản vẽ, trong điều kiên lọc.

Block_Preview_in_Dialog.lsp

Vào trang Lee Mac nhé!

Tại sao bạn không lập 1 bảng Word hoặc Excel, khi đó chỉ cần find là ra đáp số, mà phải dùng Lisp? Làm Lisp này thì quá dễ nhưng lý do là gì?

Ename đối tượng con: (setq sub_ename (car (nentsel))) Ename đối tượng block: (setq main_ename (cdr (assoc 330 (entget sub_ename))))

Vấn đề là sau khi tạo Dimstyle TL1-100, user đã Dim rồi chỉnh một/vài thông số của Dim khác với Dim Style đã đặt nên mới sinh ra Sub_Dim. Muốn xóa thì delete tất cả các đối tượng Sub_Dim, sau đó xóa Sub_Dim vô tư (VD ở đây là Linear) .

Tôi đã trao đổi qua facebook rồi. Chờ anh ấy đi nhé!

TKTXVD liên hệ tác giả này mà xin nè!

Xem tôi trị bệnh ở đây đúng không? http://www.cadviet.com/forum/topic/162191-point-trong-cad/

Lisp chạy ok.

Trường hợp của bạn 8 Pline trong tổng số 17 đã có UCS với Z=-1 (có thể do mirror3D) Extrusion direction relative to UCS: X= 0.0000 Y= 0.0000 Z= -1.0000 Để khắc phục (đưa UCS về với Z=0) bạn dùng lisp dưới đây, sau đó join vô tư. P/S: có thể Cad đời cao nó nối được. Tôi dùng cad2007 thì phải dùng biện pháp này. (defun C:HA(/ ss) (if (setq ss (ssget '((0 . "LWPOLYLINE") (210 0.0 0.0 -1.0)))) (command "mirror3d" ss "" "XY" '(0 0 0) "y")) (princ))

Bạn dựa vào cơ sở nào để khẳng định Cad bị lỗi ? Khi bạn join được nhưng người khác join không được thì không có nghĩa là Cad lỗi.