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

Nguyễn Hà Huy

Thành viên
 Xem Hồ Sơ  Xem hoạt động của họ

  • Số lượng nội dung

    159

  • Đã tham gia

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

  • Ngày trúng

    17

Bài đăng được đăng bởi Nguyễn Hà Huy

  1. Đã đăng · Trả lời báo cáo

    11 giờ trước, Thành5820 đã nói:

    Chào các bác,vấn đề của mình cũng tương tự như của bác này, mình có thử dùng cad 2025 bản crack, nhưng không dùng được những tính năng có tích hợp AI như Bconvert hoặc Detect, không biết có bác nào làm được chưa ạ, nếu có xin được chỉ giáo với ạ, nếu không có cách khác mình đang nghĩ đến hướng mua key thì không biết key tầm bao nhiêu là dùng được cho những tính năng đó ạ, xin cảm ơn mn

    nếu b làm nhóm nhiều ng vẽ trên 1 file dwg thì lên mua, còn ko thì tạo key sinh viên mà dùng thử. Mua key phải tìm chỗ uy tín mua nhiều chỗ bán key nhưng là key sinh viên vừa đắt lại còn bị dòng chữ PRODUCED BY AN AUTODESK EDUCATIONAL PRODUCT khi in trên giấy khá khó chịu

    • Vote tăng 1

  4. Đã đăng · Trả lời báo cáo

    1 giờ trước, pham trung hải đã nói:

     cảm ơn bạn tannguyen291đã để ý đến chủ đề của tôi. nhưng tôi đang gặp một vấn đề này khi tôi copy bảng từ cell sang cad thì nó chỉ hiện thị dạng  ảnh, mà với dạng ảnh thì có bố SUMIF sống lại cũng quỳ lạy thôi.

    z5305034340956_2c8ee1a624e32882d162ac09fcd3380a.jpg

    trong file cad đang dùng phần mềm của NGHIA_THKE thì lên liên hệ với tác giả. Còn muốn xuất qua excel thì dùng lisp tankhanh. Còn về mảng dân dụng họ hay dùng phần mềm Katapro hoặc DCE để vẽ kết cấu, thống kê tự động xuất qua lại giữa cad và excel chứ ko ai bóc tay như bác nữa đâu 

    image.png

  6. Đã đăng · Trả lời báo cáo

    7 giờ trước, amateurday đã nói:

    Kính chào các anh chị trên Diễn đàn,

    Vấn đề bản quyền nó gây ra 2 vấn đề thế này:

    - 1 là tiếc tiền không dám mua.

    - 2 là không mua thì thỉnh thoảng có thông báo mail, kiện cáo về bản quyền từ các đại diện của Autodesk.

     

    Vậy hiện tại ở cơ quan, công ty các anh chị đang công tác, thì vấn đề bản quyền này xử lý thế nào? Đơn vị có mua không, hay chỉ mua 1, 2 cái.

    Vấn đề cá nhân thì thế nào? Anh chị nào đã mua và hài lòng.

    Và cách thức kiểm tra bản quyền mà các đại diện của Autodesk thực hiện thế nào?

     

    Đơn vị chỗ tôi làm, hiện đang lăn tăn giữa việc mua hay không, và mua bản LT hay bản full. Vẫn bên trọng bên khinh, mà bên trọng là "thôi, kệ đi mà".

    Ở VN thì làm theo team, nhóm thì lên mua, còn làm độc lập, ko cộng tác với nhau mà theo hình thức gửi file chéo thì bẻ khoá xong chặn host, mạng các thứ để nó ko dò ip cũng như ko mất bẻ khoá.

  8. Đã đăng · Trả lời báo cáo

    Theo ý kiến cá nhân của em thì anh @cuongtk2làm dự án chuyển fonts .VnAvantH và fonts VNI Helve Condense về dạng fonts unicode thì khả thi hơn, hiện tại thì miền Bắc vẫn ưa .VnAvantH, miền Nam vẫn ưa VNI Helve Condense. Dù đã có văn bản pháp luật yêu cầu dùng hết loại fonts unicode nhưng khi in ra giấy thì ai bắt bẻ dùng fonts gì để phạt đâu, chẳng lẽ mang ra so sánh từng từ 1 xem dùng fonts gì. Còn fonts .shx thì chỉ dùng cho mỗi AutoCAD thôi, mà khi bị lỗi thiếu fonts, có ai tìm fonts đấy để tải đâu, chưa kể phải theo sếp ở trên. Fonts .tft tải trên fonts google com thì dễ tải hơn

  9. Đã đăng · Trả lời báo cáo

    39 phút trước, Doan Van Ha đã nói:

    Chính phủ quy định thống nhất dùng bảng mã Unicode rồi, nên font VNI-Helve sớm muộn sẽ vào viện bảo tàng thôi.

    Theo Nghị định 30/2020/NĐ-CP thì bắt buộc dùng bộ fonts Arial và Time New Roman rồi ạ, hiện tại ai dùng Revit thì chuyển qua 100% loại fonts này nhưng dòng fonts này khi viết hoa thì dấu với mũ bị bé in sao chép nhiều lần sẽ bị mất dấu. Bộ Be Vietnam Pro lấy mẫu unicode cũng khá đẹp

    • Like 1

  12. Đã đăng · Trả lời báo cáo

    9 giờ trước, nhjngj đã nói:

    Bạn cho mình hỏi khi mình dùng CD1, CD2, CD3 thì text đều không nằm phía trên đường pline mà lại bị như hình nhỉ? Cảm ơn bạn.

    kaka, lisp này lúc đầu viết để làm quy hoạch hạ tầng, b muốn làm theo ý bạn để áp dụng vào công việc thì trong cái lệnh TL ấy có số phone của tác giả, b liên hệ để sửa theo ý muốn. với dùng thêm 1 lisp xoay text theo hướng pline thì có làm sao

    • Vote tăng 1

  15. Đã đăng · Trả lời báo cáo

    14 giờ trước, Hai Danh đã nói:

    Chào cả nhà 

    Tôi vùa chuyển sang cad 2022, tôi hay dùng chột phải để thực hiện lệnh. Nhưng điểm base của các lênh copy, move thình thoảng không chủ động . Cad tự mặc định là gốc tọa độ hoặc các điểm không xác định. Việc này dẫn tới thực hiện lệnh không chính xác và làm đi làm lại mất thời gian.

    Phiền cả nhà đã trải qua lỗi này tư vấn 

    Cảm ơn cả nhà.

    em đoán bác này mới chuyển qua cad mới chưa setup gì trong cad nên copy move ko có bắt điểm. Bác gõ lệnh os rồi chọn select all ấn ok nhé

    • Like 1

  17. Đã đăng · Trả lời báo cáo

    1 giờ trước, tannguyen291 đã nói:

    cái dòng này

     txt (rtos (* spec_facedim (fixx (+ (/ txt spec_facedim) 0.5))) 2 0)

    Viết chữ fix sai chỉnh tả hahaha.

    Mình nói với bạn là dim ngược chiều kim đồng hồ mà bạn k tin. :))

     

    Cảm ơn anh nhiều đã giúp.

  18. Đã đăng · Trả lời báo cáo

    4 giờ trước, tannguyen291 đã nói: 
    
