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

engineer0405

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

  • Số lượng nội dung

    79

  • Đã tham gia

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

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

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

    sao phần mềm này bị lỗi nhỉ
    không biết có ai lỗi như mình không nhỉ
    mình dùng trên win 7 x64
    cad 2013
    và nó có lỗi như thế này
    -bật plot.exe lên thì dù nhấn vào nút nào nó mất hình đó luôn là vào mở lại không hiện lên
    phải vào task manager tắt plot *32 mới bật lên lại đc
    -khi chọn chỉnh nét thì bị lỗi này
    12_zpsaab24024.png
    -khi chọn khung rồi preview thì trắng xóa không thấy gì cả

    -khi thì còn bị lỗi này nữa ạ

    45_zps8754ad44.png

    -sao khi dùng phần mềm này rồi trong model tất cả đều line,pline,block đều màu trắng làm sao sửa lại nhỉ

    67_zps4efee1fb.png

    anh giúp em với

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

     

    Chào bạn Engineer0405! Ý tưởng rất hay. Vote bạn.

    Còn đây là Lisp viết theo ý tưởng của bạn.

    Khi dùng chỉ cần đánh lệnh rồi chọn Viewport (chọn bao nhiêu thì tùy ý nhưng chỉ có cái đầu tiên được chia thôi). Sau đó Lisp sẽ chia viewport đó thành 2 viewport nhỏ dựa theo điểm chia (điểm này có thể chọn bất kì trên đường thẳng đứng). Chia xong Lisp sẽ chờ người sử dụng chọn tiếp Viewport khác. Nếu không chọn nữa thì bấm Space, Esc, Enter hoặc chuột phải.

    em cảm ơn anh ạ

    lisp rất đúng ý em

    chúc anh luôn may mắn ạ

    • Vote tăng 1

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

    em chào các anh ạ

    các anh viết giúp em lisp như thế này với ạ

    b1. chọn viewport cần chia

    b2.chọn điểm cần chia

    b3.viewport chọn đc chia thành 2 viewport tách rời nhau

    ví dụ như thế này ạ

    -em có 1 viewport như thế này trong layout

    1-12_zpsea345aba.png

    -sau đó chọn điểm cần chia ra

    2-16_zpsa12dc778.png

    --viewport chọn chia thành 2 viewport

    3-9_zps575433d9.png

     

    -kết quả cuối cùng

    4-9_zps291d0d89.png

    • Vote tăng 1

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

    em chào các anh ạ

    Tình hình là em mới dùng ASD

    đang mò vẽ mấy công trình nhỏ nhỏ mà thấy bên diễn đàn http://theaec.vn/ có video lisp dóng hàng rất hay nên em mạn phép nhờ các anh giúp em cái lisp như video này với ạ

    em cảm ơn các anh

    p/s: em xin post video của bên diễn đàn theaec (có gì không phải mong các anh bỏ qua cho em ạ)

     

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

    em chào các anh ạ

    các anh giúp em với

    em đang có vấn đền thế này

    khi mà em insert 1 bức ảnh vào cad thì làm sao mà chỉnh đcảnh đó ạ

    như là

    1.chỉnh chiều cao ,chiều rộng (chiều cao theo kt khác,chiều rộng theo kích thước khác)

    2.trim ảnh khi giao với 1 đường line, pline (có thể cung tròn)

    liên quan vấn đề này cho em hỏi luôn ạ

    như cái lisp scale 1 chiều thì làm sao mà khi cuối cùng mình không phải nhập vào tỷ lệ mà nhập vào kích thước cuối cùng ạ

    em cảm ơn

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

    Hay là các bạn có thể sử dụng lisp này. Viết lại 1 tý :

    (defun c:an (/ ssd dtuong)
(initget "")
(setq dtuong (getstring "\n Nhap ten doi tuong can An : / Enter de Pick chon doi tuong mau : "))
(if (= dtuong "") (setq dtuong (acet-dxf 0 (entget(car(entsel "\n Pick chon doi tuong mau :"))))))
 (if (setq ssd (ssget (list (cons 0 dtuong))))
   (acet-ss-visible (acet-ss-remove ssd (ssget "X" (list (cons 0 dtuong))  )) 1)
 )
)
;;;;;;;;
(defun c:Hien(/)
   (acet-ss-visible (ssget "X" '((60 . 1))) 0)
)

    Cách chạy :

     

    Command: an -> Gõ lệnh AN

    Nhap ten doi tuong can An : / Enter de Pick chon doi tuong mau : LINE -> Nhập tên đối tượng cần ẩn.

    Ví dụ LINE thì gõ LINE

    TEXT và MTEXT có thể gõ *TEXT hoặc gõ TEXT,MTEXT

    POLYLINE có thể gõ *POLYLINE

    Block : gõ INSERT

    DIMENSION thì gõ DIMENSION

    HATCH thì gõ HATCH

    .....

    - Nếu bạn không nhớ tên thì có thể enter để chọn 1 đối tượng mẫu

    - Chọn đối tượng cần giữ lại. Các đối tượng cùng "kiểu" với đối tượng không được chọn sẽ bị ẩn

     

    Select objects: -> Chọn đối tượng cần giữ lại

     

    Hiện lại thì gõ lệnh hien

     

    ....

     

    Chúc vui

    lisp này trả về lỗi nil

    không hiểu sao vậy anh

    em cảm ơn anh

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

    Cái này dùng acet viết rất nhanh

    Vài dòng là xong thôi

    
(defun c:andim(/ ssd)
 (if (setq ssd (ssget '((0 . "DIMENSION"))))
   (acet-ss-visible (acet-ss-remove ssd (ssget "X" '((0 . "DIMENSION")))  ) 1)
 )
)

    em chào anh Tuệ ạ

    Với lisp này nếu đổi lại yêu cầu tý thì sao ạ

    Túc là không phải ẩn đi tất cả các dim còn lại mà mình giữ lại các dim style

    Ví dụ khi mình chọn vào 1 dim thì các dim style cùng với nó được giữ lại

    ví dụ em có 4 dim style

    Dim 1-20

    Dim 1-100

    Dim 1-200

    Dim 1-500

    Khi mình chọn vào 1 dim bất kỳ (dim này là dim 1-20) thì các dim 1-20 giữ lại còn dim khác ẩn đi ạ

    em cảm ơn anh

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

    Cái này dùng acet viết rất nhanh

    Vài dòng là xong thôi

    
(defun c:andim(/ ssd)
 (if (setq ssd (ssget '((0 . "DIMENSION"))))
   (acet-ss-visible (acet-ss-remove ssd (ssget "X" '((0 . "DIMENSION")))  ) 1)
 )
)

    em cảm ơn anh nhiều ạ

    anh cho em hỏi tý nữa ạ

    cũng yêu cầu như trên mà áp dụng với text,Mtext thì lisp thế nào ạ

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

    Nếu viết bằng Express thì chắc cũng chỉ 3,4 dòng. Viết thì dễ nhưng cũng k hiểu bạn dùng làm j vậy , bật mí được hok bạn, hay tiện thể yêu cầu thôi ^^

    em cảm ơn anh đã quan tâm ạ

    anh giúp em với

    thì để thuận tiện cho quá trình vẽ thôi ạ

    với lại em cũng chuẩn bị mò mẫm autolisp nên nghiên cứu các lisp đơn giản trước ạ

    giúp em với ạ

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

    Đúng là em đã làm dụng lisp quá nhiều rồi

    nhưng giờ gấp quá nên cũng nhờ các anh viết giúp em lisp này với ạ

    Lisp với các lệnh thế này ạ:

    -Chọn vùng chọn

    -chọn dim muốn giữ lại

    Tức là chỉ giữ lại các dim style mà mình muốn giữ lại (còn các dim khác ẩn đi)

    như là bên layer có layoff,layon đấy ạ

    công việc này dùng Fi cũng ok nhưng tốn nhiều thời gian hơn

    mong các anh giúp ạ

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

    em chào các anh ạ

    các anh viết giúp em với ạ

    1.lisp thế này ạ

    -chọn vùng cần thay đổi chiều cao chữ

    -chọn chiều cao chữ

    -tất cả các text trong vùng chọn đều có cùng kích thước mình nhập (không phân biệt font chữ...)

    2.lisp như vậy ạ:

    -chọn vùng chọn

    -kick vào text cần thay đổi

    -Nhập chiều cao cần thay đổi

    Nhưng khác ở lisp này là text mà mình chọn có cùng text style mới thay đổi còn những text khác vẫn giữ nguyên

    em đang cần, mong các anh giúp ạ

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

    em cài không đc Cad 12 mấy anh chị chỉ dùm e. bấm vào install nó cứ hiện ra cái bảng này. ai g iúp dùm em. hix

    107377_noname.jpg

    BẠN MỚI CÀI LẦN ĐẦU À

    HẦU NHƯ MỌI PHIÊN BẢN 2012 VỀ SAU VÀ WIN 8 CŨNG YÊU CẦU MÁY CÓ NET FRAMEWORK 4.0 HẾT

    VÌ VẬY BẠN PHẢI CÀI VÀO MỚI CÀI ĐƯỢC CAD 2012

    BẠN LÀM NHƯ SAU

    1.NẾU NHÀ CÓ MẠNG THÌ KÍCH VÀO UPDATE, CHƯƠNG TRÌNH SẼ TỰ DOWNLOAD VỀ CÀI CHO BẠN

    2.NẾU NHÀ KHÔNG CÓ MẠNG THÌ BẠN TẢI CHƯƠNG TRÌNH NÀY VỀ CHẠY CÀI XONG KHỞI ĐỘNG MÁY VÀ CÀI CAD.THẾ LÀ XONG.HEHE

    http://download.microsoft.com/download/9/5/A/95A9616B-7A37-4AF6-BC36-D6EA96C8DAAE/dotNetFx40_Full_x86_x64.exe

    • Vote tăng 1

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

    Mình không rành nhiều về lisp nên chỉ biết viết cho bạn cái lệnh này,bạn dùng thử xem có được không

    (defun c:dmla ()
(command "undo" "begin")
(command "change" "all" "" "p" "c" "bylayer" "LT" "bylayer" "LW" "bylayer" "" "")
(command "undo" "end")
(princ)
)

    em chào anh ạ

    anh cho em nhờ tý ạ

    với lisp trên nhưng mình chỉ chọn một vùng nào đó thôi thì thêm thế nào ạ

    chứ không phải hết bản vẽ

    em cảm ơn ạ

×