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

smilingman82

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

  • Số lượng nội dung

    46

  • Đã tham gia

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

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

  4. Đã đăng

    Lâu không thấy ai gửi thêm bài Guitar nào lên nữa nhỉ. Thôi đành gửi 1 bài nữa góp vui vậy. Bài hát : Có phải em là mùa thu Hà Nội. Bài này tự soạn theo phong cách riêng. Không biết là có hay không nữa. Mong các anh em trong diễn đàn cho ý kiến nhé. Chúc cuối tuần vui vẻ

    http://www.cadviet.com/upfiles/co_phai_em_..._thu_ha_noi.mp3

    bác NATaCA ghi âm bằng phần mềm gì đấy, thu thế nào zậy, chỉ cách cho m , mấy hum nữa upload lên mấy bài cho zui

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

    làm tí súng ôngs cho vui nào , thay đổi không khí 1 tí ....h he...bác nào cần súng ống cứ bảo m nhá

    DSCF0453.jpg

     

    THứ tự từ trên x dưới , từ trái qua phải : cầm B40 học Xây dựng, bác ở giữa học GTVT HN làm TEDI, AK vác vai học GTVT, AK trái học

    Luật, Ak phải học XD , mình ở giứa cho an toàn học GTVT ...ai cần bùm bùm thì ới 1 câu . mình giúp ngay -_-

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

    chắc bác hoanh hiểu nhầm rùi, mình copy nguyên xi phần code của bác VN và cả comment củabác ý nũa

    *****

     

    Tặng Bommak đọan code này nè. Cái này mà bây giờ bạn cố nghĩ cũng chẳng biết để làm gì đâu. Nhưng mà dùng được đấy.

    Nội dung: lấy tất cả các đỉnh của một LINE, PLINE hoặc MLINE...

    --------------------

    cuongvk@daitri.biz

    vkcuong.23@gmail.com

    Skype: cuong.vokien

    Phone: 01689924187

    Dreams have come true if you still believe...

    *************

     

    cái này của bác VNex...dos >>>m ghi rõ mà

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

    Tôi thực sự buồn vì suy nghĩ của bạn đấy smilingman82 ạ.

     

    Nếu bạn tự code được thì đừng có post yêu cầu lên đây. Nếu bạn không code được thì bạn hãy yêu cầu thật cụ thể, sẽ có người code giúp bạn. Những người có thể code được lisp trên diễn đàn này không cần bất cứ một sự trợ giúp lisp nào cả, hoặc giả sử có cần họ cũng sẽ biết search và lấy nó ra từ internet. Bạn spam ở mục này làm người khác khó chịu đấy.

    mình mới chỉ ở mức độ newbie, chưa viết đc chương trình, mình chỉ mún nhờ các bác sao cho thật nhanh thui....có thể làm bác tự ái thì xin lỗi vậy....mong bác hiểu được thành ý của mình ....mãi mà ko upload đc bản vẽ....bác júp một tay nhá...thank

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

    Tôi thực sự buồn vì suy nghĩ của bạn đấy smilingman82 ạ.

     

    Nếu bạn tự code được thì đừng có post yêu cầu lên đây. Nếu bạn không code được thì bạn hãy yêu cầu thật cụ thể, sẽ có người code giúp bạn. Những người có thể code được lisp trên diễn đàn này không cần bất cứ một sự trợ giúp lisp nào cả, hoặc giả sử có cần họ cũng sẽ biết search và lấy nó ra từ internet. Bạn spam ở mục này làm người khác khó chịu đấy.

    sorry bác , m ko có ý định spam, mình hoàn toàn nghiêm túc, chỉ vì m cần gấp quá nên mới phải tìm mò thui....chỉ mún nếu các bác có đoạn code này thì sẽ làm nhanh hơn thôi, chứ ko có ý gì khác....mong các bác hiểu cho.......

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

    Đọc văn tả cảnh rồi viết lisp rất khó.

     

    Bạn hãy thể hiện bằng file dwg (upload lên diễn đàn), trong đó có các trạng thái trước và sau khi chạy lisp.

    chờ em tí e post ảnh lên nhá . nhân thể mày mò đc cái code này, lấy đỉnh PLine , chắc là dùng đc , các bác nghiên cứu hộ nhá

     

    (DEFUN PHANTICHLINE (obj / i dt td ListXY)

    (setq ListXY (List))

    (setq i 0)

    (setq dt (entget obj))

    (if (OR (= (TENDOITUONG obj) "LWPOLYLINE" ) (= (TENDOITUONG obj) "MLINE" ) (= (TENDOITUONG obj) "LINE" ))

    (progn

    (repeat (length dt)

    (setq ds (nth i dt))

    (if (OR (= (nth 0 ds) 10) (= (nth 0 ds) 11))

    (progn

    (setq td (cdr ds))

    (setq ListXY (append ListXY (List td)))

    )

    )

    (setq i (1+ i))

    )

    )

    )

    ListXY

    )

     

     

    Tặng Bommak đọan code này nè. Cái này mà bây giờ bạn cố nghĩ cũng chẳng biết để làm gì đâu. Nhưng mà dùng được đấy.

    Nội dung: lấy tất cả các đỉnh của một LINE, PLINE hoặc MLINE...

     

     

    --------------------

    cuongvk@daitri.biz

    vkcuong.23@gmail.com

    Skype: cuong.vokien

    Phone: 01689924187

    Dreams have come true if you still believe...

    cái này của bác VNex...dos

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

    cám ơn các bác , mình nghiên cứu kĩ lại rồi.....Vấn đề của mình bây giờ là muốn chèn một BlOCK vạo tại vị trí các đỉnh của đường POLILINE được chọn:

    Trình tự như sau:

    + Chạy file lisp

    + Chương trình yêu cầu chọn tên BLOCK cần chèn tại các đỉnh của đường POLILINE

    + Nhập tên BLOCK , tỉ lệ, góc xoay block....càng nh options càng tốt , nếu không thì chỉ cần chọn tên BLOCK cũng được

    + Chọn đường POLINE cần chèn BLOCK - có thể lựa chọn chèn tại tất cả các đỉnh hoặc chèn riêng tại các đỉnh chẵn hay đỉnh lẻ-

    >>>ra kết quả.....

    Vì mình đang làm phần mặt bằng , phải vẽ các cọc GPMB trên bình đồ, đưòng POLILINE mình tạo ra được rồi, bây giờ chỉ cần chèn block thui vào tại vị trí các đỉnh thui , nếu chèn bằng tay thì lâu mà dễ nhầm ........Mong bác nguyên hoanh giúp hộ cái nhá....thank...bác nào bít thì hộ tớ 1 tay cái nhá

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

    nhờ các bác PRO 1 tí nhá ,,, mình cần 1 lisp xuất ra toạ độ các đỉnh của 1 đường poline >>xuất ra tệp *.txt.....trình tự thế này:

    - Chọn đuờng Poliline (có thể là line , poligonal thì càng tốt...)

    - Líp sẽ tự động xuất ra toạ độ các đỉnh của đường Poliline dưới dạng tệp TXT ( Ví dụ tệp TXT có dạng:

    12,5,6

    13,2,7

    trong đó 12;13là toạ độ X - 5;2 là toạ độ Y - 6;7 là toạ độ Z; toạ độ so với Gốc 0,0,0)

    Cám ơn các bác

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

    Bạn dùng Softdesk ( Hoặc Land Desktop) để nhận các điểm cao độ dạng đó ,xây dựng thành modun địa hình để tạo các đường đồng mức rồi dùng lisp của bạn nội suy cao độ từ các đường đồng mức đó . Lệnh Burst ( Thuộc Express tool )có thể phá khối các block cao độ như bạn nói về dạng text thông thường nhưng sau khi phá xong các Point sẽ không còn giá trị cao độ nữa

    bác lâm nói đúng đấy , tớ dùng Roadplan , cũng phải mô hình hoá rùi nội suy bằng RP >>> cao độ tự nhiên ,,dùng land hay hs cũng đc ==ko phải dùng lisp nữa

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

    Em đã thử rất nhiều lần"http://www.filedropper.com/sannen-landdesktp" mà không download được. Bác kiểm tra lại giúp em

    với? Hoặc Bác cho em xin link khác được không ạ?

    bạn sang 4rum kythuatdothi.com cũng có video hướng dẫn làm san nền bàng Land2004 đấy , ....có bác nao bít cách xuất bàng khối lượng san nền bằng land k .Mình làm san nền đ rui nh để xuất bảng kl cho hợp lí thì vẫn đang mày mò ...xin chỉ giáo

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

    mÌNH CŨNG KHÔN GHIỂU VÌ SAO MÀ LINK LẠI BỊ XÓA

    NẾU BẠN QUAN TÂM THÌ MÌNH SẼ GỬI LÊN DIỄN ĐÀN 1 BẢN KHÁC VẦO THỜI GIAN GẦN NHẤT!

    cám ơn bác ,,tớ đang dùng lisp của bác BOWman , cũng khá tiện ..mún dùng thêm lisp của bác để so sánh xem thê nào,dạo nè mới tập toẹ làm san nền nên thấy thú vị wá

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

    Mặc dù không nhập được số liệu, nhưng cách làm của bác wá hay, mở cho em một hướng đi mới.

    Không biết phải nói cám ơn bác thế nào cho phải, thành thật cảm ơn bác rất nhiều. Hậu tạ bác sau nhé!!

    Nếu em làm thành công chương trình này thì công lớn là của bác, nếu em nhớ ko nhầm thì trong Cad có thể làm terrain từ các đường đồng mức, số liệu đầu vào chỉ cần nhập cho các đường đồng mức (đơn giản rồi).

    Một lần nữa xin cảm ơn bác!

    vừa đọc lại bài này của bác ,,kéo lên cho anh em san nền ngâm cúu lại , thấy nó hay wá , ko nỡ để trôi mất

×