[Đã xong]Sắp xếp trắc ngang vào Vport-In Trắc ngang đường: Tự động+FREE

[hochoaivandot 111]

100% tự động - 100% FREE!

I. Công dụng

- Yêu cầu 1. Vào khung Viewport cho trắc ngang thiết kế(hoặc trắc ngang khảo sát) bằng phần mềm Nova (Hài Hòa) và VnRoad (TDT) với số lượng trắc ngang cho 1 trang giấy tùy theo lựa chọn tối ưu số trắc ngang cho 1 trang giấy. Nếu trắc ngang có kích thước lớn, không thể sắp xếp như yêu cầu tối ưu, chương trình tự động sắp xếp giảm số lượng mặt cắt ngang cho phù hợp (Ví dụ như hình 2: 3 MCN thay vì 4 MCN)…

 

Hình 1 : 4 mặt cắt ngang trong 1 trang giấy

 

 

 

 

Hình 2 : 3 mặt cắt ngang trong 1 trang giấy

 

 

 

 

Hình 3 : 2 mặt cắt ngang trong 1 trang giấy

- Yêu cầu 2: Tùy chọn chèn khung tên theo ý thích.

+ Chèn toàn khung tên nhỏ như hình 1

+ Chèn toàn khung tên lớn (có tên để ký) như hình 2, hình 3

+ Chèn cả 2 loại khung, trang cuối loại khung lớn, các trang khác chèn khung tên nhỏ

+ Không chèn khung tên

Hình 4: Không chèn khung tên

- Yêu cầu 3. Tự động hiệu chỉnh lệch trục trắc ngang so với trục Viewport đối với những MCN bị lệch để toàn bộ MCN được thể hiện đầy đủ trong ViewPort.

 

 

 

 

Hình 5: MCN bị lệch, nếu để chính tâm thì taluy trái bị mất, trong khi bên taluy phải thừa giấy

 

 

 

 

 

Hình 6 : Tự động hiệu chỉnh lệch tâmTrục trắc ngang (màu xanh) lệch so trục Viewport (màu vàng)

---> Thể hiện cả MCN trong viewport (Like !!!)

- Yêu cầu 4: In hàng loạt các trang đã được sắp xếp trong các viewport.

II. Thực hiện:

1. Bước 1: Download ứng dụng từ trang www.cadonline.duyxuyen.vn

2. Bước 2: Giải nén, copy toàn bộ vào ổ đĩa C máy tính (gồm 2 file vlx [1 để vào khung+1để in hàng loạt] và 2 file dwg khung tên)

3. Bước 3: Mở file Cad có các MCN, Bấm lệnh AP để appload file Ktn.vlx

4. Bước 4: Bấm lệnh ktn. Chương trình yêu cầu "Nhap chieu cao bang TN:"

 

 

 

 

Hình 7: Định nghĩa chiều cao bang TN

Notes:

+ Trị số trong ngoặc chính là chiều cao mặc định của bảng TN, nếu bạn đồng ý bấm Enter.

Nếu trị số mặc định không đúng cho trường hợp các MCN của bạn, nhập chiều cao mới bằng 2 cách: Pick chuột 2 điểm 2 đầu để xác định chiều cao này hoặc nhập chiều cao từ bàn phím.

+ Trước khi chạy lệnh Ktn, tác giả khuyến cáo người dùng chuyển sang Layout xóa tấc cả các Viewport hiện có của Drawing.

5. Bước 5: Hộp thoại xuất hiện, Hãy thực hiện các tùy chọn

 

 

 

 

 

 

 

 

 

 

 

 

Hình8: Tùy chọn khung tên, hàng cột, tỷ lệ

Notes: Tác giả khuyến cáo người dùng nên lựa chọn theo chế độ mặc định của chương trình.

7. Bước 7: Bấm OK. Chương trình sẽ cho bạn kết quả như sau:

 

 

 

 

Hình 9: Các MCN được sắp xếp hoàn thiện

8. Bước 8: Tùy chỉnh trước khi in hàng loạt. Nhớ bấm Apply to Layout sau khi chọn xong. Nên in thử 1 tờ

 

 

 

 

