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

whatcholingon

Thành viên
 Xem Hồ Sơ  Xem hoạt động của họ

  • Số lượng nội dung

    222

  • Đã tham gia

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

  • Ngày trúng

    6

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

  2. Đã đăng · Trả lời báo cáo

    http://www.cadviet.com/upfiles/3/96857_acad.rar

    bạn dow file này về rùi copy vào thư mục: C:\Users\AppData\Roaming\Autodesk\AutoCAD 2014\R19.1\enu\Support ( nó có hỏi đè vào file cũ khồng thì kich yes luôn, nếu cẩn thận thì move cái file cũ ra thư mục khác) sau đó khởi động cad vào lệnh hatch chọn ở mục  thẻ Predefined là có các mẫu hatch của bạn.

    mình còn gà nên chẳng pít cái file .slb của bạn là gì . nên có lẽ một số mẫu hatch sẽ không chạy được.

  10. Đã đăng · Trả lời báo cáo

    Sao phải dùng nhiều lisp thế bác sgcq? Thử bản demo này xem. Lệnh XMI là xong, block cứng đầu hay mềm đầu đều chơi hết.

    http://www.cadviet.com/upfiles/3/71162_xmi.zip

     

    Ban KangKung và mọi người có thể phá file này được không? mình tạo ra nó thử phá bằng các phương án trên mà phá chưa được.

    file: http://www.cadviet.com/upfiles/3/96857__drawing5.dwg

    Thanks!

  14. Đã đăng · Trả lời báo cáo

     

    Đây bạn!

     

    (defun c:dmla1 ( / ss)
(command "undo" "begin") (setq cmd (getvar 'cmdecho)) (setvar 'cmdecho 0)
(while (setq ent (car (entsel "\nChon doi tuong mau...")))
 (setq lay (cdr (assoc 8 (entget ent))))
 (setq ss (ssget "X" (list (cons 8 lay))))
 (command "change" ss "" "p" "c" "bylayer" "LT" "bylayer" "LW" "bylayer" ""))
 (setvar 'cmdecho cmd) (command "undo" "end")
(princ))

     

    Tuyệt vời!

    Cám ơn bạn nhiều

  15. Đã đăng · Trả lời báo cáo

     

    Sửa lại:

    

    ;; free lisp from cadviet.com
;;; this lisp was downloaded from http://www.cadviet.com/forum/topic/52484-yeu-cau-lisp-chuyen-layer-ve-thanh-bylayer/
(defun c:dmla ( / ss)
(command "undo" "begin")
(princ "\nChon cac doi tuong can thay doi...")
(setq ss (ssget))
(command "change" ss "" "p" "c" "bylayer" "LT" "bylayer" "LW" "bylayer" "" "")
(command "undo" "end")
(princ))

     

    Mr Ha có thể sửa lsp này chút được không ah?

    Hiện tại khi thực hiện lsp thì chọn đối tượng nào thì đối tượng đó được đưa về màu bylayer.

    Giờ sửa thành khi chọn đối tượng thuộc một layer nào đó rồi tất cả các đối tượng thuộc layer đó được đưa về màu bylayer.

     

    Thanks!

  18. Đã đăng · Trả lời báo cáo

    Mình nhập @ thì nó hiểu rùi ( lúc trước mình chưa tích vào ô Use wildcards)

    nhưng thực hiện được cũng chỉ là tìm từng đối tượng chứ nó không chọn toàn bộ và tách riêng ra thành 1 layer khác cho mình

    nhập tìm chữ thì nó tìm từng chữ một trong một text chữ.

    nhập tìm số nguyên thì nó tìm cả số thực lẫn số nguyên.

    bạn nhìn ở hình ảnh của mình đưa lên đó nó có 3 đối tượng riêng biệt như vậy. trong bản vẽ thì nó có nhiều đối tượng như vậy bây giờ cần phải tách từng text riêng

    text: loại đất là text chữ

    text: số nguyên là số thứ tự thửa đất

    text : số thực là diện tích của thửa đất.

    Thanks!

  20. Đã đăng · Trả lời báo cáo

    Cám ơn mọi người đã quan tâm và giúp đỡ:

    - Mình làm theo Mr Tue chỉ thì chỉ tìm được các đối tượng có dấu "." và chỉ tìm từng đối tượng một chọn tất cả các đối tượng có dấu "." thif không được còn tìm số nguyên và số thực thì mình lại không hiểu lắm nên làm không được.

    mình có nhập @ nhưng không chọn được đối tượng nào cả.

    - Còn lsp của Mr TaiNguyen79 thì mình chỉ thực hiện được lệnh lọc text chữ đưa về layer riêng (chu_so)

    còn lệnh (songuyen) thì báo lỗi sau: ; error: bad argument value: positive 0

    lệnh (chu_coso) thì thực hiện xong thì các đối tượng vẫn vậy không có thay đổi gì cả.

    Mong bạn kiểm tra lại mình.

    - Ý của Mr Ha rất hay nếu có thể đưa về 1 lệnh mà khi thực hiện Lsp hỏi cần chọn đối tượng nào thì quả là tuyệt.

    nếu có thể bạn viết luôn cho mình!

    Thanks all!

  21. Đã đăng · Trả lời báo cáo

    Chào mọi người!

    Vấn đề của mình như sau:

    Trong bản vẽ của mình có 3 đối tượng text

    1 là text chữ

    2 là text số nguyên

    3 là text số có số lẻ đằng sau

     

    3 text này giờ đang cùng 1 layer và color giờ mình muốn tách rieng 3 text này thành 3 layer riêng biệt.

    Mọi người viết giúp mình lsp sau

    Lệnh đầu tiên để tách text chữ là : LTC

    Lệnh thứ 2 để tách text số nguyên là: LTN

    Lệnh thứ 3 để tách text số có số lẻ là: LTP

     

    ây là hình minh họa của mình

    96857_h2_convent.jpg

    Mong mọi người viết giúp mình, mình đang cần gấp!

    Thanks all !

     

     

  25. Đã đăng · Trả lời báo cáo

    Hi hi. bạn có thể giải thích để biết thêm

    Mình mở cũng không dược

    Đoán người vẽ dùng CAD bản quyền gì đó , + lỗi font .không hiểu tại sao ?

     

    ;

     

    Hi hi. bạn có thể giải thích để biết thêm

    Mình mở cũng không dược

    Đoán người vẽ dùng CAD bản quyền gì đó , + lỗi font .không hiểu tại sao ?

     

    ;

    mình mở trên cad 2004 bằng DWGgateway.

    • Vote tăng 1
×