Đến nội dung


Hình ảnh

Nhờ cao thủ mở khóa VBA.


  • Please log in to reply
7 replies to this topic

#1 cadcad

cadcad

    biết vẽ arc

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

Đã gửi 19 December 2012 - 04:38 PM

Cứu mình với các bạn ơi mình thấy các bạn trên mạng dạy khóa bản vẽ bằng VBA hay quá mang về máy thử không ngờ khóa lun bản vẽ của mình không tài nào sửa được nữa . các bạn mở khóa giúp tui nhé cảm ơn các bạn hu hu
Bản vẽ đây các bạn ơi
http://www.mediafire...1812oh9yg4f4hkz
  • 0

#2 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 5454 Bài viết
Điểm đánh giá: 2626 (tuyệt vời)

Đã gửi 19 December 2012 - 04:47 PM

Vụ này hay à nghen!
  • 0

* Chỉ nên yêu cầu Lisp khi bạn làm việc đó mất cả ngày nhưng họ chỉ viết 1 giờ. Đừng nêu yêu cầu Lisp khi bạn chỉ làm 1 giờ nhưng bắt họ phải mất cả ngày.

* Nhờ viết lisp cũng như đi khám bệnh. Chỉ gởi căn cước và than sắp chết thì không bác sỹ nào cứu sống được.


#3 LoveLisp

LoveLisp

    biết lệnh extend

  • Members
  • PipPipPip
  • 195 Bài viết
Điểm đánh giá: 20 (tàm tạm)

Đã gửi 19 December 2012 - 05:33 PM

<p style="font: 14px/normal &quot;Helvetica Neue&quot;, Arial, Verdana, sans-serif; margin: 0px; color: rgb(34, 34, 34); text-transform: none; text-indent: 0px; letter-spacing: normal; word-spacing: 0px; white-space: normal; orphans: 2; widows: 2; font-size-adjust: none; font-stretch: normal; -webkit-text-size-adjust: auto; -webkit-text-stroke-width: 0px;">Mô tả hiện tượng như sau:</p>
<p style="font: 14px/normal &quot;Helvetica Neue&quot;, Arial, Verdana, sans-serif; margin: 0px; color: rgb(34, 34, 34); text-transform: none; text-indent: 0px; letter-spacing: normal; word-spacing: 0px; white-space: normal; orphans: 2; widows: 2; font-size-adjust: none; font-stretch: normal; -webkit-text-size-adjust: auto; -webkit-text-stroke-width: 0px;">Khi mở bản vẽ thì xác nhận load macro:</p>
<p style="font: 14px/normal &quot;Helvetica Neue&quot;, Arial, Verdana, sans-serif; margin: 0px; color: rgb(34, 34, 34); text-transform: none; text-indent: 0px; letter-spacing: normal; word-spacing: 0px; white-space: normal; orphans: 2; widows: 2; font-size-adjust: none; font-stretch: normal; -webkit-text-size-adjust: auto; -webkit-text-stroke-width: 0px;">- Nếu không đồng ý: Mở bản vẽ lên không thấy gì, dù vẫn có 2367 đối tượng (gồm nhiều loại) trong Model.</p>
<p style="font: 14px/normal &quot;Helvetica Neue&quot;, Arial, Verdana, sans-serif; margin: 0px; color: rgb(34, 34, 34); text-transform: none; text-indent: 0px; letter-spacing: normal; word-spacing: 0px; white-space: normal; orphans: 2; widows: 2; font-size-adjust: none; font-stretch: normal; -webkit-text-size-adjust: auto; -webkit-text-stroke-width: 0px;">- Nếu đồng ý:</p>
<p style="font: 14px/normal &quot;Helvetica Neue&quot;, Arial, Verdana, sans-serif; margin: 0px; color: rgb(34, 34, 34); text-transform: none; text-indent: 0px; letter-spacing: normal; word-spacing: 0px; white-space: normal; orphans: 2; widows: 2; font-size-adjust: none; font-stretch: normal; -webkit-text-size-adjust: auto; -webkit-text-stroke-width: 0px;"><span style="font: 14px/normal &quot;Helvetica Neue&quot;, Arial, Verdana, sans-serif; color: rgb(34, 34, 34); text-transform: none; text-indent: 0px; letter-spacing: normal; word-spacing: 0px; float: none; display: inline !important; white-space: normal; orphans: 2; widows: 2; font-size-adjust: none; font-stretch: normal; background-color: rgb(255, 255, 255); -webkit-text-size-adjust: auto; -webkit-text-stroke-width: 0px;"> + Vô hiệu tất cả các lệnh Draw và Modify (zoom, pan và plot vẫn dùng bthường).</span></p>
<p style="font: 14px/normal &quot;Helvetica Neue&quot;, Arial, Verdana, sans-serif; margin: 0px; color: rgb(34, 34, 34); text-transform: none; text-indent: 0px; letter-spacing: normal; word-spacing: 0px; white-space: normal; orphans: 2; widows: 2; font-size-adjust: none; font-stretch: normal; -webkit-text-size-adjust: auto; -webkit-text-stroke-width: 0px;"><span style="font: 14px/normal &quot;Helvetica Neue&quot;, Arial, Verdana, sans-serif; color: rgb(34, 34, 34); text-transform: none; text-indent: 0px; letter-spacing: normal; word-spacing: 0px; float: none; display: inline !important; white-space: normal; orphans: 2; widows: 2; font-size-adjust: none; font-stretch: normal; background-color: rgb(255, 255, 255); -webkit-text-size-adjust: auto; -webkit-text-stroke-width: 0px;"><span style="font: 14px/normal &quot;Helvetica Neue&quot;, Arial, Verdana, sans-serif; color: rgb(34, 34, 34); text-transform: none; text-indent: 0px; letter-spacing: normal; word-spacing: 0px; float: none; display: inline !important; white-space: normal; orphans: 2; widows: 2; font-size-adjust: none; font-stretch: normal; background-color: rgb(255, 255, 255); -webkit-text-size-adjust: auto; -webkit-text-stroke-width: 0px;"> + </span></span>Tự động hủy khi người dùng chọn bất kỳ đối tượng nào.</p>
<p style="font: 14px/normal &quot;Helvetica Neue&quot;, Arial, Verdana, sans-serif; margin: 0px; color: rgb(34, 34, 34); text-transform: none; text-indent: 0px; letter-spacing: normal; word-spacing: 0px; white-space: normal; orphans: 2; widows: 2; font-size-adjust: none; font-stretch: normal; -webkit-text-size-adjust: auto; -webkit-text-stroke-width: 0px;"><span style="font: 14px/normal &quot;Helvetica Neue&quot;, Arial, Verdana, sans-serif; color: rgb(34, 34, 34); text-transform: none; text-indent: 0px; letter-spacing: normal; word-spacing: 0px; float: none; display: inline !important; white-space: normal; orphans: 2; widows: 2; font-size-adjust: none; font-stretch: normal; background-color: rgb(255, 255, 255); -webkit-text-size-adjust: auto; -webkit-text-stroke-width: 0px;"><span style="font: 14px/normal &quot;Helvetica Neue&quot;, Arial, Verdana, sans-serif; color: rgb(34, 34, 34); text-transform: none; text-indent: 0px; letter-spacing: normal; word-spacing: 0px; float: none; display: inline !important; white-space: normal; orphans: 2; widows: 2; font-size-adjust: none; font-stretch: normal; background-color: rgb(255, 255, 255); -webkit-text-size-adjust: auto; -webkit-text-stroke-width: 0px;"> + </span></span>Không cho phép thực thi lệnh &quot;Flatten&quot;</p>
<p style="font: 14px/normal &quot;Helvetica Neue&quot;, Arial, Verdana, sans-serif; margin: 0px; color: rgb(34, 34, 34); text-transform: none; text-indent: 0px; letter-spacing: normal; word-spacing: 0px; white-space: normal; orphans: 2; widows: 2; font-size-adjust: none; font-stretch: normal; -webkit-text-size-adjust: auto; -webkit-text-stroke-width: 0px;"> + Nếu lưu thành file DXF thì chỉ được nội dung thế này:<span style="display: none;"> <span></span></span></p>
<p style="font: 14px/normal &quot;Helvetica Neue&quot;, Arial, Verdana, sans-serif; margin: 0px; color: rgb(34, 34, 34); text-transform: none; text-indent: 0px; letter-spacing: normal; word-spacing: 0px; white-space: normal; orphans: 2; widows: 2; font-size-adjust: none; font-stretch: normal; -webkit-text-size-adjust: auto; -webkit-text-stroke-width: 0px;"> 0<br />
SECTION<br />
2<br />
HEADER<br />
.. nghiên cứu tiếp..., vụ này hay thật!!!</p>

  • 1

