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

levanhuong1989

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

  • Số lượng nội dung

    47

  • Đã tham gia

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

  • Ngày trúng

    3

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

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

    Chào ae trên diễn đàn. Do trong quá trình làm việc có công đoạn thống kê độ dốc rãnh theo tim tuyến cần ghi chi tiết theo độ dốc và lý trình bắt đầu kết thúc mà đang phải làm bằng tay khá là tốn thời gian. Vì vậy, hôm nay lập bài viết này nhờ ae giúp viết một lisp có thể giúp công tác thống kê được tự động. Miêu tả chi tiết về số liệu đầu vào và kết quả mong muốn được thể hiện chi tiết trên bản vẽ, mong ae trong diễn đàn giúp đỡ.

    Cảm ơn tất cả mọi người.

    1373761087_Ltrnhrnhdc.thumb.png.fe845d72920d914117b883d648ed7fb0.png

     

    File CAD:   Lý trình rãnh dọc.dwg

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

    Vào lúc 4/5/2019 tại 09:03, nikizi đã nói:

    Dạ, em chào anh @Nguyen Hoanhạ. Em có câu hỏi muốn anh và mọi người giải đáp luôn trong topic này giúp em ạ:

    Em dùng cách vẽ trong model và trình bày bản vẽ bên layout. Mỗi layout tương ứng với 1 bản vẽ nên chủ yếu sử dụng sheetset để in ấn và quản lý bản vẽ. Mỗi layout em sử dụng 1 block khung tên có các thuộc tính attribute tương ứng với tên bản vẽ và ký hiệu bản vẽ. Tên bản vẽ em đã có thể chỉnh sửa và update hàng loạt một cách tự động, chỉ còn ký hiệu bản vẽ (Sheet number) là đang tìm hiểu nhưng chưa có kết quả. Đối với những dự án lớn có khoảng > 100 bản vẽ thì việc ngồi gõ ký hiệu bản vẽ cực quá T_T

    Anh cho em hỏi có cách nào để đánh ký hiệu bản vẽ (Sheet number) một cách tự động không ạ?

    Em cám ơn anh.

     

    Xin phép bạn " Biet ve CAD", Vấn đề này đã được giải quyết, mình đã nhờ bạn " Biet ve CAD" bổ sung thêm chức năng này trong lisp của bạn ấy nhé. Mọi chi tiết bạn xem theo đường link bên dưới. Bạn ThinhBK cũng có thể dùng Block thuộc tính và dùng tiện ích này luôn:

     

     

     

    • Like 1

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

    Chào các bác trong diễn đàn!

    Hôm nay em nhờ các bác xem giúp và viết giúp em lisp vì trong công việc em thường phải dùng đến công việc này nên cũng khá là tốn thời gian. Thường thì em sẽ phải copy các đối tượng vào giữa các hình được tạo bởi các đường giao nhau để tính khối lượng cho các hình đó. Hiện tại em đã có thể chèn các đối tượng theo đỉnh của các đường Polyline nên nhờ các bác viết giúp em lisp vẽ polyline nằm tại tâm của các hình tạo bởi các đường giao nhau (sau đó em có thể copy các đối tượng khác theo đỉnh Polyline đó).

    Cảm ơn các bác.

     Mong các bác trong diễn đàn giúp đỡ em với. 

    • Vote giảm 2

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

    Chào các bác trong diễn đàn!

    Hôm nay em nhờ các bác xem giúp và viết giúp em lisp vì trong công việc em thường phải dùng đến công việc này nên cũng khá là tốn thời gian. Thường thì em sẽ phải copy các đối tượng vào giữa các hình được tạo bởi các đường giao nhau để tính khối lượng cho các hình đó. Hiện tại em đã có thể chèn các đối tượng theo đỉnh của các đường Polyline nên nhờ các bác viết giúp em lisp vẽ polyline nằm tại tâm của các hình tạo bởi các đường giao nhau (sau đó em có thể copy các đối tượng khác theo đỉnh Polyline đó).

    Cảm ơn các bác.

    • Vote giảm 2

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

    2/- Bạn đả sửa lisp ra sao???

     

    Em đã thay dòng (setvar "osmode" 0) thành (setvar "osmode" 512) và thử vẽ 2 đường Polyline làm 2 điểm ngăn( giả định) và dùng lệnh VPDD để chọn điểm nằm trên 2 đường thẳng vừa vẽ. và thử pick 1 điểm ra ngoài 2 đường đó kết quả là 2 đỉnh chọn trên 2 đường polyline có cao độ bằng 0 còn đỉnh pick bên ngoài có cao độ khác 0 .

    Bác xem giúp vấn đề này với.

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

    Hề hề hề.

    1/- Không có gì nhầm ở đây đâu. Chỉ là quan niệm của bạn khác với mình. Với bạn nếu độ dấc là 2% thì bạn sẽ nhập 2 còn mình thì yêu cầu nhập 0.02. Đơng giản vậy thôi.

    2/- Việc bạn muốn chọn các loại truy bắt điểm nào thì bạn có thể tự sửa vào dòng code (setvar "ósmode" 0) , thay 0 bằng giá trị bạn muốn.

    3/- Lisp CDD mình đã test và thấy chạy ngon lành mới post lên. bạn hãy kiểm tra lại và lưu ý về cách nhập độ dốc mình đã nói trên.. Còn nếu bạn test vẫn không được thì gửi cái file bạn test lên đây.

    Chúc thành công.

     

     

    1. Sorry bác về cái tính độ dốc, tối hôm qua em vội quá chưa nghĩ ra là bác đang dùng cách  nhập là 0.02 hiii.

    2. Em đã thay osmode bằng các giá trị khác để bắt điểm nhưng khi bắt được điểm thì cao độ tại các đỉnh đều bằng 0 ( em gửi kèm bản vẽ)

    3. Em gửi bác file bản vẽ đã tạo đường bằng lệnh VPDD nhưng dùng lệnh CDD để chỉnh độ dốc thì cao độ tại các đỉnh không thay đổi. Mong bác xem giúp.

    http://www.cadviet.com/upfiles/4/49411_khong_dung_duoc_lenh_cdd.dwg

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

    Cảm ơn bác đã giúp đỡ.

    Em đã dùng thử và có thấy vẫn còn một số vấn đề:

    1. Theo em công thức tính cao độ đỉnh thứ 2 dựa vào độ dốc, khoảng cách, cao độ thì bác viết vội giúp em nên bác đặt nhầm

    em tạm sửa lại như sau: 

     " p02 (list (car p2) (cadr p2) (setq h (+ h (* l d))))  "  thành   "  p02 (list (car p2) (cadr p2) (setq h (+ h (* (/ d 100) l)))) "

    2. Trong quá trình chọn điểm thì bắt buộc phải tắt truy bắt điểm như vậy thì chọn theo những điểm cố định sẽ khó, mong bác sửa giúp.

    3. Lisp CDD thì em dùng nhưng chưa có tác dụng. Em đã thử tạo đường bằng lệnh VPDD và dùng lệnh CDD để chỉnh thì cao độ tại các đỉnh vẫn như cũ, không có gì thay đổi. 

    Bên trên là một số vấn đề khi sử dụng lisp của bác viết giúp, mong bác giúp đỡ hoàn thiện thêm.

    Cảm ơn bác Phamthanhbinh và các thành viên đã giúp đỡ.

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

    1. Khi nhập độ dốc mặc định nếu thêm dấu "-" sẽ là dốc xuống, không âm sẽ là dốc hướng lên. khi nhập độ dốc xong thì mình Pick tiếp 1 điểm khi đó lisp tính cao độ điểm tiếp theo dựa vào

        - Điểm đầu

        - Độ dốc

        - Khoảng cách giữa điểm thứ n và điểm đặt của đỉnh thứ n+1 mình vừa Pick

    2. Đúng ý em là muốn tách thành 2 bài toán khác nhau nhưng trình bày chưa rõ.

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

      Như tiêu đề, em nhờ các bác trong diễn đàn viết hộ em lisp để phục vụ tạo lưới thiết kế theo độ dốc. Lisp vẽ đường 3D polyline theo dộ dốc khi nhập cao độ của 1 điểm như sau:

    1. Dùng lệnh, nhập cao độ tại điểm đầu pick chuột
    2. Nhập độ dốc tính toán, pick chuột vào điểm tiếp theo khi đó sẽ tạo được đường 3D polyline với 2 cao độ 2 đỉnh có độ dốc mình vừa nhập. tiếp tục hỏi độ dốc và vẽ các đỉnh tiếp theo của đường Polyline.
    3. Khi muốn chỉnh độ dốc của đường Polyline thì mình kick vào đoạn cần chỉnh (giả sử đoạn này tạo bởi 2 đỉnh số 1 và 2) nhập độ dốc mới và lisp sẽ tính toán cao độ đỉnh Polyline đỉnh số 2 theo cao độ đỉnh số 1 và độ dốc nhập vào. Các đỉnh tiếp theo của đường Polyline sẽ tự động được tính lại dựa vào độ dốc vốn có của nó. 

    Cảm ơn các bác trong diễn đàn!

    Em gửi kèm theo bản vẽ để các bác xem giúp em.

    http://www.cadviet.com/upfiles/4/49411_banve.dwg

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

    Chào các bác trong diễn đàn!

    Trong công việc em có phát sinh một công đoạn lặp lại là lấy giá trị của text CDTK - CDTN ra chênh cao, em làm thì có rất nhiều mắt lưới nên làm rất tốn thời gian vì vậy em lập topic để mong các bác giúp em viết 1 lisp với nội dung như sau:

    Trên bản vẽ có:

    -Các  text CDTN, CDTK, Chenhcao có điểm đặt trùng nhau hoặc cách nhau 1 khoảng rất nhỏ  (Em có kèm theo bản vẽ để các bác dễ giúp đỡ)

    Lisp mong muốn:

    -Gõ lệnh và lisp hỏi chọn CDTN chọn xong hỏi tiếp chọn CDTK và hỏi tiếp chọn text Chenhcao  (dùng chuột quét toàn bộ 1 vùng nào đó để chọn đối tượng)

    -Lisp tính ra chênh cao của các text đặt gần nhau với 1 khoảng nào đó chẳng hạn mà người dùng nhập vào và gán chênh cao đó cho các text thuộc layer Chenhcao đặt gần đó.

    Mong các bác trong diễn đàn giúp đỡ.

    Cảm ơn các bác!http://www.cadviet.com/upfiles/3/49411_ban_ve_mau.dwg

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

    Gửi file lisp "tương đối" gần giống nova.

    Ngoài lệnh "test" như trước còn có thêm lệnh "tes" để kiểm tra block có sẵn, nếu trị của nova và lisp khác nhau trên 0.05m thì nó vẽ vòng tròn màu đỏ, bên trong có ghi text là trị của lisp.

    http://www.cadviet.com/upfiles/3/127168_tmp1_42.lsp

     

    Em cũng đang cần 1 lisp nội suy nhưng dowload theo link của bác Tot77 không được, nhờ bác up lại lên để em cùng mọi thành viên có thể dowload được.

    Cảm ơn bác!

×