CADsite forum

Ik zit met nog een probleem:
Als de dimensie getekend word word er in de dimensie niet een "ware" waarde ingevuld maar een berekende waarde.
Alleen die waarde duid ie dan aan als bv 675.0000000000 ipv 675
Hoe krijg ik die nullen weg? Ik heb al van alles geprobeerd met de units instellingen maar krijg het niet voor elkaar.
Hebben jullie een tip?

Dit is de lisp:

Citeer

;(c) ALEXANDER BENTLAGE & STEPHAN VAN DER THOLEN 2005

;FUNCTIE VOOR FOUTAFHANDELING

;(defun *error* (msg)
;   (if (/= msg "Function cancelled")
;      (if (= msg "quit / exit abort")
;         (princ)
;         (princ (strcat "\nFoutieve waarde of " msg))
;      )
;      (princ)
;   )
;   (setvar "blipmode" bm)
;   (setvar "osmode" os)
;   (setvar "orthomode" om)
; )

;FUNCTIE VOOR HET OPSTARTEN VAN DE JUISTE RADIATOR

(defun c:VEHA ()
   (setq bm (getvar "blipmode"))
   (setq om (getvar "orthomode"))
   (setvar "blipmode" 0)
   (setvar "orthomode" 1)
   (setq om (getvar "orthomode"))
 (princ "\nGeef type radiator: 10, 11, 20, 21, 22, 33: ")
   (initget 1 "10 11 20 21 22 33")
   (setq prof_type (getkword ))
   (cond
      ((equal prof_type "10") (10L_R))
      ((equal prof_type "11") (11L_R))
      ((equal prof_type "20") (20L_R))
      ((equal prof_type "21") (21L_R))
      ((equal prof_type "22") (22L_R))
      ((equal prof_type "33") (33L_R))
      (T nil)
   )
)

;FUNCTIE VOOR HET LEZEN VAN DATA UIT HET .CAT BESTAND

(defun CAT_DATA ()
   (setq ln0 nil)
   (setq prc nil)
   (while (/= prt prc)
      (while (/= ln0 "@")
         (setq ln0 (read-line cat))
         (if (= nil ln0)
            (progn
               (alert "Catalogus doorzocht, profiel niet gevonden.... ")
               (close cat)
               (exit)
            )
         )
      )
      (setq prc (read-line cat))
      (if (= nil prc)
         (progn
            (alert "Catalogus doorzocht, profiel niet gevonden.... ")
            (close cat)
            (exit)
         )
      )
      (setq ln0 nil)
   )
   (if (/= prc nil)
      (progn
         (setq lna (distof (read-line cat)))
         (if (/= nil lna)
            (progn
               (setq lnb (distof (read-line cat)))
            )
            (setq lnb nil)
         )
         (if (/= nil lnb)
            (progn
               (setq lnc (distof (read-line cat)))
            )
            (setq lnc nil)
         )
         (if (/= nil lnc)
            (progn
               (setq lnd (distof (read-line cat)))
            )
            (setq lnd nil)
         )
         (if (/= nil lnd)
            (progn
               (setq lne (distof (read-line cat)))
            )
            (setq lne nil)
         )
         (if (/= nil lne)
            (progn
               (setq lnf (distof (read-line cat)))
            )
            (setq lnf nil)
         )
         (if (/= nil lnf)
            (progn
               (setq lng (distof (read-line cat)))
            )
            (setq lng nil)
         )
      )
   )
   (close cat)
)

;FUNCTIES VOOR RADIATOREN

(defun A_B_D_IP_ALPHA ()
   (setq dsa (getreal "\nGeef lengte radiator: "))
   (setq hk1 (getangle pt1 "\nGeef hoek radiator: "))
)

(defun HOEKEN ()
   (setq hk2 (+ hk1 (* 0.5 pi)))
   (setq hk3 (+ hk1 pi))
   (setq hk4 (+ hk1 (* 1.5 pi)))
)

;FUNCTIES VOOR RADIATOREN TYPE 10

(defun 10L_R ()
   (setq bm (getvar "blipmode"))
   (setq os (getvar "osmode"))
   (setq om (getvar "orthomode"))
   (setvar "osmode" 2)
   (setvar "blipmode" 0)
   (setvar "orthomode" 1)
   (setq om (getvar "orthomode"))
   (setq pt1 (getpoint "\nGeef invoegpunt radiator: "))
    (setvar "OSMODE" 0)                         ;; Restore OSNAP mode
 (princ "\nGeef positie aansluiting: Links, Rechts: ")
   (initget 1 "L R")
   (setq prof_type (getkword ))
   (cond
      ((equal prof_type "L")  (VEHA_10L))
      ((equal prof_type "R")  (VEHA_10R))
      (T nil)
   )
)