#4 LoveLisp

LoveLisp

    biết lệnh extend

  • Members
  • PipPipPip
  • 195 Bài viết
Điểm đánh giá: 20 (tàm tạm)

Đã gửi 19 December 2012 - 05:35 PM

úi, bài viết của mình ở trên làm sao vậy???
  • 0

#5 ketxu

ketxu

    Copier - Paster - Editor

  • Moderator
  • PipPipPipPipPipPipPip
  • 5685 Bài viết
Điểm đánh giá: 2606 (tuyệt vời)

Đã gửi 19 December 2012 - 09:30 PM

Cái này có nhiều bài viết hướng dẫn rồi mà :o (chưa mở, chém gió, tí sẽ mở ^^)
Đây bạn, code nhìn quen quen, giống cái ngày xưa mình viết ^^
http://www.cadviet.c...67_khoa_vba.dwg
  • 1

Thành viên nhóm CadMagic.
Mời bạn ghé thăm facebook nhóm - Page viết lisp theo yêu cầu  :
CAD MAGIC


#6 cadcad

cadcad

    biết vẽ arc

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

Đã gửi 20 December 2012 - 07:45 AM

uh cảm ơn bạn nhé mở dc rồi.
  • 0

#7 cadcad

cadcad

    biết vẽ arc

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

Đã gửi 22 December 2012 - 04:45 PM

Cái này có nhiều bài viết hướng dẫn rồi mà :o (chưa mở, chém gió, tí sẽ mở ^^)
Đây bạn, code nhìn quen quen, giống cái ngày xưa mình viết ^^
http://www.cadviet.c...67_khoa_vba.dwg


uh cảm ơn bạn nhé mở dc rồi.
  • 0

#8 dung1206

dung1206

    Chưa sử dụng CAD

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

Đã gửi 03 March 2014 - 03:17 PM

uh cảm ơn bạn nhé mở dc rồi.

bạn ơi mở như thế nào vậy chỉ mình với.


  • 0