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

#121 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 11 July 2012 - 02:59 PM

Mình tặng bạn 1 bản dùng ở nhà trong inbox nhé, cái ở công ty bạn thì nói công ty ủng hộ mình vài bản nếu thấy cần nhe. Bạn chú ý load 1 lần đầu tiên thôi nhé, những lần sau nó sẽ tự load, khi nào ko cần tự load nữa thì dùng lệnh UnRegSyncView để gở ra Thanks! ps: Update link Update thêm cái thanh chỉ trạng thái và master drawing, nó luôn nằm trên master drawing. cứ click vào cái nào click dc :D để thấy nó có thể làm dc gì Fix lỗi trong lệnh SyncViewport


Em sẽ là khách hàng thứ 1 mua chương trình này của Detailing Group , là chính em chứ ko phải cty em , đợi đến được bao h , tán sếp đến bao h mới mua cho , mấy thằng sếp Hàn Quốc vắt cổ chày ra nước , viết giấy xin mua cái màn hình mới thay cái đang có vấn đề còn đợi nửa năm sau mới đc toại nguyện. Bọn đấy nó đâu cần biết em làm = công cụ gì . miễn là làm đúng tiến độ chuẩn chuyên môn ít phải sửa là ok. Nó sang Viêt Nam 1 trong những cái nó sướng nhất là dân VN giỏi PC lại dùng hàng chùa nên nó đỡ tốn tiền bản quyền , h bác bảo em tán nó mua cho em dùng ư , em đâu có dại :D
Bác nhớ ghi rõ vào phần quảng cáo bàn hàng nhé : là chính em NTD 1 ng Viêt Nam là ng đầu tiên mua chứ ko phải cty em :D
Bỏ ra 250k để khác người nào :D . Mà em vô http://vnstructurede...ress.com/281-2/ , chẳng biết làm sao liên hệ để gủi tiền đặt hàng ? ko tài khoản , ko đia chỉ , ko ai đại diện , ko bảo hành , ko 1 dấu hiệu sẽ up bản vá lỗi , ko dich vụ bảo trì tư vần nếu như em 2 tháng nữa muốn đi khỏi cty thì sẽ mang cái chương trình đó đi bằng cách nào , tài sản em mua rồi để lại cho ng khác dùng sao ? Em mua để dùng đến khi về hưu mang theo cho thằng con trai cơ mà :D. Bác nên xem lại vấn đề dich vụ , em nói nghiêm túc đó
  • 0

#122 Detailing

Detailing

    biết lệnh imageclip

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

Đã gửi 11 July 2012 - 03:01 PM

