Rated 5/5 based on 240179 internet user reviews

Jump to content


Change Photo
- - - - -

Lisp đánh số thứ tự bản vẽ tự động?


  • Please log in to reply
59 replies to this topic

#1 namhai

namhai

    biết vẽ rectang

  • Members
  • PipPip
  • 81 posts
Danh tiếng: 18 (tàm tạm)

Gửi vào 20 June 2009 - 11:13 AM

e đang cần lisp đánh số thứ tự bản vẽ tự động trong trường hợp khung bản vẽ được sắp xếp theo nhiều hàng, nhiều cột.Rất mong CADVIET giúp hộ e cái lisp này.
http://www.cadviet.c...les/Ban_cad.rar
  • 0
Hăy làm việc hết ḿnh rồi mọi điều tốt đẹp sẽ đến với bạn.....

#2 q288

q288

    biết lệnh fillet

  • Members
  • PipPipPipPip
  • 209 posts
Danh tiếng: 159 (tàm tạm)

Gửi vào 20 June 2009 - 02:08 PM

e đang cần lisp đánh số thứ tự bản vẽ tự động trong trường hợp khung bản vẽ được sắp xếp theo nhiều hàng, nhiều cột.Rất mong CADVIET giúp hộ e cái lisp này.
http://www.cadviet.c...les/Ban_cad.rar


Đánh số thứ tự là sao? Bạn mún lưu mỗi khung thành 1 bản vẽ rieng hay sao?
  • 0

#3 namhai

namhai

    biết vẽ rectang

  • Members
  • PipPip
  • 81 posts
Danh tiếng: 18 (tàm tạm)

Gửi vào 21 June 2009 - 08:15 AM

Đánh số thứ tự là sao? Bạn mún lưu mỗi khung thành 1 bản vẽ rieng hay sao?

ḿnh muốn đánh số tứ tự bản vẽ trong trắc ngang.chẳng hạn ḿnh có 36 khung bản vẽ trắc ngang và sắp xếp theo 6 hàng, 6 cột, có cách nào để đánh thứ tự bản vẽ tự động : bản vẽ số 1/36, bản vẽ số 2/36.... bản vẽ số 36/36?
  • 0
Hăy làm việc hết ḿnh rồi mọi điều tốt đẹp sẽ đến với bạn.....

#4 q288

q288

    biết lệnh fillet

  • Members
  • PipPipPipPip
  • 209 posts
Danh tiếng: 159 (tàm tạm)

Gửi vào 21 June 2009 - 10:19 AM

ḿnh muốn đánh số tứ tự bản vẽ trong trắc ngang.chẳng hạn ḿnh có 36 khung bản vẽ trắc ngang và sắp xếp theo 6 hàng, 6 cột, có cách nào để đánh thứ tự bản vẽ tự động : bản vẽ số 1/36, bản vẽ số 2/36.... bản vẽ số 36/36?


tức là ghi chữ 1/36,2/36... vào mỗi khung?
  • 0

#5 Tue_NV

Tue_NV

    KS Vơ Quang Tuệ

  • Moderator
  • PipPipPipPipPipPipPip
  • 4,002 posts
Danh tiếng: 3557 (đỉnh cao)

Gửi vào 21 June 2009 - 10:38 AM

e đang cần lisp đánh số thứ tự bản vẽ tự động trong trường hợp khung bản vẽ được sắp xếp theo nhiều hàng, nhiều cột.Rất mong CADVIET giúp hộ e cái lisp này.
http://www.cadviet.c...les/Ban_cad.rar

Bạn sử dụng Lisp này thử xem :
Cách thức hoạt động tương tự lệnh Array :
Tên lệnh dsbv
http://www.cadviet.c...pfiles/dsbv.vlx
  • 1

#6 namhai

namhai

    biết vẽ rectang

  • Members
  • PipPip
  • 81 posts
Danh tiếng: 18 (tàm tạm)

