an_bmt
-
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
-
-
(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
nilnhờ các bạn giải thích giúp dong báo lỗi trên " error...." là sao ạ,thank
-
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"))
.............................................................................
- 1
-
Xin File Lisp Tạo Dimension Style
-
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 <_<
NHỜ SỬA LISP THỐNG KÊ THÉP
trong AutoLisp
Đã đăng · Trả lời báo cáo
NHỜ SỬA LISP THỐNG KÊ THÉP
NHỜ CÁC CAO NHÂN SỬA LỖI GIÚP LISP SAU....
LỆNH TỔNG HỢP THÉP VẪN OK
LÊNH SUA ĐỂ SỬA BLOCK ATT KHÔNG CẬP NHẬT BIẾN NHẬP VÀO MÀ TRẢ VỀ BIẾN MẶC ĐỊNH
THANK
https://www.4shared.com/archive/MWkQj7TI/TK2011Thongkethep.html
THANK