;;;§ïÅÜ¼Ðª`¤½®t

(DEFUN  C:DDP()
    (GRAPHSCR)
    (SETQ TP 0)
    (SETQ TM 0)
    (SETQ TOL 0)
    (SETQ TP (GETREAL"\nENTER A TP(+) NUMBER: "))
    (SETQ TM (GETREAL"\nENTER A TM(-) NUMBER: "))
    (SETQ TOL (GETREAL"\nENTER TOL.SCALE NUMBER: "))
    (setvar "DIMtad" 0)
    (setvar "DIMtolj" 1)
    (setvar "DIMtfac" 0.8)
    (SETQ A (SSGET))
    (COMMAND "DIM" "DIMTFAC" TOL )
    (COMMAND "DIMTOL" "ON" )
    (COMMAND "DIMTP" TP )
    (COMMAND "DIMTM" TM )
    (COMMAND "UP" A "")
    (COMMAND "DIMTOL" "OFF" )
)