[编程交流] DimensionStyle entmake问题

(setq dimscale (* 1.0 moltiplicatore)
     Arrow_Size (* 1.5 moltiplicatore)
     Extension_Line_Origin_Offset (* 8.0 moltiplicatore)
     Dimension_Line_Spacing (* 3.75 moltiplicatore)
     Extension_Above_Dimension_Line (* 1.25 moltiplicatore)
     Text_Height (* 2.2 moltiplicatore)
     Center_Mark_Size (* 2.5 moltiplicatore)
     quote_scale 10.0)
     Gap_From_dimension_Line_to_Text (* 0.9 moltiplicatore)
     Decimal_Places 0
     Tolerance_Decimal_places 0
     Text_Movement 0
     )
 (setq ds
(list
(cons 0 "DIMSTYLE")
(cons 100 "AcDbSymbolTableRecord")
(cons 100 "AcDbDimStyleTableRecord")
(cons 2 dimstylename) ;Dim style name
(cons 70 0) ; Standard flag
(cons 3 ""); DIMPOST
(cons 4 ""); DIMAPOST
(cons 5 "_Oblique") ;DIMBLK-Name of block instead of default arrowhead
(cons 6 "_Oblique");(cons 6 "ClosedFilled"); DIMBLK1
(cons 7 "_Oblique");(cons 7 DIMBLK-Name); DIMBLK2
(cons 170 0) ;DIMALT-turns off alternate units
(cons 40 dimscale) ;DIMSCALE-sets the overall scale factor applied to all dimensions
(cons 41 Arrow_Size) ;DIMASZ-sets the size of the arrow/tick
(cons 42 Extension_Line_Origin_Offset); DIMEXO
(cons 43 Dimension_Line_Spacing); DIMDLI
(cons 44 Extension_Above_Dimension_Line) ;DIMEXE-specifies how far to extend the extention line beyound the dim line
(cons 45 0.0); DIMRND
(cons 46 0) ;DIMDLE-sets the distance the dimension line extends beyond the extension line
(cons 47 0.0); DIMTP
(cons 48 0.0); DIMTM
(cons 71 0); DIMTOL
(cons 72 0); DIMLIM
(cons 73 0) ;DIMTIH-controls the position of dimension text inside extention lines ;METTE        IL TESTO DI QUOTA ORIZZONTALE
(cons 74 0) ;DIMTOH-controls the position of dimension text outside extention lines
(cons 75 1); DIMSE1 ;1 sopprime la linea di estensione, 0 la lascia 
(cons 76 1); DIMSE2 ;1 sopprime la linea di estensione, 0 la lascia 
(cons 77 1) ;DIMTAD-controls the vertical position of text in relation to the dim line
(cons 78  ;DIMZIN-controls the suppression of zeros
(cons 79 1); DIMAZIN
(cons 140 Text_Height) ;DIMTXT-specifies the height of the text in the dim
(cons 141 Center_Mark_Size); DIMCEN
(cons 142 0.0); DIMTSZ
(cons 143 0.5) ;DIMALTF-controls the scale factor for alt. units
(cons 144 quote_scale); DIMLFAC ;scala di quota
(cons 145 0.0); DIMTVP
(cons 146 1.0); DIMTFAC
(cons 147 Gap_From_dimension_Line_to_Text) ;DIMGAP-sets the distance from around the dim text
(cons 170 0); DIMALT
(cons 171 3) ;DIMALTD-controls the decimal places for units
(cons 172 1) ;DIMTOFL-forces a line inside extension lines
(cons 173 0); DIMSAH
(cons 174 0); DIMTIX
(cons 175 0); DIMSOXD
(cons 176 256); DIMCLRD
(cons 177 0); DIMCLRE
(cons 178 1); DIMCRRT
(cons 179 0); DIMADEC
(cons 270 2) ;DIMUNIT-sets the units format for all dims ;2 decimale ; 4architettonico
(cons 271 Decimal_Places) ;DIMDEC-sets the number of decimal places of primary units
(cons 272 Tolerance_Decimal_places); DIMTDEC
(cons 273 2) ;DIMALTU-sets the units for alt. units
(cons 275 0) ;DIMAUNIT-sets the angular format for angular dims
(cons 276 1); DIMFRAC
(cons 277 2); DIMLUNIT ;2 decimale ; 4architettonico
(cons 278 0); DIMDSEP
(cons 279 Text_Movement); DIMTMOVE
(cons 280 0) ;DIMJUST-controls the horizontal positioning of dim text
(cons 281 0); DIMSD1
(cons 282 0); DIMSD2
(cons 283 1); DIMTOLJ
(cons 284 3); DIMTZIN
(cons 285 1); DIMALTZ
(cons 286 0) ;DIMALTTZ-Toggles the suppression in tolerance values
;(cons 287 0); DIMFIT
;(cons 288 0); DIMUPT
;(cons 289 0); DIMATFIT
(cons 340 (tblobjname "style" "STANDARD")); DIMTXSTY
;(cons 341 (cdr (assoc 330 (entget (tblobjname "block" "."))))); DIMLDRBLK
;(cons 342 (cdr (assoc 330 (entget(tblobjname "block" "_Oblique"))))); DIMBLK
;(cons 343 (cdr (assoc 330 (entget(tblobjname "block" "_Oblique"))))); DIMBLK1
;(cons 344 (cdr (assoc 330 (entget(tblobjname "block" "_Oblique"))))); DIMBLK2
;(cons 371 -2); DIMLWD
;(cons 372 -2); DIMLWE
)
     )
   (entmake ds)

(entmakex
 (list
   (cons 0 "DIMENSION")
   (cons 100 "AcDbEntity")
   (cons 67 0)
   (cons 410 "Model")
   (cons 8 "0")
   (cons 100 "AcDbDimension")
   (cons 280 0)
   (cons 2 "*D136")
   (cons 10 '(5378.66 2125.34 0.0))
   (cons 11 '(5359.45 2020.34 0.0))
   (cons 12 '(0.0 0.0 0.0))
   (cons 70 32)
   (cons 1 "")
   (cons 71 5)
   (cons 72 1)
   (cons 41 1.0)
   (cons 42 210.0)
   (cons 73 0)
   (cons 74 0)
   (cons 75 0)
   (cons 52 0.0)
   (cons 53 0.0)
   (cons 54 0.0)
   (cons 51 0.0)
   (cons 210 '(0.0 0.0 1.0))
   (cons 3 "Quota_cm")
   (cons 100 "AcDbAlignedDimension")
   (cons 13 '(5428.66 1915.34 0.0))
   (cons 14 '(5428.66 2125.34 0.0))
   (cons 15 '(0.0 0.0 0.0))
   (cons 16 '(0.0 0.0 0.0))
   (cons 40 0.0)
   (cons 50 1.5708)
   (cons 100 "AcDbRotatedDimension")
 )
)

(defun AddDimLinear ( p1 p2 ang offset text layer flag / e )
 (setq e
   (entmakex
     (list
       (cons 0   "DIMENSION")
       (cons 100  "AcDbEntity")
       (cons 410  "Model") 
       (cons 8    layer) 
       (cons 100  "AcDbDimension")
       (cons 10  (polar p1 (+ (* pi 0.5) ang) offset))
       (cons 11  (trans (list (car p2)(cadr p2) 0.0) 1 0))
       (cons 70   32) 
       (cons 1    text) 
       (cons 42  (distance p1 p2))
       (cons 53 ang)
       (cons 3    "STANDARD") 
       (cons 100  "AcDbAlignedDimension")
       (cons 13 (trans (list (car p1)(cadr p1) 0.0) 1 0))
       (cons 14 (trans (list (car p2)(cadr p2) 0.0) 1 0))
       (cons 50 ang)
       (cons 100 "AcDbRotatedDimension")
       (list -3 
    (list "ACAD" 
    (cons 1000 "DSTYLE")
    (cons 1002 "{")
    (cons 1070  279)
    (cons 1070  1)
    (cons 1070  40)
    (cons 1040  32.0) 
    (cons 1070  41)
    (cons 1040  0.1875)
    (cons 1070  42)
    (cons 1040  (getvar 'dimexo))
    (cons 1070  43) 
    (cons 1040  0.375) 
    (cons 1070  44) 
    (cons 1040  0.0625) 
    (cons 1070  78) 
    (cons 1070  3) 
    (cons 1070  140) 
    (cons 1040  0.09375) 
    (cons 1070  141) 
    (cons 1040  0.09375) 
    (cons 1070  147) 
    (cons 1040  0.046875) 
    (cons 1070  173) 
    (cons 1070  1) 
    (cons 1070  178) 
    (cons 1070  256) 
    (cons 1070  273) 
    (cons 1070  4) 
    (cons 1070  277) 
    (cons 1070  4) 
    (cons 1070  284) 
    (cons 1070  3) 
    (cons 1070  285) 
    (cons 1070  3) 
    (cons 1070  286) 
    (cons 1070  3) 
    (cons 1070  289) 
    (cons 1070  0) 
    (cons 1070  340) 
    (cons 1005  "39") 
    (cons 1070  341) 
    (cons 1005  "6D9") 
    (cons 1070  343) 
    (cons 1005  "6D9") 
    (cons 1070  344) 
    (cons 1005  "6D9")
           (cons 1002 "}")
         )
       )
     )
   )
 )
 (if (and e flag)
   (vlax-ename->vla-object e) e
 )
)

(adddimlinear 
 (setq p1 (getpoint "\nSpecify first point: "))          ;P1 or first point
 (setq p2 (getpoint p1 "\nSpecify second point: ")) ;p2 or second point
 (angle p1 p2) ;angle
 12. ;offset from first point
 "" ;text override. you can also use "<> blah"
 (getvar 'clayer) ;layer
 nil ;t-return vla-object, nil return entity name
)