annotative text style Help me create a annotative dimension style and text style style

[sachindkini]

Dear All,

im trying create a annotative dimension style and text style style . annotation text style link to annotation dimstyle . create text style and dimethyl but annotative symbole not shown in dimension style and also text style )DIM-100 & DIM-200 is annotative dimension style)

 

  (defun c:TEST ()
  (setvar "cmdecho" 0)
  (setvar "expert" 0)
  (command "undo" "be")
  (princ "\nFunction: Quickly create new dimension styles.\n")


(if (not (tblsearch "STYLE" "STANDARD"))
    (command "style" "Standard" "txt" "" "1" "" "" "")
  )

(if (not (tblsearch "STYLE" "STANDARD"))
  (command ".-style" "STANDARD" "TXT" "0" "1" "0" "N" "N" "N")
)

  (command "dimadec"  "2"
           "dimalt"   "off"
           "dimalttz" "1"
           "dimaltu"  "2"
           "dimassoc" "2"
           "dimasz"   "1"
           "dimatfit" "3"
           "dimaunit" "0"
           "dimazin"  "0"
           "dimblk"   "_ARCHTICK"        
           "dimcen"   "0"
           "dimclrd"  "0"
           "dimclre"  "0"
           "dimclrt"  "0"
           "dimdec"   "2"
           "dimdle"   "0.00"
           "dimdli"   "0.05"
           "dimdsep"  "."
           "dimexe"   "0.35"
           "dimexo"   "0.35"
           "dimfxlon" "off"
           "dimgap"   "0.5"
           "dimjust"  "0"
           "dimldrblk" "_ARCHTICK"       
           "dimlfac"  "1"
           "dimlunit" "2"
           "dimscale" "1"
           "dimtad"   "1"
           "dimtdec"  "2"
           "dimtfac"  "1"
           "dimtfill" "0"
           "dimtfillclr" "0"
           "dimtih"   "off"
           "dimtix"   "off"
           "dimtmove" "0"
           "dimtofl"  "on"
           "dimtol"   "off"
           "dimtolj"  "1"
           "dimtxsty" "Standard"        
           "dimtxt"   "2.5"
           "dimtzin"  "1"
           "dimupt"   "off"
           "dimzin"   "1"
           )
  (if (not (tblsearch "dimstyle" "TEST-123"))
    (command "dimstyle" "S" "TEST-123")
  )

;; --------------------------------------


(if (not (tblsearch "STYLE" "TEST-100"))
  (command ".-style" "TEST-100" "Calibri" "0" "1" "0" "N" "N" "N")
)


(setvar "DIMTOL" 1)       
(setvar "DIMTM" 0.05)     
(setvar "DIMTP" 0.05)      
(setvar "DIMTXSTY" "TEST-100") 

;; Create or update dimension style
(if (not (tblsearch "dimstyle" "DIM-100"))
  (progn
    (command ".-dimstyle" "S" "DIM-100")
  )

  (command ".-dimstyle" "R" "DIM-100")
)

;; --------------------------------------

(if (not (tblsearch "STYLE" "TEST-200"))
  (command ".-style" "TEST-200" "ARIAL" "0" "1" "0" "N" "N" "N")
)

(setvar "DIMTOL" 1)       
(setvar "DIMTM" 0.10)      
(setvar "DIMTP" 0.10)      
(setvar "DIMTXSTY" "TEST-200") 


(if (not (tblsearch "dimstyle" "DIM-200"))
  (progn
    (command ".-dimstyle" "S" "DIM-200")
  )

  (command ".-dimstyle" "R" "DIM-200")
)

  (command "undo" "e")
  (alert "\nPrompt:\nDimension style creation completed!\n")
  (princ)
)

 

Edited 3 hours ago by sachindkini