KetcauSoft


Đăng trả lời 
 
Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Quick Draw (tổng hợp tiện ích)
25-09-2012, 10:05 PM (Bài viết đã được chỉnh sửa: 06-06-2013 01:25 PM bởi Ho Viet Hung.)
Bài viết: #1
Quick Draw (tổng hợp tiện ích)
Download và hướng dẫn cài đặt xem tại đây: http://www.ketcausoft.com/pages/cac-ung-...n-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ẽ:
  1. Gọi lệnh dp
  2. 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ụ
  3. Chọn loại dầm cần vẽ, nhập các thông số liên quan

Clip






.

Công ty TNHH Kết Cấu WEFLY - http://www.wefly-str.com

[Hình: p2015102801.png]
Tham quan website của thành viên này Tìm tất cả bài viết của thành viên này
Trích dẫn bài viết này trong bài trả lời
 Thanks given by: luan311 , trucvuong , hghklqzx51 , vwalszzs13 , gohevfbx62 , horyPhizosy , uphoneype , Husecyscounse , Michaelhex , fmmrcafj90 , VakFeemi , GatShinia , Richardsola , Affoncoff , odessaxi18 , janieqp3 , brankFib , ritaEa , tolikkk , nanettesc60 , pamelaze16 , tadalafilK , herushki , chrystalhh4 , aqbbaebu , sharoncl60 , lottiezq60 , dustingx11 , clarecn3 , arlineid18 , yvettenh4 , matildadl18 , katinava11 , josefale3 , MauseCrolf , carlawb11 , alyssanb1 , pedrodi3
05-10-2013, 03:09 PM
Bài viết: #2
RE: Quick Draw (tổng hợp tiện ích)
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-...n-phi-khac



Tham quan website của thành viên này Tìm tất cả bài viết của thành viên này
Trích dẫn bài viết này trong bài trả lời
 Thanks given by: Tue_NV , Kithentilia , graseSaurgE , vwalszzs13 , gyoigzrb25 , ZoorkUnedpene , uphoneype , olmzwmsx46 , Antoniovasp , FreddieLig , Lioneltat , upixamiriqj , VakFeemi , imiyejewug , patsyke69 , JustinMach , sharrongs2 , paulineda69 , paigeqx11 , Wenaerorge , lilliezz16 , Quemtinpex , carltx16 , idagi69 , DanartF , Beixuttefe , roseannhk4 , BlackMissster , kathybp16 , trishabh2 , jancs3 , albertofu1 , casandraay2 , loriekm3 , robertobe4 , leevv16 , jeremyfz3 , anatc1 , emmanb1
09-10-2013, 02:37 PM (Bài viết đã được chỉnh sửa: 09-10-2013 02:38 PM bởi Tue_NV.)
Bài viết: #3
RE: Quick Draw (tổng hợp tiện ích)
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!
Tìm tất cả bài viết của thành viên này
Trích dẫn bài viết này trong bài trả lời
 Thanks given by: Ho Viet Hung , graseSaurgE , nfmazjln95 , oiyyswyg16 , horyPhizosy , tvepdnfd91 , sfxnhwlo98 , qtnxydqw30 , flupslete , otbrydso99 , bwveejya66 , FreddieLig , Antoniovasp , henriettaof69 , GatShinia , addiezs16 , trishabx16 , deborahkd3 , darGlult , eddient18 , marynu60 , rhodabq1 , supereblannak , kathybp16 , adelinesi69 , eleanorwk18 , kaseyep2 , lupexh16 , margaretiw60 , nellieij3 , adazq4 , georgetteid4 , MauseCrolf , cliffordze4 , peggyrw4 , lucillegm1 , kariob11 , felixhw69 , nanettepb60 , harveyem60
09-10-2013, 05:10 PM
Bài viết: #4
RE: Quick Draw (tổng hợp tiện ích)
(09-10-2013 02:37 PM)Tue_NV Đã viết:  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:

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)

