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

an_bmt

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

  • Số lượng nội dung

    5

  • Đã tham gia

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

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

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

    (DEFUN C:Mtd()
    (setvar "cmdecho" 0)
    (setvar "DIMARCSYM" 1)
    (setvar "DIMASZ" 150)
    (setvar "DIMBLK1" "_ArchTick")
    (setvar "DIMBLK2" "_ArchTick")
    (setvar "DIMCEN" 200)
    (setvar "DIMDEC" 0)
    (setvar "DIMDLE" 100)
    (setvar "DIMDLI" 50)
    (setvar "DIMEXE" 100)
    (setvar "DIMEXO" 6)
    (setvar "DIMFXL" 0)
    (setvar "DIMGAP" 100)
    (setvar "DIMSCALE" 1)
    (setvar "DIMTAD" 1)
    (setvar "DIMTDEC" 0)
    (setvar "DIMTMOVE" 2)
    (setvar "DIMTXSTY" "Standard")
    (setvar "DIMTXT" 225)
    (setvar "DIMLFAC" 1) (command "-dimstyle" "s" "An.civil 1-100")
    (setvar "DIMLFAC" 0.5) (command "-dimstyle" "s" "An.civil 1-50")
    (setvar "DIMLFAC" 0.25) (command "-dimstyle" "s" "An.civil 1-25")
    (setvar "DIMLFAC" 0.20) (command "-dimstyle" "s" "An.civil 1-20")
    (setvar "DIMLFAC" 0.10) (command "-dimstyle" "s" "An.civil 1-10")
    (setvar "DIMLFAC" 0.05) (command "-dimstyle" "s" "An.civil 1-5")
    (prompt "\nBao cao da khoi tao to hop template DIMMENSION STYLE can thiet\n"))
    .............................................................................

    nhờ các bác sửa lại lisp này giúp, do copy nên cảm tháy lúc load vào cad không trơn chu lắm, thank."
    2016.LSP successfully loaded.
    Command: ; error: misplaced dot on input
    Command: ; error: misplaced dot on input
    Command:
    Command: Specify opposite corner or [Fence/WPolygon/CPolygon]:
    Command: MTD
    Bao cao da khoi tao to hop template DIMMENSION STYLE can thiet
    nil

    nhờ các bạn giải thích giúp dong báo lỗi trên " error...." là sao ạ,thank

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

     

     

    Vấn đề của bạn đã được đề cập đến trong diễn đàn rồi bạn à, bạn làm theo cách này cũng được:

     

    ;;; Khoi tao Layer ;;;

(defun newlay(a b c d) 

(if (not (tblsearch "layer" a)) (command "-layer" "n" a "c" b a "l" c a "lw" d a "")

(command "-layer" "s" a "c" b a "l" c a "lw" d a "")))

;;; Sau do cu viet theo nhu cau: (newlay "name" color "laytype" lineweight), Vi du:

(defun C:laykt()

(newlay "KT-TRUC" 2 "CENTER2" 0.13)

(newlay "KT-BAO" 2 "CONTINUOUS" 0.30)

.....................................................

(prompt "\nBao cao da khoi tao he thong LAYER can thiet\n"))

 

;;; Khoi Textstyle ;;;

(command "style" "stylename" "fontname" "height" "width factor" "" "" "" "")

;;; Vi du:

(defun C:stext()

(command "style" "Standard" "simplex.shx,bigfont.shx" "0" "0.75" "" "" "" "")

.............................................................................

(prompt "\nBao cao da khoi tao to hop template TEXT STYLE can thiet\n"))

 

;;; Khoi Dimstyle ;;;

(defun C:sdim()

(C:stext)

(setvar "DIMBLK" "_Open")

(setvar "DIMLDRBLK" "_Open")

(setvar "DIMCLRD" 0)

(setvar "DIMCLRE" 0)

(setvar "DIMCLRT" 0)

(setvar "DIMCEN" 0)

(setvar "DIMDLI" 7)

(setvar "DIMEXO" 1)

(setvar "DIMEXE" 1)

(setvar "DIMSCALE" 50)

(setvar "DIMTXSTY" "Standard")

(setvar "DIMDSEP" ".")

(setvar "DIMALTD" 0)

(setvar "DIMTMOVE" 2)

(setvar "DIMAUNIT" 1)

(setvar "DIMTXT" 3.5)

(setvar "DIMADEC" 3)

(setvar "DIMTIX" 1)

(setvar "DIMASZ" 2)

(setvar "DIMDEC" 0)

(setvar "DIMGAP" 1)

(setvar "DIMLFAC" 0.4) (command "-dimstyle" "s" "KT-50-20")

(setvar "DIMLFAC" 2) (command "-dimstyle" "s" "KT-50-100")

(setvar "DIMLFAC" 0.2) (command "-dimstyle" "s" "KT-50-10")

(setvar "DIMLFAC" 0.6) (command "-dimstyle" "s" "KT-50-30")

(setvar "DIMLFAC" 1) (command "-dimstyle" "s" "KT-50")

(prompt "\nBao cao da khoi tao to hop template DIMMENSION STYLE can thiet\n"))

 