(defun VEHA_10L ()
   (a_b_d_ip_alpha)
   (hoeken)
   (setq pt2 (polar pt1 hk4 100))
   (setq pt3 (polar pt2 hk1 (/ dsa 2)))
   (setq pt4 (polar pt3 hk3 dsa))
   (setq pt5 (polar pt2 hk3 (+ (/ dsa 2) 50)))
   (setq pt6 (polar pt5 hk3 80))
   (setq pt7 (polar pt3 hk2 100))
   (setq pt8 (polar pt3 hk1 150))
   (setq pt9 (polar pt2 hk2 750))
   (setq pt10 (polar pt1 hk2 750))
   (command "-layer" "m" "WL561---_CV-SYMBOOL" "C" "7" "" "")
   (command "pline" pt3 "w" "100" "100" pt4 "cl")
   (command "circle" pt5 "d" "60")
   (command "circle" pt6 "d" "60")
   (command "-layer" "m" "WL561---_CV-MAATV" "C" "1" "" "")
   (command "dimaligned" pt3 pt7 "t" "45" pt8)
   (command "dimaligned" pt5 pt2 "t" (+ (/ dsa 2) 25) pt9)
   (command "dimaligned" pt5 pt6 "t" "35" pt9)
 (setvar "OSMODE" os)                         ;; Restore OSNAP mode
 (princ)
)
(defun VEHA_10R ()
   (a_b_d_ip_alpha)
   (hoeken)
   (setq pt2 (polar pt1 hk4 100))
   (setq pt3 (polar pt2 hk3 (/ dsa 2)))
   (setq pt4 (polar pt3 hk1 dsa))
   (setq pt5 (polar pt2 hk1 (+ (/ dsa 2) 50)))
   (setq pt6 (polar pt5 hk1 80))
   (setq pt7 (polar pt3 hk2 100))
   (setq pt8 (polar pt3 hk3 200))
   (setq pt9 (polar pt2 hk2 750))
   (setq pt10 (polar pt1 hk2 750))
   (command "-layer" "m" "WL561---_CV-SYMBOOL" "C" "7" "" "")
   (command "pline" pt3 "w" "100" "100" pt4 "cl")
   (command "circle" pt5 "d" "60")
   (command "circle" pt6 "d" "60")
   (command "-layer" "m" "WL561---_CV-MAATV" "C" "1" "" "")
   (command "dimaligned" pt3 pt7 "t" "45" pt8)
   (command "dimaligned" pt5 pt2 "t" (+ (/ dsa 2) 25) pt9)
   (command "dimaligned" pt5 pt6 "t" "35" pt9)
 (setvar "OSMODE" os)                         ;; Restore OSNAP mode
 (princ)
)

;FUNCTIES VOOR RADIATOREN TYPE 11

(defun 11L_R ()
   (setq bm (getvar "blipmode"))
   (setq os (getvar "osmode"))
   (setq om (getvar "orthomode"))
   (setvar "osmode" 2)
   (setvar "blipmode" 0)
   (setvar "orthomode" 1)
   (setq om (getvar "orthomode"))
   (setq pt1 (getpoint "\nGeef invoegpunt radiator: "))
    (setvar "OSMODE" 0)                         ;; Restore OSNAP mode
 (princ "\nGeef positie aansluiting: Links, Rechts: ")
   (initget 1 "L R")
   (setq prof_type (getkword ))
   (cond
      ((equal prof_type "L")  (VEHA_11L))
      ((equal prof_type "R")  (VEHA_11R))
      (T nil)
   )
)

