Đến nội dung


Hình ảnh
- - - - -

Mã hóa các text trong bản vẽ


  • Please log in to reply
58 replies to this topic

#21 kts.ngocquan

kts.ngocquan

    biết vẽ ellipse

  • Members
  • PipPip
  • 59 Bài viết
Điểm đánh giá: 36 (tàm tạm)

Đã gửi 14 June 2007 - 07:28 PM

Xin chào các bạn CADVIET và chào riêng vndesperados nhé
Vấn đề bảo mật khi giao bản vẽ để đòi $ thì nó là bệnh muôn thủa của KTS rồi :ph34r: Bạn nói có thể dùng ObjectARX để làm việc đó thì làm như thế nào ? Có thể chia sẻ cho anh em đc không ? Chắc là đc thôi nhỉ :s_dead: .
Còn vấn đề gửi MAIL là ý mình muốn hỏi GỬI MAIL TRONG CAD chứ ko phải như bạn nói Cái bạn nói mình làm đc rồi Cảm ơn
  • 0

#22 Zoi

Zoi

    biết vẽ point

  • Vip
  • PipPip
  • 98 Bài viết
Điểm đánh giá: 36 (tàm tạm)

Đã gửi 16 June 2007 - 10:48 AM

cái này đã có bàn rồi mà, truớc đây Nguyễn Hoành cũng có đố mọi nguời explode cái Block mà ko được đó.

Xin thưa bà con là chỉ cần dùng lệnh MINSERT chèn cái bản vẽ đó vào 1 bản vẽ mới, với số lượng là 1,1 nhưng khoảng cách các block khác 0. Xong rồi gửi bản vẽ cho khách hàng.

Thách cụ khách hàng explode cái block đó ra được. :s_dead:)

Cách này mất công nếu có vài chục bản vẽ. Nhưng lúc đó sẽ cần đến những soft cho fép tạo SCRIPT để tự động hoá việc này. Còn vụ chuyển sang PDF thì hehe, hợp đồng đòi file CAD thì ko thể giao PDF được.
  • 0

#23 duy782006

duy782006

    PHẠM QUỐC DUY

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 2155 Bài viết
Điểm đánh giá: 1360 (rất tốt)

Đã gửi 18 June 2007 - 10:18 AM

cái này đã có bàn rồi mà, truớc đây Nguyễn Hoành cũng có đố mọi nguời explode cái Block mà ko được đó.

Xin thưa bà con là chỉ cần dùng lệnh MINSERT chèn cái bản vẽ đó vào 1 bản vẽ mới, với số lượng là 1,1 nhưng khoảng cách các block khác 0. Xong rồi gửi bản vẽ cho khách hàng.

Thách cụ khách hàng explode cái block đó ra được. :s_dead:)

Cách này mất công nếu có vài chục bản vẽ. Nhưng lúc đó sẽ cần đến những soft cho fép tạo SCRIPT để tự động hoá việc này. Còn vụ chuyển sang PDF thì hehe, hợp đồng đòi file CAD thì ko thể giao PDF được.


Mình làm thử thì ra như thế này:
Command: minsert
Block name (or ?) <BAOMAT>:
Insertion point: X scale factor <1> / Corner / XYZ:
Y scale factor (default=X):
Rotation angle <0>:

Number of rows (---) <1>: 1

Number of columns (|||) <1>: 1

Nhưng sao nó hông cho chọn files mà chỉ hỏi tên block thôi.
Mình dùng lệnh ínẻt chèn bản vẽ vào rồi dùng lệnh đó thi vẫn phá dược như thường. Minh sai chổ nào vậy. Mong bạn chỉ giúp
  • 0

