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

abc007

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

  • Số lượng nội dung

    44

  • Đã tham gia

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

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

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

    Mình đang bị con virus có tên : acaddoc.lsp , nó tự sinh ra trong quá trình làm việc trên cad làm chậm máy rất nhiều, mình diệt bằng Avira nhưng diệt xong con này lại có con khác, vì đang sử dụng mạng nội bộ để làm việc. Nhờ anh em chỉ giúp cách xử nó dùm, file nó khi mở thấy trống trơn.Mình có gởi file các bác cẩn thận giùm .Thank các bác nhiều.

    http://www.cadviet.com/upfiles/3/acaddoc_1.lsp

    File này có nội dung gởi các bác giúp.Thank

    http://www.cadviet.com/upfiles/3/acaddoc_2.lsp

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

    Bạn abc007 và hoa35ktxd thử code này nhé :

     

    (defun c:PLLEV(/ OK PL LenPL I Points LenPoint ep NewLv Lv)
 (while (and (null OK)
      (setq ddau (getpoint "\n Chon diem dau cua tuyen Cong POLYLINE :")))
 (if (null ddau) (setq OK t)
   (if (and (setq PL (nentselp ddau))
     (wcmatch (cdr (assoc 0 (entget(car PL)))) "*POLYLINE")
     (or(equal (vlax-curve-getstartpoint (car PL)) ddau)
        (equal (vlax-curve-getEndpoint (car PL)) ddau)
     )
)
     (PROGN
(setq OK t)
(setq Points (mapcar 'cdr (vl-remove-if '(lambda(x) (if (/= (car x) 10) x))
	     (entget(car pl)))))
  	(if (equal (setq ep (vlax-curve-getEndpoint (car PL))) ddau)
   		 (setq Points (reverse Points))
       )
(setq LenPoints (length Points) i 1)
 	(setq lv (getreal "\nNhap cao do dau: ")
      Id (Getreal "\nNhap do doc doc: ")
)
 	(setq cao (getdist "\n NHap chieu cao Text :"))
(wtxt (rtos LV 2 3) ddau cao)
   (while (< i LenPoints)
     (setq p1 (nth i Points))
     (if (equal ep ddau)
(setq Len (ABS (- (Vlax-curve-getdistatpoint (car PL) ep)
	           (Vlax-curve-getdistatpoint (car PL) p1)
	       )
	  )
)
       (setq Len (Vlax-curve-getdistatpoint (car PL) p1))
     )
       (setq NewLV (+ LV (/ (* Id Len) 100.0)))
       (wtxt (rtos NewLV 2 3) p1 cao)
     (setq i (1+ i))
   )

     );PROGN
       (princ "\n Chon diem dau khong dung tren POLYline")
   )
  )
 )
)
;;;
(defun wtxt(txt p cao)
 (entmake (list (cons 0 "TEXT")
	 (cons 10 p)
	 (cons 11 p)
	 (cons 1 txt)
	 (cons 40 cao)
	 (cons 72 1)
	 (cons 73 2)))
)

    @Hoa35ktxd : Đây là code mà Tue_NV viết theo các ý trên :

    Kiểm tra Chọn điểm đầu hoặc điểm cuối của Polyline, đồng thời chọn luôn Pline làm cơ sở tính toán

    Nếu User chọn không đúng điểm đầu hoặc điểm cuối trên PLINE hoặc chọn trật thì Lisp sẽ báo câu :

    Chon diem dau khong dung tren POLYline

    Nếu không thích tính toán viết Text, bác cứ Enter -> kết thúc lệnh

     

    Vì Pline trên màn hình CAD : User không nhận ra đâu là điểm đầu, đâu là điểm cuối nên :

    - Nếu User chọn đúng điểm đầu thì Lisp sẽ tính toán và viết Text từ điểm đầu đến điểm cuối

    - Nếu User chọn đúng điểm cuối thì Lisp sẽ tính toán và viết Text từ điểm cuối đến điểm đầu

     

    Lisp đúng trong trường hợp ống cống có đoạn bo cong

    Bác thử nhé :D

     

    Rất vui nếu được biết tên bác và làm quen với bác :D

    Thank hai Bác hoa35ktxd và Tue NV nhiều lắm , mình đang cần cái này, 2 Bác rất tuyệt.Thank

    • Vote tăng 1

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

    Nhờ các Bác giúp 1 lisp có nội dung như sau:

    1.Bản vẽ có 1 tuyến cống được thể hiện là 1 đường Pline ( Tại các điểm của Pline này sẽ được ghi cao độ ) cho 2 trường hợp sau :

    - Trường hợp 1:

    Chọn Pline ,Cho cao độ điểm đầu, Cho độ dốc (VD : 2%) .Chương trình tự động đặt node và ghi cao độ tại các điểm của Pline .

    - Trường hợp 2:

    Chọn Pline , Cho cao độ điểm đầu , cho cao độ điểm cuối .Chương trình tự động đặt node và ghi cao độ tại các điểm của Pline ( Độ dốc đều nhau).

    Cả hai trường hợp đều ghi bắt đầu từ điểm đầu.

    Thank các Bác.

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

    Mấy bữa nay mình "đóng cửa trai giới" nghiên cứu Revit. Nay cũng đã hiểu được em nó ít nhiều, nhưng kh biết mình hiểu ở cấp độ nào mà em nó đỏng đảnh quá mấy bro ạ!

     

    Độ dốc mái thì kh biết làm sao mà chỉnh.

    Đang vẽ ngon lành tự dưng mặt đứng hướng nam biến mất kh tìm ra được. (hoặc có khi bị lỗi méo mó nhìn thấy tội nghiệp)

    Đà giằng thì không giao nhau theo dạng góc vuông được, chỉ giao nhau theo dạng chữ T hoặc chữ thâp.

    Các cột và các đà trên mặt bằng và mặt cắt khi thích thì tô đen, kh thích thì em có chứ trắng nhách ra, mặc dù mình đã solid tất tần tật.

    Sau khi thống kê các phòng xong kh có cách nào tổng hợp được diện tích từng tầng.

     

    Mới làm quen có tý đỉnh mà em nó đã đỏng đảnh đến vậy rồi đó mấy bro.

     

    Mong tìm được bạn cùng cảnh ngộ để chia sẻ thêm.

     

    Thân!

    Các cột và đà có khi tô đen có khi không , mặt dù đã set vật liệu rồi .Việc này là do Revit , nhưng khi in thì vẫn tô đen , yên tâm.

    Mình cũng mới thử Revit , các lổi khác thì chắc là do người sử dụng.

    Chúc bạn thành công

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

    Cảm ơn meohoang.... Mình đã xoá rùi nhưng khi mở một file cad bất kỳ thì acad.lsp nó lại tự hiện ra trong folders nó lại tự hiện ra. Có phải do virus không? Nếu phải thì giờ bạn chỉ cho mình các chưa hiệu quả nhất với. 10 máy công ty mình đang chết hết hàng loạt, Chiều này chắc nghỉ hết thui.

    Nó tự tạo ra 1 folder giống tên file có đuoi là .exe thì đụng virus rồi , con này sinh sôi nảy nở nhiều lắm.Nên cầu cứu xử ngay thôi.

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

    Nhờ Các anh giúp 1 lisp có nội dung sau :

    Mục đích : Thay thế block bằng 1 Multiview block và ngược lại

    1.Trong bảng vẽ có Block A ( BA) và multiview block B (MB)

    2.Để thay Các Block (BA) bằng (MB) thì chọn các (BA) rồi bấm chọn (MB) cần thay thế có sẵn trên bàng vẽ để thay thế và ngược lại

    Các ơn các anh .

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

    nếu bạn có file của nó thì share cho anh em vói, đáng để học hỏi lắm! cảm ơn nhiều..!

    Bạn nào quan tâm đến ADT , mới học nên cài ACA2008 luôn, tui có 1 vài kinh nghiệm chia sẽ cùng các bạn:

    1.Nên nghiên cứu liền với ACA2008 ( nếu bắt đầu học), cấu hình có ram ít nhất 1G để làm việc .

    2.Bắt đầu nên tìm hiểu cấu trúc 1 project trước tiên để tận dụng tính thống nhất trong 1 hồ sơ bản vẽ.

    3.Việc am hiểu cấu trúc project mình có thể :Cái gì không vẽ được bằng đối tượng AEC thì vẽ bằng CAD không gì trở ngại hết. Vì có thể sử dụng chương trình ACA mà vẽ CAD 100% .

    4.Việc up 1 project ACA lên khó lắm vì file lớn bạn thông cảm. Hơn nữa mỗi người có 1 cách sử dụng ACA riêng không ai giống ai hết ( tùy theo kinh nghiệm)

    5.Dễ nhất bạn làm những ví dụ nhỏ rồi tập hợp lại đến lúc nào đó bạn tự nhiên có 1 số vốn tự mình có thể khám phá ACA.

    6.Sau khi nghiên cứu nếu không xong bạn có thể hỏi trên diễn đàn, trong khả năng tui giúp cho.

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

    Cho mình hỏi, bác nào có tài liệu học AAD bằng tiếng việt không Shar cho mình xin với, đang muốn tìm hiểu thằng AAD này quá, nhưng chưa tìm được tài liệu tiếng việt để học. Thank nhiều.

    Bạn ra nhà sách tìm cuốn :"Thiết kế kiến trúc với Autodesk Architectural Desktop 2004 " Nhà xuất bản thồng kê , Chủ biên Lưu Triều Nguyên , bộ 2 cuốn khoảng 190K/2 cuốn

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

    Nhờ các bác giúp 1 lisp với nội dung :

    Dời điểm insert của block có sẵn theo vị trí mình muốn mà không đổi vị trí của block

    Mình làm được nhưng chưa triệt để như sau:

    1.Tạo block mới giống block cũ nhưng có điểm chèn theo vị trí của mình .

    2.Thay block cũ bằng block mới vừa tạo.

    3.Di chuyển block mới theo khoảng cách và phương giữa 2 điểm chèn của block mới và cũ.

    Làm như vậy chỉ được đối với các block không bị rotate, các block bị rotate thì không đúng vị trí .

    Nhờ các bác giúp cám ơn.

    http://www.cadviet.com/upfiles/Moveinsblock.rar

    http://www.cadviet.com/sub/hupload.php?fok..._chen_block.rar

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

    Các bác ơi! Giúp em với

    Em dành dụm cả tuần lễ nhịn uống trà đá mới mua được Autodesk Architectural Desktop 2007 (4 đĩa). Tí tởn mang về, cài đặt xong xuôi hết rồi. Đến đoạn bẻ khóa thì em làm đi làm lại cả chục lần mà không thể nào vào được chương trình của nó. Có bác nào giúp em với. Nếu bẻ khóa được thì em sẽ up lên megaupload cho anh em down luôn.

    Nếu bác vẫn không cài được ADT2007 , thì ráng nhịn uống trà đá thêm một tí mua bộ ACA2008 cài dễ hơn và vẽ sướng hơn ,rồi sau đó uống cà phê. Chúc bác tành công.

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

    Các bác cho hỏi : có cách nào để xoay chiều đối tượng in trong khung nhìn paper space của layout mà trong bị ảnh hưởng trong model .

    Ví dụ : Có 1 mb hình chữ nhật được vẽ theo chiều đứng , khi qua layout để in thì bảng vẽ khung tên nằm ngang , thì làm sao để xoay đối tượng in theo chiều ngang để cho vừa khổ giấy ( không muốn xoay chiều khung bản vẽ trên layout) mà không ảnh hưởng đến chiều của model . Cám ơn

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

    Thông thường với lệnh isolate thì các đối tượng không chọn sẽ biến mất trên màn hình , có thể nào làm cho nó không biến mất trên màn hình , mà chỉ làm cho các đối tượng không chọn mờ đi mà vẩn không bị chi phôi bởi các lệnh thực thi kế tiếp ( giống như tình trạng edit block trong bản vẽ).Cám ơn

×