(setq spec_facedim (expt 10 0)) ;  <---- số 0 là vị trí muốn làm tròn

(defun c:DLA (/ asin arc p1 p2 p3 ent modelSpace txt)
  (defun asin (sine) (atan sine (sqrt (- 1 (expt sine 2)))))
  (setq 
    modelSpace (vla-get-ModelSpace (vla-get-ActiveDocument (vlax-get-acad-object)))
    arc (entget (car (entsel "\nSelect Arc")))
    arc (list (cdr (assoc 10 arc)) (cdr (assoc 40 arc)))
    p1 (getpoint "\nStart Dim")
  )
  (while (setq p2 (getpoint p1 "\nDim continue"))
    (if (not p3) (setq p3 (getpoint p2 "\nText Dim")))
    (setq 
      p3 (polar (car arc) (angle (car arc) (mapcar '(lambda (a b) (/ (+ a b) 2)) p1 p2)) (distance p3 (car arc)))
      txt (* (cadr arc) 2 (asin (/ (distance p1 p2) 2 (cadr arc))))
      txt (rtos (* spec_facedim (fixx (+ (/ txt spec_facedim) 0.5))) 2 0)
      ent (vla-adddim3pointangular modelSpace (vlax-3d-point (car arc)) (vlax-3d-point p1) (vlax-3d-point p2) (vlax-3d-point p3))
      ent (entget (vlax-vla-object->ename ent))
      ent (subst (cons 1 txt ) (assoc 1 ent) ent)
      p1 p2
    )
    (entmod ent)
  )
  (princ)
)

    sửa số 0 ở trên thành 1 2 3 4  để làm tròn đến vị trí chỉ định. 

    image.thumb.png.4d3b27ed406b517c3077a974de921c43.pngbị lỗi này anh ạ, fix giúp em với ạ và có cách nào nó ưu tiên dim cung nhỏ không anh nhỉ, bị lỗi nó dim ra cái cung to như hình tròn

  19. Đã đăng · Trả lời báo cáo

    Vào lúc 18/3/2023 tại 15:05, tannguyen291 đã nói:

    Không phải chỉ đơn giản là tắt cái symbols mà là nhìn hình thức dimarc với dimangular nó khác nhau. nhìn dimangular rất đẹp. nên mình cũng muốn giúp.

    MÌnh viết cho bạn 1 cái lệnh DIM. DLA

    Đầu tiên chọn ARC trước.

    sau đó pick điểm 1 điểm 2 (dim ngược chiều kim đồng hồ nhé)

    pick vị trí chèn text dim

    sau đó các điểm 3 4 5 ... sẽ giống lệnh dimcontinue.

    dùng thử xem oke không. 

    
(defun c:DLA (/ asin arc p1 p2 p3 ent modelSpace txt)
  (defun asin (sine) (atan sine (sqrt (- 1 (expt sine 2)))))
  (setq 
    modelSpace (vla-get-ModelSpace (vla-get-ActiveDocument (vlax-get-acad-object)))
    arc (entget (car (entsel "\nSelect Arc")))
    arc (list (cdr (assoc 10 arc)) (cdr (assoc 40 arc)))
    p1 (getpoint "\nStart Dim")
  )
  (while (setq p2 (getpoint p1 "\nDim continue"))
    (if (not p3) (setq p3 (getpoint p2 "\nText Dim")))
    (setq 
      p3 (polar (car arc) (angle (car arc) (mapcar '(lambda (a b) (/ (+ a b) 2)) p1 p2)) (distance p3 (car arc)))
      txt (* (cadr arc) 2 (asin (/ (distance p1 p2) 2 (cadr arc))))
      txt (rtos txt 2 (getvar "DIMDEC"))
      ent (vla-adddim3pointangular modelSpace (vlax-3d-point (car arc)) (vlax-3d-point p1) (vlax-3d-point p2) (vlax-3d-point p3))
      ent (entget (vlax-vla-object->ename ent))
      ent (subst (cons 1 txt ) (assoc 1 ent) ent)
      p1 p2
    )
    (entmod ent)
  )
  (princ)
)

    giphy.gif

    Anh có thể sửa giúp em lisp có thể làm tròn về 5 và 10 được không ạ, kiểu dim ra 1198 thì nó làm tròn luôn về 1200.

  25. Đã đăng · Trả lời báo cáo

    Vào lúc 18/3/2023 tại 15:05, tannguyen291 đã nói:

    Không phải chỉ đơn giản là tắt cái symbols mà là nhìn hình thức dimarc với dimangular nó khác nhau. nhìn dimangular rất đẹp. nên mình cũng muốn giúp.

    MÌnh viết cho bạn 1 cái lệnh DIM. DLA

    Đầu tiên chọn ARC trước.

    sau đó pick điểm 1 điểm 2 (dim ngược chiều kim đồng hồ nhé)

    pick vị trí chèn text dim

    sau đó các điểm 3 4 5 ... sẽ giống lệnh dimcontinue.

    dùng thử xem oke không. 

    
(defun c:DLA (/ asin arc p1 p2 p3 ent modelSpace txt)
  (defun asin (sine) (atan sine (sqrt (- 1 (expt sine 2)))))
  (setq 
    modelSpace (vla-get-ModelSpace (vla-get-ActiveDocument (vlax-get-acad-object)))
    arc (entget (car (entsel "\nSelect Arc")))
    arc (list (cdr (assoc 10 arc)) (cdr (assoc 40 arc)))
    p1 (getpoint "\nStart Dim")
  )
  (while (setq p2 (getpoint p1 "\nDim continue"))
    (if p3
      (setq p3 (polar (car arc) (angle (car arc) (mapcar '(lambda (a b) (/ (+ a b) 2)) p1 p2)) (distance p3 (car arc))))
      (setq p3 (getpoint (mapcar '(lambda (a b) (/ (+ a b) 2)) p1 p2) "\nText Dim"))
    )
    (setq 
      txt (* (cadr arc) 2 (asin (/ (distance p1 p2) 2 (cadr arc))))
      txt (rtos txt 2 (getvar "DIMDEC"))
      ent (vla-adddim3pointangular modelSpace (vlax-3d-point (car arc)) (vlax-3d-point p1) (vlax-3d-point p2) (vlax-3d-point p3))
      ent (entget (vlax-vla-object->ename ent))
      ent (subst (cons 1 txt ) (assoc 1 ent) ent)
      p1 p2
    )
    (entmod ent)
  )
  (princ)
)

    giphy.gif

    lisp chạy quá ngon luôn bác, em thử dim cùng chiều kim đồng hồ mà vẫn được bác ạ. Em dùng bao giờ có lỗi phát sinh gì thì bác lại giúp em với nhé <3 cảm ơn bác nhiều

    • Vote tăng 2
    • Vote giảm 1
×