Gửi vào 21 June 2009 - 04:34 PM

Bạn sử dụng Lisp này thử xem :
Cách thức hoạt động tương tự lệnh Array :
Tên lệnh dsbv
http://www.cadviet.c...pfiles/dsbv.vlx

e thấy lisp này đánh số thứ tự từ trái qua phải và từ dưới lên trên, sao không đánh theo thứ tự từ trái qua phải, từ trên xuống dưới được?và có thể xuất ra kết quả là: "bản vẽ số: 1/..." được không thay v́ chỉ là " 1/..."?
  • 0
Hăy làm việc hết ḿnh rồi mọi điều tốt đẹp sẽ đến với bạn.....

#7 Tue_NV

Tue_NV

    KS Vơ Quang Tuệ

  • Moderator
  • PipPipPipPipPipPipPip
  • 4,002 posts
Danh tiếng: 3557 (đỉnh cao)

Gửi vào 21 June 2009 - 05:27 PM

e thấy lisp này đánh số thứ tự từ trái qua phải và từ dưới lên trên, sao không đánh theo thứ tự từ trái qua phải, từ trên xuống dưới được?và có thể xuất ra kết quả là: "bản vẽ số: 1/..." được không thay v́ chỉ là " 1/..."?

Bạn đă đọc kỹ chưa?
Tue_NV nói là cách thức của nó hoạt động tương tự như lệnh array
Hàng từ trái -> phải : khoảng cách hàng >0
Hàng từ phải -> trái : khoảng cách hàng < 0

Cột từ dưới lên trên : khoảng cách cột >0
Cột từ trên xuống dưới : khoảng cách cột <0

Mong là bạn hiểu.
Tue_NV upload file Lisp này có chỉnh sửa theo ư bạn
Tên lệnh dsbv
http://www.cadviet.c...iles/dsbv_1.vlx
  • 1

#8 namhai

namhai

    biết vẽ rectang

  • Members
  • PipPip
  • 81 posts
Danh tiếng: 18 (tàm tạm)

Gửi vào 22 June 2009 - 04:54 PM

Bạn đă đọc kỹ chưa?
Tue_NV nói là cách thức của nó hoạt động tương tự như lệnh array
Hàng từ trái -> phải : khoảng cách hàng >0
Hàng từ phải -> trái : khoảng cách hàng < 0

Cột từ dưới lên trên : khoảng cách cột >0
Cột từ trên xuống dưới : khoảng cách cột <0

Mong là bạn hiểu.
Tue_NV upload file Lisp này có chỉnh sửa theo ư bạn
Tên lệnh dsbv
http://www.cadviet.c...iles/dsbv_1.vlx

Bác Tue_NV à, cảm ơn bác nhiều nhé, lisp này đúng là hết ư rùi, thế này từ nay việc đánh số bản vẽ sẽ nhàn lắm :lol2:
  • 0
Hăy làm việc hết ḿnh rồi mọi điều tốt đẹp sẽ đến với bạn.....

#9 transu

transu

    biết vẽ spline

  • Members
  • PipPip
  • 93 posts
Danh tiếng: 19 (tàm tạm)

Gửi vào 22 June 2009 - 05:09 PM

các pro giúp em cái lisp như sau:
em có các file cad người ta chuyển nhưng text của nó máy em ko có nên ko đọc đc
yêu cầu:lisp...>chọn text...>đổi sang phông vn-times mà ko bị lỗi
  • 0

#10 cavoitrang_11

cavoitrang_11

    biết zoom

  • Members
  • Pip
  • 16 posts
Danh tiếng: 0 (b́nh thường)

Gửi vào 10 July 2009 - 09:30 AM

Nhưng em muốn chọn chiều cao chữ bất kỳ th́ làm thế nào hả bác?
  • 0

#11 quygtvt

quygtvt

    biết vẽ circle

  • Members
  • PipPip
  • 30 posts