Thế này fải không?
(vlax-for dwg (vla-get-documents (vlax-get-acad-object))
(vlax-invoke-method (vla-get-modelspace dwg) 'addline (vlax-3d-point '(0 0 0)) (vlax-3d-point '(1 1 0))))

Chính xác là hàm này. chỉ có điều nó vẽ luôn cả vào current document :D
p/s: Bạn nào test dùm xem CAD 2010 64 bits hàm (vlax-get-acad-object) có work ko nhe - đã load (vl-load-com) rồi
Thanks!
  • 0

Ideas don't matter, execution does!

1908412_308002392716743_8165279281236341


#123 Detailing

Detailing

    biết lệnh imageclip

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

Đã gửi 11 July 2012 - 03:14 PM


Em sẽ là khách hàng thứ 1 mua chương trình này của Detailing Group , là chính em chứ ko phải cty em , đợi đến được bao h , tán sếp đến bao h mới mua cho , mấy thằng sếp Hàn Quốc vắt cổ chày ra nước , viết giấy xin mua cái màn hình mới thay cái đang có vấn đề còn đợi nửa năm sau mới đc toại nguyện. Bọn đấy nó đâu cần biết em làm = công cu gì . miễn là làm đúng tiến độ chuẩn chuyên môn ít phải sửa là ok. Nó sang Viêt Nam 1 trong những cái nó sướng nhất là dân VN giỏi PC lại dùng hàng chùa nên nó đỡ tốn tiền bản quyền , h bác bảo em tán nó mua cho em dùng ư , em đâu có dại :D
Bác nhớ ghi rõ vào phần quảng cáo bàn hàng nhé : là chính em NTD 1 ng Viêt Nam là ng đầu tiên mua chứ ko phải cty em :D
Bỏ ra 250k để khác người nào :D . Mà em vô http://vnstructurede...ress.com/281-2/ , chẳng biết làm sao liên hệ để gủi tiền đặt hàng ? ko tài khoản , ko đia chỉ , ko ai đại diện , ko bảo hành , ko 1 dấu hiệu sẽ up bản vá lỗi , ko dich vụ bảo trì tư vần nếu như em 2 tháng nữa muốn đi khỏi cty thì sẽ mang cái chương trình đó đi bằng cách nào , tài sản em mua rồi để lại cho ng khác dùng sao ? Em mua để dùng đến khi về hưu mang theo cho thằng con trai cơ mà :D. Bác nên xem lại vấn đề dich vụ , em nói nghiêm túc đó

hehe, như em đã nói, em ko chuyên bán, cái chú ý chỉ là chú ý thôi vì biết đâu 1 ngày đẹp trời nào đó em bỏ nghề thì các bạn lại nói em lừa gạt này nọ. Quan trọng là cái tâm thôi bạn cái chữ để xem cho yên tâm ng mua thôi :D (bảo đảm mà ko làm thì ng mua ko vui - ko bảo đảm mà làm thì họ lại vui :D)
Vả lại bạn nào thấy cái nào đáp ứng nhu cầu thì mua, chưa đáp ứng dc thì đợi khi nào thấy dc thì mua chứ đâu ai mua rồi đợi update :D
sống thì: PHẢI, THẬT, NHẪN, TÂM . Đừng bỏ mấy dấu phẩy nhé :D
p/s: nếu bạn nào muốn mua sẽ thấy chữ About us để liên hệ :)
  • 0

Ideas don't matter, execution does!

1908412_308002392716743_8165279281236341


#124 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 11 July 2012 - 03:20 PM

http://vnstructurede...ress.com/about/ đây là bác à ? Vũ Việt 0942.010.999 . Em thanh toán tiền bằng nhắn tin guire tiền vô tai khoản mobile của bác à ? :D
  • 0

#125 Thaistreetz

Thaistreetz

    biết lệnh adcenter

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

Đã gửi 11 July 2012 - 03:25 PM

Chính xác là hàm này. chỉ có điều nó vẽ luôn cả vào current document :D

Vậy thì thêm cái này để kiểm tra điều kiện. (= (vla-get-active dwg) :vlax-false)
Nói chung là chỉ cần lấy ra đúng document mình muốn. sau đó có thể thao tác với nó bình thường từ active document. tất nhiên có thể có những công việc chỉ áp dụng với active document, đành rút kinh nghiệm từ từ thôi.
  • 0

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


#126 Detailing

Detailing

    biết lệnh imageclip

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

Đã gửi 11 July 2012 - 03:45 PM

http://vnstructurede...ress.com/about/ đây là bác à ? Vũ Việt 0942.010.999 . Em thanh toán tiền bằng nhắn tin guire tiền vô tai khoản mobile của bác à ? :D

Ôi, cái email ở trên đó bạn
dưới chữ ký của mình cũng có 1 cái nữa, là đây: VNstructureDetailing@gmail.com
Mà bạn sử dụng OK chưa mà mua, với lại mình vẫn đang hoàn thiện thêm mà :D
lỡ mai hay mốt bận quá lại thôi ko làm nữa thì sao?
hehe, bạn hãy chờ khi nào thấy nó đáp ứng nhu cầu của bạn (so với 10 euro) đã hãy mua.
Thanks!
  • 0

Ideas don't matter, execution does!

1908412_308002392716743_8165279281236341


#127 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 11 July 2012 - 04:22 PM

em ở Hà Nội , bác cách Hà Nội hơn 1000km , mail qua mail lại hay mobile thì làm cái gì , sao ko cho số tài khỏan , tiền gửi xong chương trinh gửi đến, xong , thiếu sót gì em góp ý luôn tại topic nè bác sống có tâm thì Fix lỗi up lại cho em , vậy thôi , Việc cty đang cần dùng cái nè gấp , cơ hội để ai đc lựa chọn , em hay thằng khác , bác hiểu ý em chứ , nhưng về nhà là ko làm việc cty , chỉ có đánh quả lẻ đó là nguyên tắc, bác để lâu ko cho số tài khoản, em mất cơ hội , bực lên giỗi tự ... viết lấy dùng :D , ko đc thì đợi bác Tú tìm tòi đua đòi = bác
  • 0

#128 phamngoctukts

phamngoctukts

    biết lệnh adcenter

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

Đã gửi 11 July 2012 - 04:48 PM

em ở Hà Nội , bác cách Hà Nội hơn 1000km , mail qua mail lại hay mobile thì làm cái gì , sao ko cho số tài khỏan , tiền gửi xong chương trinh gửi đến, xong , thiếu sót gì em góp ý luôn tại topic nè bác sống có tâm thì Fix lỗi up lại cho em , vậy thôi , Việc cty đang cần dùng cái nè gấp , cơ hội để ai đc lựa chọn , em hay thằng khác , bác hiểu ý em chứ , nhưng về nhà là ko làm việc cty , chỉ có đánh quả lẻ đó là nguyên tắc, bác để lâu ko cho số tài khoản, em mất cơ hội , bực lên giỗi tự ... viết lấy dùng :D , ko đc thì đợi bác Tú tìm tòi đua đòi = bác

:D Bạn không phải đợi đâu vì mình không có ý định phát triển chương trình này. Cái này mình viết riêng cho chủ topic nhưng thấy mọi người cần nên mình share lên đây thôi. Chủ topic chỉ yêu cầu đến thế nên mình chỉ dừng tại đây không phát triển thêm mà chỉ chỉnh sửa sao cho nó chạy mượt hơn là được.
@ mọi người cho hỏi trong menu window -> title verically để điều khiển nó bằng code lisp, VBA, vb.net thì phải làm thế nào.
  • 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!

#129 ketxu

ketxu

    Copier - Paster - Editor

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

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

@ mọi người cho hỏi trong menu window -> title verically để điều khiển nó bằng code lisp, VBA, vb.net thì phải làm thế nào.

Dễ nhất là sendcommand syswindows
  • 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


#130 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 11 July 2012 - 05:19 PM

Bác Tú này bao nhiêu cái cần cho cái ứng duing này em đã phân tích thì chẳng viết cứ đi hỏi mãi cái title verically này từ hôm qua bác ko cần làm chỗ đấy cũng đc , chăng nhẽ ng dùng như em & bác Phong ko biêt ấn Alt+W+T sao ? Bác Phong chỉ nhìn ra vấn đề trong phạm vi công việc của bác ý , ko nghĩ đây là 1 cơ hội tốt để phát triển 1 phương pháp mà bác ý sẽ thay đổi cách vẽ cũ như em . Em yêu câu bác Detailing viết SyncViewport - Relative Sync, bác ý đã làm đc , ==> mở ra 1 phương pháp dựng hình hình hoc hoa hình mà hinh chiếu bằng & chiếu đứng có thể nằm bất kỳ đâu mà vẫn kiểm soát đc thông tin qua lại , bác cũng là KTS sao ko thấy hứng thú với SyncViewport - Relative nhỉ hay bác chưa test thử của bác Detailing
  • 0

#131 nataca

nataca

    biết lệnh adcenter

  • Members
  • PipPipPipPipPipPipPip
  • 712 Bài viết
Điểm đánh giá: 553 (tốt)

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

bạn có thể nhận được ứng dụng này free nếu bạn có 1 trong các điều kiện sau:
- Bạn đã có tối thiểu 150 bài viết trên cadviet + tối thiểu 20 thank (hay like hay danh tiếng gì gì đó)
- Bạn có tối thiêu 50 thank
- Bạn là thành viên thường xuyên của box autolisp và đã post ít nhất 1 lisp hoặc 1 ứng dụng của bạn viết cho mọi người.
- Khi nào các bác phamngoctukts Detailing free ứng dụng trên, hoặc có 1 ứng dụng tương tự được post free.
Và điều kiện cuối cùng là bắt buộc: like cho mình 1fát vào bài này lấy danh tiếng, mất gì đâu :P

@Thaistreetz: Thế còn đối với nataca thì sao? (Dạo này bận nhiều việc quá, có mấy ý tưởng hay mà chưa thực hiện được).

Thấy các bác rôm rả quá em xin phép spam tý cho vui. Do đặc thù công việc bây giờ không chuyên môn sâu về cad nên em ít tham gia bàn luận về lập trình. Tuy nhiên, thi thoảng em vẫn ghé qua thăm diễn đàn, tìm hiểu đôi chút về ObjectArx, .Net, thấy muốn học quá. Tranh thủ cuối tuần là thử cài VS2008, rồi lại chuyển qua VS2010 cho đỡ nhọc vụ cài SP1 (của VS2008), chọn C#.net để vọc, thấy nhọc nhất là quá trình test code cứ phải đợi thằng ku Cad restart (Cad2012). Thế mới biết con đẻ (lisp) sướng hơn nhiều. .Net là công nghệ của tương lai, khả năng lập trình rộng nên sẽ tiếp cận dần dần, học mót được của các bác càng nhiều càng tốt, còn trước mắt nếu ứng dụng nào nằm trong khả năng lisp thì chắc là em vẫn dùng lisp. Em thấy lisp đáp ứng được 80% ý tưởng của mình.
Còn nói về công cụ so sánh này thì em lại nghĩ thêm một ý: nếu thêm được tính năng syncview theo đối tượng hoặc chi tiết nữa thì hay (sẽ hữu ích khi kiểm tra đồng thời Bình đồ - trắc dọc - trắc ngang của 1 cọc trong thiết kế đường). Các bác thử xem sao
  • 0

#132 Thaistreetz

Thaistreetz

    biết lệnh adcenter

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

Đã gửi 11 July 2012 - 07:47 PM

Oh, Send luôn vào email rồi nhé.

Còn nói về công cụ so sánh này thì em lại nghĩ thêm một ý: nếu thêm được tính năng syncview theo đối tượng hoặc chi tiết nữa thì hay (sẽ hữu ích khi kiểm tra đồng thời Bình đồ - trắc dọc - trắc ngang của 1 cọc trong thiết kế đường). Các bác thử xem sao

Cái này thì lôi project của tớ ra đi. trong đó lệnh HN bao gồm luôn chức năng duyệt Trắc dọc - Trắc ngang - Bình đồ đồng thời rồi đó thôi. hướng dẫn sử dụng tớ viết kèm luôn trong mail ấy.
  • 2

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


#133 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 11 July 2012 - 10:58 PM

Oh, Send luôn vào email rồi nhé.


Cái này thì lôi project của tớ ra đi. trong đó lệnh HN bao gồm luôn chức năng duyệt Trắc dọc - Trắc ngang - Bình đồ đồng thời rồi đó thôi. hướng dẫn sử dụng tớ viết kèm luôn trong mail ấy.

Bác Thai có thể gởi cho mình một bản, biết đâu may mắn mình có thể chuyển qua arx. mail của mình là trungngamy@yahoo.com. Cám ơn bác
  • 0

#134 Detailing

Detailing

    biết lệnh imageclip

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

Đã gửi 12 July 2012 - 03:50 PM

Mình post cái clip finally mời các bạn tham khảo
http://www.youtube.com/watch?v=Lv0fkXojqoE

p/s: Xin chân thành cảm ơn bác Thaistretz về đoạn code đã gửi. Mình sử dụng cách tương tự như vậy. Bác vào xem thử cho em ý kiến nhe.
Thanks!
  • 3

Ideas don't matter, execution does!

1908412_308002392716743_8165279281236341


#135 Thaistreetz

Thaistreetz

    biết lệnh adcenter

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

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

Còn ý kiến gì được nữa đây trời! Sản phẩm của bạn như vậy là hoàn hảo quá rồi, hơn đứt thằng 40 Euro kia :D

Mình cũng vừa nghĩ ra phương pháp cho phép chọn các bản vẽ cần đồng bộ với lisp của mình chứ không 1 phát chơi tất nữa. Chưa kịp thử thì bạn đã kết hợp thành công rồi, phục quá thể!

PS: Sau khi hoàn thiện vài hạn chế so với code trước, giờ thì lisp của mình cũng hơn đứt thằng 40 Euro nữa. hê hê!
  • 0

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


#136 phamngoctukts

phamngoctukts

    biết lệnh adcenter

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

Đã gửi 12 July 2012 - 07:22 PM

Mình post cái clip finally mời các bạn tham khảo
http://www.youtube.com/watch?v=Lv0fkXojqoE

p/s: Xin chân thành cảm ơn bác Thaistretz về đoạn code đã gửi. Mình sử dụng cách tương tự như vậy. Bác vào xem thử cho em ý kiến nhe.
Thanks!

Bản này không có trial hả Bác
  • 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!

#137 Detailing

Detailing

    biết lệnh imageclip

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

Đã gửi 12 July 2012 - 08:37 PM

Bản này không có trial hả Bác

Link cũ đó bạn : http://www.mediafire.../?9e1o6wgq6ti2d bản v1.1.
p/s: bạn NTD check mail google nha.
Thanks!
  • 0

Ideas don't matter, execution does!

1908412_308002392716743_8165279281236341


#138 phamngoctukts

phamngoctukts

    biết lệnh adcenter

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

Đã gửi 20 July 2012 - 12:34 AM

Mình mới nghiên cứu Autocad.net build thử bản này cho các bạn test thử.
http://www.cadviet.c...asslibrary1.rar
Mình build từ Cad 2007 chạy trên cad 2007 thì không mượt lắm nhưng chạy trên cad 2010 thì lại mượt (Đếch hiểu được).
PS: Lênh là syncview, unsyncview.
  • 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!

#139 Detailing

Detailing

    biết lệnh imageclip

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

Đã gửi 20 July 2012 - 08:48 AM

Mình mới nghiên cứu Autocad.net build thử bản này cho các bạn test thử.
http://www.cadviet.c...asslibrary1.rar
Mình build từ Cad 2007 chạy trên cad 2007 thì không mượt lắm nhưng chạy trên cad 2010 thì lại mượt (Đếch hiểu được).
PS: Lênh là syncview, unsyncview.

phamngoctukts vẫn còn quan tâm vấn đề này àh, mình up cái clip thêm 1 tính năng mới bạn tham khảo thử xem sao. thêm cái con trỏ bên các view khác (cái circle màu vàng trong clip. chương trình record màn hình nó ko bắt kịp nên thấy nó ko mượt lắm.
http://www.youtube.com/watch?v=H9t2VgGf0wM
  • 0

Ideas don't matter, execution does!

1908412_308002392716743_8165279281236341


#140 phamngoctukts

phamngoctukts

    biết lệnh adcenter

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

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

phamngoctukts vẫn còn quan tâm vấn đề này àh, mình up cái clip thêm 1 tính năng mới bạn tham khảo thử xem sao. thêm cái con trỏ bên các view khác (cái circle màu đỏ trong clip. chương trình record nó ko bắt kịp nên thấy nó ko mượt lắm.

Mình nghiên cứu cái này là để học autocad.net thôi. Nghiên cứu rồi mới thấy nó hay nhưng chỉ ức chế mỗi cái là lúc test cứ phải tắt đi bật lại (cái này thua xa late binding).
Cái video mờ quá trả nhìn thấy con chỏ bên kia đâu cả.
  • 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!