(defun VEHA_11L ()
   (a_b_d_ip_alpha)
   (hoeken)
   (setq pt2 (polar pt1 hk4 100))
   (setq pt3 (polar pt2 hk1 (/ dsa 2.0)))
   (setq pt4 (polar pt3 hk3 dsa))
   (setq pt5 (polar pt2 hk3 (+ (/ dsa 2.0) 50)))
   (setq pt6 (polar pt5 hk3 80))
   (setq pt7 (polar pt3 hk2 100))
   (setq pt8 (polar pt3 hk1 150))
   (setq pt9 (polar pt2 hk2 750))
   (setq pt10 (polar pt1 hk2 750))
   (command "-layer" "m" "WL561---_CV-SYMBOOL" "C" "7" "" "")
   (command "pline" pt3 "w" "100" "100" pt4 "cl")
   (command "circle" pt5 "d" "60")
   (command "circle" pt6 "d" "60")
   (command "-layer" "m" "WL561---_CV-MAATV" "C" "1" "" "")
   (command "dimaligned" pt3 pt7 "t" "40" pt8)
   (command "dimaligned" pt5 pt2 "t" (+ (/ dsa 2.0) 25) pt9)
   (command "dimaligned" pt5 pt6 "t" "35" pt9)
 (setvar "OSMODE" os)                         ;; Restore OSNAP mode
 (princ)
)
(defun VEHA_11R ()
   (a_b_d_ip_alpha)
   (hoeken)
   (setq pt2 (polar pt1 hk4 100))
   (setq pt3 (polar pt2 hk3 (/ dsa 2)))
   (setq pt4 (polar pt3 hk1 dsa))
   (setq pt5 (polar pt2 hk1 (+ (/ dsa 2) 50)))
   (setq pt6 (polar pt5 hk1 80))
   (setq pt7 (polar pt3 hk2 100))
   (setq pt8 (polar pt3 hk3 200))
   (setq pt9 (polar pt2 hk2 750))
   (setq pt10 (polar pt1 hk2 750))
   (command "-layer" "m" "WL561---_CV-SYMBOOL" "C" "7" "" "")
   (command "pline" pt3 "w" "100" "100" pt4 "cl")
   (command "circle" pt5 "d" "60")
   (command "circle" pt6 "d" "60")
   (command "-layer" "m" "WL561---_CV-MAATV" "C" "1" "" "")
   (command "dimaligned" pt3 pt7 "t" "40" pt8)
   (command "-units")
   (command "dimaligned" pt5 pt2 "t" (+ (/ dsa 2) 25) pt9)
   (command "dimaligned" pt5 pt6 "t" "35" pt9)
 (setvar "OSMODE" os)                         ;; Restore OSNAP mode
 (princ)
)

;FUNCTIES VOOR RADIATOREN TYPE 20

(defun 20L_R ()
   (setq bm (getvar "blipmode"))
   (setq os (getvar "osmode"))
   (setq om (getvar "orthomode"))
   (setvar "osmode" 2)
   (setvar "blipmode" 0)
   (setvar "orthomode" 1)
   (setq om (getvar "orthomode"))
   (setq pt1 (getpoint "\nGeef invoegpunt radiator: "))
    (setvar "OSMODE" 0)                         ;; Restore OSNAP mode
 (princ "\nGeef positie aansluiting: Links, Rechts: ")
   (initget 1 "L R")
   (setq prof_type (getkword ))
   (cond
      ((equal prof_type "L")  (VEHA_20L))
      ((equal prof_type "R")  (VEHA_20R))
      (T nil)
   )
)

(defun VEHA_20L ()
   (a_b_d_ip_alpha)
   (hoeken)
   (setq pt2 (polar pt1 hk4 100))
   (setq pt3 (polar pt2 hk1 (/ dsa 2)))
   (setq pt4 (polar pt3 hk3 dsa))
   (setq pt5 (polar pt2 hk3 (+ (/ dsa 2) 50)))
   (setq pt6 (polar pt5 hk3 80))
   (setq pt7 (polar pt3 hk2 100))
   (setq pt8 (polar pt3 hk1 150))
   (setq pt9 (polar pt2 hk2 750))
   (setq pt10 (polar pt1 hk2 750))
   (command "-layer" "m" "WL561---_CV-SYMBOOL" "C" "7" "" "")
   (command "pline" pt3 "w" "100" "100" pt4 "cl")
   (command "circle" pt5 "d" "60")
   (command "circle" pt6 "d" "60")
   (command "-layer" "m" "WL561---_CV-MAATV" "C" "1" "" "")
   (command "dimaligned" pt3 pt7 "t" "60" pt8)
   (command "dimaligned" pt5 pt2 "t" (+ (/ dsa 2) 25) pt9)
   (command "dimaligned" pt5 pt6 "t" "35" pt9)
 (setvar "OSMODE" os)                         ;; Restore OSNAP mode
 (princ)
)
(defun VEHA_20R ()
   (a_b_d_ip_alpha)
   (hoeken)
   (setq pt2 (polar pt1 hk4 100))
   (setq pt3 (polar pt2 hk3 (/ dsa 2)))
   (setq pt4 (polar pt3 hk1 dsa))
   (setq pt5 (polar pt2 hk1 (+ (/ dsa 2) 50)))
   (setq pt6 (polar pt5 hk1 80))
   (setq pt7 (polar pt3 hk2 100))
   (setq pt8 (polar pt3 hk3 200))
   (setq pt9 (polar pt2 hk2 750))
   (setq pt10 (polar pt1 hk2 750))
   (command "-layer" "m" "WL561---_CV-SYMBOOL" "C" "7" "" "")
   (command "pline" pt3 "w" "100" "100" pt4 "cl")
   (command "circle" pt5 "d" "60")
   (command "circle" pt6 "d" "60")
   (command "-layer" "m" "WL561---_CV-MAATV" "C" "1" "" "")
   (command "dimaligned" pt3 pt7 "t" "60" pt8)
   (command "dimaligned" pt5 pt2 "t" (+ (/ dsa 2) 25) pt9)
   (command "dimaligned" pt5 pt6 "t" "35" pt9)
 (setvar "OSMODE" os)                         ;; Restore OSNAP mode
 (princ)
)