Danh tiếng: 23 (tàm tạm)

Gửi vào 10 July 2009 - 12:25 PM

Bạn đă đọc kỹ chưa?
Tue_NV nói là cách thức của nó hoạt động tương tự như lệnh array
Hàng từ trái -> phải : khoảng cách hàng >0
Hàng từ phải -> trái : khoảng cách hàng < 0

Cột từ dưới lên trên : khoảng cách cột >0
Cột từ trên xuống dưới : khoảng cách cột <0

Mong là bạn hiểu.
Tue_NV upload file Lisp này có chỉnh sửa theo ư bạn
Tên lệnh dsbv
http://www.cadviet.c...iles/dsbv_1.vlx

LISP đánh số bản vẽ của bác Tuệ rất hay, có thể đánh số hàng loạt tất cả các bản vẽ. Tuy nhiên, để sử dụng hiệu quả th́ bản thân mỗi người sử dụng phải sáng tạo một chút. Ví dụ, bạn muốn bản vẽ được đánh số kiểu 1/36, 2/36, ...,36/36 thay v́ "Bản vẽ số: 1/36" th́ chỉ cần cùng lệnh Find thay thế "Bản vẽ số:" bằng "" là xong ngay. Hay bạn muốn đánh số kiểu BVTC/QL6/TN/1/36 cũng dùng lệnh Find để thay thế "Bản vẽ số:" bằng "BVTC/QL6/TN/".
Hơn nữa, trước khi sử dụng bạn phải gán textstyle và chiều cao chữ như mong muốn.
Trong quá tŕnh chạy lệnh, điểm chèn phải được chọn hợp lư.
Cám ơn Mr. Tuệ

Em cũng xin đóng góp một lựa chọn khác trong việc đánh số bản vẽ, do em viết.
Chi tiết như sau:
- Tên lệnh: STT
- Tên bản vẽ đầu tiên, người sử dụng phải tự lập (bằng lệnh text chẳng hạn): vị trí của text trong khung tên, cỡ chữ, kiểu prefix,... Ví dụ: "BVTC/QL6/TN/001" th́ "BVTC/QL6/TN/" được hiểu là prefix, số chữ số của phần đếm là "001" ---> 3 kư tự
- Chỉ tự động đánh số thứ tự các bản vẽ trên cùng một hàng (tất nhiên các bản vẽ phải cách đều nhau), bản vẽ đầu tiên trong hàng phải được đánh số bằng tay.
- Tự động bù các số "0" vào trước số thứ tự để cho đủ số kư tự quy ước.
- Không thể hiện được tổng số bản vẽ.
Đây là file dịch:
http://www.cadviet.c...es/dsbv_DXQ.vlx
Các bác dùng thử nhé, nếu thấy được th́ thanks cái động viên anh em :s_big:
  • 0
Không thể nói trời không xanh hơn,
và mắt em không xanh khác ngày thường

Posted Image


#12 bach1212

bach1212

    biết lệnh stretch

  • Members
  • PipPipPip
  • 162 posts
Danh tiếng: 4 (b́nh thường)

Gửi vào 10 July 2009 - 02:41 PM

Bạn đă đọc kỹ chưa?
Tue_NV nói là cách thức của nó hoạt động tương tự như lệnh array
Hàng từ trái -> phải : khoảng cách hàng >0
Hàng từ phải -> trái : khoảng cách hàng < 0

Cột từ dưới lên trên : khoảng cách cột >0
Cột từ trên xuống dưới : khoảng cách cột <0

Mong là bạn hiểu.
Tue_NV upload file Lisp này có chỉnh sửa theo ư bạn
Tên lệnh dsbv
http://www.cadviet.c...iles/dsbv_1.vlx