;;; Cac bien he thong ban tu nghien cuu nhe! ;;;
    Goodluck!

     

     

     

     

    Vấn đề của bạn đã được đề cập đến trong diễn đàn rồi bạn à, bạn làm theo cách này cũng được:

     

    ;;; Khoi tao Layer ;;;

(defun newlay(a b c d) 

(if (not (tblsearch "layer" a)) (command "-layer" "n" a "c" b a "l" c a "lw" d a "")

(command "-layer" "s" a "c" b a "l" c a "lw" d a "")))

;;; Sau do cu viet theo nhu cau: (newlay "name" color "laytype" lineweight), Vi du:

(defun C:laykt()

(newlay "KT-TRUC" 2 "CENTER2" 0.13)

(newlay "KT-BAO" 2 "CONTINUOUS" 0.30)

.....................................................

(prompt "\nBao cao da khoi tao he thong LAYER can thiet\n"))

 

;;; Khoi Textstyle ;;;

(command "style" "stylename" "fontname" "height" "width factor" "" "" "" "")

;;; Vi du:

(defun C:stext()

(command "style" "Standard" "simplex.shx,bigfont.shx" "0" "0.75" "" "" "" "")

.............................................................................

(prompt "\nBao cao da khoi tao to hop template TEXT STYLE can thiet\n"))

 

;;; Khoi Dimstyle ;;;

(defun C:sdim()

(C:stext)

(setvar "DIMBLK" "_Open")

(setvar "DIMLDRBLK" "_Open")

(setvar "DIMCLRD" 0)

(setvar "DIMCLRE" 0)

(setvar "DIMCLRT" 0)

(setvar "DIMCEN" 0)

(setvar "DIMDLI" 7)

(setvar "DIMEXO" 1)

(setvar "DIMEXE" 1)

(setvar "DIMSCALE" 50)

(setvar "DIMTXSTY" "Standard")

(setvar "DIMDSEP" ".")

(setvar "DIMALTD" 0)

(setvar "DIMTMOVE" 2)

(setvar "DIMAUNIT" 1)

(setvar "DIMTXT" 3.5)

(setvar "DIMADEC" 3)

(setvar "DIMTIX" 1)

(setvar "DIMASZ" 2)

(setvar "DIMDEC" 0)

(setvar "DIMGAP" 1)

(setvar "DIMLFAC" 0.4) (command "-dimstyle" "s" "KT-50-20")

(setvar "DIMLFAC" 2) (command "-dimstyle" "s" "KT-50-100")

(setvar "DIMLFAC" 0.2) (command "-dimstyle" "s" "KT-50-10")

(setvar "DIMLFAC" 0.6) (command "-dimstyle" "s" "KT-50-30")

(setvar "DIMLFAC" 1) (command "-dimstyle" "s" "KT-50")

(prompt "\nBao cao da khoi tao to hop template DIMMENSION STYLE can thiet\n"))

 

;;; Cac bien he thong ban tu nghien cuu nhe! ;;;
    Goodluck!

     

    (DEFUN C:Mtd()

    (setvar "cmdecho" 0)

    (setvar "DIMARCSYM" 1)

    (setvar "DIMASZ" 150)

    (setvar "DIMBLK1" "_ArchTick")

    (setvar "DIMBLK2" "_ArchTick")

    (setvar "DIMCEN" 200)

    (setvar "DIMDEC" 0)

    (setvar "DIMDLE" 100)

    (setvar "DIMDLI" 50)

    (setvar "DIMEXE" 100)

    (setvar "DIMEXO" 6)

    (setvar "DIMFXL" 0)

    (setvar "DIMGAP" 100)

    (setvar "DIMSCALE" 1)

    (setvar "DIMTAD" 1)

    (setvar "DIMTDEC" 0)

    (setvar "DIMTMOVE" 2)

    (setvar "DIMTXSTY" "Standard")

    (setvar "DIMTXT" 225)

    (setvar "DIMLFAC" 1) (command "-dimstyle" "s" "An.civil 1-100")

    (setvar "DIMLFAC" 0.5) (command "-dimstyle" "s" "An.civil 1-50")

    (setvar "DIMLFAC" 0.25) (command "-dimstyle" "s" "An.civil 1-25")

    (setvar "DIMLFAC" 0.20) (command "-dimstyle" "s" "An.civil 1-20")

    (setvar "DIMLFAC" 0.10) (command "-dimstyle" "s" "An.civil 1-10")

    (setvar "DIMLFAC" 0.05) (command "-dimstyle" "s" "An.civil 1-5")

    (prompt "\nBao cao da khoi tao to hop template DIMMENSION STYLE can thiet\n"))

    .............................................................................

    • Vote giảm 1

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

    khi kđộng cad rùi bạn gõ AP, chọn đường dẫn đến nơi bạn để lisp, load nó, tích vào add to history, bên dưới có startup suite (hình cái cặp) click vào contents chọn đường dẫn như trên,

    ok!

     

    làm đc chết liền đó!

    Tui cũng thử rùi mà có dc đâu, cái này của bạn cũ rích rùi, dùng cho mấy phiên bản năm trước thì dc <_<

×