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

Who am I

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

  • Số lượng nội dung

    24

  • Đã tham gia

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

Bài đăng được đăng bởi Who am I

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

    Em thường đãng trí khi viết ghi chú, ghi kích thước mà quên không chọn lớp thường dùng là lớp TEXT, nên em dùng lisp này để chuyển toàn bộ các đối tượng là DIM, TEXT, MTEXT ở các lướp khác nhau về cùng một lớp.

    Nhưng có sự cố là khi trong bản vẽ hiện hành mà không có đối tượng nào là DIM chẳng hạn, thì lisp này chạy không được trơn tru. Nhờ các anh sửa giúp em với.

    ;;----CHUYEN TOAN BO CAC DUONG KICH THUOC O CAC LAYER KHAC ----
;;================NHAU VE CUNG 1 LAYER ---=====================

(defun C:LD ()
(prompt "\nCHUYEN TOAN BO CAC DOI TUONG DANG TEXT O CAC LAYER KHAC NHAU VE CUNG 1 LAYER")
 (Setvar "CMDECHO" 0)
;Tao Layer moi:
  (setq NEWLAY (Getstring "\nChon layer muon chuyen :")
	  NEWLAY (if (= NEWLAY "") "TEXT"NEWLAY)
)
  (Command ".Layer" "N" NEWLAY "")
(Command ".Layer" "S" NEWLAY "")

;Thay doi Layer cho duong kich thuoc:
  (Setq DIMSET (ssget "X" '((0 . "DIMENSION"))))
  (Command ".chprop" DIMSET "" "LA" NEWLAY "")

;Thay doi Layer cho cac doi tuong la Text:	
(Setq TextSET (ssget "X" '((0 . "TEXT"))))
  (Command ".chprop" TextSET "" "LA" NEWLAY "")

;Thay doi Layer cho cac doi tuong la MText:	
(Setq MTextSET (ssget "X" '((0 . "MTEXT"))))
  (Command ".chprop" MTextSET "" "LA" NEWLAY "")

(Setvar "CMDECHO" 0)
(setvar "osmode" 35)
  (princ)
 )

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

    các cao thủ chỉ dùm em lệnh sửa lỗi dim. dim nó cứ nhảy lung tung em bấm lệnh dda để sửa.nhưng nghe nói trong cad có lệnh sửa hay hơn.xin các cao thủ chỉ dùm.thanks alot

    Nhảy lung tung là nhảy thế nào bạn, bạn cần mô tả chính xác hơn.

    Nếu không thì có thể xem ở đây:

    http://www.cadviet.com/forum/index.php?showtopic=1220

    Hoặc

    http://www.cadviet.com/forum/index.php?sho...h%E1%BA%A3y+dim

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

    Từ sau vụ Văn Khuyến,Quốc Vượng chán chẳng buồn xem,cổ động cho tuyển VN nữa.Đá với Thái mãi cũng thế thôi,toàn thua thôi,đi đá chủ yếu là "giao lưu,cọ xát là chính,đá xong ta lại về" :cheers:)

    Văn Khuyến: là ai vậy cà?

    chẳng buồn xem,cổ động cho tuyển VN nữa: Ai bảo ông vậy? Hay ông thấy ở đâu?

    giao lưu,cọ xát là chính: Cọ là cọ thế nào? Mỗi lần ta thua là do một nguyên nhân khác nhau, ông có hiểu gì về bóng đá không?

     

    Bình loạn vớ vẩn!

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

    Theo em những người đam mê về cadviet đa phần là làm trong nghề xây dựng. Vậy mình có thể mở thêm thư mục cho diễn đàn để trao đổi bàn luận về kinh nghiệm trong quá trình đi thi công các công trình, thiết kế các công trình, cách xử lý các sự cố trong quá trình xây dựng v.v...

    Mục này chưa vừa ý bạn hay sao?

    CAD cho kỹ sư xây dựng

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

    Em có mấy bản vẽ của bên thiết kế của Nhật Bản và Hàn Quốc, nhưng mấy font của họ khi mình mở bản vẽ ra thì toàn bị biến thành dấu ??? hoặc là thành kí tự lạ, có ai có font này ko và bác nào biết cách sử dụng mấy loạiu font này thì chỉ dùm em cái...

    Bạn kiểm tra trong Text Style Manager xem tên font dùng trong bản vẽ, sau đó nhờ thằng google tìm giúp!

    P/S: Cái chữ ký quảng cáo của bạn trông chướng mắt quá!

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

    cảm ơn, nhưng mình muốn biết tên thật chứ không phải nicknam và mobil number ,để khi nào có điều kiện và thời gian mình ra gặp cho vui. He he

    Nick và SĐT liên lạc thì bạn xem ở đây:

    http://www.cadviet.com/forum/index.php?s=&...ost&p=35840

    Còn tên thật thì...

    Hôm nào offline lần 2 anh em gặp nhau sẽ biết thôi!

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

    Xin lỗi mình lại vừa tạo topic thì mới nhận ra có topic viết VBA theo yêu cầu. Mình viết lại yêu cầu ở đây mong mọi người giúp đỡ.

    Hiện tại tôi có 1 file VBA và file Excel (không rõ do ai viết). Tác dụng của file VBA là lấy dữ liệu từ sheet của file Excel rồi vẽ trên Cad. Nhưng file VBA này lúc chạy được, lúc không; có máy chạy được có máy không (chẳng hiểu tại sao nó thế nữa vì tôi mù tịt về ngôn ngữ lập trình). Hơn thế để chạy được chương trình thì nó đòi hỏi chuyển thời gian của máy về năm 1998 còn để năm khác thì nó không chạy.

    Vì vậy tôi xin nhờ các A/C trên diễn đàn xem giúp có thể chỉnh sửa được file VBA này không. Sao cho nó luôn chạy được với mọi máy và không cần đặt lại thời gian của máy tính cũng chạy được.

    Cảm ơn mọi người đã giúp đỡ.

    Dưới đây là link file VBA và file Excel đi kèm

    http://rcpt.yousendit.com/621579059/d2fb6b...13b686f1407b509

    Em kích vào liên kết trên và nhận được thông báo:

    This download link is invalid and there is no file associated with it.

    Anh có thể post lại vào trang lưu trữ trực tuyến khác được không, ví dụ mediafire chẳng hạn.

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

    Cho hỏi về cách phóng to thu nhỏ một đối tượng trong Cad khi không biết tỷ lệ. VD: có hình chữ nhật kích thước AxB muốn phóng lên hình chữ nhất có kích thước lớn hơn.

     

    Bạn dùng lệnh Scale rồi chọn R (Reference). Chọn 2 điểm trên vật cần phóng to và 2 điểm hoặc khoảng cách mà bạn muốn to (nhỏ) tương ứng. Hay bạn dùng lệnh Align cũng được

     

    Minh thử lệnh Scale và align rồi mà vẫn không được. Bạn hướng dẫn cụ thể lại được không?

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

    Chính xác, như vậy là in theo màu rồi. ý mình là giả sử chọn layer1 0.25 chẳng hạn thì dù cho đó là màu nào thì vẫn in được nét in là 0.25

    Trong hộp Plot, bạn tìm đến mục Plot Option bỏ chọn mục Plot with plot Styles, chọn mục Plot objiect lineweights!

    Tất nhiên trước đó bạn đã chọn chiều dày theo lớp!

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

    Hu Hu!

    em post bài trong mục thư jãn, em nghĩ những cái em post, ít nhiều cũng mang đến cho những ai đọc nó sự thư jãn, jảm tải của đầu óc trong jờ làm việc căng thẳng. Với cả, vào cadviet 100% là +18 tuổi rùi, nên những cái em post có jì là quá đáng đâu. Nếu BQT đã nói thế, em ko post nữa. Em ghét BQT lắm >-_-

    Cảm ơn nhiều!

    Hẹn gặp lại ở nick khác nhé!

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

    Gõ lệnh LA , hiện ra bảng layer tool , chọn nét vẽ của bản vẽ , nhấn lệnh in , trong hộp thoại in , phía trên góc phải có một biểu tượng cây viết . nhấp vào đó . sẽ hiện ra một bảng màu in , nét in . bạn chỉnh trong đó , màu và nét in bạn chỉnh theo màu và nét in bạn đự định in .

    ví dụ như nét tường bạn chọn màu xanh số 4 thì khi vô đây bạn cũng chọn màu xanh số 4 , chọn nét in có độ dày mà bạn mong muốn khi thể hiện trên bản vẽ .

    Sau đó để tiện dụng cho những lần sau và tạo cho mình một standard về nét in bạn nhấn save as , đưa file nét in ấy vào một thư mục để sau này bạn tạo một file cad bản vẽ mới , bạn chỉ cần load lại là ok

    Cũng có cách khi tạo một file cad mới nhưng cũng không cần load các nét in , nét vẽ đó là bạn làm ra một file chuẩn cho bạn về các nét in , nét vẽ , kích thướt , cỡ chữ ... . Save as file ấy thành drawing standard.dwt . Nhấn Ctrl +N , past file này vào đó . Sau này mỗt lần cần một file cad mới bạn chỉ cần nhấn Ctrl+N là bạn có một file chuẩn mà bạn vẫn hay làm . Không cần phải tạo nét in mới hay bất kì thứ gì .

    Muốn hiểu rõ hơn bạn hãy tìm trong diễn đàn . Tất cả đều có .

    Thanks bạn!

    Tuy nhiên thangsra muốn hỏi cách "in theo nét vẽ" cơ mà!

×