;FUNCTIES VOOR RADIATOREN TYPE 21

(defun 21L_R ()
   (setq bm (getvar "blipmode"))
   (setq os (getvar "osmode"))
   (setq om (getvar "orthomode"))
   (setvar "osmode" 2)
   (setvar "blipmode" 0)
   (setvar "orthomode" 1)
   (setq om (getvar "orthomode"))
   (setq pt1 (getpoint "\nGeef invoegpunt radiator: "))
    (setvar "OSMODE" 0)                         ;; Restore OSNAP mode
 (princ "\nGeef positie aansluiting: Links, Rechts: ")
   (initget 1 "L R")
   (setq prof_type (getkword ))
   (cond
      ((equal prof_type "L")  (VEHA_21L))
      ((equal prof_type "R")  (VEHA_21R))
      (T nil)
   )
)

(defun VEHA_21L ()
   (a_b_d_ip_alpha)
   (hoeken)
   (setq pt2 (polar pt1 hk4 100))
   (setq pt3 (polar pt2 hk1 (/ dsa 2)))
   (setq pt4 (polar pt3 hk3 dsa))
   (setq pt5 (polar pt2 hk3 (+ (/ dsa 2) 50)))
   (setq pt6 (polar pt5 hk3 80))
   (setq pt7 (polar pt3 hk2 100))
   (setq pt8 (polar pt3 hk1 150))
   (setq pt9 (polar pt2 hk2 750))
   (setq pt10 (polar pt1 hk2 750))
   (command "-layer" "m" "WL561---_CV-SYMBOOL" "C" "7" "" "")
   (command "pline" pt3 "w" "100" "100" pt4 "cl")
   (command "circle" pt5 "d" "60")
   (command "circle" pt6 "d" "60")
   (command "-layer" "m" "WL561---_CV-MAATV" "C" "1" "" "")
   (command "dimaligned" pt3 pt7 "t" "60" pt8)
   (command "dimaligned" pt5 pt2 "t" (+ (/ dsa 2) 25) pt9)
   (command "dimaligned" pt5 pt6 "t" "35" pt9)
 (setvar "OSMODE" os)                         ;; Restore OSNAP mode
 (princ)
)
(defun VEHA_21R ()
   (a_b_d_ip_alpha)
   (hoeken)
   (setq pt2 (polar pt1 hk4 100))
   (setq pt3 (polar pt2 hk3 (/ dsa 2)))
   (setq pt4 (polar pt3 hk1 dsa))
   (setq pt5 (polar pt2 hk1 (+ (/ dsa 2) 50)))
   (setq pt6 (polar pt5 hk1 80))
   (setq pt7 (polar pt3 hk2 100))
   (setq pt8 (polar pt3 hk3 200))
   (setq pt9 (polar pt2 hk2 750))
   (setq pt10 (polar pt1 hk2 750))
   (command "-layer" "m" "WL561---_CV-SYMBOOL" "C" "7" "" "")
   (command "pline" pt3 "w" "100" "100" pt4 "cl")
   (command "circle" pt5 "d" "60")
   (command "circle" pt6 "d" "60")
   (command "-layer" "m" "WL561---_CV-MAATV" "C" "1" "" "")
   (command "dimaligned" pt3 pt7 "t" "60" pt8)
   (command "dimaligned" pt5 pt2 "t" (+ (/ dsa 2) 25) pt9)
   (command "dimaligned" pt5 pt6 "t" "35" pt9)
 (setvar "OSMODE" os)                         ;; Restore OSNAP mode
 (princ)
)

