Quick Draw (tổng hợp tiện ích)

Quick Draw (tổng hợp tiện ích)

25-09-2012, 15:05

Download và hướng dẫn cài đặt xem tại đây: http://www.ketcausoft.com/pages/cac-ung-dung-mien-phi-khac 1. Vẽ dầm phụ trên Mặt bằng kết cấu
  • Lệnh tắt: dp
  • Lệnh đầy đủ: vedamphu
Các bước vẽ:
  • Gọi lệnh dp
  • Chọn các điểm P1, P2 trên dầm chính và P3 - xác định phía đặt dầm phụ
  • Chọn loại dầm cần vẽ, nhập các thông số liên quan
Clip http://youtu.be/V-Ewr0rBG0Q .

0

Hồ Việt Hùng

Bài viết: 1,902

Số lượt thích: 253

Tham gia: 21/03/2012

RE: Quick Draw (tổng hợp tiện ích)

05-10-2013, 08:09

Bản cập nhật ngày 05.10.2013 - chức năng vẽ cột trên mặt bằng Download tại địa chỉ: http://www.ketcausoft.com/pages/cac-ung-dung-mien-phi-khac http://www.youtube.com/watch?v=3kmA-7C2O10&feature=youtu.be

0

Hồ Việt Hùng

Bài viết: 1,902

Số lượt thích: 253

Tham gia: 21/03/2012

RE: Quick Draw (tổng hợp tiện ích)

09-10-2013, 07:37

Góp ý chương trình vẽ cột trên mặt bằng: Một Tiện ích hay, (Tue_NV cũng đã và đang xây dựng), mình góp ý thêm cho chương trình: 1./ Thêm vào chức năng Hatch tất cả các kiểu cho cột 2./ Thêm vào tính năng sửa Cx, Cy, Dx, Dy. Quét 1 loạt các cột là thay đổi tất 3./ Thêm tính năng chọn trục cột là giao điểm của lưới cột (của bạn là pick từng điểm) 4./ Thêm tính năng dim cho cột ... Chúc thành công!

0

Tue_NV

Bài viết: 49

Số lượt thích: 1

Tham gia: 20/06/2023

RE: Quick Draw (tổng hợp tiện ích)

09-10-2013, 10:10

Tue_NV

Góp ý chương trình vẽ cột trên mặt bằng: Một Tiện ích hay, (Tue_NV cũng đã và đang xây dựng), mình góp ý thêm cho chương trình: 1./ Thêm vào chức năng Hatch tất cả các kiểu cho cột 2./ Thêm vào tính năng sửa Cx, Cy, Dx, Dy. Quét 1 loạt các cột là thay đổi tất 3./ Thêm tính năng chọn trục cột là giao điểm của lưới cột (của bạn là pick từng điểm) 4./ Thêm tính năng dim cho cột ... Chúc thành công!
Em đang bí mục này quá anh ạ, em đang chưa biết tìm các giao điểm như thế nào, anh có giải pháp gì không?

0

Hồ Việt Hùng

Bài viết: 1,902

Số lượt thích: 253

Tham gia: 21/03/2012

RE: Quick Draw (tổng hợp tiện ích)

09-10-2013, 15:14

Hồ Việt Hùng

Em đang bí mục này quá anh ạ, em đang chưa biết tìm các giao điểm như thế nào, anh có giải pháp gì không?
- Hùng có thể tham khảo File Lisp cắt phần dầm giao nhau mà mình viết, trong đó có ý về tìm điểm giao. Việc xây dựng giao điểm của lưới cột đơn giản hơn nhiều - Khi có các toạ độ của các điểm giao thì ta chỉ việc duyệt qua các toạ độ đó và chèn cột vào và vị trí tâm cột chính ngay điểm giao đó - Về đối tượng cột vẽ trên thì mình nghĩ nên xây dựng bằng đối tượng Block Dynamic sẽ hiệu quả hơn so với Pline trong việc chỉnh sửa cột trên mặt bằng định vị cột Vài lời góp ý. Chúc thành công!

0

Tue_NV

Bài viết: 49

Số lượt thích: 1

Tham gia: 20/06/2023

RE: Quick Draw (tổng hợp tiện ích)

09-10-2013, 16:34

Tue_NV

