Đến nội dung


Hình ảnh
* * * - - 2 Bình chọn

[Yêu cầu lisp] Công cụ so sánh, kiểm tra 2 bản vẽ bằng mắt thường


  • Please log in to reply
148 replies to this topic

#1 ksor_phong

ksor_phong

    biết vẽ circle

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

Đã gửi 05 July 2012 - 02:30 PM

Trân trọng kính chào các bác
Em làm trong nghề thẩm định hồ sơ, bản vẽ, trong quá trình làm em phát sinh nhu cầu đối chiếu bằng mắt thường các chi tiết của 2 bản vẽ (cái này so sánh bằng máy không được mà phải bằng mắt), em đã sớt nhưng chưa có bác nào từng viết lisp này, vậy em post lên đây, kính mong các bác giúp đỡ, nội dung cụ thể như sau:
Chia đôi màn hình làm việc để cùng một lúc mở 2 bản vẽ (trái và phải), sau khi zoom về cùng một scale thì chủ yếu sẽ thao tác lệnh zoom và pan sao cho cả 2 bản vẽ thể hiện cùng một vị trí, pan thì cùng pan, zoom thì cùng zoom và khi rê chuột thì cả 2 cửa sổ chịu sự thay đổi giống nhau (scale của lệnh zoom, vị trí pan) để thuận tiện cho xem xét và đối chiếu bằng mắt thường sự thay đổi tại các vị trí khác nhau.
Có thể mở một lúc một vài bản vẽ nhưng trong lúc làm việc thì chỉ cần so sánh 2 bản vẽ với nhau, tại các cửa số sẽ Ctrl+tab để chuyển qua lại các bản vẽ, nếu tất cả các bản đang mở đều chịu ảnh hưởng của lệnh zoom và pan đó thì thật tuyệt vời)..
(Ví dụ em hay gặp nhất là một bản vẽ hiện trạng khu đất rất to và kiểm tra xem các bản vẽ khác người ta vẽ gì trên đó).
Em diễn giải hơi khó hiểu, các bác thông cảm.
Cám ơn các bác nhiều vì đã xem và giúp đỡ.
  • 1

#2 ketxu

ketxu

    Copier - Paster - Editor

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

Đã gửi 05 July 2012 - 02:40 PM

Trên mạng có tool này, và tất nhiên là có phí, cũng không viết bằng Lisp, bạn có thể GG để tìm ^^
  • 0

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


#3 ksor_phong

ksor_phong

    biết vẽ circle

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

Đã gửi 05 July 2012 - 03:15 PM

Em sớt gúc gồ rồi, không có bác ơi, chỉ có chương trình kiểm tra tự động thôi (có phí em cũng không ngại), mà tự động thì không dùng được vì nó là thiết kế mới vẽ trên nền hiện trạng cũ chứ không phải sự thay đổi, chỉnh sửa của bản vẽ.
Bác nào giúp em với, đang cấn quá.
Cám ơn các bác.
  • 0

#4 ketxu

ketxu

    Copier - Paster - Editor

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

Đã gửi 05 July 2012 - 03:33 PM

Phí là 40 Euro bạn ạ ^^ Auto synch zooming/ panning
  • 0

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


#5 ksor_phong

ksor_phong

    biết vẽ circle

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

Đã gửi 05 July 2012 - 03:37 PM

Trời đất, Euro thì chịu rồi, có bác nào giúp em mà thanh toán bằng cám ơn và cafe thì cám ơn các bác nhiều lắm.
  • 0

#6 phamngoctukts

phamngoctukts

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 1107 Bài viết
Điểm đánh giá: 696 (tốt)

Đã gửi 05 July 2012 - 11:40 PM

Trời đất, Euro thì chịu rồi, có bác nào giúp em mà thanh toán bằng cám ơn và cafe thì cám ơn các bác nhiều lắm.

Anh Phong à!
Để em nghiên cứu viết cho anh cái này.
Hì hì dạo này cái quy hoạch chung của em cũng đang gấp rút với lại phòng cũng nhiều việc em sẽ cố gắng làm cho Bác sớm.
@Tùng
Em có ý tưởng gì không để anh triển khai cho nó nhanh!
  • 0
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 Hình đã gửi!

#7 ksor_phong

ksor_phong

    biết vẽ circle

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

Đã gửi 05 July 2012 - 11:56 PM

http://www.cadstudio...n/apps/dwgsync/
Đúng là cái em cần đây, 40euro lận.
Tú ST à? Cậu cũng chơi được món này à, giỏi quá, xem cái link anh paste, anh cần đúng cái ấy đấy.
Cảm ơn cả nhà.
  • 0