...
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?
Tham quan website của thành viên này Tìm tất cả bài viết của thành viên này
Trích dẫn bài viết này trong bài trả lời
 Thanks given by: unermaNar , carpinteyrodiw , avxbjvyu18 , vtqoqgmx92 , yoeawtwn09 , bawzqrda07 , lilyhilx91 , prlwgiwo56 , uphoneype , FreddieInex , flupslete , hfzgvdtyc , fmauujri44 , ikigegraqigus , rhodazu18 , laceyjv1 , lorettacz18 , roxannebe18 , soniasb3 , lorriepy18 , Jamesrof , rayjg1 , tonypq3 , jasmineyr1 , Dusathutt , melanieev69 , aqbbaebu , WHETTEDIA , lucyqo11 , oujelikopru , BerunaiVew , nellievq3 , elviamh60 , ceciliaeg16 , josefale3 , debbieba4 , margretzh18 , reginalw16 , hughgg60 , MauseCrolf , anatc1 , feliciabu60 , gilbertnf69 , emmanb1
09-10-2013, 10:14 PM (Bài viết đã được chỉnh sửa: 09-10-2013 11:11 PM bởi Tue_NV.)
Bài viết: #5
RE: Quick Draw (tổng hợp tiện ích)
(09-10-2013 05:10 PM)Ho Viet Hung Đã viết:  
(09-10-2013 02:37 PM)Tue_NV Đã viết:  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:

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)

...
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?
- 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!
Tìm tất cả bài viết của thành viên này
Trích dẫn bài viết này trong bài trả lời
 Thanks given by: xiaoxwm , rljsffsn09 , ingwewyy85 , Michaelpek , horyPhizosy , ycgdljvm18 , FreddieLig , GatShinia , VakFeemi , cindyxa4 , ikagoyidow , imiyejewug , Affoncoff , EnzoPeta , georgetteqn11 , mageadlola , williegb18 , rosiecz4 , Keegreeld , BlackMissster , supereblannak , pattyvi3 , claudiacv3 , myrahf1 , tanyaoc69 , jeffyo69 , malindaoe69 , laurinv16 , nellieij3 , tashare2 , danaav16 , idaph1 , lucybm18 , valeriepa4 , rosemarygm3 , corinnelr2 , MauseCrolf , abigailqw60 , feliciabu60 , peggyrw4 , joleneyp11 , martinavt69 , harveyem60 , kristinels69
09-10-2013, 11:34 PM
Bài viết: #6
RE: Quick Draw (tổng hợp tiện ích)
(09-10-2013 10:14 PM)Tue_NV Đã viết:  - 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 ạ?
Tham quan website của thành viên này Tìm tất cả bài viết của thành viên này
Trích dẫn bài viết này trong bài trả lời
 Thanks given by: unermaNar , xiaoxwm , msjdznfn97 , horyPhizosy , flupslete , uphoneype , Michaelhex , hmhnjwsj50 , Husecyscounse , WilliamHab , deidreys60 , constanceys1 , manuelasz4 , alysonzp11 , fernandoze3 , brankFib , helenti2 , bessiejg4 , GalenOt , Keegreeld , darrento1 , roseannhk4 , BlackMissster , MFinnerglymn , justinesa3 , trishabh2 , paulzm3 , gretchenhy2 , petraio1 , lanarl1 , benjaminlw16 , michellevi69 , deloriszl18 , idaph1 , vickieqm18 , MauseCrolf , inawc11 , naomivk18 , jacquelinerl11 , opalaj16 , billycw69 , neilft1
10-10-2013, 08:26 AM
Bài viết: #7
RE: Quick Draw (tổng hợp tiện ích)
(09-10-2013 11:34 PM)Ho Viet Hung Đã viết:  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))
)
Tìm tất cả bài viết của thành viên này
Trích dẫn bài viết này trong bài trả lời
 Thanks given by: carpinteyrokww , rljsffsn09 , djbjnqyi14 , jcjglhgj17 , gnxstvxz17 , gbyzlrua67 , horyPhizosy , Robertasire , gydjzzdy96 , qjtkozgz75 , flupslete , uphoneype , Alexander27466827 , XRumerTest , obdylqlz15 , Doonydeadly , fmauujri44 , WilliamHab , ameliakj60 , caseycz2 , kayom18 , EFFOSEMOM , tessanx11 , Rodneykerb , victorve69 , maiqe11 , CurtisMn , claracm11 , christiehv3 , josemr3 , christinabz2 , nettiedj3 , cecilecu16 , williegb18 , kayzk11 , lethaxq4 , yolandach69 , hombwedlegot , prescolmagot , aqbbaebu , genagn3 , kathybp16 , lavonnebf60 , BerunaiVew , ninaby60 , mauricerq11 , claricepa3 , laurinv16 , michellevi69 , cliffordbw18 , ivamy18 , jacklynlj18 , luzlb18 , augustazs4 , bertano60 , luellafh16 , carlawb11 , pedrodi3 , earnestinerx16 , jeannehd1 , jasonyi69
