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

envirtech2002

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

  • Số lượng nội dung

    67

  • Đã tham gia

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

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

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

    Cứ uống rượu là hết buồn hôm nay say ngày mai ta lại tỉnh!

    Ai bảo nhậu lai rai là khổ?

    Tôi mơ màng, men rượu bốc lên cao.

    Có những ngày say xỉn té cầu ao,

    Vợ bắt được, chưa mắng câu nào đã khóc.

    Cô bé nhà bên nhìn tôi cười khúc khích

    Chị giận anh rồi, tối sang ngủ với em

    Cho e được trích dẫn nha bác :d

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

     

    Bạn thử cái này có đúng ý bạn không

    (defun LM:IntersectionsinSet ( ss / a b i j l )
  (setq i (sslength ss))
  (while (not (minusp (setq j (1- i) i (1- i))))
	(setq a (vlax-ename->vla-object (ssname ss i)))
	(while (not (minusp (setq j (1- j))))
  	(setq b (vlax-ename->vla-object (ssname ss j))
        	l (cons (LM:GroupByNum (vlax-invoke a 'IntersectWith b acExtendNone) 3) l)
  	)
	)
  )
  (apply 'append l)
)
(defun LM:GroupByNum ( l n / r)
  (if l
	(cons
  	(reverse (repeat n (setq r (cons (car l) r) l (cdr l)) r))
  	(LM:GroupByNum l n)
	)
  )
)
(defun dxf (code e) (cdr (assoc code (entget e))))
(defun C:ibi(/ os ss lst en pt item)
(setq os (getvar "osmode"))
(setvar "osmode" 0)
(princ "\n Chon cac doi tuong giao nhau")
(setq
  ss (ssget)
  lst (LM:IntersectionsinSet ss)
  en (car (entsel "\nChon Block"))
  pt (dxf 10 en)
)
(foreach item lst
  (command "copy" en "" pt item)
)
(setvar "osmode" os)
)

    Cái này hay quá bác ah, tks bác :D

    • Like 1

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

    bạn phải vào file crack kích chuột phải rồi chon RUN chứ đừng có kích đúp chuột và chạy , mình cũng đã từng như bạn và đã thành công . good luck!

    Đúng rùi, phải chạy bẳng run as admin.. mình crack ngon lành, được 1 thời gian, giờ cứ bật lên là cad tự động tắt, k hiểu sao nữa, vừa cài lại xong mà vẫn bị thế. Có ai biết lỗi này không?

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

     

    Chào các anh em của diễn đàn!

     

       Mình đang tìm kiếm phần mềm CAD We'll U/K Toolkit của Nhật. Mình thấy phầm mềm này rất hay cho các kỹ sư thiết kế điện hay xây dựng. Vẽ 3D sau đó xuất ra bản vẽ 2D mà đúng kích thước và nhanh gọn nữa ( chứ không phải giống Autodesk 3Ds Max). Mình đã search trên google nhưng tìm hoài vẫn không thấy, anh em ai có thì up lên cho mình với nhé. Mình thật sự cần nhưng không đủ tiền để mua bản quyền của phần mềm này. Nhân tiện cũng cho mình hỏi thêm là còn phần mềm nào chuyên cho ngành Môi trường không? Như vẽ các đường ống, co, máy bơm (3D) sau đó chuyển sang 2D thì nhanh hơn rất nhiều.

     

    Cảm ơn các bạn đã đọc

    Sử dụng cad plant 3d 2014 đi bạn, ống, van, tê, côn, cút, bơm đầy đủ hết nhé

×