- Hùng có thể tham khảo File Lisp cắt phần dầm giao nhau mà mình viết, trong đó có ý về tìm điểm giao. Việc xây dựng giao điểm của lưới cột đơn giản hơn nhiều - Khi có các toạ độ của các điểm giao thì ta chỉ việc duyệt qua các toạ độ đó và chèn cột vào và vị trí tâm cột chính ngay điểm giao đó - Về đối tượng cột vẽ trên thì mình nghĩ nên xây dựng bằng đối tượng Block Dynamic sẽ hiệu quả hơn so với Pline trong việc chỉnh sửa cột trên mặt bằng định vị cột Vài lời góp ý. Chúc thành công!
. Hàm lisp của anh là hàm cho trả về các giao điểm bất kỳ trong vùng chọn hay là trả về các giao điểm của hai đối tượng được chọn ạ?

0

Hồ Việt Hùng

Bài viết: 1,902

Số lượt thích: 253

Tham gia: 21/03/2012

RE: Quick Draw (tổng hợp tiện ích)

10-10-2013, 01:26

Hồ Việt Hùng

. Hàm lisp của anh là hàm cho trả về các giao điểm bất kỳ trong vùng chọn hay là trả về các giao điểm của hai đối tượng được chọn ạ?
Lisp BRG xử lý phức tạp hơn vì xử lý ename và sort các giao điểm đã tìm được rồi mới break Đó trả về giao điểm của hàng loạt đối tượng được chọn Hùng xem thêm đoạn code này. Mình trích từ lisp brg và sửa lại Lisp gdiem: tìm giao điểm của các đối tượng được chọn và vẽ 1 point vào vị trí giao điểm Kết quả của giao điểm nằm trong biến tapgiao2 Hùng tham khảo nhé: (defun c:gdiem(/ ss i j ename1 ename2 tapgiao tapgiaodiem tapgiao2) ;;write by Tue_NV (vl-load-com) (setvar "pdmode" 3) (if (setq ss (ssget '((0 . "*LINE,ARC,CIRCLE")))) (progn (setq i 0 j 0) (setq tapgiao nil tapgiaodiem nil tapgiao2 nil tapgiaolay nil) (while (setq ename1 (ssname ss i)) (while (setq ename2 (ssname ss j)) (setq giaodiem (vlax-invoke (vlax-ename->vla-object ename1) 'IntersectWith (vlax-ename->vla-object ename2) 0 ) ) (setq tapgiaodiem (append tapgiaodiem (list giaodiem))) (setq j (1+ j)) ) (setq tapgiao (append tapgiao tapgiaodiem) tapgiaodiem nil) (setq i (1+ i) j 0) (foreach x (vl-remove nil tapgiao) (if (null (member (VL-PRINC-TO-STRING x) (mapcar 'VL-PRINC-TO-STRING tapgiao2))) (setq tapgiao2 (append tapgiao2 (list x))) ) ) (setq tapgiao nil) ) );progn );if (foreach x tapgiao2 (command "point" "non" x)) )

0

Tue_NV

Bài viết: 49

Số lượt thích: 1

Tham gia: 20/06/2023

RE: Quick Draw (tổng hợp tiện ích)

12-10-2013, 03:15

Dùng method Entity.IntersectWith để tìm giao điểm cùa 2 entity

0

detailing

Bài viết: 12

Số lượt thích: 1

Tham gia: 20/06/2023

RE: Quick Draw (tổng hợp tiện ích)

12-10-2013, 03:45

detailing

Dùng method Entity.IntersectWith để tìm giao điểm cùa 2 entity
. Uhm, mình cũng biết hàm này, tuy nhiên nếu lưới cột là một đối tượng XREF thì lại không có giải pháp

0

Hồ Việt Hùng

Bài viết: 1,902

Số lượt thích: 253

Tham gia: 21/03/2012

RE: Quick Draw (tổng hợp tiện ích)

12-10-2013, 04:04

nếu user select dc các trục trong xref thì bạn mới insert cột vào. nếu ko select dc thì sao insert dc. Nếu bạn vẫn muốn tìm giao điểmcủa trục trong XREF (mình nghĩ ý bạn xref đó chỉ có các trục thôi) thì có thể thử theo cách sau: 1. Đọc hết các entities của xref drawing lấy tất cả tọa độ giao điểm 2. tìm tọa độ insert point của xref trong bản vẽ gốc, tìm scale factor, UCS hiện hành 3. transform tất cả các tọa độ tìm được ở B1 theo tọa độ của bản vẽ gốc. Good luck! p/s: Lưu ý bạn là method intersectWith cho 32 bit và 64 bit là khác nhau :D

0

detailing

Bài viết: 12

Số lượt thích: 1

Tham gia: 20/06/2023

Thống kê diễn dàn

Diễn dàn hiện tại có tổng cộng 6,882 bài viết trong 1,695 chủ đề

Số thành viên đã kích hoạt 10,365 (trong đó có 299 VIP Member)

Chào mừng thành viên mới nhất của diễn đàn, Toanpio

0397 306 689