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

cuongtk2

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

  • Số lượng nội dung

    1018

  • Đã tham gia

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

  • Ngày trúng

    169

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

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

    Code bởi Gemini, đã test. 

    (defun c:DXF (/ *error* dwgName dxfPath acDoc)
  (vl-load-com)
  
  ;; Ham xu ly loi
  (defun *error* (msg)
    (if (not (member msg '("Function cancelled" "quit / exit abort")))
      (princ (strcat "\n** Error: " msg " **"))
    )
    (princ)
  )

  (setq acDoc (vla-get-activedocument (vlax-get-acad-object)))

  ;; 1. Lay duong dan va ten file hien tai (bo duoi .dwg)
  (setq dwgName (getvar "DWGPREFIX")) ; Lay thu muc chua file
  (setq dwgName (strcat dwgName (vl-filename-base (getvar "DWGNAME")) ".dxf")) ; Ghep ten file voi duoi .dxf

  ;; 2. Thuc hien lenh DXFOUT
  ;; Dung (if (findfile dwgName) ...) de kiem tra neu file ton tai thi ghi de
  (if (findfile dwgName)
    (command "._DXFOUT" dwgName "_Y" "16") ; "_Y" de dong y ghi de, "16" la phien ban AutoCAD 2013/2018
    (command "._DXFOUT" dwgName "16")
  )

  (princ (strcat "\nDa xuat file tai: " dwgName))
  (princ)
)

     

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

    Cái này không biết lisp có làm được không, cách làm trong .NET cũng đơn giản: tạo một block ẩn danh rồi chèn block cần thống kê vào block đó. Sau đó lấy btrId của block này cho vào table. Kể cả dynamic block đã thay đổi parameter cũng hiệu lực. (Xem tại diễn đàn t5 của  autodesk forum).

     

    • Like 1

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

    52 phút trước, Mít Tơ Gà đã nói:

    mình thấy các thuộc tính trong block ATT nhập giá trị bình thường chứ không có liên kết như field bác ạ

    Mấy con thiết bị đầu cuối  sẽ được đính một Xdata để theo dõi handle của tủ điện để theo dõi attribute phân nhánh của tủ điện, nhằm tính phụ tải cho tủ điện. Trước mình cũng viết cho ai đó 1 tool như vậy, nếu tên tủ điện thay đổi "TD1" thì mấy con đầu cuối sẽ nhảy theo.

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

    21 phút trước, Bình Mai đã nói:

    em trút qua dwg rồi nó hiện dạng điểm á anh. xong phải nối điểm lại

    Bạn nên nhờ một con chat đọc file đó yêu cầu viết lệnh để trút vào dwg thành những thứ mình mong muốn. Tất nhiên phải đính kèm ký hiệu nhận diện cho nó biết lúc nào cần vẽ điểm, lúc nào line, polyline, text.

     

×