#8 ketxu

ketxu

    Copier - Paster - Editor

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

Đã gửi 06 July 2012 - 12:42 AM

http://www.cadstudio...n/apps/dwgsync/
Đúng là cái em cần đây, 40euro lận.
Tú ST à? Cậu cũng chơi được món này à, giỏi quá, xem cái link anh paste, anh cần đúng cái ấy đấy.
Cảm ơn cả nhà.

Chẳng lẽ số 40 là bịa ra hay sao :T

@aTu : a định viết bằng gì ?? NET ? lisp tranform ? VBA ? VB
  • 0

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


#9 phamngoctukts

phamngoctukts

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 1107 Bài viết
Điểm đánh giá: 696 (tốt)

Đã gửi 06 July 2012 - 12:51 AM

Chẳng lẽ số 40 là bịa ra hay sao :T

@aTu : a định viết bằng gì ?? NET ? lisp tranform ? VBA ? VB

Anh viết bằng VB có lẽ cũng gần xong rồi hì hì.
  • 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 Hình đã gửi!

#10 Thaistreetz

Thaistreetz

    biết lệnh adcenter

  • Advance Member
  • PipPipPipPipPipPipPip
  • 903 Bài viết
Điểm đánh giá: 505 (tốt)

Đã gửi 06 July 2012 - 02:36 AM

cái này hay nhỉ. mình thấy có hứng thú với cái này. hôm nào rảnh ngọ ngoạy thử phát xem có viết được nó bằng lisp không :D
  • 1

Hình đã gửi
IN HIM, I TRUST. THE TRUST IN MY GOD


#11 ksor_phong

ksor_phong

    biết vẽ circle

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

Đã gửi 06 July 2012 - 08:36 AM

Cảm ơn các bác, các bạn đã quan tâm.
  • 0

#12 gia_bach

gia_bach

    biết lệnh adcenter

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

Đã gửi 06 July 2012 - 10:52 AM

cái này hay nhỉ. mình thấy có hứng thú với cái này. hôm nào rảnh ngọ ngoạy thử phát xem có viết được nó bằng lisp không :D

Cái này phải làm việc với "multi-document", mà Lisp thì mỗi phiên chỉ chạy được trên 1 bản vẽ thôi.

Trước kia tui cũng có ý tưởng viết 1 tool kiểu "link field" trên các Block-Att cho tất cả các bản vẽ đang mở.
(vd : khi thay đổi đường kính của một thanh thép F1 thì tất cả các đường kính của thép F1 trên bản vẽ đang mở đều cập nhật theo)
Hì hục với Lisp 1 thời gian mới phát hiện ra là Lisp "pótay". Đành chuyển qua .NET.

Về ý tưởng của "ksor_phong" thì cần chia đôi màn hình CAD và theo dõi các lệnh PAN và ZOOM rồi thực hiện kịch bản tương tự cho bản vẽ còn lại. Có gì sai sót các bác góp ý thêm.
  • 1

#13 hoaituoi.87

hoaituoi.87

    biết lệnh rotate

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

Đã gửi 06 July 2012 - 11:08 AM

1 ý tưởng hay.rất tiện lợi,mà bọn tây đó bán giá cắt cổ quá :(.hy vọng mấy sư huynh viết xong salle cho anh em vietnam mình dùng :wub:
  • 3
Khi ta thành công cuộc đời sẽ tha thứ cho ta tất cả!
Hình đã gửi

Skype : hoaituoi.87
Email : hoaituoi.87@gmail.com
Yahoo : pa_alucad

#14 gia_bach

gia_bach

    biết lệnh adcenter

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

Đã gửi 06 July 2012 - 11:14 AM

1 ý tưởng hay.rất tiện lợi,mà bọn tây đó bán giá cắt cổ quá :(.hy vọng mấy sư huynh viết xong salle cho anh em vietnam mình dùng :wub:

Không biết tại " bọn tây đó bán giá cắt cổ quá" hay tại chúng ta mua "bèo quá" nên chúng ta (lại chúng ta) không có cái mà dùng với giá chấp nhận được.
  • 1

#15 ketxu

ketxu

    Copier - Paster - Editor

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

Đã gửi 06 July 2012 - 11:20 AM

- Dùng Net hoặc VB bắt sự kiện kích chuột rồi gửi đến các Handle window tương ứng thì xơi được ngay mà ^^ Nói chung là không có gì khó với các cao thủ ở CV.
- Với VBA thì có khả năng tương tác với toàn bộ các bản vẽ đang mở, nên .... (?)
- Với lisp thì chắc là phải gán reactor thay đổi zoom - pan (editor) ở bản vẽ chính, truyền dữ liệu sang bản vẽ phụ - nơi có reactor var change. Cái này bác Thái lại rành

p/s : Không đi vào code nên chém gió vậy thôi, chẳng biết được hay k, khó hay dễ ^^ Dù sao vẫn mong bất kỳ ai viết thương mại hóa nó :)
Và thực sự thì 39Eu, 1 triệu hay 10 triệu cũng không thành vấn đề - nếu nó có ích cho công việc :) - VÌ vậy đó không gọi là đắt - mà vì chúng ta quen k phải bỏ tiền cho những thứ đó ^^
  • 2

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


