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

Nghia_XD

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

  • Số lượng nội dung

    72

  • Đã tham gia

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

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

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

    Autocad mặc định cái nào vẽ sau sẽ "đè" lên cái trước! Hình của anh không cần dùng lisp vẫn thực hiện được. Vấn đề là anh xem lại cách chọn điểm dim. Anh có thể đưa ra thí dụ khác được không?

     

    như thế này chắc là anh hiểu ý em. chọn điểm dim thì em hiểu nhưng trong trường hợp như thế này cơ.

    http://www.cadviet.com/upfiles/3/mau_2.jpg

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

    anh em cho mình hỏi tí nha.mình đang xài Cad 07.tự dưng đang xài thì bị lỗi khi di chuyển chuột,mình bầm ctrl+G để hiển thị grid thì thấy con chuột của mình di chuyển theo từng điểm trên grid,bây giờ làm thế nào để chỉnh lại cho con chuột không phải di chuyển phụ thuộc vào grid nữa...vì như vậy lúc chọn đối tượng rất khó khắn.mong anh em có kinh nghiệm chỉ giúp mình với...Thanks

    ban tắt chế độ snap đi là ok.

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

    các bác ơi giúp em với, em bị mất một số lệnh trong cad như line, move,quit...... em dã dùng acad.lsp, cvav 101.lsp, nhưng chỉ được thời

    gian đầu, bây giờ em dùng các lsp đấy nhưng vẫn không được các bác biết chỉ giúp em với, em xin chân thành cảm ơn.

    của bạn đây. chịu khó tìm đi bạn

    http://www.cadviet.com/forum/index.php?showtopic=9088

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

    ok, lisp vẽ đâu hết rồi. bạn dùng líp này đi

     

    (defun c:FTD (/ ss ent str entdata)

    (vl-load-com)

    (princ "\n Chon duong kich thuoc :")

    (if (setq ss (ssget '((0 . "DIMENSION"))))

    (foreach ent (vl-remove-if 'listp (mapcar 'cadr (ssnamex ss)))

    (setq str (TextDimension ent)

    entdata (entget ent)

    entdata (subst (cons 1 str) (assoc 1 entdata) entdata)

    )

    (entmod entdata)

    )

    (princ "\nKhong phai duong kich thuoc!"))

    (princ))

     

    (defun TextDimension (dim / str)

    (setq str "")

    (vlax-for item

    (vla-item (vla-get-blocks

    (vla-get-activedocument (vlax-get-acad-object))

    )

    (cdr (assoc 2 (entget dim)))

    )

    (if (vlax-property-available-p item 'Textstring)

    (setq str (vla-get-textstring item))

    )

    )

    str

    )

    • Like 1
    • Vote tăng 1
    • Vote giảm 1

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

    Mình có 1 file bản vẽ của bên VNCC gửi cho bị tình trạng không pasteclip được sang các bản khác. Khi pasteclip 1 số đối tượng sang bản vẽ khác thì báo lỗi sau:

     

    Command: _pasteclip Duplicate definition of block _DOT ignored.

    *Invalid*

     

    Nhờ ae xem hộ là lỗi gì với, cám ơn nhiều

    bạn gửi bản vẽ lên xem nào, theo mình thì bị khóa rồi "project"

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

    Không phải đâu, tôi muốn biến các đường Line thành 1 polyline.

    của bạn đây, bạn sử dụng lisp này đi

    (defun c:nn (/ tdt ssdt sodt index)

    (defun ObjName (ssdt /)

    (cdr (assoc '0 (entget ssdt)))

    )

    (defun MoPL (ssdt /)

    (= (cdr (assoc '70 (entget ssdt))) 0)

    )

    (defun NoiPL (ssdt /)

    (if (MoPL ssdt)

    (command ".PEDIT" ssdt "J" "All" "" "X")

    )

    )

    (defun NoiLC (ssdt /)

    (command ".PEDIT" ssdt "Y" "J" "All" "" "X")

    )

    (setq

    tdt (ssget)

    sodt (sslength tdt)

    index 0

    )

    (repeat sodt

    (setq

    ssdt (ssname tdt index)

    index (1+ index)

    )

    (if (or (= (Objname ssdt) "LWPOLYLINE")

    (= (Objname ssdt) "POLYLINE")

    )

    (NoiPL ssdt)

    )

    (if (or (= (Objname ssdt) "LINE") (= (Objname ssdt) "ARC"))

    (NoiLC ssdt)

    )

    )

    (princ)

    )

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

    Chào các anh trên diễn đàn!

    E mới bắt đầu tập viết lisp.

    E có một vướng mắc mà e tìm lời giải đáp chưa được mong các anh giải đáp hộ

    E có một đoạn lisp thế này:

    (defun c:H ( )

    (prompt "\nNew dim method. ")

    ; (command "LAYER" "N" "Laydim" "C" "2" "Laydim" "")

    ; (command "LAYER" "S" "Laydim" "")

    (setq pt1 (getpoint "\nSelect first extension line origin : ")

    pt2 (getpoint "\nSelect second extension line origin : " pt1)

    )

    (if (= (car pt1) (car pt2))

    (VER pt1 pt2)

    (HOR pt1 pt2)

    )

    )

    và e không hiểu chỗ lệnh (VER pt1 pt2) và lệnh (HOR pt1 pt2) là gán biển hay thế nào ah?

    Cảm ơn diễn đàn!

    đoạn lisp này lỗi

×