Chuyển đến nội dung
Diễn đàn CADViet

enix

Thành viên
  • Số lượng nội dung

    59
  • Đã tham gia

  • Lần ghé thăm cuối

  • Ngày trúng

    2

Bài đăng được đăng bởi enix


  1.  

    Mình là dân cầu đường nên Autocad là một công cụ không thể thiếu (các bác làm thiết kế nói chung, xây dựng dân dụng ... chắc cũng không thiếu được). Qua hơn 6 năm sử dụng ứng dụng này mình thấy như sau:

    - Hiện tại có rất nhiều bản CAD mới update liên tục qua các năm (CAD 2007, 2008, 2010, 2012, 2013,...) nhằm nâng cấp, hoàn thiện và cải thiện thêm các tính năng cho ứng dụng này nhưng càng về sau các bản CAD đều khá cồng kềnh", nặng máy mà anh em ta lại không dùng hết các tính năng của nó;

    - Những anh em cùng ngành và em biết (làm thiết kế chuyên nghiệp) chủ yếu dùng CAD 2007 (khá phổ biến) và cad 2008 còn các em sinh viên đến cty mình thực tập thì chủ yếu là CAD 2012 trở về sau vì các em ấy thích sự tươi mới và không thực tế như anh em đi làm;

    - Bản CAD 2007 có yếu điểm là một số cao độ mà các bản vẽ từ các bản cad cao hơn như cad 2010 trở về sau lập nên sau khi convert/chuyển về để đọc thì không hiện được cao độ này ( chỉ hiện các ký tự "####" rất khó chịu);

    ...,

    Để giải quyết các vấn đề trên, vừa đảm bảo nhẹ, ứng dụng đầy đủ mà không quá thừa thãi (như CAD 2007 + hiển thị đầy đủ thì CAD 2008 là phù hợp nhất)! (Theo mình thấy như vậy, ae nào đồng tình thì like, thấy không hợp lý thì cho ý kiến).

    Link:

    http://www.vn-zoom.com/f181/auto-cad-2008_x64-cai-cho-win-xp-7-8-64bit-cuc-hiem-keygen-day-du-key-chay-ca-64bit-va-32bit-nhe-3083815.html

    http://www.vn-zoom.com/f181/auto-cad-2008_x64-cai-cho-win-xp-7-8-64bit-cuc-hiem-keygen-day-du-key-chay-ca-64bit-va-32bit-nhe-3083815.html
    

     

    Các máy giờ này đều trâu bò rồi chứ đâu phải Pentium 4 như xưa đâu mà sợ nặng máy và cồng kềnh.

    Các phiên bản sau AutoCAD đã thêm những tính năng rất tiện dụng cho người thiết kế như Quick Properties, Parametric, AutoComplete Command, xuất PDF tốt hơn, Dynamic Block tốt hơn, các lệnh hầu như đều có cải tiến, kho apps lợi hại hầu như ko hỗ trợ các version cũ, ko còn bị các con virus AutoCAD phá,...

    Không phải khi không mà Autodesk vẫn bán được phần mềm đều đều đâu.

    Theo kinh nghiệm thấy thì những người vẫn còn xài AutoCAD 2007 nhất quyết ko thử mấy bản mới là:

    1. Những người chỉ cần mở bản vẽ và chỉnh sửa cơ bản, khi đó 2007 sẽ phát huy tác dụng là nhanh, gọn, nhẹ.

    2. Những người thiết kế lâu năm và lớn tuổi ngại thay đổi, thậm chí Windows còn vẫn giữ XP thì nói chi tới AutoCAD.

    Lời khuyên:

    Nếu xài bản quyền thì 2007 cũng đủ rồi, còn free thì cứ lên hẳn bản mới 2016 luôn chả có gì phải ngại.

    • Vote tăng 1

  2. Hôm nay có xài thử qua bộ công cụ CADprofi có tính năng rất hay là Thống kê vật liệu - Bill of Marterials.
    Tức là chỉ cần chọn mọi loại vật liệu rồi vẽ từ thanh công cụ, thì nó sẽ thống kê tất cả khối lượng vật liệu mình đã vẽ và xuất ra bảng.
    Hiện nay CadViet có lisp BLKQTY của bác giabach có tính năng thống kê này, nhưng chỉ thống kê được block.
    Em muốn nhờ mấy bác viết thêm 1 lisp để thống kê chiều dài các đường dây theo tên layer để thống kê dây điện, ống điện & ống nước chẳng hạn.
    Ví dụ:
    Em có các line, polyline vẽ theo layer:
    Chieu sang, O cam, May lanh, Ong gas, Nuoc cap,...
    Thì lisp sẽ tính được tổng các line theo mỗi loại layer là bao nhiêu m rồi xuất ra bảng:
    Diễn giải -------------- Đơn vị tính ------------- Số lượng
    Chieu sang ------------------ m --------------------- 5.71
    O cam ----------------------- m -------------------- 18.92
    Thanks mấy bác.

    • Vote giảm 1

  3. Tình hình là trong bản vẽ mình có cái hình Logo. Mình muốn xóa chúng nhưng không thể nào chọn và xóa được. Nhờ các bạn giải quyết giúp mình lỗi này. Cảm ơn!

    http://www.cadviet.com/upfiles/4/139246_101_r01.dwg

     

    Tình hình là vẫn xóa cả 3 cái được như bình thường, cad của bạn có thông số nào bị đổi rồi.

    Thử chuyển OLEFRAME sang 2 thử xem.


  4. (defun c:plvg (/ os p1 p2 p11 p22 p3)
    (setq os (getvar "osmode")) 
    (setq p1 (getpoint "\n Chon diem bat dau ")
    p2 (getpoint p1 "\n Chon diem thu hai "))
    (setq p11 (polar p1 (* pi 0.5) 1) p22 (polar p2 0 1) p3 (inters p1 p11 p2 p22 nil))
    (setvar "osmode" 0)
    (vl-cmdf "pline" p1 p3 p2 "") (setvar "osmode" os) (princ))
    
    

    Code nhanh cho bạn!!!

     

     

    Chuẩn rồi thanks bác nhiều nhiều ^.^


  5. Do yêu cầu công việc nên em cần 1 lisp có yêu cầu như sau:

    Khi pick 2 điểm lisp sẽ tự động vẽ 1 polyline có góc vuông qua 2 điểm đó.

    Nó tương tự như lệnh rec vẽ hình chữ nhật, nhưng em chỉ muốn polyline vẽ 1 nửa hcn này thôi, bên nào cũng được.

    Em vẽ ra cho mấy bác dễ hình dung.

    Thanks mấy bác.

    http://upfile.vn/FQBtZTjmy-Lg/ve-polyline-vuong-goc-dwg.html


  6. Không đượcc bác à nó video em thử nó trên Autocad 2014 và Autocad 2016 đây ạ.

     

    Tim lisp khac thu, luc truoc cung kiem 1 lan roi co lisp chay duoc tren 2015 co lisp ko.

    P.S: AutoCAD 2016 moi ra duoc vai bua bac xai thay the nao, minh moi tai ve chua cai thu nua tai may dang xai lam viec chua dam.

    P.S: Bo go cua Cadviet cui bap nen go ra ae xai unikey la duoc roi, moi lan go chu tieng viet la con tro lai nhay ve dau dong muon dien cai dau  :angry2:


  7. Auto load lisp thì chỉ cần đưa lisp vào content, và cho folder lisp vào support path để autocad ko hỏi khi autoload lisp. Bạn thử reset setting về default thử xem, cùng đường thì cài lại CAD vì có key bản quyền mà lo gì.

    Còn AutoCAD Classic thì bạn copy lại file mình up đè lên theo đường dẫn mình chỉ, chú ý tên pc của bạn, mở CAD lên sẽ thấy tùy chọn AutoCAD Classic y như các bản cũ.

    Còn máy lag thì pó tay, máy mình acer cùi bắp core i3 đời đầu 2GB RAM chạy còn ko lag nữa mà. Hay tại bạn chạy file quy hoạch mấy trăm MB nên nó lag, thử mở mấy file nhẹ nhẹ coi có lag ko, rồi chỉnh từng bước như mình chỉ coi còn bị ko, mấy máy xịn thường có 2 card màn hình bắt buộc phải chạy card rời nha (Nvidia là chuột phải chọn Run Nvidia j đó quên rồi), nhớ up driver lên mới nhất, rồi kiểm tra bật Hardware Acceleration lên.


  8. Công ty bạn cũng sang thật, mua bản quyền CAD 2015 cho nhân viên xài luôn thật ngưỡng mộ ^.^

    1. Cho folder autolisp vào Support File Search Path.

    2. Có 50m mua bản quyền thì đề xuất cty mua luôn dàn máy 50m bảo đảm ko lag liếc gì cả.

    P.S: Thử các cách sao, máy cùi bắp vẫn xài ok bình thường.

    Mở Hardware Acceleration

    Tắt các đường gióng theo nét mình vẽ (nhấn F12)

    Tắt Selection Preview: When a command is active. When no command is active.

    3. enix, on 31 Mar 2014 - 10:38, said:

    Em đã copy lại menu của AutoCAD 2014, bác nào muốn sử dụng thì copy đè file menu này lên theo đường dẫn:

    C:\Users\enix\AppData\Roaming\Autodesk\AutoCAD 2015\R20.0\enu\Support\

    http://www.cadviet.com/upfiles/3/91608_acad.zip

     

    Em đã copy lại menu của AutoCAD 2014, bác nào muốn sử dụng thì copy đè file menu này lên theo đường dẫn:

    C:\Users\enix\AppData\Roaming\Autodesk\AutoCAD 2015\R20.0\enu\Support\

    http://www.cadviet.com/upfiles/3/91608_acad.zip

     

    Em đã copy lại menu của AutoCAD 2014, bác nào muốn sử dụng thì copy đè file menu này lên theo đường dẫn:

    C:\Users\enix\AppData\Roaming\Autodesk\AutoCAD 2015\R20.0\enu\Support\

    http://www.cadviet.com/upfiles/3/91608_acad.zip


  9. Tôi thấy tò mò với yêu cầu nên viết cho bạn.

    Nhưng bạn yêu cầu mà cố chấp không chịu gởi file lên để mọi người test thì thấy hình như bạn hơi bảo thủ.

    Bởi vì bạn đang đi nhờ mọi người, và bạn không không biết viết lisp sẽ có rất nhiều tình huống mà người viết không nghĩ đến.

    Việc đưa file cad lên sẽ giúp người được bạn nhờ rất nhiều.

    Hi vọng mình không làm phật lòng bạn... :D

     

    (defun LM:ss->ent ( ss / i l )

    (if ss

    (repeat (setq i (sslength ss))

    (setq l (cons (ssname ss (setq i (1- i))) l))

    )

    )

    )

    (defun dxf (e code) (cdr (assoc code (entget e))))

    (defun SortLstFromLst ( a b c )

    (defun f ( c d )

    (apply (function mapcar)

    (cons (function list)

    (mapcar (function (lambda ( a ) (cdr (assoc a d)))) c)

    )

    )

    )

    (f c (apply (function mapcar) (cons (function list) (cons a B))))

    )

    (defun C:ttt()

    (setq ss (ssget (list (cons 0 "TEXT"))))

    (initget "C H")

    (setq order (getkword (strcat "\nThu tu Cot/Hang[C/H]")))

    (if ss

    (progn

    (setq lst (LM:ss->ent ss))

    (setq lst_cont (mapcar '(lambda (x) (dxf x 1))

    lst

    )

    )

    (setq sx (vl-sort lst_cont '<))

    (setq lst_pt (mapcar '(lambda (x) (dxf x 10))

    lst

    ))

    (if (= order "C")

    (setq lst_pt_sx (vl-sort lst_pt

    (function (lambda (e1 e2)

    (> (cadr e1) (cadr e2)) ) ) )

    )

    (setq lst_pt_sx (vl-sort lst_pt

    (function (lambda (e1 e2)

    (< (car e1) (car e2)) ) ) )

    )

    )

    )

    (princ "Khong chon duoc text")

    )

    (setq i 0)

    (setq lst_e_sx (car(SortLstFromLst lst_pt (list lst) lst_pt_sx)))

    (repeat (length lst)

    (setq

    e (nth i lst_e_sx)

    eg (entget e)

    old (assoc 1 eg)

    nd (nth i sx)

    i (1+ i)

    eg (subst (cons 1 nd) old eg)

    )

    (entmod eg)

    )

    )

     

    Thanks bác bác viết lisp đúng ý em rồi ^.^

    Cái này ko phải em ko chịu up file lên hay giấu file gì mà đơn giản là file em chỉ có mấy dòng text, đính kèm thì ko lên, post sau em cũng đính kèm mà mất tiu.

    Lần cuối cám ơn bác thêm lần nữa ^.^

×