[编程交流] 需要一点帮助。。。。。。。

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;;Created by Karl E Sharp 7/3/2018
;;
;;Designed to create a default project specific DWG Template with all
;;   project variables set. (i.e. linewght, linetypes, dimstyle, textstyle, texthieght, etc.)
;;
;;Inserts project title block and all annotation blocks to be used
;;
;;Sets SDI mode to 0
;;
;;Turns off attribute Dialog on insertion of block
;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
(defun c:NDS (/ d-path)
 (setvar "dimadec" 0)                 ; Angular decimal places
 (setvar "dimalt" 0)                  ; Alternate units selected
 (setvar "dimaltd" 0)                 ; Alternate unit decimal places
 (setvar "dimaltrnd" 0.0000)          ; Alternate units rounding value
 (setvar "dimalttd" 2)                ; Alternate tolerance decimal places
 (setvar "dimalttz" 0)                ; Alternate tolerance zero suppression
 (setvar "dimaltu" 2)                 ; Alternate units
 (setvar "dimaltz" 0)                 ; Alternate unit zero suppression
 (setvar "dimapost" "")               ; Prefix and suffix for alternate text
 (setvar "dimarcsym" 0)               ; Arc length symbol
 (setvar "dimasz" 0.1875)             ; Arrow size
 (setvar "dimatfit" 3)                ; Arrow and text fit
 (setvar "dimaunit" 0)                ; Angular unit format
 (setvar "dimazin" 0)                 ; Angular zero supression
 (setvar "dimblk" "")                 ; Arrow block name
 (setvar "dimblk1" "")                ; First arrow block name
 (setvar "dimblk2" "")                ; Second arrow block name
 (setvar "dimcen" 0.25)               ; Center mark size
 (setvar "dimclrd" 256)               ; Dimension line and leader color
 (setvar "dimclre" 256)               ; Extension line color
 (setvar "dimclrt" 2)                 ; Dimension text color
 (setvar "dimdec" 4)                  ; Decimal places
 (setvar "dimdle" 0)                  ; Dimension line extension
 (setvar "dimdli" 0.0625)             ; Dimension line spacing
 (setvar "dimdsep" ".")               ; Decimal separator
 (setvar "dimexe" 0.0625)             ; Extension above dimension line
 (setvar "dimexo" 0.0625)             ; Extension line origin offset
 (setvar "dimfrac" 2)                 ; Fraction format
 (setvar "dimfxl" 1)                  ; Fixed Extension Line
 (setvar "dimfxlon" 0)                ; Enable Fixed Extension Line
 (setvar "dimgap" 0.0625)             ; Gap from dimension line to text
 (setvar "dimjust" 0)                 ; Justification of text on dimension line
 (setvar "dimldrblk" "")              ; Leader block name
 (setvar "dimlfac" 1)                 ; Linear unit scale factor
 (setvar "dimlim" 0)                  ; Generate dimension limits
 (setvar "dimltex1" "bylayer")        ; Linetype extension line 1
 (setvar "dimltex2" "bylayer")        ; Linetype extension line 2
 (setvar "dimltype" "bylayer")        ; Dimension linetype
 (setvar "dimlunit" 4)                ; Linear unit format
 (setvar "dimlwd" -1)                 ; Dimension line and leader lineweight
 (setvar "dimlwe" -1)                 ; Extension line lineweight
 (setvar "dimrnd" 0)                  ; Rounding value
 (setvar "dimsah" 0)                  ; Separate arrow blocks
 (setvar "dimscale" 1)                ; Overall scale factor
 (setvar "ltscale" 0.5)               ; Linetype scale factor
 (setvar "dimsd1" 0)                  ; Suppress the first dimension line
 (setvar "dimsd2" 0)                  ; Suppress the second dimension line
 (setvar "dimse1" 0)                  ; Suppress the first extension line
 (setvar "dimse2" 0)                  ; Suppress the second extension line
 (setvar "dimsoxd" 0)                 ; Suppress outside dimension lines
 (setvar "dimtad" 1)                  ; Place text above the dimension line
 (setvar "dimtdec" 4)                 ; Tolerance decimal places
 (setvar "dimtfac" 1)                 ; Tolerance text height scaling factor
 (setvar "dimtfill" 1)                ; Text background enabled
 (setvar "dimtad" 1)                  ; Place text above the dimension line
 (setvar "dimtfillclr" 0)             ; Text background color
 (setvar "dimtih" 0)                  ; Text inside extensions is horizontal
 (setvar "dimtix" 0)                  ; Place text inside extensions
 (setvar "dimtm" 0)                   ; Minus tolerance
 (setvar "dimtmove" 0)                ; Text movement
 (setvar "dimtofl" 0)                 ; Force line inside extension lines
 (setvar "dimtoh" 0)                  ; Text outside horizontal
 (setvar "dimtol" 0)                  ; Tolerance dimensioning
 (setvar "dimtolj" 0)                 ; Tolerance vertical justification
 (setvar "dimtp" 0)                   ; Plus tolerance
 (setvar "dimtsz" 0)                  ; Tick size
 (setvar "dimtvp" 0)                  ; Text vertical position
 (setvar "dimtxsty" "standard")       ; Text style
 (setvar "dimtxt" 0.09375)            ; Text height
 (setvar "dimtzin" 0)                 ; Tolerance zero suppression
 (setvar "dimupt" 0)                  ; User positioned text
 (setvar "dimzin" 3)                  ; Zero suppression
 (command "dimstyle" "save" "standard" "y")
 (command "style" "standard" "romans" 0.09375 1 0 "no" "no" "no")
 (command "linetype" "load" "center2" "" "")
 (command "linetype" "load" "hidden2" "" "")
 (command "linetype" "load" "phantom2" "" "")
 (command "layer" "m" "DIM" "c" "1" "DIM" "")
 (command "layer" "m" "TEXT" "c" "2" "TEXT" "lt" "continuous" "TEXT" "")
 (command "layer" "m" "CENTER" "c" "1" "CENTER" "lt" "center2" "CENTER" "")
 (command "layer" "m" "HIDDEN" "c" "2" "HIDDEN" "lt" "hidden2" "HIDDEN" "")
 (command "layer" "m" "MATCHLINE" "c" "3" "MATCHLINE" "lt" "phantom2" "MATCHLINE" "")
 (command "layer" "m" "EQUIP" "c" "3" "EQUIP" "lt" "continuous" "EQUIP" "")
 (command "layer" "m" "LABEL_PLATE" "c" "3" "LABEL_PLATE" "lt" "continuous" "LABEL_PLATE" "")
 (command "layer" "m" "BACKGROUND" "c" "9" "BACKGROUND" "lt" "continuous" "BACKGROUND" "")
 (command "layer" "m" "SYMBOLS" "c" "3" "SYMBOLS" "lt" "continuous" "SYMBOLS" "")
 (command "layer" "m" "VIEWPORT" "c" "7" "VIEWPORT" "plot" "n" "VIEWPORT" "")
 (command "layer" "s" "0" "")
 (command "LUNITS" "4")
 (command "LUPREC" "5")
 (setvar "SDI" 0)                     ; Turns SDI mode off
 (setvar "attdia" 0)                  ; Turns the attribute edit dialog box off for block insertion
 (setvar "attreq" 1)
 (initdia 0)
 (setq filename "S:\\folder-1\\subfolder-1\\filename")
 (if
   (= 0 (getvar "SDI"))
     (command "-insert" "S:\\folder-1\\subfolder-1\\filename" '(0. 0. 0.) "" "" ""))   ; Inserts Client Border
 (while (= (logand (getvar "cmdactive")1)1)
   (command ""))
   (initdia)
 (princ)
  (setq filename "S:\\folder-2\\subfolder-2\\filename")
 (if
   (= 0 (getvar "SDI"))
     (command "-insert" "*S:\\folder-2\\subfolder-2\\filename" '(36. 0. 0.) "" "" )) ; Inserts Company Border with standard annotation blocks
 (while (= (logand (getvar "cmdactive")1)1)
   (command ""))
   (initdia)
 (princ)
)

2