Hình 10: Tùy máy in, cỡ giấy, Style (nét in), rồi bấm Apply to Layout

9.Bước 9: Bấm lệnh AP để appload file DBDiepPlot.vlx trong ổ đĩa C. Bấm lệnh ii

 

 

 

 

Hình 11: Tùy chọn máy in, style, giấy và các khung MCN muốn in.

Để lựa chọn những trang cần in, người dùng có 2 cách lựa chọn

+ Bấm vào Select All Rectangle để Pick chọn tấc cả các khung viền màu trắng (Layer Defoints)

+ Bấm vào Select 1 Layer để Pick chọn 1 lần khung viền trên, chương trình tự động tìm tấc cả các khung viền có cùng Layer với khung đã chọn.

Notes: Tác giả khuyến cáo người dùng: Nếu in tấc cả MCN thì chọn Select 1 Layer, nếu in 1 số MCN nào đó thì chọn Select All Rectangle.

III. Ưu nhược điểm

1. Ưu điểm:

- Ưu điểm lớn nhất của chương trình này là FREE, MIỄN PHÍ

- Nhanh gọn, dễ sử dụng, dùng cho cả MCN Nova và VnRoad. Có nhiều tùy chọn nên có thể thỏa mãn nhiều khách hàng khó tính…

- Tác giả chương trình sẵn sàng lắng nghe góp ý cũng như Fix các lỗi khi người dùng sử dụng báo lỗi…

2. Nhược điểm:

- Nhược điểm lớn nhất của chương trình này là việc sử dụng nhiều Viewport làm cho file bản vẽ nặng, Cad chạy yếu ớt thậm chí treo hẳn đối với những máy cấu hình yếu.

- Chương trình viết xong chỉ mới sử dụng đối với 1 số lượng ít công trình (được thiết kế theo form riêng) nên chưa phát hiện nhiều lỗi.

- Cad chỉ cho phép 64 Viewport/1Drawing, Nếu file có >64viewport thì tự động sẽ bị off từ viewport 65 trở đi (Mặc dù bị off không nhìn thấy nhưng in vẫn được).

- File chương trình thiết kế xuất ra tuyệt đối không được phép thay đổi Layer các đối tượng. Đặc biệt là các đối tượng tên cọc, lý trình, đường tự nhiên, các đối tượng thuộc layer Taluy, entdauco, linegiongtn …(VnRoad); enttructn, entplinetunhien …(Nova).

IV. Liên hệ

- Mọi đóng góp ý kiến, báo lỗi, yêu cầu fix liên hệ Dương Bá Diệp.

+ Địa chỉ: Công ty CPXD Thành Công – CN Quảng Nam, Lô 43 Lý Thường Kiệt, Tam Kỳ, Quảng Nam

+ Website: www.cadonline.duyxuyen.vn

+ Email: badiep@gmail.com

+ Phone: 0935.399.773

+ Y!M: ranhquadima

- Mọi version sau này (Fix lỗi hoặc nâng cấp) tác giả sẽ upload tại Website www.cadonline.duyxuyen.vn. Người dùng có thể truy cập để download miễn phí.

Download & cài đặt:

http://cadonline.duy...e=viewtopic&t=2

Một số khuyến cáo

0.!!!!nhớ cài EXPRESS TOOLS cho cad

