Đế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

#21 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 - 04:49 PM

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,

Với tham số zoom thì có thể lấy biến viewsize. Em đang bị bí cái là lấy tọa độ khi pan thôi Bác ạ. Bác có cách gì không chỉ em với.
  • 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!

#22 Tue_NV

Tue_NV

    KS Võ Quang Tuệ

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

Đã gửi 06 July 2012 - 06:43 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 đỡ.

Chào bạn 'ksor_phong
Có cái này có thể giúp được bạn nữa nè:

Công cụ so sánh bản vẽ
Dựa trên công nghệ GRX, công cụ so sánh bản vẽ trong GstarCAD 2011 xử lý đối tượng tùy chỉnh và đối tượng lồng nhau trong khối, đưa ra kết quả so sánh chính xác, cho thấy trong các màu sắc được xác định trước, nhờ vậy, bạn có thể xác định ngay cả những thay đổi nhỏ nhất trong các bản vẽ tương tự.
...

Link: http://www.applicadg...ietnam/gstarcad
  • 0

#23 Detailing

Detailing

    biết lệnh imageclip

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

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

Với tham số zoom thì có thể lấy biến viewsize. Em đang bị bí cái là lấy tọa độ khi pan thôi Bác ạ. Bác có cách gì không chỉ em với.

Bạn thử biến VIEWCTR xem dc ko
Good luck!
  • 0

Ideas don't matter, execution does!

1908412_308002392716743_8165279281236341


#24 NTD

NTD

    biết lệnh rotate

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

Đã gửi 06 July 2012 - 07:19 PM

em đã download bản CADStudioDWGsync.msi cho CAD 2012-2013 về chạy thử , tất nhiên là bản trial rồi
Em thấy bản trial nè chạy rất ngon trừ mỗi chỗ sau .... 3p kể từ khi ta goi lệnh DWGSYNC ( lần đầu tiên để kích hoặt phần mềm và tích vô cái ô của nó để với tính năng lăn chuột giữa up sự hiển thị cho các files ) thì CADStudio sẽ tự động tắt đi ( chưa bỏ tiền ra mua mà :D ) . Và điều này chỉ tính cho mỗi lần CAD đóng tất cả các Files rồi mở lại các Files , quy luật 3 phút miễn phí bắt đầu lại từ đầu
Nên em có ý kiến là các bác có thể viết 1 Lisp về lệnh zoom pan bình thường nhưng trong Lisp đó có gọi lệnh DWGSYNC liên tục và yes tự động , tự động kích vô các ô phía trên
Đó là cách nhìn của em , có gì mong các bác cao thủ xem xét

Em đã vô acad.pgp và đặt DWGSYNC là dấu ` ngay dưới dấu ~ ====> cũng nhanh hơn 1 chút nhưng vẫn ... thấy ức lắm :D
  • 0

#25 TRUNGNGAMY

TRUNGNGAMY

    biết lệnh block

  • Members
  • PipPipPipPipPipPip
  • 401 Bài viết
Điểm đánh giá: 91 (tàm tạm)

Đã gửi 06 July 2012 - 07:19 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.

Mình thấy cái này chỉ cần đưa tọa độ và tỷ lệ các bv trùng nhau, đổi màu cho nó khác tý sau đó insert hay xref là có thể tham khảo đc rồi. Chính xác đến từng cm Tại sao phải rắc rối vậy
  • 0

#26 NTD

NTD

    biết lệnh rotate

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

Đã gửi 06 July 2012 - 07:33 PM

Mình thấy cái này chỉ cần đưa tọa độ và tỷ lệ các bv trùng nhau, đổi màu cho nó khác tý sau đó insert hay xref là có thể tham khảo đc rồi. Chính xác đến từng cm Tại sao phải rắc rối vậy


bác phải nghĩ rộng hơn 1 chút . Nếu bác ko phải là ng vẽ như chủ topic mà là ng quản lý hồ sơ , bác phải kiểm tra ra soát các thông tin trên các bản vẽ ở các files khác nhau của các bộ môn với các bản vẽ mặt bằng kiến trúc , điện , nước , mặt bằng trần , mặt bằng sàn , mặt bằng kết cấu ....v...v..... hàng chục bản vẽ của 1 tòa nhà cao tầng do cả chục con ng vẽ trong cả chục files khác nhau
Ngược lại bác là ng vẽ thì đây là phuơng pháp bác tự mình rà soát thông tin của san phẩm mình vẽ trước khi nộp bài cho sếp hay chủ đầu tư , và cả bên thẩm tra
Tóm lại phát hiện đc sai sót hay sáng kiến nhanh hơn chính là do quan sát & nắm bắt thông tin nhanh hơn nhiếu hơn hiệu quả hơn . 40 euro cũng đúng thôi , tiết kiệm bao thời gian & tìm ra bao sai sot trong bản thiết kế , đáng tiền mà , Nhưng ...có ai ở đây dùng CAD bản quyền ko , em thì ko....... :D
  • 0

#27 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 - 07:49 PM

Bác NTD nói rất chính xác, rất đúng bệnh.
  • 0

#28 ketxu

ketxu

    Copier - Paster - Editor

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

Đã gửi 06 July 2012 - 08:15 PM

Bản cài 40 Eu kia k yêu cầu bản quyền ^^ Một số bạn dùng cách Insert soi cũng được :) Bên mình làm ra bán 20 Êu cũng ấm rồi >:)
  • 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


#29 Detailing

Detailing

    biết lệnh imageclip

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

Đã gửi 06 July 2012 - 09:18 PM

http://www.youtube.com/watch?v=vex816vfkwE

10€ / bản bác nào ủng hộ để em hoàn thiện nào. :D
  • 1

Ideas don't matter, execution does!

1908412_308002392716743_8165279281236341


#30 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 - 09:25 PM

Hoan hô bác, giỏi quá, vote cho bác 10$ (bác làm sao cho nó chạy được cả trên cad 2007 nhé, máy nhà nướ cấp toàn máy cổ lỗ sĩ).
Cám ơn các bác đã quan tâm.
  • 0

#31 NTD

NTD

    biết lệnh rotate

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

Đã gửi 06 July 2012 - 09:30 PM

Em có thêm 1 ý tưởng thế này tuy ko làm các Files khác nhau ngay lập tức pan zoom như nhau trong cùng lúc đc nhưng em thấy dù sao có còn hơn ko , có mà dùng là tốt lắm rồi
Mong các bác cao thủ viết cho 1 Lisp dựa vào lựa chọn Object của lệnh Zoom sao cho :


- Khi bất kỳ 1 File nào đó mở lên đã load tự động LISP này thì đã ..... tự động vẽ luôn 1 cái RECTANGLE đúng bằng cửa sổ Viewport tĩnh hiện thời của Model Space , mà cái RECTANGLE đó nằm trong Layer Depoint hoặc 1 Layer nào đó ko in ra ( như thế cho an toàn lúc in ấn )
- Khi cửa sổ Viewport tĩnh hiện thời của Model Space thay đổi , tức là pan zoom thay đổi thì lập tức xóa RECTANGLE cũ kia đi vẽ 1 RECTANGLE mới đúng bằng cửa sổ Viewport tĩnh hiện thời lúc kết thúc pan zoom
- Tự động gọi lệnh Zoom với tùy chọn Object và tự động chọn Object là cái RECTANGLE mới kia ==> Viewport tĩnh sẽ ko thay đổi
- Đưa con chuột sang File khác và gọi lệnh ( tên lệnh là dấu ` cho nhanh ) thì lập tức cái RECTANGLE bên File trước đó đã đc copy sang đúng tọa độ UCS quốc tế . Sau đó Tự động gọi lệnh Zoom với tùy chọn Object và tự động chọn Object là cái RECTANGLE vừa đc copy vô

