Ðề: Phần mềm trợ giúp trong Autocad

Lâu nay ít người quan tâm đến Lisp nên không thấy có tiện ích nào được Post lên đây. Hôm nay tôi Up một lệnh nhỏ dùng để tách toàn bộ đối tượng DIM trong bản vẽ lên 1 lớp mới tên là "_Dim". Cái này khá hiệu quả khi ta muốn lọc lấy phần bản vẽ mà không muốn có dim (để vẽ điện, nước, kết cấu...). Lệnh này đã có trong bản TKXD30.

- Tạo 1 files Lisp có nội dung như dưới đây.
- Load vào Acad rồi dùng lệnh Dimlay

;;; Dimension filter:
(defun M_Lay (layr_name / tbl t1 t2 key)
(setq tbl (tblnext "LAYER" 1))
(while tbl
(setq t1 (strcase layr_name)
t2 (cdr (car (cdr tbl)))
)
(if (equal t1 t2)
(setq key 1)
)
(setq tbl (tblnext "LAYER"))
)
(if (/= key 1)
(progn (setq tbl NIL)
(command "_.LAYER" "N" layr_name "")
(princ (strcat "\nLayer " layr_name ".... Da duoc tao."))
)
)
(setq layr_name NIL)
(princ)
)
(defun C:Dimlay (/ dim_app)
(setvar "Cmdecho" 0)
(setq dim_app (ssget "X" '((0 . "DIMENSION"))))
(if dim_app
(progn
(M_lay "_Dim") ;Tao Layer Dim neu chua co
(command "_.Chprop" dim_app "" "LA" "_Dim" "")
)
(prompt "\nHien tai, khong co Dim.")
)
(princ)
) ;End Function.

--------------------
Hoặc Download file này về, đổi đuôi thành lsp, load vào Acad

Ðề: Phần mềm trợ giúp trong Autocad

Lisp > ARX là nó chạy trên mọi "địa hình ".Từ 14 đến 2005.Đôi khi em thấy dùng Lisp hay nhất.

Ðề: Phần mềm trợ giúp trong Autocad

Ối giời ôi!
Dùng lệnh filter của ACAD là đủ. Trong đó trọn đối tượng là dim
sau đó trọn áp dụng cho toàn bản vẽ(all). Thế là nó select tất cả các dim
Question: Tiếp theo ? Answer: Muốn làm gì nó thì làm

Ðề: Phần mềm trợ giúp trong Autocad

Đúng ! dùng lệnh AutoCAD là chuẩn nhất - Nhưng chưa chắc là nhanh nhất.

Ðề: Phần mềm trợ giúp trong Autocad

Một tiện ích nữa cho việc lọc đối tượng. Lệnh này sẽ lọc các đối tượng rồi chuyển chúng về lớp (mới nếu chưa được tạo) có tên là tên màu của đối tượng. Cái này khá cần khi copy 1 bản vẽ ở đâu đó về mà người vẽ lại không đặt lớp hoặc màu vẽ đặt lẫn lộn, quá loè loẹt khó chọn để chỉnh sửa. Chỉ cần lọc rồi đổi màu theo Layer đã lọc được là xong.

Nếu trên bản vẽ có 8 màu khác nhau, dùng filter, sẽ phải thực hiện 8 lần lọc và 8 lần đặt tên layer (cho 8 màu lọc được).
Với đoạn mã này, chỉ cần gõ: CLAY
Cách làm giống lệnh Dimlay

(defun M_Lay_c (layr_name color / tbl t1 t2 key)
(setvar "Cmdecho" 0)
(setq tbl (tblnext "LAYER" 1))
(while tbl
(setq t1 (strcase layr_name)
t2 (cdr (car (cdr tbl)))
)
(if (equal t1 t2)
(setq key 1)
)
(setq tbl (tblnext "LAYER"))
)
(if (/= key 1)
(progn (setq tbl NIL)
(command "_.LAYER" "N" layr_name "C" color layr_name "")
(princ (strcat "\nLayer " layr_name ".... da duoc tao."))
)
)
(setq layr_name NIL)
(princ)
)
(defun C:CLAY (/ op_ccl sl_op op_find cl_find en_find)
(setvar "Cmdecho" 0)
(setq op_ccl (ssget "X"))
(if op_ccl
(progn
(setq sl_op (sslength op_ccl)
next_op 0
)
(while (< next_op sl_op)
(setq op_find (ssname op_ccl next_op)
en_find (entget op_find)
cl_find (cdr (assoc 62 en_find))
)
(if (and (numberp cl_find) (< cl_find 256))
(progn (M_lay_c (itoa cl_find) cl_find)
(command "_.Chprop"
op_find
""
"LA"
(itoa cl_find)
"C"
"Bylayer"
""
)
)
)
(setq next_op (+ next_op 1)
cl_find NIL
en_find NIL
)
)
(setq next_op NIL
cl_find NIL
)
)
)
(princ)
);end function.

-------------
Files download:

Ðề: Phần mềm trợ giúp trong Autocad

to nglam adg
Bác này viết lisp hay thật đấy. Nếu có thể thì post ví dụ về vẽ trắc dọc cho anh em tham khảo với. Tiện lợi lắm đấy, ở đây ta coi như là đã có bình đồ và mặt bằng tuyến đập rồi , vậy làm thế nào để cắt một tuyến bất kỳ trên bình đồ là có thể có mặt cắt giao giữa địa hình và công trình được.
Mong các chuyên gia chỉ giáo cho!

Ðề: Phần mềm trợ giúp trong Autocad

Tôi là Kiến trúc sư. Về Lisp có biết chút ít chứ về giao thông, thủy lợi thì mù tịt. Thông cảm !

Ðề: Phần mềm trợ giúp trong Autocad

Bác KTS này giỏi quá ta!Ở công ty tui không đào đâu ra 1 KTS biết LISP hay lập trình được cả!

Ðề: Phần mềm trợ giúp trong Autocad

Thể theo nguyện vọng của một số bạn đã Mail và nhắn tin trực tiếp cho tôi. Tôi gửi lên đây phần thống kê thép (được tách ra từ bộ TKXD30) chạy độc lập như 1 ứng dụng riêng biệt. Cách sử dụng cụ thể, các bạn có thể đọc trong phần Help của chương trình. Cách cài đặt có trong files Thongkethep.txt đi kèm theo đây. Cách tạo thêm mẫu thép có ở trang 4 (http://www.ketcau.com/forum/showthre...5&page=4&pp=10)

- Tải files nén dạng Winzip về.
- Bung files nén ra ổ C, sẽ được 1 thư mục C:\TKXD30.
- Đọc files Thongkethep.txt để biết cách Load vào AutoCAD.
- Mặc định ban đầu sẽ có 64 kiểu thép điển hình để làm thống kê. Số lượng thép người dùng có thể tự tạo tối đa là 999 kiểu thép. Chủng loại thép từ Fi 4 đến Fi 52 (hoặc có thể thay đổi và bổ xung thêm nếu thấy chưa đủ...).


Bổ xung: Đây là files mới được chỉnh sửa lại để chạy không bị lỗi trên ACAD 2002 và 2004 (10/3/2005). Ai đã Download files từ trước về thì nên download lại. Nhấn H sau khi nhập lệnh TKT (Thống kê thép) để xem hướng dãn (xin lỗi vì chưa kiểm tra kỹ !)
Quên mất, lệnh sửa Thống kê thép là STKT

Ðề: Phần mềm trợ giúp trong Autocad

Không biết có ai quan tâm đến Thống kê thép hình không ? (Các loại Thép L, U, I, Hộp, Ống...)

Ðề: Phần mềm trợ giúp trong Autocad

Tôi đã tải phần thống kê thép mà Bác Lâm vừa pót lên, đã dùng thử và thấy tuyệt lắm. Nếu Bác đã làm luôn phần thống kê thép hình rồi thì pót lên cho anh em dùng thử thì quý hoá quá, vì trong xây dựng không thể không gặp thép hình!

Nhân tiện đây cũng xin hỏi Bác Lâm, tôi rất quan tâm đến bộ TKXD 3.0 của Bác nhưng vẫn chưa thể tải về đươc. Mong Bác giúp!

Cám ơn Bác Lâm rất nhiều!

Ðề: Phần mềm trợ giúp trong Autocad

Tôi là Lam, không phải Lâm

Ðề: Phần mềm trợ giúp trong Autocad

Gửi anh Lam!
Tôi đã đọc qua diễn đàn và muốn sử dụng CT của anh nhưng không thể tải về được. Vậy rất mong anh gửi cho tôi CT đó. Địa chỉ liên lạc của tôi là: trananhtuan9@yahoo.com
Chân thành cảm ơn!

Ðề: Phần mềm trợ giúp trong Autocad

Tôi là thành viên mới của forums này.
Xin mạn phép góp ý: Tôi đã đọc nhiều diễn đàn nhưng thấy ở đây có nội dung và tính sáng tạo rất cao. Các bạn rất nhiệt tình tham gia, hướng dẫn các thành viên khác trong nhiều lĩnh vực. Chỉ có điều là những người được giúp đỡ lại rất hiếm khi có lời cảm ơn. Ví dụ như cái chương trình tkxd gì đó ở trên - Có tới mấy chục người tải về nhưng chỉ thấy có 1 người cảm ơn còn lại chỉ thấy yêu cầu hỗ trợ, xin phần mềm... Như vậy thật không phải với những người đã hỗ trợ, giúp đỡ và đặc biệt là chia xẻ kiến thức cũng như công sức của mình cho mọi người !!!

Ðề: Phần mềm trợ giúp trong Autocad

bác lam nay tôi đã tải phần mềm ktxd3.0 nhiêu lần rồi nhưng không được.
bác có thể gửi cho tôi được không theo địa chỉ "hbienhong@yahoo.com, rất mong được sự giúp đỡ cám ơn bác nhiều.tôi đang học autocad va tôi nghe nói phần mêm nay rất hay