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

tranlaogia

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

  • Số lượng nội dung

    142

  • Đã tham gia

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

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

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

    Laogia : sử dụng Code này Tue_NV mới viết thử xem 

    (defun c:inte(/ ss p1 p2 e p)
(prompt "\n Chon cac Line :")
(setq ss (ssget '((0 . "LINE"))))
(setq p1 (getpoint "\n Chon diem dau Polyline A : "))
(setq p2 (getpoint "\n Chon diem cuoi Polyline F : "))

(command "line" p1 p2 "")
(setq e (entlast))
(setq p (getpoint "\n Pick 1 diem vao mien trong da tuyen : "))
(command "boundary" "A" "O" "P" "" p "")
(entdel e)
(command "erase" ss "")
(Command "break" "L" p1 p2)
(princ)
)

    cám ơn bác Tuệ nhiều. nhờ lisp này của bác mà giúp em được rất nhiều

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

    Xin lỗi bạn, code trên Tue_NV nhầm, xin chỉnh lại : 

    (defun c:ckc()
(setq po1 (getpoint "\n Pick diem A :"))
(setq po2 (getpoint po1 "\n Pick diem B :"))
(setq po3 (getpoint po2 "\n Pick diem C :"))
(setq S (+ (distance po1 po2) (distance po2 po3)))
(while 
(setq po4 (getpoint po3 "\n Pick diem tiep theo de tinh khoang cach/ Enter de ket thuc :"))
(setq S (+ S (distance po3 po4)) po3 po4)
)
(alert (strcat "Tong S = " (rtos S)))
(princ)
)

    lisp này của bác Tuệ thật hay, nhưng bác có thể sửa lisp này theo 1 vài yêu cầu giúp em được kô? Tức là khi mình chọn điểm A sau đó chọn B lấy luôn giá trị này thay thế cho 1 giá trị trên bản vẽ và tiếp tục như thế khi chọn tiếp điểm c, d... Tồng các số được không bác. cám ơn bác nhé

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

    Tôi có hình vẽ như hình 1:

    reg01.jpg

     

    Sau khi dùng lệnh Region của cad và chọn "All" các line vẽ CAD nó sẽ tạo ra 3 region là A, B và 1 cái region bao ngoài của A, B (đường bao màu xanh đc đánh dấu)

    reg02.jpg

     

    - Cái mình cần là trợ giúp cho mình bằng lisp để sao cho có thể xoá được cái Region bao ngoài kia và chỉ giữ lại Region A và B. Đừng bảo mình ngồi xoá tay từ cái region nha...vì các hình trên chỉ là vd chứ bản vẽ của mình có nhiều cái region kiểu đó lắm !

     

    Tks !

    bạn tìm trên diễn đàn bằng từ khoá ewb. đây là lisp xoá vùng giới hạn. cũng đã nói nhiều rồi

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

    Cách đơn giản là khi bạn bỏ chọn center the plot bạn ấn apply to layout

    mình đang muốn nói đến cad 2004. mình đang sử dụng phần mềm in hàng loạt, phần mềm này chỉ chạy trên cad 2004. mà nó khi in luôn theo mặc định trên page setup name " select page settup name apply" là center the plot. minh muốn thau đổi mặc định này để bản vẽ của mình in ra có lề trái cho dễ đóng quyển

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

    mình đang làm bản vẽ thiết kế kênh. việc in ấn các bản vẽ trắc dọc, trắc ngang rất mất thời gian. do kô biết dùng layout nên khi in vẫn phải chọn từng bản vẽ in 1, đọc các topic trên diễn đàn về sử dụng layout mà khó thật. mình muốn nhờ các bậc tiền bối về autolisp xem có thẻviết giùm lisp in hàng loạt các bản vẽ theo cả 2 chiều x,y trên cad 2010 được kô? cám ơn nhiều

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

    Mình tên là tuấn hiện đang cộng tác ở sài gòn. "tranlaogia" có thể cho biết sđt để mình điện hỏi được không.Mình cài mà không được các lệnh thiết kế chỉ dùng được các lệnh phụ trợ như: "HCB, PL...". địa chỉ mail của mình là anhtuan011185@gmail.com. Bạn có thể gửi cho mình hướng dẫn cài đặt được không.Cảm ơn bạn

    minh da gui huong dan cho ban có gì thì liên lạc với mình theo số điện thoại 0976079263

    • Vote tăng 1

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

    không cài được đâu bạn ạ chỉ chạy được 1 là topo neu dung DungTP.dng hoặc dùng được TKK-pro net nếu dùng ToanTKK pro_net.dng . Theo kinh nghiệm của tôi thì khoá của bạn file dng phải chạy được đoòng thời TôP và TKK pro nếu chạy được TKK pro k thôi thì khi khởi động lại máy là phải load lại khoá TKK .còn NoVa thì Không chạy được đâu .điện thoại di động của mình là 0989355109 Mình là Sơn mail: giason06@yahoo.com

    Khoá này chỉ là khoá bản be khoa nên chỉ chayi từng phần mềm 1 thôi. chứ không thẻ chạy đồng thời cả nova và topo được. nếu cứ dùng từng cái 1 thì chỉ cần tắt đi và load lại cái mình dùng là được

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

    Bác cao thủ thế, em ko biết làm thế nào để tạo ra cái hatch , bác chỉ em làm được ko?

    mình cũng đã tìm ra cách tao các hatch. bạn chỉ vảo thư mục acad.pat trong suport. copy lấy lile bạn cần tạo rồi ghép lại thành file hatch mới rồi copy file bạn tạo vào thư mục support là được. nhớ cuối các dòng trong file bạn ghép phải để dòng trống, và tên thư mục phải trùng với tên trong flie bạn tạo.

    mình đã tạ ra được các mặt cắt ghép bê tông cốt thép. mình up lên cho bạn tham khảo nhé

    http://www.cadviet.com/upfiles/2/mau_hatch.rar

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

    Sách của nguyễn hữu lộc là hay nhất. bạn mới học cad hả? trong diễn đàn rất nhiều cao thủ, có gì không hiểu bạn có thể hỏi mọi thứ để moi người giải đáp hộ ôkê

    chắc em mới học à. em lên tìm và cài những phần mềm cad mới nhất. nó thông dụng và tiện lợi hơn. giờ có bản cad2010 rồi. có cả bản bẻ khoá đấy. bạn thử tìm sách cad2010 xem có không, chứ chỗ mình kô có?

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

    Nếu ma sát giữa móng và đất lớn hơn giữa đất và đất, thì lực ma sát chống trượt ngang sẽ tính theo các thông số của nền đất.

    Nếu ma sát giữa móng và đất nhỏ hơn giữa đất và đất, thì lực ma sát chống trượt ngang sẽ tính theo hệ số ma sát trượt giữa móng và đất. Thường khi với trường hợp này, người ta hay làm các gờ móng để chuyển về trường hợp 1.

    các bạn có bảng tra các hệ số ma sát kô? upload lên diễn đàn mình tham khảo với

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

    Không hiểu sao bình đồ em không hiện đường đỏ của tuyến thiết kế . Em đã thử show froxy graphic nhưng vẫn kô được . Bác nào giúp em với nhé ., Thank các bác nhìu. Đây là file: http://www.cadviet.com/upfiles/BD_TONG_THEA.rar

    bạn mở file của bạn trên topo rồi save as sang bản khác sau đó mở thử lại bằng cad. mình đã thử trên máy mình đã được rồi.

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

    "tranlaogia" có thể upload cả bộ cài và hướng dẫn cài được không mình cài TKK pro4.0 thi nó báo là "bạn đang sử dụng bản demo...click chuot vài lần nó out mất" còn cài bản TKK.net thi nó báo là" can not connect...". nếu được bạn upload bộ setup va hướng dẫn cài đặt thi tốt lắm. Hoặc bạn có thể mail hướng dẫn cài đặt cho mình theo địa chỉ anhtuan011185@gmail.com. "tranlaogia" cho hoi them la nếu đang cài nova dùng với cad2002 và chạy khoá ảo thì có sử dụng được TKK kô

    khóa ảo mình upload trên đây chạy được cả TOpo, nova, TKK nhưng chỉ tương thích cho cad 2004, 2005 thôi. bạn phải tải TKK pro16. bạn tìm trên mạng nhiều lắm. phần phềm Tkkpro.net16 có dung lương 23MB nên khhông load lên được. BẠn copy về cài bình thường. để sử dụng được khoá này bạn cần có thêm harmony settup2006(topo) và hasp4_ driver_ settup và cùng với khoá ảo mình đã upload thì mới chạy được.

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

    - Mỗi lần bạn sử dụng một mẫu hatch, bạn phải sử dụng 2 hatch chập nhau. Ví dụ như khi bạn sử dụng hatch bê tông cốt thép, bạn phải sử dụng nét chéo (LINE) và nét gạch vỡ (AR-CONC). Làm sao để bạn nối 2 mẫu hatch này lại thành 1 mẫu mới?

     

    - Bạn tạo 1 file mới có tên trùng với tên mẫu hatch mà bạn đặt với đuôi là .pat. Ví dụ: BE_TONG.PAT.

    Bạn mở file Acad.pat trong thư mục support ra, tìm đoạn mà cad mô tả về gạch vỡ, copy vào file mới này, tìm đoạn cad mô tả về Line, copy vào tiếp. Save lại, sử dụng lệnh hatch là ok.

     

    - Ví dụ:

    *AR-CONC, Random dot and stone pattern

    50, 0,0, 4.12975034,-5.89789472, 0.75,-8.25

    355, 0,0, -2.03781207,7.37236840, 0.60,-6.6

    100.4514, 0.5977168,-0.0522934, 5.7305871,-6.9397673, 0.6374019,-7.01142112

    46.1842, 0,2, 6.19462551,-8.84684208, 1.125,-12.375

    96.6356, 0.88936745,1.86206693, 8.59588071,-10.40965104, 0.95610288,-10.51713

    351.1842, 0,2, 7.74328189,11.0585526, 0.9,-9.9

    21, 1,1.5, 4.12975034,-5.89789472, 0.75,-8.25

    326, 1,1.5, -2.03781207,7.37236840, 0.60,-6.6

    71.4514, 1.49742233,1.16448394, 5.7305871,-6.9397673, 0.6374019,-7.01142112

    37.5, 0,0, 2.123,2.567, 0,-6.52,0,-6.7,0,-6.625

    7.5, 0,0, 3.123,3.567, 0,-3.82,0,-6.37,0,-2.525

    -32.5, -2.23,0, 4.6234,2.678, 0,-2.5,0,-7.8,0,-10.35

    -42.5, -3.23,0, 3.6234,4.678, 0,-3.25,0,-5.18,0,-7.35

    gộp với:

    *LINE, Parallel horizontal lines

    0, 0,0, 0,.125

    thành:

    *BE_TONG, Random dot and stone pattern

    50, 0,0, 4.12975034,-5.89789472, 0.75,-8.25

    355, 0,0, -2.03781207,7.37236840, 0.60,-6.6

    100.4514, 0.5977168,-0.0522934, 5.7305871,-6.9397673, 0.6374019,-7.01142112

    46.1842, 0,2, 6.19462551,-8.84684208, 1.125,-12.375

    96.6356, 0.88936745,1.86206693, 8.59588071,-10.40965104, 0.95610288,-10.51713

    351.1842, 0,2, 7.74328189,11.0585526, 0.9,-9.9

    21, 1,1.5, 4.12975034,-5.89789472, 0.75,-8.25

    326, 1,1.5, -2.03781207,7.37236840, 0.60,-6.6

    71.4514, 1.49742233,1.16448394, 5.7305871,-6.9397673, 0.6374019,-7.01142112

    37.5, 0,0, 2.123,2.567, 0,-6.52,0,-6.7,0,-6.625

    7.5, 0,0, 3.123,3.567, 0,-3.82,0,-6.37,0,-2.525

    -32.5, -2.23,0, 4.6234,2.678, 0,-2.5,0,-7.8,0,-10.35

    -42.5, -3.23,0, 3.6234,4.678, 0,-3.25,0,-5.18,0,-7.35

    45, 0,0, 0,1.25

     

    Chú ý: cuối file BE_TONG.PAT này phải có một dòng trống.

    mình làm theo đúng như bạn hướng dẫn ở trên sao vẫn kô được thế. bạn có thể hướng dẫn cụ thể cho mình được không?

×