Cứ ngỡ trần gian là cõi thật.Cho nên tất bật đến bây giờ.
Tạo hộp thoại bằng lisp My blog QUY ĐỊNH ĐẶT TÊN TOPIC TRONG CHUYÊN MỤC LISPD http://ktsduy.wordpress.com/
Để cám ơn chỉ cần nhấn rep_up.png
(Là nhấn vào nút đó phía bài viết của người ta í chứ đừng có nhè cái hình này mà nhấn miết đi nha :-D


#24 kts.ngocquan

kts.ngocquan

    biết vẽ ellipse

  • Members
  • PipPip
  • 59 Bài viết
Điểm đánh giá: 36 (tàm tạm)

Đã gửi 18 June 2007 - 04:48 PM

Uh nhỉ :s_dead: anh em nao hiểu rõ thì chỉ giáo đi
  • 0

#25 Nguyen Hoanh

Nguyen Hoanh

    biết lệnh adcenter

  • Moderator
  • PipPipPipPipPipPipPip
  • 4105 Bài viết
Điểm đánh giá: 4495 (đỉnh cao)

Đã gửi 18 June 2007 - 04:59 PM

- Bạn phải nhập đường dẫn đầy đủ khi máy ACAD tên block. ví dụ:
Command: minsert
Enter block name or [?] :D:\tmp\BLOCKS\WC\bt01_f.dwg
Units: Inches Conversion: 1.0000
Specify insertion point or [Basepoint/Scale/X/Y/Z/Rotate]:
Enter X scale factor, specify opposite corner, or [Corner/XYZ] <1>:
Enter Y scale factor :
Specify rotation angle <0>:
Enter number of rows (---) <1>: 2
Enter number of columns (|||) <1>: 2
Enter distance between rows or specify unit cell (---): 0
Specify distance between columns (|||): 0

- Bạn đừng nhập 'number of rows' và 'number of columns' bằng 1 vì như thế ACAD tự convert về thành block. Hãy nhập là 2, sau đó sửa lại thành 1 sau (bằng bảng lệnh Properties - Ctrl+1).
  • 1

#26 duy782006

duy782006

    PHẠM QUỐC DUY

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 2155 Bài viết
Điểm đánh giá: 1360 (rất tốt)

Đã gửi 19 June 2007 - 08:00 AM

- Bạn phải nhập đường dẫn đầy đủ khi máy ACAD tên block. ví dụ:
Command: minsert
Enter block name or [?] <bt02_f>:D:\tmp\BLOCKS\WC\bt01_f.dwg
Units: Inches Conversion: 1.0000
Specify insertion point or [Basepoint/Scale/X/Y/Z/Rotate]:
Enter X scale factor, specify opposite corner, or [Corner/XYZ] <1>:
Enter Y scale factor <use X scale factor>:
Specify rotation angle <0>:
Enter number of rows (---) <1>: 2
Enter number of columns (|||) <1>: 2
Enter distance between rows or specify unit cell (---): 0
Specify distance between columns (|||): 0

- Bạn đừng nhập 'number of rows' và 'number of columns' bằng 1 vì như thế ACAD tự convert về thành block. Hãy nhập là 2, sau đó sửa lại thành 1 sau (bằng bảng lệnh Properties - Ctrl+1).


Cám ơn bác Nguyen Hoanh em lam theo các bước trên thì được rồi nhưng có chút vấn đề.
Trên CAD 2004 thì không phá khối ra được = ổn.
TRên CAD R14 thì phá cái là được liền mà em lại dùng 14 không hà nên bác còn cách gì khác hông bày em với.
Cám ơn .
  • 0

Cứ ngỡ trần gian là cõi thật.Cho nên tất bật đến bây giờ.
Tạo hộp thoại bằng lisp My blog QUY ĐỊNH ĐẶT TÊN TOPIC TRONG CHUYÊN MỤC LISPD http://ktsduy.wordpress.com/
Để cám ơn chỉ cần nhấn rep_up.png
(Là nhấn vào nút đó phía bài viết của người ta í chứ đừng có nhè cái hình này mà nhấn miết đi nha :-D


#27 duy782006

duy782006

    PHẠM QUỐC DUY

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 2155 Bài viết
Điểm đánh giá: 1360 (rất tốt)

Đã gửi 19 June 2007 - 08:11 AM

Mà mấy File đã khóa được ở cad2+ khi lưu về cad14 thì cũng phá ra được liền. Vậy tính ra hôm trước trên diển đàn có bác nao nói dùng CADR14 là kéo lùi lịch sử thì chưa chắc đúng đâu nghen. Bà con ngiên cứu vấn đề nhiều người quan tâm này đi ai có ý gì hay thì chia sẻ cho anh em với !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  • 0

Cứ ngỡ trần gian là cõi thật.Cho nên tất bật đến bây giờ.
Tạo hộp thoại bằng lisp My blog QUY ĐỊNH ĐẶT TÊN TOPIC TRONG CHUYÊN MỤC LISPD http://ktsduy.wordpress.com/
Để cám ơn chỉ cần nhấn rep_up.png
(Là nhấn vào nút đó phía bài viết của người ta í chứ đừng có nhè cái hình này mà nhấn miết đi nha :-D


#28 bemove

bemove

    biết lệnh divide

  • Vip
  • PipPipPipPipPipPip
  • 446 Bài viết
Điểm đánh giá: 1308 (rất tốt)

Đã gửi 19 June 2007 - 05:04 PM

Tôi có cách này hơi "tiểu nhân" nhưng mà giải quyết được khâu ức chế.
- Array một đối tượng nào đấy lên khoảng 300 x 300 với khoảng cách columm và row = 0 như vậy sẽ có 90.000 (tối đa là 100.000) đối tượng trùng nhau. nếu chưa đủ nặng có thể thêm vài đối tượng nữa.
- Kết quả ta sẽ được cái gì? bản vẽ trở nên cực kỳ nặng mà khó (chứ phải không) phát hiện ra được tại sao. Mỗ lần mở mất khoảng 5-10'. Sẽ là rất ức chế với bản vẽ này.
  • 0

#29 duy782006

duy782006

    PHẠM QUỐC DUY

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 2155 Bài viết
Điểm đánh giá: 1360 (rất tốt)

Đã gửi 20 June 2007 - 08:50 AM

Tôi có cách này hơi "tiểu nhân" nhưng mà giải quyết được khâu ức chế.
- Array một đối tượng nào đấy lên khoảng 300 x 300 với khoảng cách columm và row = 0 như vậy sẽ có 90.000 (tối đa là 100.000) đối tượng trùng nhau. nếu chưa đủ nặng có thể thêm vài đối tượng nữa.
- Kết quả ta sẽ được cái gì? bản vẽ trở nên cực kỳ nặng mà khó (chứ phải không) phát hiện ra được tại sao. Mỗ lần mở mất khoảng 5-10'. Sẽ là rất ức chế với bản vẽ này.


Mô phật! Chơi kiểu gì cho nó phục chứ chơi vậy hông hay.
  • 0

Cứ ngỡ trần gian là cõi thật.Cho nên tất bật đến bây giờ.
Tạo hộp thoại bằng lisp My blog QUY ĐỊNH ĐẶT TÊN TOPIC TRONG CHUYÊN MỤC LISPD http://ktsduy.wordpress.com/
Để cám ơn chỉ cần nhấn rep_up.png
(Là nhấn vào nút đó phía bài viết của người ta í chứ đừng có nhè cái hình này mà nhấn miết đi nha :-D


#30 vndesperados

vndesperados

    biết lệnh xref

  • Members
  • PipPipPipPipPipPipPip
  • 547 Bài viết
Điểm đánh giá: 253 (khá)

Đã gửi 20 June 2007 - 10:11 AM

Có hai giải pháp đơn giản:
Thứ nhất: Can thiệp vào lệnh in để khi mỗi lần in bản vẽ ra giấy sẽ tự động in một chuỗi ký tự không cần thiết ngay chính giữa bản vẽ.
cách này gặp hạn chế là nếu in trên máy tính khác thì cũng không được
Thứ hai: Mọi người không dùng lệng MTEXT, DTEXT, hay TEXT của AutoCad nữa. Tôi sẽ viết một lệnh TEXT khác bằng ObjectArx.
Khi viết ra một chuỗi thì đó là một block mà bạn không thể dùng dùng Explode được
(Ai đã từng dùng chương trình của Hài hòa sẽ thấy trường hợp này, vi dụ như các cao độ trong một ban vẽ địa hình. Chỉ có chương trình TOPO của Hài Hòa mới đọc được thôi, còn nếu dung Ex. thì có vấn đề ngày)
Và những Text viết ra bằng ObjectArx đó sẽ được mã hóa (vd như dùng Ceasar chẳng hạn)
:s_dead:
  • 0

#31 vndesperados

vndesperados

    biết lệnh xref

  • Members
  • PipPipPipPipPipPipPip
  • 547 Bài viết
Điểm đánh giá: 253 (khá)

Đã gửi 20 June 2007 - 10:12 AM

Còn đây là ý kiến ngòai lề:
Diẫn đàn này dùng Opensource nên nhều lỗi quá. Post được một bài còn lâu hơn là viết bài.
  • 0

#32 duy782006

duy782006

    PHẠM QUỐC DUY

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 2155 Bài viết
Điểm đánh giá: 1360 (rất tốt)

Đã gửi 20 June 2007 - 10:41 AM

Có hai giải pháp đơn giản:
Thứ nhất: Can thiệp vào lệnh in để khi mỗi lần in bản vẽ ra giấy sẽ tự động in một chuỗi ký tự không cần thiết ngay chính giữa bản vẽ.
cách này gặp hạn chế là nếu in trên máy tính khác thì cũng không được
Thứ hai: Mọi người không dùng lệng MTEXT, DTEXT, hay TEXT của AutoCad nữa. Tôi sẽ viết một lệnh TEXT khác bằng ObjectArx.
Khi viết ra một chuỗi thì đó là một block mà bạn không thể dùng dùng Explode được
(Ai đã từng dùng chương trình của Hài hòa sẽ thấy trường hợp này, vi dụ như các cao độ trong một ban vẽ địa hình. Chỉ có chương trình TOPO của Hài Hòa mới đọc được thôi, còn nếu dung Ex. thì có vấn đề ngày)
Và những Text viết ra bằng ObjectArx đó sẽ được mã hóa (vd như dùng Ceasar chẳng hạn)
:s_dead:

Em đã dùng chương trình của Hài Hòa rồi (Chương trình san nền) họ làm như vậy được với cả những đối tượng khác chứ không riêng gì text. Mà nếu có cách chuyễn bản vẽ hiện có thành không sửa được thì thuận tiện hơn bác Vndesperados à.
  • 0

Cứ ngỡ trần gian là cõi thật.Cho nên tất bật đến bây giờ.
Tạo hộp thoại bằng lisp My blog QUY ĐỊNH ĐẶT TÊN TOPIC TRONG CHUYÊN MỤC LISPD http://ktsduy.wordpress.com/
Để cám ơn chỉ cần nhấn rep_up.png
(Là nhấn vào nút đó phía bài viết của người ta í chứ đừng có nhè cái hình này mà nhấn miết đi nha :-D


#33 vndesperados

vndesperados

    biết lệnh xref

  • Members
  • PipPipPipPipPipPipPip
  • 547 Bài viết
Điểm đánh giá: 253 (khá)

Đã gửi 20 June 2007 - 10:57 AM

Em đã dùng chương trình của Hài Hòa rồi (Chương trình san nền) họ làm như vậy được với cả những đối tượng khác chứ không riêng gì text. Mà nếu có cách chuyễn bản vẽ hiện có thành không sửa được thì thuận tiện hơn bác Vndesperados à.


Các đối tượng đó được tạo trực tiếp từ lúc hình thành bản vẽ bằng chương trình chứ không phải là có bản vẽ rồi mới chuyển qua đâu và thông thường đó là những đối tượng đơn giản cho phép xem mà không sữa được. Tôi biết chương trình đó viết bằng ObjectARX.
Do vậy bạn không có cách nào chuyển ngược một bản vẽ từ cái đã có sẵn rồi.
Tất nhiên cũng có thể thay đổi lại các lệnh của AutoCad bằng cách đè lệnh viết từ ObjectARX nhưng cách này không khả thi và cực...cực kỳ khó
Vậy nên giải pháp đơn giản hơn là chỉ Text thôi...
  • 0

#34 duy782006

duy782006

    PHẠM QUỐC DUY

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 2155 Bài viết
Điểm đánh giá: 1360 (rất tốt)

Đã gửi 20 June 2007 - 11:26 AM

Các đối tượng đó được tạo trực tiếp từ lúc hình thành bản vẽ bằng chương trình chứ không phải là có bản vẽ rồi mới chuyển qua đâu và thông thường đó là những đối tượng đơn giản cho phép xem mà không sữa được. Tôi biết chương trình đó viết bằng ObjectARX.
Do vậy bạn không có cách nào chuyển ngược một bản vẽ từ cái đã có sẵn rồi.
Tất nhiên cũng có thể thay đổi lại các lệnh của AutoCad bằng cách đè lệnh viết từ ObjectARX nhưng cách này không khả thi và cực...cực kỳ khó
Vậy nên giải pháp đơn giản hơn là chỉ Text thôi...


Ra là vậy. Nếu vậy bác thêm cho cái DIM được không? Cám ơn.
  • 0

Cứ ngỡ trần gian là cõi thật.Cho nên tất bật đến bây giờ.
Tạo hộp thoại bằng lisp My blog QUY ĐỊNH ĐẶT TÊN TOPIC TRONG CHUYÊN MỤC LISPD http://ktsduy.wordpress.com/
Để cám ơn chỉ cần nhấn rep_up.png
(Là nhấn vào nút đó phía bài viết của người ta í chứ đừng có nhè cái hình này mà nhấn miết đi nha :-D


#35 quynhnn

quynhnn

    biết zoom

  • Members
  • Pip
  • 15 Bài viết
Điểm đánh giá: 1 (bình thường)

Đã gửi 27 June 2007 - 12:47 PM

- Bạn phải nhập đường dẫn đầy đủ khi máy ACAD tên block. ví dụ:
Command: minsert
Enter block name or [?] <bt02_f>:D:\tmp\BLOCKS\WC\bt01_f.dwg
Units: Inches Conversion: 1.0000
Specify insertion point or [Basepoint/Scale/X/Y/Z/Rotate]:
Enter X scale factor, specify opposite corner, or [Corner/XYZ] <1>:
Enter Y scale factor <use X scale factor>:
Specify rotation angle <0>:
Enter number of rows (---) <1>: 2
Enter number of columns (|||) <1>: 2
Enter distance between rows or specify unit cell (---): 0
Specify distance between columns (|||): 0

- Bạn đừng nhập 'number of rows' và 'number of columns' bằng 1 vì như thế ACAD tự convert về thành block. Hãy nhập là 2, sau đó sửa lại thành 1 sau (bằng bảng lệnh Properties - Ctrl+1).


Không được. Mình dùng cad2005 không nổ được, nhưng lại edit được nó như bình thường
  • 0

#36 thoai_anh2000

thoai_anh2000

    Chưa sử dụng CAD

  • Members
  • Pip
  • 2 Bài viết
Điểm đánh giá: 0 (bình thường)

Đã gửi 26 July 2007 - 10:57 AM

:D

Nhờ các anh trong diễn đàn hướng dẫn & giải quyết: có cách nào mã hóa (encrypt và decrypt) các text trong bản vẽ? (từ 1 chuỗi text ta có thể cắt rời từng ký tự sau đó thay thế và mã hóa các đối tượng này). Thanks :ph34r:

:s_dead: Hii! Chào các bạn! Mình là thành viên mới vì mình cũng mới biết tới CadViệt. Mình thấy các bạn nói về Autolisp&VBA thì mình thấy rất hay và muốn được học hỏi. Mong các bạn giúp đỡ mình với nhé! Mình chưa biết gì về Autolisp&VBA cả. Thanks you :D
  • 0

#37 kotarohp84

kotarohp84

    biết zoom

  • Members
  • Pip
  • 18 Bài viết
Điểm đánh giá: 0 (bình thường)

Đã gửi 28 August 2007 - 09:27 PM

Vậy nếu in ra files ảnh thì sao nhỉ, xem và in đều được, gửi cũng nhẹ nữa :unsure:.
  • 0

#38 acad_mem

acad_mem

    biết zoom

  • Members
  • Pip
  • 12 Bài viết
Điểm đánh giá: 0 (bình thường)

Đã gửi 31 January 2008 - 12:06 PM

Nhờ các anh trong diễn đàn hướng dẫn & giải quyết: có cách nào mã hóa (encrypt và decrypt) các text trong bản vẽ? (từ 1 chuỗi text ta có thể cắt rời từng ký tự sau đó thay thế và mã hóa các đối tượng này). Thanks :)


Ặc ặc, chơi kiểu này cũng được nè:
1) Plot thành file PDF (or JPG)
2) Insert file ảnh vào file CAD.
3) Hợp đồng giao file CAD thì mình giao file CAD có chứa ảnh. Đúng hợp đồng, giải quyết vấn đề ko sửa đc.

He he, hiệu quả đấy chứ.
  • 0

#39 Theghost

Theghost

    biết dimlinear

  • Members
  • PipPipPipPipPip
  • 309 Bài viết
Điểm đánh giá: 31 (tàm tạm)

Đã gửi 31 January 2008 - 01:51 PM

Ặc ặc, chơi kiểu này cũng được nè:
1) Plot thành file PDF (or JPG)
2) Insert file ảnh vào file CAD.
3) Hợp đồng giao file CAD thì mình giao file CAD có chứa ảnh. Đúng hợp đồng, giải quyết vấn đề ko sửa đc.