#16 ksor_phong

ksor_phong

    biết vẽ circle

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

Đã gửi 06 July 2012 - 01:57 PM

Em nghĩ nếu có cái này có thể sử dụng vào việc vẽ mặt bằng các tầng trong khi theo dõi mặt bằng tầng 1 (nếu thao tác được cả các lệnh khác một cách bình thường), nhất là trong lĩnh vực quy hoạch, có thể theo dõi các bản vẽ trên nền hiện trạng khu đất và ngược lại...
Nói chung là đại tiện :D
Mời các cao thủ xuống núi, các bác bổ xung ý tưởng cho hoàn chỉnh. Xin cảm ơn.
  • 0

#17 ketxu

ketxu

    Copier - Paster - Editor

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

Đã gửi 06 July 2012 - 02:02 PM

Em nghĩ nếu có cái này có thể sử dụng vào việc vẽ mặt bằng các tầng trong khi theo dõi mặt bằng tầng 1 (nếu thao tác được cả các lệnh khác một cách bình thường), nhất là trong lĩnh vực quy hoạch, có thể theo dõi các bản vẽ trên nền hiện trạng khu đất và ngược lại...
Nói chung là đại tiện :D
Mời các cao thủ xuống núi, các bác bổ xung ý tưởng cho hoàn chỉnh. Xin cảm ơn.

Cái sử dụng của bác ấy, thì chia view là được mà, tự dưng bật 2 file khác nhau chi cho mệt (?)
  • 0

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


#18 ksor_phong

ksor_phong

    biết vẽ circle

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

Đã gửi 06 July 2012 - 02:25 PM

Bởi vì nó ở các file khác nhau bác ơi, mà thường là rất rộng (một vài trăm hecta) nên phải như vậy mới rà soát, đối chiếu được các vị trí. Chia view không làm được việc này bác à.
  • 0

#19 ketxu

ketxu

    Copier - Paster - Editor

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

Đã gửi 06 July 2012 - 03:17 PM

Ketxu đang nói về bài #16 cơ :)
  • 0

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


#20 gia_bach

gia_bach

    biết lệnh adcenter

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

Đã gửi 06 July 2012 - 03:34 PM

- Dùng Net hoặc VB bắt sự kiện kích chuột rồi gửi đến các Handle window tương ứng thì xơi được ngay mà ^^ Nói chung là không có gì khó với các cao thủ ở CV.
- Với VBA thì có khả năng tương tác với toàn bộ các bản vẽ đang mở, nên .... (?)
- Với lisp thì chắc là phải gán reactor thay đổi zoom - pan (editor) ở bản vẽ chính, truyền dữ liệu sang bản vẽ phụ - nơi có reactor var change. Cái này bác Thái lại rành

p/s : Không đi vào code nên chém gió vậy thôi, chẳng biết được hay k, khó hay dễ ^^ Dù sao vẫn mong bất kỳ ai viết thương mại hóa nó :)
Và thực sự thì 39Eu, 1 triệu hay 10 triệu cũng không thành vấn đề - nếu nó có ích cho công việc :) - VÌ vậy đó không gọi là đắt - mà vì chúng ta quen k phải bỏ tiền cho những thứ đó ^^

Chém gió thấy dễ ợt, nhưng bắt tay vào mới thấy dễ như ăn ớt.

Lấy các thông số của lệnh Zoom-Pan thì được rồi, nhưng user chủ yếu dùng chuột (nút giữa) để Zoom-Pan.
Các thông số khi rê chuột (PAN) và khi lăn chuột (ZOOM) hơi bị ... :mellow:

ps: với Cad2013 hình như có nhiều lựa chọn hơn,
  • 0