Export Draft > DWG/DXF - problem with font width

sir try this one, i just get from the macro im using now.. Im not admin not so familiar, maybe it can help..
its a pmlfrm.. try if this work with you..


--
setup form !!pdfplot  size 30 0
!this.formtitle     = 'DRAFT'

!this.initcall = '!this.init()'

BAR
!this.bar.add('macro','menu1')
menu .menu1
!this.menu1.add('callback','reload','pml reload form!!pdfplot')

         rgroup .acom   at xmin form 'PDF'

        add tag 'VIEW' select 'view'
         add tag 'NO VIEW'   select 'nview'
    exit
path down
button .copying2 at xmin form  'EXPORT PDF DXF PLT' callback '!this.export()'
path down
text .tira at x 0  width 20 is string


exit

SHOW!!pdfplot
define method .init()

!this.tira.val = 'D:\PLOT'
--!this.hor1.callback='!this.hor1com()'
--- !this.hor2.callback='!this.hor2com()'
 -- !this.hor3.callback='!this.hor3com()'
endmethod




define method .export()

shee
var!shee shee
var!namx namn
var!namd replace(|$!namx|, |/|,|.|)
!ff = !this.tira.val
!x = '$!namd' + '.pdf'
!y = '$!namd' + '.plt'
!z = '$!namd' + '.dxf'
   if  !this.acom.Selection() eq 'view' then
!vv = 'VIEW'
else
!vv = 'NOVIEW'
endif
view 1
lframe false
var!ffx vsca

!fff = !ffx.real()
!ss = 1 / !fff
!ffff = !ss.nint()
$!shee
$p SCALE UP $!ffff
PLOT ce pdf /$!ff\$!x 'MINL 0.22,COL BW,$!vv' A0 OVER
PLOT ce /$!ff\$!y  A0  CUTM OFF OVER
PLOT ce DXF /$!ff\$!z ACAD ZCOORD EUC SCALEUP $!ffff OVER


endmethod

sir try this one, i just get from the macro im using now.. Im not admin not so familiar, maybe it can help..
its a pmlfrm.. try if this work with you..


--
setup form !!pdfplot  size 30 0
!this.formtitle     = 'DRAFT'

!this.initcall = '!this.init()'

BAR
!this.bar.add('macro','menu1')
menu .menu1
!this.menu1.add('callback','reload','pml reload form!!pdfplot')

         rgroup .acom   at xmin form 'PDF'

        add tag 'VIEW' select 'view'
         add tag 'NO VIEW'   select 'nview'
    exit
path down
button .copying2 at xmin form  'EXPORT PDF DXF PLT' callback '!this.export()'
path down
text .tira at x 0  width 20 is string


exit

SHOW!!pdfplot
define method .init()

!this.tira.val = 'D:\PLOT'
--!this.hor1.callback='!this.hor1com()'
--- !this.hor2.callback='!this.hor2com()'
 -- !this.hor3.callback='!this.hor3com()'
endmethod




define method .export()

shee
var!shee shee
var!namx namn
var!namd replace(|$!namx|, |/|,|.|)
!ff = !this.tira.val
!x = '$!namd' + '.pdf'
!y = '$!namd' + '.plt'
!z = '$!namd' + '.dxf'
   if  !this.acom.Selection() eq 'view' then
!vv = 'VIEW'
else
!vv = 'NOVIEW'
endif
view 1
lframe false
var!ffx vsca

!fff = !ffx.real()
!ss = 1 / !fff
!ffff = !ss.nint()
$!shee
$p SCALE UP $!ffff
PLOT ce pdf /$!ff\$!x 'MINL 0.22,COL BW,$!vv' A0 OVER
PLOT ce /$!ff\$!y  A0  CUTM OFF OVER
PLOT ce DXF /$!ff\$!z ACAD ZCOORD EUC SCALEUP $!ffff OVER


endmethod