==> Kết luận 2 Files mở cùng lúc sẽ có Viewport tĩnh hiện thời của Model Space so với UCS quốc tế là như nhau , Vấn đề đc giải quyết phần nào

PS :
- Em chỉ biết chém gió thôi các bác cao thủ xem xét viết giúp em
- Dù sao em vẫn muốn có LISP cho Idea trước hơn hoặc là có bác nào ... hack đc CADStudioDWGsync thì thôi rồi :D
  • 0

#32 NTD

NTD

    biết lệnh rotate

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

Đã gửi 06 July 2012 - 09:32 PM

Sặc vừa gửi port mới đã có bản 10€ rồi , hic !
  • 0

#33 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 - 09:36 PM

Hàng Việt Nam chất lượng cao, giá cạnh tranh ( bằng 1 năm BKAV), mại zô...!
  • 0

#34 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 - 09:46 PM

Em thấy video demo của bác Detailing là ngon rồi, việc đảm bảo 2 cửa sổ có cùng vị trí và tỷ lệ zoom trước khi kích hoạt lệnh ấy thì có lẽ không cần đưa vào cho khỏi rối rắm, việc này nhỏ. Vấn đề sau khi kích hoạt thì thao tác chuyển cửa sổ, zoom và pan bằng con lăn chuột mới đáng quan tâm để công cụ ấy dễ sử dụng.
Tks.!
  • 0

#35 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 - 10:47 PM

Em thấy video demo của bác Detailing là ngon rồi, việc đảm bảo 2 cửa sổ có cùng vị trí và tỷ lệ zoom trước khi kích hoạt lệnh ấy thì có lẽ không cần đưa vào cho khỏi rối rắm, việc này nhỏ. Vấn đề sau khi kích hoạt thì thao tác chuyển cửa sổ, zoom và pan bằng con lăn chuột mới đáng quan tâm để công cụ ấy dễ sử dụng.
Tks.!

Bác Phong đợi em chút em free cho bác!
  • 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!

#36 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 07 July 2012 - 06:29 AM

Cám ơn Tú, cái này để thẩm Nông thôn mới thì tuyệt đấy.
  • 0

#37 phamngoctukts

phamngoctukts

    biết lệnh adcenter

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

Đã gửi 07 July 2012 - 09:12 AM

Cám ơn Tú, cái này để thẩm Nông thôn mới thì tuyệt đấy.

Đêm qua em viết gần xong rồi. Sáng nay em bận chút chiều về em hoan thiện nốt rồi send cho Bác
  • 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!

#38 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 08 July 2012 - 09:03 AM

Help me! please!
  • 0

#39 phamngoctukts

phamngoctukts

    biết lệnh adcenter

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

Đã gửi 08 July 2012 - 10:03 AM

Help me! please!

Em đã làm xong rồi nhưng nó còn một số lỗi. Để am fix đã.
  • 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!

#40 t031285

t031285

    biết vẽ rectang

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

Đã gửi 08 July 2012 - 03:03 PM

Đêm qua em viết gần xong rồi. Sáng nay em bận chút chiều về em hoan thiện nốt rồi send cho Bác

Send riêng ah bác?Không free như lúc đầu bác nói sao?
  • 0