bác ưi! em chỉ có thể nhập khoảng cách bằng tay và chọn giá trị âm, vd: -7 th́ mới đánh thứ tự theo hàng từ trên xuống được.chứ em chỉ trực tiếp vào bản vẽ hết trái sang phải, trên xuống dưới và ngược lại th́ nó cứ đánh thứ tự hàng từ dưới lên trên. bác chỉnh lại cho chuẩn chút được hôk ah? hàng th́ phải kích từ trên xuống dưới <0, cột th́ phải kích từ trái qua phải >0 và ngược lại th́ mới giống array được chứ ah!
Bác sửa xong th́ gửi lại cho em nữa na! lisp của bác rất tuyệt!
  • 0

Một môn tập luyện mang lại vô vàn lợi ích sức khỏe cho mọi người, nhiều bệnh tật nan y đều được chữa khỏi, hoàn toàn miễn phí. Hiệu quả chữa khỏi bệnh tật của nó lên đến hơn 90%.
Tài liệu tại đây: http://phapluan.org/

Rất vui được làm quen với mọi người trên facebook:
https://www.facebook...67946371&type=1

 

 


#13 winter712

winter712

    biết vẽ polygon

  • Members
  • PipPip
  • 74 posts
Danh tiếng: 8 (b́nh thường)

Gửi vào 29 July 2010 - 01:11 PM

[quote name='Tue_NV' date='Jun 21 2009, 17:27' post='65033']
Bạn đă đọc kỹ chưa?
Tue_NV nói là cách thức của nó hoạt động tương tự như lệnh array
Hàng từ trái -> phải : khoảng cách hàng >0
Hàng từ phải -> trái : khoảng cách hàng < 0

Cột từ dưới lên trên : khoảng cách cột >0
Cột từ trên xuống dưới : khoảng cách cột <0

Mong là bạn hiểu.
Tue_NV upload file Lisp này có chỉnh sửa theo ư bạn
Tên lệnh dsbv
http://www.cadviet.c...iles/dsbv_1.vlx
Tự động đánh số thứ tự bản vẽ là cách mà em cũng đang t́m may quá trên diễn đàn cadviet lai có. nhung bác Tue oi sao em kich vào đường linh đó mà không dowload được cái lip ấy. chỉ thấy xuất hiện một file tiếng gi ấy. bác có thể upload cái lips ấy lên được ko. cảm ơn bác nha
  • 1
[size=3][/size]Có ai đó nói rằng tôi đang lạc bước. Nhưng họ ko biết rằng tôi đă có 1 ước mơ…!
VIT NGOC

#14 tuanlongtl

tuanlongtl

    biết vẽ arc

  • Members
  • PipPip
  • 41 posts
Danh tiếng: 7 (b́nh thường)

Gửi vào 25 September 2010 - 05:22 PM

Bạn đă đọc kỹ chưa?
Tue_NV nói là cách thức của nó hoạt động tương tự như lệnh array
Hàng từ trái -> phải : khoảng cách hàng >0
Hàng từ phải -> trái : khoảng cách hàng < 0

Cột từ dưới lên trên : khoảng cách cột >0
Cột từ trên xuống dưới : khoảng cách cột <0

Mong là bạn hiểu.
Tue_NV upload file Lisp này có chỉnh sửa theo ư bạn
Tên lệnh dsbv
http://www.cadviet.c...iles/dsbv_1.vlx

Rất cảm ơn bạn nhưng nếu bản vẽ chỉ có 1 cột th́ nó không hiểu. Mong bạn sửa giúp lỗi này.
  • 1

#15 antony7117

antony7117

    biết zoom

  • Members
  • Pip
  • 12 posts
Danh tiếng: 1 (b́nh thường)

Gửi vào 03 November 2010 - 04:04 PM

Ḿnh có ư này:
Ḿnh có 1 kư hiệu bản vẽ như: KT: 01/30 mà ḿnh muốn copy sang 1 đối tượng khác nó tự chuyển thành KT: 02/30
làm như vậy ḿnh có thể kiểm tra được bản vẽ.
Các Pro nào có lisp đó ko?? cho ḿnh xin với.
  • 0