He he, hiệu quả đấy chứ.

----------------
Bố có vấn đề à, hay là bố post lên theo cảm tính
Bố mà giao file như thế thì không sớm thì muộn công ty bố cũng phá sản, vì sau đó chả bao giờ nhận được cái hợp đồng nào cả
  • 0
Có khi nào trên đường đời tấp nập.Ta vô tình đi lướt qua nhau.Bước lơ đãng k0 ngờ đang để mất.Một tâm hồn ta đợi đã từ lâu

#40 acad_mem

acad_mem

    biết zoom

  • Members
  • Pip
  • 12 Bài viết
Điểm đánh giá: 0 (bình thường)

Đã gửi 31 January 2008 - 02:24 PM

----------------
Bố có vấn đề à, hay là bố post lên theo cảm tính
Bố mà giao file như thế thì không sớm thì muộn công ty bố cũng phá sản, vì sau đó chả bao giờ nhận được cái hợp đồng nào cả


Khờ khờ, hay áh, ăn nói lịch sự chút nhỉ, nhóc con bao tuổi mà gọi tui bằng bố. Tui ko thích làm bố nhóc đâu àh, cứng đầu như nhóc thì ko dám. Nóng tính như zầy thì chắc tuổi còn trẻ, tập nhịn đi nhóc. Nhóc con nhận bao công trình cần giao file CAD r mà dám nói thế hả.
  • 0