12-10-2013, 10:15 AM
Bài viết: #8
RE: Quick Draw (tổng hợp tiện ích)
Dùng method Entity.IntersectWith để tìm giao điểm cùa 2 entity

Ideas don't matter, execution does!
Link to facebook
Tìm tất cả bài viết của thành viên này
Trích dẫn bài viết này trong bài trả lời
 Thanks given by: carpinteyrokqe , unombiz , ingwewyy85 , vgqswlql12 , gizxanwx33 , pfmniluqgnmi , AMarvinMi , dvfkisif69 , FreddieLig , cterlgysk , Antoniovasp , XRumerTest , oauroraqc69 , shtakEstaftbus , maudels3 , NorrisPat , sscokpxf084 , HarEpreerce , iwemanolide , minervaba1 , sharrongs2 , imeldayx2 , edwinagd69 , marshallua3 , lucillegu18 , ebonyhk18 , Amefssips , milliekj11 , RonaldInoks , jasmineyr1 , NaksHils , aqbbaebu , myrams2 , stevence11 , debravc1 , yvettemp1 , jesusxz69 , haleyev1 , lindsayke69 , luzlb18 , cathrynil60 , kevinmq4 , arlenepi11 , constancetq4 , joleneyp11 , robertci1 , wandasj11 , emmanb1
12-10-2013, 10:45 AM
Bài viết: #9
RE: Quick Draw (tổng hợp tiện ích)
(12-10-2013 10:15 AM)detailing Đã viết:  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
Tham quan website của thành viên này Tìm tất cả bài viết của thành viên này
Trích dẫn bài viết này trong bài trả lời
 Thanks given by: carpinteyrokqe , xfgeklbn12 , scxlptbc20 , dvvfbdov86 , horyPhizosy , boafhucg91 , Talaijaher , dvfkisif69 , boypeovap , MelvinDubY , VakFeemi , edwinayp18 , aishaiv16 , justinekh18 , jamieru3 , manuelasz4 , mitchellnh4 , janettepl18 , jacquelinesb69 , raeiq1 , nettiedj3 , olaok69 , soniasb3 , mabelzp16 , pearlhl1 , jerrywj3 , RonaldInoks , pamelaze16 , yolandach69 , justinesa3 , casandraay2 , genaid69 , brittneysr2 , cliffordgo69 , tamarakk3 , bradtq60 , anaftep , erikaxo60 , harveyem60
12-10-2013, 11:04 AM (Bài viết đã được chỉnh sửa: 12-10-2013 11:06 AM bởi detailing.)
Bài viết: #10
RE: Quick Draw (tổng hợp tiện ích)
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 Big Grin

Ideas don't matter, execution does!
Link to facebook
Tìm tất cả bài viết của thành viên này
Trích dẫn bài viết này trong bài trả lời
 Thanks given by: Ho Viet Hung , jrvxubez99 , horyPhizosy , liwvihzb58 , tqjhaciu54 , flupslete , bjkmpuln13 , Charlestam , ibcmkyvk66 , cterlgysk , mfbrqgect , uubsyybm02 , uducgate , mercedessq4 , MelvinDubY , wilmamc69 , martingl4 , hazelvs18 , serenays3 , Amefssips , hazelgj1 , dionnerk11 , casandraay2 , Lauranouct , kennethqm16 , malindaum11 , dominiquegw60 , leevv16 , leannawn4 , debbieba4 , sherriih4 , luzlb18 , jeremyfz3 , terrior2 , ashleyhr69 , joleneyp11 , deanaof2 , darrylgn18 , curtisev3
Đăng trả lời 


Di chuyển nhanh:


Những người đang xem chủ đề này:
2 khách

Trở về đầu trangTrở lên trên