#16 phamngoctukts

phamngoctukts

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 1,107 posts
Danh tiếng: 686 (tốt)

Gửi vào 03 November 2010 - 04:40 PM

Ḿnh có ư này:
Ḿnh có 1 kư hiệu bản vẽ như: KT: 01/30 mà ḿnh muốn copy sang 1 đối tượng khác nó tự chuyển thành KT: 02/30
làm như vậy ḿnh có thể kiểm tra được bản vẽ.
Các Pro nào có lisp đó ko?? cho ḿnh xin với.

V́ trong block khung tên có nhiều attribute khác nhau nên bạn up file khung tên của bạn lên đây anh em trên diễn đàn sẽ viết code giúp bạn.
  • 1
Tất cả v́ sự phát triển của diễn đàn ...
Cám ơn đừng nói lời suông mà hăy nhấn Posted Image!

#17 antony7117

antony7117

    biết zoom

  • Members
  • Pip
  • 12 posts
Danh tiếng: 1 (b́nh thường)

Gửi vào 05 November 2010 - 01:22 PM

V́ trong block khung tên có nhiều attribute khác nhau nên bạn up file khung tên của bạn lên đây anh em trên diễn đàn sẽ viết code giúp bạn.

Cám on ban đă tra loi câu hỏi cua ḿnh. Nhưng ư của ḿnh ở đây là:
+ Chỉ copy cái Text như sau: KT: 01/30 thành KT: 02/30. hoàn toàn không nằm trong block ATT.
rất mong nhận duoc ư kiến trả lời từ bạn và các Pro trên diễn đàn
  • 0

#18 phamthanhbinh

phamthanhbinh

    biết lệnh adcenter

  • Moderator
  • PipPipPipPipPipPipPip
  • 5,304 posts
Danh tiếng: 2866 (tuyệt vời)

Gửi vào 05 November 2010 - 02:41 PM

Cám on ban đă tra loi câu hỏi cua ḿnh. Nhưng ư của ḿnh ở đây là:
+ Chỉ copy cái Text như sau: KT: 01/30 thành KT: 02/30. hoàn toàn không nằm trong block ATT.
rất mong nhận duoc ư kiến trả lời từ bạn và các Pro trên diễn đàn

Bạn chịu khó t́m kiếm một chút trên diễn đàn là có, Ngồi chờ vừa lâu mà vừa chưa chắc đă có lisp hay hơn cái có sẵn bạn à.
  • 0
Chúc các quư Anh trên diễn đàn luôn khỏe, đẻ thêm được nhiều thứ để mót.

#19 antony7117

antony7117

    biết zoom

  • Members
  • Pip
  • 12 posts
Danh tiếng: 1 (b́nh thường)

Gửi vào 05 November 2010 - 09:33 PM

Bạn chịu khó t́m kiếm một chút trên diễn đàn là có, Ngồi chờ vừa lâu mà vừa chưa chắc đă có lisp hay hơn cái có sẵn bạn à.

Ḿnh đă t́m rồi.nhưng vẫn không thấy nếu ban 'phamthanhbinh' biết th́ chỉ dùm ḿnh cái dường dẫn.Cám on bạn B́nh nhiều.
  • 0

#20 antony7117

antony7117

    biết zoom

  • Members
  • Pip
  • 12 posts
Danh tiếng: 1 (b́nh thường)

Gửi vào 05 November 2010 - 09:34 PM

Bạn chịu khó t́m kiếm một chút trên diễn đàn là có, Ngồi chờ vừa lâu mà vừa chưa chắc đă có lisp hay hơn cái có sẵn bạn à.

Ḿnh đă t́m rồi.nhưng vẫn không thấy nếu ban 'phamthanhbinh' biết th́ chỉ dùm ḿnh cái dường dẫn.Cám on bạn B́nh nhiều.
  • 0