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

sirdo

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

  • Số lượng nội dung

    16

  • Đã tham gia

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

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

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

    Có ai biết làm thế nào để có thể Bind Xref ở nhiều bản vẽ cùng một lúc, tương tự như có thể thay đổi đường dẫn Xref của nhiều file cùng một lúc bằng Reference Manager....không?

    Cảm ơn rất nhiều!

     

    Hỏi thêm chút: một số bản vẽ dùng Xref của mình mở rất lâu, trong khi file Xref có dung lượng khá nhỏ (vài trăm KB). Không biết là sao nhỉ?

     

    Bác nào có kinh nghiệm sử dụng Xref để bản vẽ chính có thể load nhanh hơn không? Tks!

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

    Chưa hiểu rõ ý bạn lắm, bạn muốn copy block cùng tên từ bản vẽ này qua bản khác mà ko muốn đổi tên blog hay làm gì?

     

    Mình nhớ có một lệnh rất tiện khi làm việc với khung tên. Khi làm việc ở bản vẽ này nhưng có thể chỉ khung tên (block) ở bản vẽ khác, giống như là đồng bộ khung tên bản vẽ này với bản vẽ khác mà không cần copy ngược ấy mà...

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

    Tức là tạm thời ẩn hết vùng xung quanh, chỉ hiển thị đối tượng được chọn. Giống như lệnh layiso ấy mà, chỉ khác ở đây là đối tượng mà thôi. Thực ra nếu có thể thì lisp này cũng không hữu dụng lắm, chỉ đối với máy có cấu hình hơi yếu thì nếu làm việc với một phần bản vễ sẽ nhẹ hơn thôi. Thanks!

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

    Mình có cái này hồi xưa thấy trong CD bán ngoài thị trường chẳng biết của ai viết nhưng đúng ý của bạn nè.

    (defun c:ND 
 (/ Ename Elist Msg Oldtext Oldlist Newtext Newlist)
(prompt "\nChon chu muon chinh.")
 (setq Ename (car (entsel)))
(prompt "\nChon chu lam chuan.")
 (if (not Ename) (prompt "\nChua chon duoc doi tuong.")
 (progn
  (setq Elist (entget Ename)) 
  (setq Oldlist (assoc 1 Elist)) 
  (setq Oldtext (cdr Oldlist))
  (setq Msg (strcat "\nNewtext <" Oldtext ">:"))
  (setq Newtext (car (entsel)))
  (setq Newtext (entget Newtext))
  (setq Newtext (assoc 1 Newtext)) 
  (setq Newtext (cdr Newtext))
  (if (= Newtext "") (setq Newtext Oldtext))
  (setq Newlist (cons '1 Newtext))
  (setq Elist (subst Newlist Oldlist Elist))
  (entmod Elist)
 ) ; end progn
 ) ; end if
 (princ)
)

     

    Tên lệnh là ND

    Chọn chử muốn chỉnh trước rồi chọn chử làm mẫu sau. Chúc vui !!!!!!

     

     

    Mình rất tâm đắc cái này. Nó rất tiện khi làm Kết cấu. Thanks nhé. Nhưng mà làm thế nào để có thể multi dc thì tuyệt?

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

    Lỗi này báo việc bạn thực hiện một hàm (function) chưa đúng, bạn đã cấp nhiều hơn số thông số mà hàm yêu cầu (nếu như báo too few thì lại là ít hơn)

     

    Chẳng hạn, có đoạn code sau đây:

    (defun TCB (A B \ C)
(setq C (/ (+ A B) 2))
)

     

    Hàm TCB dùng để tính trung bình cộng của hai số. Khi sử dụng hàm này, bạn buộc phải nhập hai và chỉ hai thông số. Chẳng hạn, nhập đúng sẽ là: 

    (setq X TBC (2 3))

    Nếu như bạn nhập nhiều hơn 2 thống số thì sẽ có báo lỗi như bạn đã hỏi, chẳng hạn trường hợp nhập sai

    (setq X TBC (2 3 5))

     

    Thanks, nhưng mà khi chạy lisp mà gặp lỗi này thì phải làm thế nào cơ bạn?

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

    (defun ketthuc ()

    ...

    Tuy nhiên nếu dùng thì lisp này lại thuận tiện hơn ở 2 điểm:

    - thứ nhất: lisp này dùng cho cả A,B,C sử dụng để đánh trục bản vẽ

    - thứ hai: chỉ cần đánh lệnh CT rồi chọn đối tượng chuyển đến các chỗ mình cần . Chữ hoặc số bất kỳ sẽ tự động nhảy lên . Ví dụ: khi có một số giá trị là 5, gõ CT bắt 5 chuyển đến các vị trí khác, số thứ tự tự động sẽ là 6,7,8,.... tương tự với khi có một chữ là E, gõ CT bắt E chuyển đến các vị trí khác, chữ thứ tự tự động sẽ là F,G,H,..... Dùng thế này mình đỡ tốn được công đoạn pick lại số đã copy, hỏi số bắt đầu mà gói gọn hết lại thành duy nhất một công đoạn copy thôi . Các bạn thử dùng xem sao .

     

    Cái này hay quá, nhưng mà sao không dùng cho text dạng: Kt-01 -> Kt-02... Vậy?

    Tớ muốn đánh số kiểu như: Kt-01 -> kt-02.... tự động thì làm thế nào? Thanks!

×