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

kokono939

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

  • Số lượng nội dung

    20

  • Đã tham gia

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

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

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

    Mình tìm thấy 3 lisp này, các bạn sài tạm nhé. Thanks tác giả nhiều.

     

    Lệnh cdo

    http://www.cadviet.com/upfiles/cdo_Canh_dong_text.fas

    Lệnh cha

    http://www.cadviet.com/upfiles/cha_Canh_hang_text.fas

    Lệnh cle

    http://www.cadviet.com/upfiles/cle_Canh_le_text.fas

     

     

    Lisp này mình muốn sửa lại lệnh như thế nào?có thể chuyển sang file *.lsp ko har bạn?

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

    Đây, lisp vẽ đường hàn, các lệnh được sử dụng là h1 ; h2 ; h3 ; h4

    mỗi lệnh tương ứng với các loại đường hàn khác nhau, bạn hãy thử đi sẽ biết

     

    <a href="http://www.cadviet.com/upfiles/DHan.lsp" target="_blank"><a href="http://www.cadviet.com/upfiles/DHan.lsp" target="_blank"><a href="http://www.cadviet.com/upfiles/DHan.lsp" target="_blank">http://www.cadviet.com/upfiles/DHan.lsp</a></a></a>

     

     

     

    Mình đang cần lisp vẽ đường hàn này, có phải lisp tạo đường hàn là các block ko, link die rồi, bạn up lại giúp được ko!

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

    Kiểu vẽ scale hình vẽ và thay đổi dim "xưa rồi Diễm ơi"!

    Em tham khảo người quen và bạn bè cùng học thì thấy đa phần dùng theo cách giữ nguyên hình vẽ, scale khung tên. Để tạo dim to hơn hay bé hơn chỉ cần thay đổi trị số : Use overall scale of. Cách này không có chuyện " bản vẽ sắp xếp lồi xồi, không đẹp( vì các khung bản vẽ không bằng nhau)", như anh tưởng đâu nhé!(Chẳng qua là anh chưa làm thử thôi)

    Cuộc sống muôn mầu môn vẻ, loài hổ báo ăn thịt, loài trâu bò ăn cỏ... tuỳ cơ ứng biến liệu, cơm gắp mắm, đừng bắt trâu bò phải ăn thịt và đừng bắt hổ báo phải ăn cỏ anh ạ!

     

     

    Cách vẽ scale hình vẽ sao lại bảo là "xưa rồi diễm"; trong một bản vẽ có nhiều tỷ lệ không vẽ cách đó thì làm thế nào, sacle khung chỉ giải quyết đuợc khi trong bản vẽ đó có 1 tỷ lệ nhất định thôi!

     

    Còn việc vẽ bằng layout bị giới hạn nặng bản vẽ, view khó, kick đi kick lại, dim bên model thì chẳng khác j` vẽ model, phai quan lý chiều cao text với dim...mà dim bên layout thì khi sửa thì kéo cả model lẫn layout, thao tác qua nhiều....Bên cạnh đó khi copy sang bản vẽ khác với chi tiết tương tụ thi copy hình vẽ bên model, copy chữ bên layout....quá khó khăn...không ổn...

     

    Exreft thì cũng tương tự layout...chữ với hình cũng ko liên hệ.....

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

    Cũng không rõ nữa vẫn báo lỗi thế này.

    1_14.jpg

    Nhưng thôi kệ nó đã. Bác test lại với block của bác nhé

    (defun c:textblock (/ C40 ENT H I M N N40 SS SSN ENT1 SSN1 RONG C10 C11 C41 C72 C73 N41 N72 N73)
(vl-load-com)
(princ "\nChon block")
(setq ss (ssget '((0 . "INSERT"))))
(setq i 0)
(setq n (sslength ss))
(setq m -1)
(setq h (getreal "\n Nhap chieu cao chu: "))
(setq rong (getreal "\n Nhap be rong chu: "))
(while (< i n)
(setq ssn (ssname ss (setq m (1+ m))))
(setq ent (entget ssn))
(if(= (cdr(assoc 66 ent)) 1)
(progn
(setq ssn1(entnext ssn))
(setq ent1(entget ssn1))
(while (/= (cdr(assoc 0 ent1)) "SEQEND")
(setq c40 (assoc 40 ent1))
(setq n40 (cons 40 h))
(setq c41 (assoc 41 ent1))
(setq n41 (cons 41 rong))
(if (and(/= (cdr(assoc 72 ent1)) 1)(/=(cdr(assoc 73 ent1)) 2))
 (progn
   (setq c11 (assoc 11 ent1))
   (setq c10 (cons 11 (cdr(assoc 10 ent1))))
   (setq c72 (assoc 72 ent1))
   (setq c73 (assoc 73 ent1))
   (setq n72 (cons 72 1))
   (setq n73 (cons 73 2))
   (setq ent1 (subst c10 c11 ent1))
   (setq ent1 (subst n72 c72 ent1))
   (setq ent1 (subst n73 c73 ent1))
   )
 )
(setq ent1 (subst n40 c40 ent1))
(setq ent1 (subst n41 c41 ent1))  
(entmod ent1)
(setq ssn1(entnext ssn1))
(setq ent1(entget ssn1))
)
)
)
(setq i (+ 1 i))
)
(entupd ssn)
(princ)
)

    Nếu còn bị nhảy thì báo lại cho mình nhé.

     

     

    Thank bác. Chữ ko bị nhảy nữa rồi!Lisp đến đây là chuẩn theo yêu cầu ban đầu rồi.Chúc bác làm việc tốt!

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

    Dạo này bận quá nên không lên thường xuyên được mong bạn thông cảm.
    (defun c:textblock (/ C40 ENT H I M N N40 SS SSN ENT1 SSN1 RONG C10 C11 C41 C72 C73 N41 N72 N73)
(vl-load-com)
(princ "\nChon block")
(setq ss (ssget '((0 . "INSERT"))))
(setq i 0)
(setq n (sslength ss))
(setq m -1)
(setq h (getreal "\n Nhap chieu cao chu: "))
(setq rong (getreal "\n Nhap be rong chu: "))
(while (< i n)
(setq ssn (ssname ss (setq m (1+ m))))
(setq ent (entget ssn))
(if(= (cdr(assoc 66 ent)) 1)
(progn
(setq ssn1(entnext ssn))
(setq ent1(entget ssn1))
(while (/= (cdr(assoc 0 ent1)) "SEQEND")
(setq c40 (assoc 40 ent1))
(setq n40 (cons 40 h))
(setq c41 (assoc 41 ent1))
(setq n41 (cons 41 rong))
(setq c11 (assoc 11 ent1))
(setq c10 (cons 11 (cdr(assoc 10 ent1))))
(setq c72 (assoc 72 ent1))
(setq c73 (assoc 73 ent1))
(setq n72 (cons 72 1))
(setq n73 (cons 73 2))
(setq ent1 (subst n40 c40 ent1))
(setq ent1 (subst n41 c41 ent1))
(setq ent1 (subst c10 c11 ent1))
(setq ent1 (subst n72 c72 ent1))
(setq ent1 (subst n73 c73 ent1))
(entmod ent1)
(setq ssn1(entnext ssn1))
(setq ent1(entget ssn1))
)
)
)
(setq i (+ 1 i))
)
(vl-cmdf "regen")
(princ)
)

     

     

    Thank anh, nhưng em dùng nó lại bị nhảy chữ sau mỗi lần nhập bề rộng chữ, kể cả nhập bề rộng hiện hành cũng nhảy.Anh xem lại.Em post hình bên dưới!

     

     

    http://www.cadviet.com/upfiles/3/1111.jpg

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

    Lệnh Battman

     

    Lệnh battman chỉ sửa được block thuộc tính gốc; ko cập nhật thay đổi vào các blpck thuốc tính sao; khi dùng sync thì thay đổi tất cả các block sao trong bản vẽ về nội dung gốc, làm như thế ko được.

    Mình thấy lisp của anh y' gần đúng ý em rồi, nhưng tiếc chỉ sửa được chiều cao text, ko sửa được bề rộng text.....( nội dung block vẫn giữ nguyên)

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

    Đây nè pác (không chỉ revit structure 2009 thôi mà cho tất cả các sản phầm của autodesk 2009) : http://www.mediafire.com/?mtkqjy2uzgw

    Mình thì đang tìm bộ cài revit structure 2009 Full , download trên mạng bản RST-S2009.exe ( http://revit.downloads.autodesk.com/downlo...1_RST-S2009.exe ) khi setup xong thì ko có Thư mục Metric để xài hệ SI . Bác nào trên diễn đàn có thì share cho em cái link với nhé . Thx

     

     

    Không phải các bác à, revit crack thì co nguyên bộ của autodék các năm rồi, mình nói về cái crack cua liên kết giữa Etab với revit là CSIxRevit 2009;2010 cơ.

    Hình như ít người quan tâm!chẹp!

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

    Kiên nhẫn chứ bạn. Đây bạn dùng thử xem.
    (defun c:textblock (/ C40 ENT H I M N N40 SS SSN ENT1 SSN1)
 (vl-load-com)
 (princ "\nChon block")
 (setq ss (ssget '((0 . "INSERT"))))
 (setq i 0)
 (setq n (sslength ss))
 (setq m -1)
 (setq h (getreal "\n Nhap chieu cao chu: "))
 (while (< i n)
   (setq ssn (ssname ss (setq m (1+ m))))
   (setq ent (entget ssn))
   (if(= (cdr(assoc 66 ent)) 1)   
   (progn
     (setq ssn1(entnext ssn))           
     (setq ent1(entget ssn1))       
     (while (/= (cdr(assoc 0 ent1)) "SEQEND") 
       (setq c40 (assoc 40 ent1))
   (setq n40 (cons 40 h))
   (setq ent1 (subst n40 c40 ent1))
   (entmod ent1)
       (setq ssn1(entnext ssn1))    
       (setq ent1(entget ssn1)) 
     )
    ) 
   )
   (setq i (+ 1 i))
   )
 (vl-cmdf "regen")
 (princ)
 )

     

     

    Em cảm ơn, nhờ anh thêm phần bề rộng chữ, với cả đưa chữ về middle center không bị nhảy chữ nữa ah!

    Như hình bên dưới ah.

     

    http://www.cadviet.com/upfiles/3/111.jpg

×