levanhuong1989
-
Số lượng nội dung
47 -
Đã tham gia
-
Lần ghé thăm cuối
-
Ngày trúng
3
Bài đăng được đăng bởi levanhuong1989
-
-
Ketxu đóng góp thêm 1 chút , nếu đã chọn con đường load bằng getfield, để tránh cứ 1 thư mục lại làm 1 lần , đoạn sau sẽ load toàn bộ LSP,FAS,VLX,ARX ở thư mục mẹ + các thư mục con :
(defun c:loadall (/ duongdan lstLsp lstArx) (setq duongdan (vl-filename-directory (getfiled "Chon 1 file VLX,LSP,FAS,ARX bat ki trong thu muc" "" "LSP;VLX;FAS;ARX" 0)) lstLsp (append (ST:File_GetAll duongdan "*.lsp")(ST:File_GetAll duongdan "*.vlx")(ST:File_GetAll duongdan "*.fas")) lstArx (ST:File_GetAll duongdan "*.arx")) (mapcar 'Load lsp) (mapcar 'arxLoad lstArx) ) (defun ST:File_GetAll ( Dir typ ) ;@ketxu (append (mapcar '(lambda ( x ) (strcat Dir "\\" x)) (vl-directory-files Dir typ 1)) (apply 'append (mapcar '(lambda ( x ) (ST:File_GetAll (strcat dir "\\" x) typ)) (cddr (vl-directory-files dir "*" -1)) ) ) ) )Chào bác Ketxu và các bác trong diễn đàn!
Các bác chỉ cho em cách mà khi mình chạy 1 lần giống như gọi menu, lần sau khi tắt cad đi và bật lại thì cad tự động load các líp mà mình chỉ đường dẫn cho nó.
Em đã có menu nhưng để cad tự động load lisp thì lại phải dùng lệnh AP thì không được chuyên nghiệp khi cài cho máy khác, hiiii.
Thanks các bác.
-
Lỗi đó không phải do lisp mà do down theo dạng như #3 bị chèn thêm nhiều ký tự lạ làm lisp bị lỗi.
Bạn down lại theo link này.
http://www.mediafire.com/download/xdwsq1pedb3wada/Dan_chu.lsp
Cảm ơn bác, em dowload về theo link này thì lisp đã chạy ok rùi.
Cảm ơn bácTot77 cùng các bác trên diễn đàn đã giúp đỡ.
-
Bạn thử dùng cái này. Nếu chạy 1 lần mà vẫn còn có text bị chạm nhau là do trước đó nó cách xa nhau nên nó không nằm trong tập chọn, nhưng sau khi di chuyển tập chọn nó lại đè lên text bên ngoài. Nếu vậy bạn chạy thêm 1 lần nữa là được.
Đây là đề tài không đơn giản, tôi phải nhờ vào hàm express, do đó bạn phải cài express mới chạy được.
(defun c:dan (/ )(defun tach(l / n l1 l2)(setq n 0 l2 nil)(repeat (1- (length l))(if (not l1) (setq l1 (list (nth n l))))(if (< (width (acet-geom-ss-extents (acet-list-to-ss(mapcar 'cadr (append l1 (list (nth (setq n (1+ n)) l) )))) nil)) (* kcach (1+ (length l1))))(setq l1 (append l1 (list (nth n l))))(progn (if (> (length l1) 1) (setq l2 (append l2 (list l1)))) (setq l1 nil))))(if l1 (setq l2 (append l2 (list l1))))l2)(defun width(l) (distance (car l) (list (caadr l) (cadar l) )))(defun doi(b kc)(vla-put-TextAlignmentPoint (vlax-ename->vla-object B)(vlax-3d-point (polar ll 0 kc))))(defun getIP(v)(vlax-safearray->list (vlax-variant-value(vla-get-TextAlignmentPoint (vlax-ename->vla-object v)))));;====================================;;(vl-load-com)(setvar 'dimzin 8)(setq kcach1 (getreal (strcat "\nNhap khoang cach dan <"(if kcach (rtos kcach 2 3) (rtos (setq kcach 1) 2 3)) ">:" )))(if kcach1 (setq kcach kcach1))(prompt "\nChon nhom text can sap xep")(setq lt (vl-remove-if-not '(lambda(x) (equal (* 0.5 pi)(vla-get-rotation (vlax-ename->vla-object x )) 0.001))(acet-ss-to-list (ssget '((0 . "text"))))))(acet-tjust (setq ss (acet-list-to-ss lt)) (acet-tjust-keyword (entget (ssname ss 0))))(setq lt (mapcar '(lambda(x) (list (getIP x) x)) lt)lt (vl-sort lt '(lambda (x y) (>= (cadar x) (cadar y)))))(while lt(setq lt1 (vl-sort (vl-remove-if-not '(lambda(x) (equal (cadar x) (cadar (car lt)) kcach)) lt)'(lambda (x y) (< (caar x) (caar y))))lt (vl-remove-if '(lambda(x) (equal (cadar x) (cadar (car lt)) kcach)) lt)lt1 (tach lt1))(foreach lv lt1(setq slv (mapcar 'cadr lv)n0 (fix (* 0.5 (length slv)))ll (getIP (nth n0 slv))k 0)(while (>= (setq n (- n0 (setq k (1+ k)))) 0)(doi (nth n slv) (* k (- kcach))))(setq k 0)(while (< (setq n (+ n0 (setq k (1+ k)))) (length slv))(doi (nth n slv) (* k kcach)))))(princ))Cảm ơn bác đã quan tâm. Em đã copy lisp về và chạy thử trên cad 2008, 2013 thì đều xuất hiện lỗi tương tự nhau:
" Chon nhom text can sap xep
Select objects: Specify opposite corner: 392 found
Select objects: ; error: bad argument type: <Entity name: 7ed79860> "
Mong bác sửa lỗi giúp để lisp hoạt động tốt, Máy em đã cài express bác nhé.
Cảm ơn bác.
-
Hic, em post bài được gần tuần rồi mà không thấy bác nào giúp.
Các bác cố gắng giúp em với. Số lượng text của bọn em chạy ra trùng nhau quá nhiều mà mỗi lần chạy lại thì text lại sắp xếp lại ( lại trùng ) nên rất là vất vả cái công đoạn này.!!!
-
Chào các bác! Em làm thiết kế đường, trong các mặt cắt ngang khi xuất từ các phần mềm thiết kế ra thì có rất nhiều các nhóm text mà trong mỗi nhóm các text nằm đè nên nhau. Em viết bài nhờ các bác viết giúp em một text để chỉ bằng một lệnh có thể dãn được các text đó với đặc điểm:
- Các nhóm text đã được dóng ngang và đều quay 90 độ ( chỉ cần dãn các text quay 90 độ)
- Dãn text với 1 khoảng cách nhập
- Các text được dãn từ điểm giữa của nhóm text
- Chỉ cần gõ lệnh và chọn vùng, nhập khoảng cách dãn thì sẽ tự động tìm các nhóm text thoả mãn các điều kiện trên
*chi tiết các bác xem giúp em trong bản vẽ đính kèm*
Mong các bác giúp đỡ, với khối lượng mặt cắt ngang lớn, em dùng lisp để chọn từng nhóm text trùng nhau một thì rất mất thời gian.
Cảm ơn các bác.
-
Các bác giúp em với .cad 2007 của em bị 2 vấn đề sau
- Bị mất hết các thanh toolbar (như hình vẽ)
- không thể vẽ được mặt cắt vì không chọn được đối tượng
Trường hợp này thì bạn dùng lệnh -toolbar
khi đó cad hỏi là bạn muốn hiện toolbar nào bạn điền all khi đó tất cả toolbar sẽ hiện lên và bạn tắt những cái không cần thiết đi thui.
-
[/quot
Bài này xem hay nhưng hơi nhoè... ban oi! có thể gửi bản tốt hơn được không??? thanks!!!
mình chỉ có bản này thui !
nếu các bạn muốn xem bản đẹp hơn thì có thể down bản 2002 vừa full vừa nét.thụ ra thì bản này cũng không đầy đủ lắm
-
buồn quá deeeeeeeeeee... có bác nào co giáo trình cad 2008 không cho mình vói. link này không dow được hix hix, mong các bá giúp cho gà cad này.link vẫn download bình thường mà bạn! bạn thử lại đi nhé
-
1
-
-
Mình mới đang học hỏi các phần nâng cao của ACAD và vừa tìm được 1 cuốn ebook khá là hay, muốn chia sẽ cho những ai chưa có :Dtrong máy có file này rùi nhưng cũng cảm ơn vì đã chia sẻ
Thank's for share!
-
9
-
1
-
-
link die rồi bác ơi up lại gium nhé.Mình đang cần cái này quá.Thank's
-
Mình cung cấp cho các bạn crack autocad 2005,2006,2008,2009
Bác nào cần thì nhào vô nhé.
Thấy có ích thì cho câu cảm ơn he he!
link down load:https://www.mediafire.com/folder/nx87v3i7j5578/Autodesk_Softs
Similar topics from web:
Tổng hợp link download AutoCAD tất cả các phiên bản (ngày 27/11 ...
Download autoCad
[MF]Autocad mọi phiên bản (2000,2002,...2012) FULL tại ...
Planetarian ~Chiisana Hoshi no Yume~ – Wikipedia tiếng Việt
Keygen Autocad phiên bản từ năm 2000 đến năm 2013 (1 link duy ...
AutoCAD Architecture
Windows XP – Wikipedia tiếng Việt
AutoCAD – Phần mềm vẽ kĩ thuật chuyên dụng
Trợ giúp Thiết Kế Xây Dựng TKXD30 ! [Lưu Trữ]
hướng dẫn cài đặt autocad
Tổng hợp các địa chỉ download các phiên bản từ R13 đến Autocad ...
Hướng dẫn cài đặt autocad 2006
Phần mềm Thiết kế đường? [Lưu Trữ]
Yêu Cầu Phần Mềm [Lưu Trữ]
Website của Trường THCS Nga Thành-
7
-
-
Bác cũng gửi cho em nữa nhé.khổ sở mới down được về mà không có crack!Em cảm ơn bác trước nhé.
email:levanhuong1989@yahoo.com
-
mình có cad 2005 nhưng không biết cắt file dể up lên được.mình đang ở cầu giấy có gì bạn liên lạc theo nickname:haclong_a7_89
-
GIÁO TRÌNH AUTOCAD TOÀN TẬP 2008 - TIẾNG VIỆT
Giới thiệu: Giáo trình toàn tập AutoCad 2008, bản tiếng Việt đầy đủ với các chương cho người mới bắt đầu cũng như các kỹ sư đã thông thạo Cad cần nghiên cứu thêm các lệnh nâng cao về 2D, 3D hay lập trình Autolisp. tập giáo trình này bao gồm 529 trang.
Các chức năng của AutoCad bao gồm:
+ Vẽ thiết kế 2 chiều
+ Thiết kế mô hình 3 chiều
+ Tính toán kết cấu bằng phương pháp phần tử hữu hạn.
PHẦN 1: BẢN VẼ 2D
Chương 1: Tổng quan về AUTOCAD
Chương 2: Các bước chuẩn bị trước khi vẽ
Chương 3: Các lệnh vẽ cơ bản
Chương 4: Các cách nhập tọa độ chính xác
Chương 5: Các thao tác trên đối tượng AutoCad
Chương 6: Sao chép và hiệu chỉnh đối tượng
Chương 7: Điều khiển màn hình quan sát bản vẽ
Chương 8: Các phương pháp vẽ hình chiếu
Chương 9: Gạch mặt cắt
Chương 10: Ghi kích thước
Chương 11: Nhập văn bản vào bản vẽ
Chương 12: Tạo lớp để quản lý bản vẽ
Chương 13: Tạo khối và chèn khối
Chương 14: Tham khảo ngoài bản vẽ
Chương 15: Quản lý bản vẽ bằng AutoCad@Designcenter
Chương 16: Liên kết và nhúng đối tượng
N 2: BẢN VẼ TỪ MÔ HÌNH 3D
Chương 17: Môi trường vẽ và quan sát mô hình 3D
Chương 18: Vẽ đường và mặt 3D
Chương 19: Các lệnh hỗ trợ cho vẽ 3D
Chương 20: Tạo mô hình khối rắn
Chương 21: Hiệu chỉnh mô hình khối rắn
Chương 22: Tô bóng mô hình khối rắn
Chương 23: Phân tích các đặc tính của khối rắn
Chương 24: Xuất bản vẽ ra giấy
Chương 25: Xuất bản vẽ thành tập tin.
PHẦN 3: NGÔN NGỮ AUTOLISP
Chương 26: Các vấn đề cơ bản của ngôn ngữ Autolisp
Chương 27: Cấu trúc trong chương trình Autolisp
PHẦN 4: BẢNG TRA CỨU LỆNH
Bảng tra cứu lệnh 2D
Bảng tra cứu lệnh 3D
Bảng tra cứu lệnh tắt
Còn đay là link download trên midiafire:
autocad 2d:
autocad 3d:
autolisp :
chúc các bạn thành công!
------------------------------------------------------
Các link về sách AutoCAD khác:
- Sử Dụng Auto Cad2000 Lập Bản Vẽ thiết kế
- Lý thuyết tóm tắt AutoCAD 3D
- Tham khảo thêm tại đây: Ebook Tutorial free download
-
38
-
[Đã xong] Chia sẻ Bộ Lisp rất hay: ”Kho báu của Minh”
trong AutoLisp
Đã đăng · Trả lời báo cáo
Cảm ơn bạn, ý của mình là khi cài trên máy khác mình copy 1 folder gồm các lisp dùng rồi đặt vào ổ c ( khi đó đường dẫn là cố định C://....) Mình muốn viết 1 file mà cad cho phép chạy khi khởi động và sẽ tự động load các líp trong thư mục theo đường dẫn ở trên mà không cần dùng đến contents trong lệnh AP chọn đến líp rùi add.
Mong các bác giúp đỡ.