1. Cad 2007 (Các ver Cad # mình chưa check không biết lỗi không?)

2. Số lượng trắc ngang cho mỗi file không nên quá nhiều (<70 là tốt nhất)

3. Ngày tháng hệ thống của máy tính phải đúng, bạn chỉnh sai ngày thì chương trình không hoạt động đâu nhé!

 

4. Đọc kỹ hướng dẫn trước khi sử dụng

Cad 2007 (Các ver Cad # mình chưa check không biết lỗi không?)

2. Số lượng trắc ngang cho mỗi file không nên quá nhiều (<70 là tốt nhất)

3. Ngày tháng hệ thống của máy tính phải đúng, bạn chỉnh sai ngày thì chương trình không hoạt động đâu nhé!

 

4. Đọc kỹ hướng dẫn trước khi sử dụng

 

[hochoaivandot 111]

Không thể hiệu chỉnh canh trái phải center như ý được. Trong cửa sổ soạn thảo thì thấy canh trái nhưng đưa bài viết lên thì canh giữa

[Thaistreetz 539]

- Yêu cầu nhập vào chiều cao bảng trắc ngang là thừa. bạn hoàn toàn có thể để chương trình làm việc này tự động

- Lựa chọn tỷ lệ in cũng thừa vì cũng có thể làm việc này tự động. trong cơ sở dữ liệu của trắc ngang đã có rồi.

tặng bạn cái này (áp dụng với trắc ngang của nova):

(defun tyle-tn (EN-gTN / X NV) ;EN-gTN la doi tuong pline goc trac ngang
(if (setq NV (assoc -3 (entget EN-gTN '("TDNW"))))
(list (setq X (cdr(nth 5(cadr NV))))
(/ X (cdr(nth 6(cadr NV))))))).

nhìn qua cách thức làm việc thì mình góp ý được thế thôi. Về quan điểm cá nhân thì mình thấy cách thức giải quyết in ấn trắc ngang bằng viewport như chương trình của bạn tạo ra những khó khăn không chỉ với người lập trình mà cả với người dùng. bản thân bạn cũng đã nhận ra được điều này. vậy sao không làm nó luôn bên model nhỉ? Tất nhiên trừ khi bên bạn yêu cầu quản lý tất cả bản vẽ bằng layout thì chương trình của bạn là rất ổn rồi.

[hochoaivandot 111]

- Yêu cầu nhập vào chiều cao bảng trắc ngang là thừa. bạn hoàn toàn có thể để chương trình làm việc này tự động

- Lựa chọn tỷ lệ in cũng thừa vì cũng có thể làm việc này tự động. trong cơ sở dữ liệu của trắc ngang đã có rồi.

tặng bạn cái này (áp dụng với trắc ngang của nova):

(defun tyle-tn (EN-gTN / X NV) ;EN-gTN la doi tuong pline goc trac ngang
(if (setq NV (assoc -3 (entget EN-gTN '("TDNW"))))
(list (setq X (cdr(nth 5(cadr NV))))
(/ X (cdr(nth 6(cadr NV))))))).

 

Cảm ơn Thaistreetz

• 1. Chiều cao TN nhập là thừa. Ý bạn đúng, tấc nhiên mình cũng đã làm nhưng sau đó mình thay bằng phương án chọn thủ công. Lý do là ứng dụng này mình viết mình nghĩ có thể nhiều người dùng (tối thiểu là công ty mình), mình sợ trong quá trình thao tác bản vẽ, người dùng đã vô tình vẽ Line thuộc tính (Layer, ….) giống y đối tượng mà mình lấy thông tin chiều cao đáy bảng. Nếu mình chạy chương trình mà chọn nhầm thằng này để lấy giá trị chiều cao bảng là chết.
  
• 2. Tỷ lệ in không cần nhập
  

+ Cái này thì chỉ phù hợp với Nova, còn VnRoad thì không được

 

+ Cái tỷ lệ mà hộp thoại mình nhập có 1 ý đồ khác, đó là thay vì nhập 1/200 người dùng có thể ăn gian 1/205 (Nhưng tỉ lệ ghi bản vẽ tấc nhiên vẫn là 1/200)….

 

+ Cái fun (tyle-tn) của bạn hay thật đấy. Nếu không phải người viết chương trình làm sao bạn phát hiện được hay thế. Ngoài bí mật đó bạn còn bí mật nào liên quan đến thằng Nova tương tự không? Cái dxf -3 của Pline này là thế nào nhỉ? Liệu mình có thể entmake 1 thằng Polyline nào đó mà dùng cái dxf -3 này không?

• 3. In ấn TN bằng Vport:
  

+ Dùng Viewport có nhiều cái hay. Riêng mình và công ty mình thì mọi Drawing khi in đều in từ Viewport. Cho nên ý đồ của mình là theo quan điểm và thói quen cá nhân của mình thôi. Mình nghĩ nếu để bên Model cũng có những bất lợi riêng…

+ Với lại mĩnh nghĩ nhựoc điểm file nặng khi dùng Vport thì cũng không phải vấn đề lớn đối với các cấu hình máy tính của 1 kỹ sư CĐường. Mình dùng thử trong công ty thấy bình thường...

[kitaro207 0]

Để mình test thử coi sao nhé,bữa h có nhiều pm lắm nhưng hay bị lỗi hix,công ty mình cũng có 1 cái riêng nhưng có 1 số bất lợi ko thể khắc phục.cám ơn bác đã chia sẻ cho công đồng.

[Thaistreetz 539]

Theo như những gì bạn nêu ở trên thì mình đoán là bạn chưa nắm chắc hiểu biết về xdata của đối tượng -> chưa nắm được cách thức nova tổ chức và xây dựng cơ sở dữ liệu cho đối tượng -> chương trình này bạn viết chỉ thao tác với các đối tượng thông qua các thông tin nhìn thấy như : loại đói tượng, layer, góc quay, textstyle... Nếu vậy thì quả thực chương trình bạn viết rất công phu đấy.

 

- Về ý kiến thứ nhất của bạn. Nếu là Nova thì bạn có thể yên tâm và chắc chắn rằng người dùng chỉ có thể vẽ ra được đối tượng thông thường bằng layer của nova, nhưng ko thể vẽ được ra đối tượng chứa thông tin của nova. Cụ thể với đối tượng là đầu trắc ngang. bạn thử vẽ 1 line bằng layer "ENTTNTUNHIEN" bên cạnh đối tượng của nova. sau đó dùng code dưới để chọn sẽ thấy chỉ có đối tượng của nova mới chọn được:

(ssget (list (list -3(list"TDNW"))'(0 . "LINE")'(8 . "ENTTNTUNHIEN")))

 

- Mã -3 là mã lưu dữ liệu mở rộng của đối tượng (gọi là xdata, diễn đàn đã có nhiều topic bàn về vấn đề này rồi). bạn hoàn toàn có thể tạo ra đối tượng có chứa xdata, hoặc có thể chỉnh sửa, thậm chí là xóa hẳn toàn bộ xdata của đối tượng. rất nhiều đối tượng của cad cũng chứa loại dữ liệu này.

 

- thông tin thêm có thể hữu ích với bạn: các đối tượng nova có cách thức tổ chức dữ liệu mở rộng dạng: ("TDNW" (1070 . -XXXX) (1070 . Y)....))

trong đó:

"TDNW" là chuỗi nhận dạng dữ liệu mở rộng của nova (trong 1 đối tượng có thể chứa nhiều loại dữ liệu mở rộng)

-XXXX là số quy định đối tượng thuộc bình đồ (-2000), trắc dọc(-3000) hay trắc ngang(-4000);

Y: số thứ tự của tuyến; tiếp theo là các mã quy định về loại đối tượng (cọc, số thứ tự cọc, lý trình, tên cọc, đường dóng, đường line bảng, text tự nhiên, text thiết kế...) và các thông tin khác. Mình chẳng có bí mật nào hết, nó nằm toàn bộ trong đó, bạn chỉ việc lôi cổ nó ra là dùng được liền

[kitaro207 0]

Mình đã cài và chạy thử nhưng ko được bác ơi,dùng file Nova VD của bác (Định dạng cad 2007 hix) sau khi xóa hết VP bấm lệnh ktn>>mặc định OK>> ko thấy j hết >> Bác giúp với nhé!

[hochoaivandot 111]

Mình đã cài và chạy thử nhưng ko được bác ơi,dùng file Nova VD của bác (Định dạng cad 2007 hix) sau khi xóa hết VP bấm lệnh ktn>>mặc định OK>> ko thấy j hết >> Bác giúp với nhé!

 

Không hiểu vì sao một số máy tính không thể write file dcl vào Support (Cad báo stop writting ...gì đó). Có lẽ trường hợp của bạn cũng như vậy (nếu như đúng là không hiện hộp thoại), Mình chữa cháy như thế này: bạn tải lisp dưới đây về chạy lệnh ppp. Cad sẽ hiện lên đường dẫn (tận cùng là Support).

(defun LM:GetSavePath ( / tmp)
  	     (cond      
  	       ( (setq tmp (getvar 'ROAMABLEROOTPREFIX))
  		     (or (eq "\\" (substr tmp (strlen tmp)))
  			     (setq tmp (strcat tmp "\\"))
  		     )
  		     (strcat tmp "Support")
  	       )
  	       ( (setq tmp (findfile "ACAD.pat"))
  		     (setq tmp (vl-filename-directory tmp))
  		     (and (eq "\\" (substr tmp (strlen tmp)))
  			  	(setq tmp (substr tmp (1- (strlen tmp))))
  		     )
  	     	(princ tmp)
  	       )
  	     )
       )
(defun C:ppp() (LM:GetSavePath))

[hochoaivandot 111]

Mình đã cài và chạy thử nhưng ko được bác ơi,dùng file Nova VD của bác (Định dạng cad 2007 hix) sau khi xóa hết VP bấm lệnh ktn>>mặc định OK>> ko thấy j hết >> Bác giúp với nhé!

Sau 1h online với bạn kitaro207 cuối cùng đã giải quyết được vấn đề (xưa như quả đất). Câu trả lời cho bác ấy cũng là khuyến cáo cho các anh chị em khác dùng lisp của mình : CHƯA CÀI EXPRESS. Thế mới thấy topic viết lại các hàm Express mà cadviet đang theo đuổi thật ý nghĩa.

[hochoaivandot 111]

Theo như những gì bạn nêu ở trên thì mình đoán là bạn chưa nắm chắc hiểu biết về xdata của đối tượng -> chưa nắm được cách thức nova tổ chức và xây dựng cơ sở dữ liệu cho đối tượng -> chương trình này bạn viết chỉ thao tác với các đối tượng thông qua các thông tin nhìn thấy như : loại đói tượng, layer, góc quay, textstyle... Nếu vậy thì quả thực chương trình bạn viết rất công phu đấy.

- Ý trời. Sao lại có một nội dung thú vị và hữu ích thế này mà giờ em mới biết nhỉ? Lâu ni có nhu cầu về cái này mà không biết làm sao giải quyết. Cảm ơn Thaistreetz vì thông tin bổ ích Cái thông tin xdata của Nova nếu tôi mà biết sớm hơn thì đã đở vất vả nhiều khi viết mấy ứng dụng liên quan rồi.

- Đối tượng có dữ liệu mở rộng mình muốn truy cập thì nhất thiết phải biết Application Name khi người tạo ra đã đăng ký phải không nhỉ? Nghĩa là nếu mình không biết cái tên này (tức với Nova không biết “TDNW”) thì mình bó tay không vào nhà lấy trộm đồ được hả các bác?

[Thaistreetz 539]

Đối tượng có dữ liệu mở rộng mình muốn truy cập thì nhất thiết phải biết Application Name khi người tạo ra đã đăng ký phải không nhỉ? Nghĩa là nếu mình không biết cái tên này (tức với Nova không biết “TDNW”) thì mình bó tay không vào nhà lấy trộm đồ được hả các bác?

Tra tất cả dữ liệu mở rộng của đối tượng (nếu có), nếu muốn tra dữ liệu mở rộng của nova thôi thì thay "*" bằng "TDNW"

(defun c:xd (/ en)

(and (setq en (car (entsel "Chon doi tuong can tra")))

(setq en (assoc -3 (entget en '("*"))))

(princ (cdr en))) (princ))

[quan_gt 15]

Chỉ cần đọc cái title là đã đoán ngay ra tác giả là ai rồi. AWESOME!

Sorry sorry chủ thớt! Nhầm hàng. :P :P :P :P . Mình là bạn của Thaistreetz, lúc đêm khuya vợ gọi, bối rối tưởng topic của Thaitstreetz... he he.

Dù sao cũng thanks chủ thớt đã vô cùng công phu giúp đỡ cho cái sự lười nhác của anh em!

[hochoaivandot 111]

Chỉ cần đọc cái title là đã đoán ngay ra tác giả là ai rồi. AWESOME!

 

???

Chào "Thầy bói xem Title!". Cái gì làm bạn AWESOME, cái title chăng?

Bác chỉ 1 dòng, 2 câu,1 dấu chấm thang mà làm tôi băn khoăn quá!

[hochoaivandot 111]

Sau khi post lisp vào khung và in trắc ngang, một số bạn có email thắc mắc cách dùng. Mình đưa Video hướng dẫn luôn để các bạn tiện theo dõi

 

Video hướng dẫn dùng lệnh KTN

[hochoaivandot 111]

Video hướng dẫn dùng lệnh II

Vì sao mỗi bài post chỉ cho phép Add 1 link video nhỉ ???

[ketxu 2.984]

@hhvd : thank to share. Vì ketxu k có chuyên ngành, lại k có file để test (bác nên có cái này đi kèm ^^) + file đã mã hóa nên thấy hay quá mà k sao dùng được

2 chương trình viết có đầy đủ error catch nên chắc k lo gì nữa, nhưng KTN hình như đang cứng ở kích thước khung (297 x 420) ?

Khi đang thao tác xếp khung bác hãy chuyển Maxvp xuống nhỏ nhất có thể, xếp xong thì trả lại cho user, hoặc cho nó vào trong 1 option của quá trình xếp luôn

 

Còn module in thì trên 4r cũng có kha khá r, k có gì để bàn nhiều ^^

[dovananh.xd 25]

Xem video như thế này, tuy em chưa dùng nhưng nếu như thế thì mình muốn chèn khung tên vào thì không có vị trí nào à anh ơi?

[cd2k44 123]

Chắc bạn không đọc kỹ hướng dẫn rồi.Đề chèn khung tên bạn sửa lại khung tên trong 2 file khung ten mà bạn đã chép vào ổ C trong quá trình cài đặt

[hochoaivandot 111]

Tiện ích vào khung trắc ngang - Version 4.0 đã hổ trợ trắc ngang thiết kế từ ANDDESIGN và ROADPLAN

[monkey2612 0]

Anh Điệp cho em xin cái lisp vào khung bình đồ với trắc dọc đi.Bên cty em thiết kế đường theo phần mềm thiết kế đường Huy Hoàng nên chỉ cần vào khung tên bình đồ với trắc dọc thôi ! cảm ơn anh trước////

[unionnuce 0]

sao mình vào download k đăng ký dc vậy mọi người!

ai có thể cho mình xin bộ lisp này dc k?

(nếu dc thì gửi cho mình vào gmail của mình nh:unionnuce@gmail.com)

cám ơn rất nhiều!

[hochoaivandot 111]

Sao lại không đăng ký thành viên được nhỉ?

Mình vừa kiểm tra và dowload thành công mà.

Bạn kiểm tra lại đi nhé.

[hakhoailang 2]

các bác ạ .ban đầu cứ tưởng có cái gì cao siêu . tưởng là diễn đàn chia sẻ anh em học hỏi . ai ngờ ông lập ra để member nào có điều kiện thì liên lạc để mua .

cứ tưởng có cái pm nào đỉnh cao và cao siêu thì nhắm mắt nhắm mũi mua cái . ai ngờ toàn lisp thế gian có rồi , và anh em đều viết free cả , thế nhưng bác ấy làm trò mèo đưa lên nhưng ko chia sẻ . ích kỷ ko đúng chỗ .

[nguoihung_3 0]

Sao em dùng KTN sao báo lỗi autocad massege 0,autocad massege 18 rồi chuyển sang layout mà không chạy gì cả.Các bác giúp em với1

[hochoaivandot 111]

Y!M: ranhquadima

Bạn add nick đi, mình hổ trợ trực tuyến cho.

Lỗi này mình chưa thấy bao giờ, để rờ rờ tận tay mới bắt bệnh được.