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

vuongthan

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

  • Số lượng nội dung

    3

  • Đã tham gia

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

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

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

    42 phút trước, vietduc147258 đã nói:

    Thử cái này:

     

    (defun c:QB (/ selectionset insertionpoint number Blockname)
      ;;; Tharwat 11. May. 2012 ;;
      (if (and (setq selectionset (ssget "_:L"))
               (setq insertionpoint (getpoint "\n Specify insertion point :"))
          )
        (progn
          (setq bname (substr (getvar "dwgname") 1 (- (strlen (getvar "dwgname")) 4)))
          (setq number    1
                Blockname (strcat bname (itoa number))
          )
          (while (tblsearch "BLOCK" Blockname)
            (setq Blockname
                   (strcat bname (itoa (setq number (1+ number))))
            )
          )
          (command "_.-Block" Blockname insertionpoint selectionset "")
          (command "_.-insert" Blockname insertionpoint "" "" "")
        )
        (princ)
      )
      (princ)
    )

    thành công rồi ạ, em cám ơn bác nhiều. em lại cứ cố gắng chèn thẳng dwgname vào into luôn, bảo sao không đc.

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

    em đang dùng 1 lisp tạo block nhanh là QB. nhưng lisp tự động tạo tên là newblock+(1+n),  các bác có thể sửa lệnh giúp em thành tạo tên block là tên file+(1+n) được không ạ? 

    em xin cám ơn các bác

    Quote

    (defun c:QB (/ selectionset insertionpoint number Blockname)
      ;;; Tharwat 11. May. 2012 ;;
      (if (and (setq selectionset (ssget "_:L"))
               (setq insertionpoint (getpoint "\n Specify insertion point :"))
          )
        (progn
          (setq number    1
                Blockname (strcat "MyBlock" (itoa number))
          )
          (while (tblsearch "BLOCK" Blockname)
            (setq Blockname
                   (strcat "MyBlock" (itoa (setq number (1+ number))))
            )
          )
          (command "_.-Block" Blockname insertionpoint selectionset "")
          (command "_.-insert" Blockname insertionpoint "" "" "")
        )
        (princ)
      )
      (princ)
    )

     

×