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. Vào lúc 10/6/2024 tại 14:57, Duong Nhat Duy đã nói:

    Big update ngày 10/06/24: Thêm tính năng tạo Field (text tự động cập nhật khi đối tượng thay đổi).

    DT-Field.gif.e0f4aa55e9c0cde83565bdd109136aea.gif

    Chi tiết xem trên đầu topic.

     

    Thêm tùy chọn hiển thị thêm đơn vị phía sau text kết quả đi bác. Thiết lập lâu rồi khi xuất ra không nhớ mình xuất ra đơn vị m hay mm phải vào tl coi lại.


  2. mở bằng cad 2016 rất chậm (có khi mất 1h có khi lâu hơn ) mới xem được file

    nhưng mở bằng cad 2007 thi bình thường không load chậm

    máy khi mở bằng cad 2016 báo lỗi như sau:

    open drawing - previous version AEC objects detected

    saving the drawing will update any AEC objects in it to the current version, which will be incompatible with earlier versions.

    this drawing was last saved with an earlier version of the software

     

    các bác chỉ giúp em

     

    Nếu cùng 1 file mà xảy ra tình trạng này thì bạn nên xài CAD 2007 hoặc là sắm máy mới.


  3. Mới coi clip What's new, thấy có 3 cái cập nhật hay xài:

    1. Tự động cập nhật link xref hàng loạt.

    2. Vừa select vừa pan chuột được.

    3. Select được các line nét đứt hay text line khi trỏ vào khoảng trống của line.

    Hết.

    Túm lại lười lên quá.


  4. Đây là code, mình lấy trên diễn đàn, bạn dùng thử xem

     

    ;;;-----------------------------------------

    (defun CheckObj(e MyType) (equal (cdr (assoc 0 (entget e))) MyType))

    ;;;-----------------------------------------

    (defun FilObj(ss1 MyType / ss2 i e)

    (setq ss2 (ssadd) i 0)

    (repeat (sslength ss1)

    (setq e (ssname ss1 i) i (1+ i))

    (if (CheckObj e MyType) (ssadd e ss2) )

    )

    (eval ss2)

    )

    ;;;-----------------------------------------

    (defun SelData( / OK)

    (setq OK nil)

    (while (not OK)

    (prompt "\tChon cac text can tinh:")

    (setq ss (FilObj (ssget) "TEXT"))

    (if (> (sslength ss) 0) (setq OK T) (princ "\nDoi tuong chon khong phai text"))

    )

    )

    ;;;-----------------------------------------

    (defun WriteRes(kq / OK e data)

    (setq OK nil)

    (while (not OK)

    (setq e (car (entsel "\tChon text ghi ket qua:")))

    (if (CheckObj e "TEXT") (setq OK T) (princ "\nDoi tuong chon khong phai text"))

    )

    (entmod (subst (cons 1 (rtos kq)) (assoc 1 (setq data (entget e))) data))

    (princ)

    )

    ;;;-----------------------------------------

    (defun C:MUL( / i m e ss)

    (SelData) (setq i 0 m 1.0)

    (repeat (sslength ss) (setq e (ssname ss i) i (1+ i) m (* m (atof (cdr (assoc 1 (entget e)))))))

    (WriteRes m)

    )

    ;;;-----------------------------------------

    (defun C:SUM( / i s e ss)

    (SelData) (setq i 0 s 0.0)

    (repeat (sslength ss) (setq e (ssname ss i) i (1+ i) s (+ s (atof (cdr (assoc 1 (entget e)))))))

    (WriteRes s)

    )

    ;;;-----------------------------------------

    Xin lỗi đào mộ nhưng có bác nào biết cách chỉnh lại xuất kết quả là không có thập phân không, mình cộng giá trị tròn mà xuất giá trị nó lấy tới 4 số thập phân .0000

    • Vote giảm 1

  5. Update 2 (11/4/2016)

    * Sửa lỗi command, command-s trên Cad >= 2015.

     

    http://www.cadviet.com/upfiles/5/141736_qplupdate2.rar

    Bản update 2 này chạy ổn rồi bác, mọi cái đều ok.

    Còn vụ lisp pick block bị dư khoảng trống em thấy có khung tên nó pick đúng, có khung tên nó lại pick dư nên làm in lệch.

    Thử vẽ 1 rectang bất kỳ rồi block lại lisp pick y chang rectang đó.

    Kết luận là tại cái khung tên nó có cái gì làm cho lisp pick lệch, tối rảnh em mò thử ^.^


  6. Có khả năng Cad đời cao có biến hệ thống nào đó làm ảnh hưởng ...

    https://www.youtube.com/watch?v=srILX2TCk6w&feature=youtu.be

    Rồi thua bác, bản vẽ của em hiện có thì pick block nào cũng ok, nhưng khi tạo block mới hay copy từ bản vẽ khác qua thì các block đó đều pick ko được, báo lỗi:

    Select objects:

    Cannot invoke (command) from *error* without prior call to (*push-error-using-command*).

    Converting (command) calls to (command-s) is recommended.


  7. Lạ nhỉ! Của mình không sao, cad nào cũng vậy.

    Không biết có ai bị như vậy nữa không???

     

    Không biết nữa bác, em chạy AutoCAD 2015 x64.

    Và có trường hợp thú vị nữa là trong bản vẽ chỉ pick được mỗi cái khung tên, pick vô block khung tên khác báo lỗi ko cho pick, thậm chí khung tên bản vẽ khác pick ok nhưng copy qua bản vẽ này pick lại báo lỗi >.<

     

    
    

    Cannot invoke (command) from *error* without prior call to (*push-error-using-command*).

    Converting (command) calls to (command-s) is recommended.


  8. Trong lisp thiết lập center mà, thử chọn khổ giấy hay máy in PdF khác xem! Mình thấy pdfFactory pro rất chuẩn. 

     

    Chọn máy in nào cũng vậy thôi bác ơi, tấm hình đầu tiên là em view lisp pick window khung in đó bác, bác thấy nó chọn dư bên phải ko, nên khi in ra nó vẫn nhận khoảng trống đó là bản vẽ -> lệch trái  :)

    • Vote tăng 1

  9. Thanks! đã góp ý! Bản cad mới 5.5Gb down mệt quá mới được 20%.

    ý 1 và 2 thì Cad2013 trở xuống là Ok rồi. 2014 trở lên chưa thử ...

    Bổ sung phần sort thì đơn giản thôi, chỉ cần thay đổi dấu (< hay > là xong).

    P/s: Làm khung tên chuyên nghiệp tý thì nên làm Att-Block, và sort không quan tâm vị trí, chỉ quan tâm đến ký hiệu bản vẽ thôi.

     

    Nếu mình làm thì ko còn gì để nói, thậm chí mình đã dàn hết publish ra gọn đẹp, nhưng khung người khác làm thì mệt lắm bác, nhiều khi đưa file in muốn khùng, nên cho nhiều tùy chọn thì tốt hơn bác để gặp thằng nào cũng chiến được  :)


  10.  

    Oh yeah! Sư huynh có progn mới ah . Tick thanks cái đã .... :P . Mã của Nhoc đây

    345771 809E3C 5559

    Cho Nhoc xin Key :P

     

     

     

     

     

     

     
    Mã: HHBV-DTJ

     

     

     

     

     

     

    Em đã chạy thử lisp 2 bác inbox em.

    1 vài nhận xét:

    1. In trong Model:

    Không in được hàng loạt, chỉ in được block đầu tiên.

    Không có tùy chọn Center the plot, nên in ra file bị lệch về 1 bên.

    2. In trong Layout:

    Chọn Printer không có tác dụng, nó cứ mặc định nhận cái máy in đầu tiên và in cái máy này.

    Chiều của tờ giấy ko auto, in cứ ra khổ giấy dọc.

     

    Túm lại là với bản CAD mới bác còn nhiều việc phải làm  :)

     

    P.S: Ý kiến phần Thứ tự in bác để khó hiểu quá, chưa in được nên ko biết nó ra sao? Em đoán:

    1. Hàng - Cột: Trái qua phải, trên xuống dưới:

    2.Column - L>R: Trên xuống dưới, trái qua phải

    3. Row - B>T: Trái sang Phải, Dưới lên Trên

     

    Còn thiếu nhiều trường hợp lắm bác, ví dụ hay gặp in từ Dưới lên Trên, Trái qua Phải.


  11.  

     

     

    Lisp này xài tốt nè, hoặc là xài file .vlx hoặc là add folder chứa .lsp .dcl vào support path.

    Nhưng mình vẫn thích lisp TDL trong bộ ACV hơn, chỉ đơn giản là gõ lệnh TDL rồi quét line nó popup ra kết quả theo m luôn.

    Còn lisp CL này xài mệt hơn nhiều, gõ lệnh CL rồi phải click vô Chọn đối tượng rồi quét line mới hiện kết quả, mà kết quả vẫn còn là mm.


  12. :D :D :D

    2 lúa đã có góp bài >800 fonts shx, bác @enix nếu cần thì load về bổ sung nhé.

     

    link:

    http://www.cadviet.com/forum/topic/117148-share-fonts-cad-1463-fonts-shx-2-lua/

     

    http://www.cadviet.com/forum/topic/64262-839-font-shx/

    :D :D :D

     

    Em gom nó với bộ font em có là ra 1608 font, hix copy vô hết có đứng CAD ko đây trời >.<

×