;FUNCTIES VOOR RADIATOREN TYPE 22

(defun 22L_R ()
   (setq bm (getvar "blipmode"))
   (setq os (getvar "osmode"))
   (setq om (getvar "orthomode"))
   (setvar "osmode" 2)
   (setvar "blipmode" 0)
   (setvar "orthomode" 1)
   (setq om (getvar "orthomode"))
   (setq pt1 (getpoint "\nGeef invoegpunt radiator: "))
    (setvar "OSMODE" 0)                         ;; Restore OSNAP mode
 (princ "\nGeef positie aansluiting: Links, Rechts: ")
   (initget 1 "L R")
   (setq prof_type (getkword ))
   (cond
      ((equal prof_type "L")  (VEHA_22L))
      ((equal prof_type "R")  (VEHA_22R))
      (T nil)
   )
)

(defun VEHA_22L ()
   (a_b_d_ip_alpha)
   (hoeken)
   (setq pt2 (polar pt1 hk4 100))
   (setq pt3 (polar pt2 hk1 (/ dsa 2)))
   (setq pt4 (polar pt3 hk3 dsa))
   (setq pt5 (polar pt2 hk3 (+ (/ dsa 2) 50)))
   (setq pt6 (polar pt5 hk3 80))
   (setq pt7 (polar pt3 hk2 100))
   (setq pt8 (polar pt3 hk1 150))
   (setq pt9 (polar pt2 hk2 750))
   (setq pt10 (polar pt1 hk2 750))
   (command "-layer" "m" "WL561---_CV-SYMBOOL" "C" "7" "" "")
   (command "pline" pt3 "w" "100" "100" pt4 "cl")
   (command "circle" pt5 "d" "60")
   (command "circle" pt6 "d" "60")
   (command "-layer" "m" "WL561---_CV-MAATV" "C" "1" "" "")
   (command "dimaligned" pt3 pt7 "t" "80" pt8)
   (command "dimaligned" pt5 pt2 "t" (+ (/ dsa 2) 25) pt9)
   (command "dimaligned" pt5 pt6 "t" "35" pt9)
 (setvar "OSMODE" os)                         ;; Restore OSNAP mode
 (princ)
)
(defun VEHA_22R ()
   (a_b_d_ip_alpha)
   (hoeken)
   (setq pt2 (polar pt1 hk4 100))
   (setq pt3 (polar pt2 hk3 (/ dsa 2)))
   (setq pt4 (polar pt3 hk1 dsa))
   (setq pt5 (polar pt2 hk1 (+ (/ dsa 2) 50)))
   (setq pt6 (polar pt5 hk1 80))
   (setq pt7 (polar pt3 hk2 100))
   (setq pt8 (polar pt3 hk3 200))
   (setq pt9 (polar pt2 hk2 750))
   (setq pt10 (polar pt1 hk2 750))
   (command "-layer" "m" "WL561---_CV-SYMBOOL" "C" "7" "" "")
   (command "pline" pt3 "w" "100" "100" pt4 "cl")
   (command "circle" pt5 "d" "60")
   (command "circle" pt6 "d" "60")
   (command "-layer" "m" "WL561---_CV-MAATV" "C" "1" "" "")
   (command "dimaligned" pt3 pt7 "t" "80" pt8)
   (command "dimaligned" pt5 pt2 "t" (+ (/ dsa 2) 25) pt9)
   (command "dimaligned" pt5 pt6 "t" "35" pt9)
 (setvar "OSMODE" os)                         ;; Restore OSNAP mode
 (princ)
)

;FUNCTIES VOOR RADIATOREN TYPE 33

(defun 33L_R ()
   (setq bm (getvar "blipmode"))
   (setq os (getvar "osmode"))
   (setq om (getvar "orthomode"))
   (setvar "osmode" 2)
   (setvar "blipmode" 0)
   (setvar "orthomode" 1)
   (setq om (getvar "orthomode"))
   (setq pt1 (getpoint "\nGeef invoegpunt radiator: "))
    (setvar "OSMODE" 0)                         ;; Restore OSNAP mode
 (princ "\nGeef positie aansluiting: Links, Rechts: ")
   (initget 1 "L R")
   (setq prof_type (getkword ))
   (cond
      ((equal prof_type "L")  (VEHA_33L))
      ((equal prof_type "R")  (VEHA_33R))
      (T nil)
   )
)

