Chuyển đến nội dung
Diễn đàn CADViet

ksor_phong

Thành viên
  • Số lượng nội dung

    30
  • Đã tham gia

  • Lần ghé thăm cuối

Bài đăng được đăng bởi ksor_phong


  1. 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.

    Cái này chạy rất tốt Tú à, anh chạy trên bản 2007 thấy ngon, ko bị giật. Anh đã kiểm tra tính năng khi mình sử dụng lệnh synview thì nó tự động nhảy về cùng một tỷ lệ zoom lấy theo tọa độ ID của bản vẽ vì có trường hợp muốn soi bản quy hoạch đề xuất là một xã (diện tích nhỏ) với bản tổng thể quy hoạch chung toàn thành phố (bản lớn) nhưng 2 bản này khi lấy bản nhỏ chèn vào bản lớn thì vẫn cùng tỷ lệ và tọa độ, và nó hoạt động rất tốt, không phải phàn nàn gì.

    Cám ơn em nhiều.


  2. Anh phát hiện ra một điều là sau khi khởi động lần 2 công cụ của Tú thì lệnh zoom và pan bình thường, 1 lần ăn ngay (ko phải zoom, pan 2 lần mới tính 1 nữa), rất mượt mà, nhẹ nhàng.

    Khi nào Tú vá víu gì thêm thì cho anh 1 bản nhé, anh thấy bản mới của em cơ bản là ổn rồi (anh đang dùng nó để làm việc), với nhu cầu của anh thì ko cần quá cầu kỳ, giờ làm sao cho nó auto chia đôi màn hình ra cho mình đỡ phải kéo tay, cố định luôn 1 bên thao tác, 1 bên tham chiếu và nếu có bổ xung được việc bật, tắt một con trỏ nhỏ (chỉ là dạng point) bên cửa sổ tham chiếu để khi mình rê chuột (chưa kích) bên này thì bên kia cũng rê theo thì càng dễ theo dõi, mục đích chính của công cụ này là theo dõi mà.


  3. File mới fix một số lỗi nè: http://www.cadviet.c...view_join_1.rar

    Gần được rồi Tú ơi, nó ko nháy màn hình nữa, zoom, pan trơn tru nhưng một ô cửa sổ làm việc vẫn bị mất hình, đen sì. Nghiên cứu fix nốt cho hoàn thiện nhé. Tks.!

    Nên bổ sung: Bản vẽ bên trái (bản làm việc); Bản vẽ bên phải (bản đối chiếu) hoặc tương tự thế cho dễ hiểu trong trường hợp chỉ thao tác trên 1 bản vẽ chính.


  4. Trước hết là cám ơn phamngoctukts đã quan tâm và bỏ công thực hiện công cụ này. Về cơ bản, phương pháp vận hành công cụ như vậy là trực quan và dễ sử dụng rồi, một số góp ý về hoạt động của công cụ để Tú hoàn thiện:

    (1) Màn hình nó nháy liên tục hoặc phần nhập lệnh (command ) và thanh trạng thái bên dưới nhấp nháy liên tục, như thể đang Ctrl + Tab liên tục vậy (trông như kẹt phím, trông sốt ruột :D)

    (2) Sau khi chia hình, cửa sổ bên phải (đôi khi cả hai bên) không hiện thị, nó đen sì (thử mấy phát đều không được).

    (3) Nếu hoàn thiện thêm là sau khi chia cửa sổ thì nó tự Fit đầy 2 ô cân nhau luôn thì đại tiện hơn là phải kéo chỉnh thủ công bằng tay.

    Một lần nữa cám ơn các bác, các bạn.


  5. 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.!


  6. 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.


  7. 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.


  8. 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 đỡ.

    • Vote tăng 1

  9. Bạn thử cái này xem :

    Lisp sẽ chuyển về Block về Layer hiện hành nhé. Đương nhiên là trong Block có Block

    Thử nhé :

    (defun c:CHBL(/ i ss ls nw ent curla)
    (vl-load-com)
    (setq curla (getvar "clayer"))
        (setq  i 0 ss (ssget '((0 . "INSERT"))))
        (command ".UNDO" "BE")
        (repeat (sslength ss)
            (UPWB (setq ent (ssname ss i)) )
            (setq i (1+ i))
    (vl-cmdf "change" ent "" "P" "LA" curla "") 
        )
        (command ".REGEN")
        (command ".UNDO" "E")
        (princ)
    )
    (defun  UPWB (blk /  e el s ob)
        (setq s (cdr (assoc 2 (entget blk))))
        (if (not (member s ls))
            (progn
                (setq ls (append ls (list s)))
                (setq e (cdr (assoc -2 (tblsearch "BLOCK" s))))
                (while e
                    (setq el (entget e))
                    (if (wcmatch (cdr (assoc 0 el)) "INSERT")
    		(UPWB e)
    	)
    		(vla-put-Layer (setq ob (vlax-ename->vla-object e)) curla) 
    		(vla-put-Color ob 256) 
    
                    (setq e (entnext e))  
                )
            )
        )
    )
    

    Quá tốt rồi bạn ơi, không còn gì để phàn nàn many thank


  10. Cám ơn bạn, mình thử cả một buổi chiều và kết quả thế này:

    Lips của bạn ndtnv: chạy tít, đổi màu rất ngon.

    lips của bạn Phamthanhbinh chạy tít, chuyển layer ngon.

    kết hợp cả hai lips thì đúng yêu cầu của em nhờ các bác. tuy nhiên là phải chạy lips của bạn ndtnv trước xong mới chạy lips của bạn Phamthanhbinh, làm ngược lại thì không chuyển tất về 1 layer được (lạ thế ??? )

    Cám ơn các bác nhiều, các bác có giúp em cho trót thì tổng hợp cả 2 cái thành 1 giúp em, nếu không thì em túc tắc chạy cả 2 cái cũng được.

    Một lần nữa tks các bác nhiều. :D


  11. Bạn thử lisp này xem đúng ý bạn không

    (defun  C:CoBlk (/  i ss ls)
    (princ "\n Chon Blocks doi mau thanh bylayer: ")
    (setq  i 0 ss (ssget '((0 . "INSERT"))))
    (command ".UNDO" "BE")
    (repeat (sslength ss)
    	(CoBylayer (ssname ss i))
    	(setq i (1+ i))
    )
    (command ".REGEN")
    (command ".UNDO" "E")
    (princ)
    )
    (defun  CoBylayer (blk /  e el s)
    (setq s (cdr (assoc 2 (entget blk))))
    (if (not (member s ls))
    	(progn
    		(setq ls (append ls (list s)))
    		(setq e (cdr (assoc -2 (tblsearch "BLOCK" s))))
    		(while e
    			(setq el (entget e))
    			(if (= "INSERT" (cdr (assoc 0 el)))
    				(CoBylayer e))
    			(entmod (subst (cons 62 256) (assoc 62 el) el))
    			(setq e (entnext e))
    		)
    	)
    )
    )

    Quá tốt rồi bạn ơi, chỉ còn vấn đề là làm sao chuyển tất cả về 1 layer, cho nó chỉ còn 1 layer nữa là hoàn hảo, cám ơn bạn nhiều nhiều.

    Lips thật là vĩ đại :D

×