(defun VEHA_33L ()
   (a_b_d_ip_alpha)
   (hoeken)
   (setq pt2 (polar pt1 hk4 100))
   (setq pt3 (polar pt2 hk1 (/ dsa 2)))
   (setq pt4 (polar pt3 hk3 dsa))
   (setq pt5 (polar pt2 hk3 (+ (/ dsa 2) 50)))
   (setq pt6 (polar pt5 hk3 80))
   (setq pt7 (polar pt3 hk2 100))
   (setq pt8 (polar pt3 hk1 150))
   (setq pt9 (polar pt2 hk2 750))
   (setq pt10 (polar pt1 hk2 750))
   (command "-layer" "m" "WL561---_CV-SYMBOOL" "C" "7" "" "")
   (command "pline" pt3 "w" "100" "100" pt4 "cl")
   (command "circle" pt5 "d" "60")
   (command "circle" pt6 "d" "60")
   (command "-layer" "m" "WL561---_CV-MAATV" "C" "1" "" "")
   (command "dimaligned" pt3 pt7 "t" "80" pt8)
   (command "dimaligned" pt5 pt2 "t" (+ (/ dsa 2) 25) pt9)
   (command "dimaligned" pt5 pt6 "t" "35" pt9)
 (setvar "OSMODE" os)                         ;; Restore OSNAP mode
 (princ)
)
(defun VEHA_33R ()
   (a_b_d_ip_alpha)
   (hoeken)
   (setq pt2 (polar pt1 hk4 100))
   (setq pt3 (polar pt2 hk3 (/ dsa 2)))
   (setq pt4 (polar pt3 hk1 dsa))
   (setq pt5 (polar pt2 hk1 (+ (/ dsa 2) 50)))
   (setq pt6 (polar pt5 hk1 80))
   (setq pt7 (polar pt3 hk2 100))
   (setq pt8 (polar pt3 hk3 200))
   (setq pt9 (polar pt2 hk2 750))
   (setq pt10 (polar pt1 hk2 750))
   (command "-layer" "m" "WL561---_CV-SYMBOOL" "C" "7" "" "")
   (command "pline" pt3 "w" "100" "100" pt4 "cl")
   (command "circle" pt5 "d" "60")
   (command "circle" pt6 "d" "60")
   (command "-layer" "m" "WL561---_CV-MAATV" "C" "1" "" "")
   (command "dimaligned" pt3 pt7 "t" "80" pt8)
   (command "dimaligned" pt5 pt2 "t" (+ (/ dsa 2) 25) pt9)
   (command "dimaligned" pt5 pt6 "t" "35" pt9)
 (setvar "OSMODE" os)                         ;; Restore OSNAP mode
 (princ)
)

(rtos nummer 2 0)

Wat betreft die RTOS:

Citeer
(rtos number [mode [precision]])

The rtos function returns a string that is the representation of number according to the settings of mode, precision, and the system variables UNITMODE, DIMZIN, LUNITS, and LUPREC.

Arguments

number

A number.

mode

An integer specifying the linear units mode. The mode corresponds to the values allowed for the LUNITS AutoCAD system variable. The mode can be one of the following numbers:

1 Scientific

2 Decimal

3 Engineering (feet and decimal inches)

4 Architectural (feet and fractional inches)

5 Fractional

precision

An integer specifying the precision.
0 cijfers na da comma  

(rtos nummer 2 0)

Maw, op de plaats van nummer vult gij uw verkregen waarde in.

Hopelijk ben je hier iets mee.  

Kenny

Ik heb even uw programma bekeken en ik denk dat je dit nodig hebt/moet toevoegen.

(setq dsa (rtos dsa 2 0) )
  (setq dsa (atoi dsa))

Ik denk dat uw probleem nu is opgelost

Prettig weekend en graag gedaan

Kenny

Kenny H, inderdaad het werkt prima! Bedankt!
De nullen zijn verdwenen.

Citaat van: DnerebBen er mee aan het stoeien om een voorbeeld je te maken...

Julien,

is er een mogelijkheid om dat te attachen/te up loaden?
Ik denk dat er wel meer mensen geintresseerd zijn in het uitlezen van een access database vanuit Acad.

Dit is wat ik ontvangen heb:
http://www.cadsite.be/VBA/