CADsite forum

ja ik had het nadat ik deze post had gezet ook opgemerkt dat het t.o.v. (dog-begin/dog -end) verkeerd stond en het hielp niet. Ik heb ook  die naam veranderd in allerlei andere namen buiten oldsnap en niet werkt. Ik weet niet hoe het komt maar er veranderd niets. Het veranderd telkens naar de standaard waarden die in een andere lsp beschreven staan. DOG3.lsp en als ik hier de osmode verander in hetgene dat ik wil dan doet hij dat zo wel

greetz

Ik heb de naam veranderd en er gebeurde niets. Daarna heb ik, (print (strcat "Einde is gehaald en de oldsnap waarde is " (itoa oldsnapnew))) na mijn opdracht geplaatst en dan kreeg ik dit te lezen op mijn commandoregel:

"Einde is gehaald en de oldsnap waarde is 0" _layer
Current layer:  "0"

waar komt nu die layer vandaan?

ik ga nu wat voort zoeken...
weet iemand raad?
is het nu aan een bovenliggende routine gelegen?

groeten Sam

de lisp tekent een dakkappel uit. De routine is gescreven geweest door hsb-cad. Jullie wellicht bekent.

als ik deze lisp routine run dan wil hij de oude snap settings niet opnieuw instellen. Ziet er iemand de fout?

(defun dgfKozijnzicht-01
(dogvariablelist pt100 dogkeys / dogqqqv dogtag
       VAR4
        VAR3
        VAR2
        VAR1
        VAR0
 
        PT100
        PT101
        PT102
        PT103
        PT104
        PT105
        PT106
        PT107
        PT108
        PT109
        PT110
        PT111
        PT112
        PT113
        PT114
        PT115
        PT116
        PT117
        PT118
        PT119
        PT120
        PT121
        PT122
        PT123
        PT124
        PT125
        PT126
        PT127
        PT128
        PT129
        PT130
        PT131
        PT132
        PT133
        PT134
        PT135
        PT136
        PT137
        PT138
        PT139
        PT140
        PT141
        PT142
        PT143
        PT144
        PT145
        PT146
        PT147
        PT148
        PT149
        PT150
        PT151
        PT152
        PT153
        PT154
        PT155
        PT156
        PT157
        PT158
        PT159
        PT160
        PT161
        PT162

        ENT6E9
        ENT6E0
        ENT6E6
        ENT6E3
        ENT716
        ENT722
        ENT71F
        ENT719
        ENT71C
        ENT81A
        ENTBA5
        ENTB91
        ENTB7D
        ENTB6F
        ENTB56
        ENTB42
        ENTB34
        ENTB20
        ENTB0C
        ENTAF8
        ENTAF0
        ENTA19
        ENT97C
        ENT823
        ENT190E
        ENT1D1D
        ENT2337
        ENT2334
        ENT252D
        ENT252A
        ENT2530
        ENT273B
        ENT2954
        ENT2B67
        ENT2D75
        ENT2F94
        ENT2F91
        ENT31DD
        ENT31BF
        ENT31BB
        ENT341B
        ENT3891
        ENT3899
  )

;(c) S.E.B.Vinckier DOG 3.2

  (setq dogtag (entlast))
  (dog-begin)
  (command "_layer" "_m" "DOG" "" )
  (setq dogqqqv nil)
  (setq oldsnap (getvar "osmode"))

  (if (NULL (setq VAR4 (cdr (assoc "VAR4" dogvariablelist )))) ( setq VAR4 244))
  (if (NULL (setq VAR3 (cdr (assoc "VAR3" dogvariablelist )))) ( setq VAR3 250))
  (if (NULL (setq VAR2 (cdr (assoc "VAR2" dogvariablelist )))) ( setq VAR2 156))
  (if (NULL (setq VAR1 (cdr (assoc "VAR1" dogvariablelist )))) ( setq VAR1 1150))
  (if (NULL (setq VAR0 (cdr (assoc "VAR0" dogvariablelist )))) ( setq VAR0 1450))

  ; berekening toevoegen van aantal loodstroken onder kozijn
  (setq maxloodstuk 1500.00)
  (setq overlap 150.00)
  (setq loodlengte (+ VAR0 VAR2 VAR2 300 300))
  (setq aantaloverlap (fix (/ loodlengte maxloodstuk)))
  (setq totaalloodlengte (+ loodlengte (* aantaloverlap overlap)))
  (setq aantalloodstukken (+ (fix (/ totaalloodlengte maxloodstuk)) 1))
  (setq lengteloodstuk (* (+ (fix (/ (/ totaalloodlengte aantalloodstukken) 10)) 1) 10))

  ; startpunt linksboven boeiboord
  (setq dogq PT100 )
  (setq PT100 (dog-newpoint "\nGeef linker bovenhoek bovenkant boeiboord :"))
  (setvar "dimlfac" 2)
  ; tekenen van boeiboord
  (setq PT101 (dog-cart PT100 (/ (+ (* (+ VAR3 VAR2 ) 2) VAR0 ) 2) 0))
  (setq PT102 (dog-cart PT100 0 (/ (- VAR4 ) 2)))
  (setq PT103 (dog-cart PT101 0 (/ (- VAR4 ) 2)))
  (Dog-Layer-Set "TEKEN" 7 "CONTINUOUS" )
  (dog-poly (list  PT100 PT101))
  (setq ENT6E0 (entlast))
  (Dog-Layer-Set "TEKEN" 7 "CONTINUOUS" )
  (dog-poly (list  PT101 PT103))
  (setq ENT6E3 (entlast))
  (Dog-Layer-Set "TEKEN" 7 "CONTINUOUS" )
  (dog-poly (list  PT103 PT102))
  (setq ENT6E6 (entlast))
  (Dog-Layer-Set "TEKEN" 7 "CONTINUOUS" )
  (dog-poly (list  PT102 PT100))
  (setq ENT6E9 (entlast))

  ; bovenkant zijwang en kozijn
  (setq PT104 (dog-cart PT102 (/ VAR3 2) 0))
  (setq PT105 (dog-cart PT103 (/ (- VAR3 ) 2) 0))
  (setq PT106 (dog-cart PT104 (/ VAR2 2) 0))
  (setq PT107 (dog-cart PT105 (/ (- VAR2 ) 2) 0))

  ; onderkant zijwang en kozijn
  (setq PT108 (dog-cart PT104 0 (/ (- VAR1 ) 2)))
  (setq PT109 (dog-cart PT106 0 (/ (- VAR1 ) 2)))
  (setq PT110 (dog-cart PT107 0 (/ (- VAR1 ) 2)))
  (setq PT111 (dog-cart PT105 0 (/ (- VAR1 ) 2)))
  (Dog-Layer-Set "TEKEN" 7 "CONTINUOUS" )
  (dog-poly (list  PT104 PT108))
  (setq ENT716 (entlast))
  (Dog-Layer-Set "TEKEN" 7 "CONTINUOUS" )
  (dog-poly (list  PT106 PT109))
  (setq ENT719 (entlast))
  (Dog-Layer-Set "TEKEN" 7 "CONTINUOUS" )
  (dog-poly (list  PT107 PT110))
  (setq ENT71C (entlast))
  (Dog-Layer-Set "TEKEN" 7 "CONTINUOUS" )
  (dog-poly (list  PT105 PT111))
  (setq ENT71F (entlast))

  ; onderlijn onderkant kozijn
  (Dog-Layer-Set "TEKEN" 7 "CONTINUOUS" )
  (dog-poly (list  PT108 PT111))
  (setq ENT722 (entlast))

  ; tekenen van lood onder kozijn
  (setq PT112 (dog-cart PT108 0 30))
  (setq PT113 (dog-cart PT112 (- 150) 0))
  (setq PT114 (dog-cart PT113 0 (- 150)))
  (setq PT115 (dog-cart PT111 0 30))
  (setq PT116 (dog-cart PT115 150 0))
  (setq PT117 (dog-cart PT116 0 (- 150)))
  (Dog-Layer-Set "CENTER" 1 "CENTER" )
  (dog-poly (list  PT112 PT113 PT114 PT117 PT116 PT115))
  (setq ENT81A (entlast))

  ; maatvoering kozijnen zijwang
  (setq PT118 (dog-cart PT108 0 (- (+ (* 7 (getvar "dimscale")) 120))))
  (Dog-Layer-Set "BEMATING" 1 "CONTINUOUS" )
    (dog-dim3 "H" PT108 PT109 PT118 nil)
  (setq ENT823 (entlast))
  (Dog-Layer-Set "BEMATING" 1 "CONTINUOUS" )
    (dog-dim3 "H" PT109 PT110 PT118 nil)
  (setq ENT97C (entlast))
  (Dog-Layer-Set "BEMATING" 1 "CONTINUOUS" )
    (dog-dim3 "H" PT110 PT111 PT118 nil)
  (setq ENTA19 (entlast))

  ; tekst lood onder kozijn
  (setq PT119 (dog-cart PT109 (/ (distance PT109 PT110) 2) (- 100)))
  (Dog-Layer-Set "TEKST" 2 "CONTINUOUS" )
    (dog-text "bc" PT119 (* 3 (getvar "dimscale")) 0 "lood 20 Kg/m2  (" aantalloodstukken 0 "/" lengteloodstuk 0 ")" )
  (setq ENTB34 (entlast))

  ; tekst kozijnmaat
  (setq PT120 (dog-cart PT119 0 (- (+ (* 12 (getvar "dimscale")) 20))))
  (Dog-Layer-Set "TEKST" 2 "CONTINUOUS" )
    (dog-text "bc" PT120 (* 3 (getvar "dimscale")) 0 "kozijnmaat" nil 0 "" nil 0 "" )
  (setq ENTAF0 (entlast))

  ; maatvoering overstek en dakkapelmaat
  (setq PT121 (dog-cart PT118 0 (- (* 12 (getvar "dimscale")))))
  (Dog-Layer-Set "BEMATING" 1 "CONTINUOUS" )
    (dog-dim3 "H" PT102 PT108 PT121 nil)
  (setq ENTAF8 (entlast))
  (Dog-Layer-Set "BEMATING" 1 "CONTINUOUS" )
    (dog-dim3 "H" PT108 PT111 PT121 nil)
  (setq ENTB0C (entlast))
  (Dog-Layer-Set "BEMATING" 1 "CONTINUOUS" )
    (dog-dim3 "H" PT111 PT103 PT121 nil)
  (setq ENTB20 (entlast))

  ; horizontale maatvoering maat lood buiten kozijn 300mm links
  (setq PT122 (dog-cart PT112 0 (* 5 (getvar "dimscale"))))
  (Dog-Layer-Set "BEMATING" 1 "CONTINUOUS" )
    (dog-dim3 "H" PT113 PT112 PT122 nil)
  (setq ENTB42 (entlast))

  ; horizontale maatvoering maat lood buiten kozijn 300mm rechts
  (setq PT123 (dog-cart PT115 0 (* 5 (getvar "dimscale"))))
  (Dog-Layer-Set "BEMATING" 1 "CONTINUOUS" )
    (dog-dim3 "H" PT115 PT116 PT123 nil)
  (setq ENTB56 (entlast))

  ; tekst merk kozijn
  (setq PT124  (DOG-MID PT107 PT109 ))
  (Dog-Layer-Set "GREEN" 3 "CONTINUOUS" )
    (dog-text "mc" PT124 (* 3 (getvar "dimscale")) 0 "MERK " nil 0 "" nil 0 "" )
  (setq ENTB6F (entlast))

  ; maatvoering vertikaal kozijnmaat
  (setq PT125 (dog-cart PT113 (- (* 10 (getvar "dimscale"))) 0))
  (Dog-Layer-Set "BEMATING" 1 "CONTINUOUS" )
    (dog-dim3 "V" PT108 PT104 PT125 nil)
  (setq ENTB7D (entlast))
  (Dog-Layer-Set "BEMATING" 1 "CONTINUOUS" )
    (dog-dim3 "V" PT102 PT100 PT125 nil)
  (setq ENTB91 (entlast))

  ; maatvoering vertikaal dakkapel
  (setq PT126 (dog-cart PT125 (- (* 7 (getvar "dimscale"))) 0))
  (Dog-Layer-Set "BEMATING" 1 "CONTINUOUS" )
    (dog-dim3 "V" PT108 PT100 PT126 nil)
  (setq ENTBA5 (entlast))

  ; cirkel met detailnummer B
  (setq PT127 (dog-cart PT105 (- (* 20 (getvar "dimscale"))) 0))
  (setq PT128 (dog-cart PT105 (* 7 (getvar "dimscale")) (- (* 15 (getvar "dimscale")))))
  (setvar "celtype" "CENTER")
  (Dog-Layer-Set "BLUE" 5 "CONTINUOUS" )
      (dog-circle  PT105 PT127 )
  (setq ENT190E (entlast))
  (setvar "celtype" "BYLAYER")
  (Dog-Layer-Set "GREEN" 3 "CONTINUOUS" )
    (dog-text "bc" PT128 (* 7.5 (getvar "dimscale")) 0 "B" nil 0 "" nil 0 "" )
  (setq ENT1D1D (entlast))

  ; tekenen van losse loodstroken boven dakkapel
  (setq PT129 (dog-cart PT100 0 100))
  (setq PT130 (dog-cart PT129 0 75))
  (setq PT131 (dog-cart PT129 250 0))
  (setq PT132 (dog-cart PT130 250 0))
  (Dog-Layer-Set "CENTER" 1 "CENTER" )
  (dog-poly (list  PT129 PT131 PT132 PT130 PT129))
  (setq ENT2334 (entlast))
  (setq PT133 (dog-cart PT101 0 100))
  (setq PT134 (dog-cart PT133 0 75))
  (setq PT135 (dog-cart PT133 (- 250) 0))
  (setq PT136 (dog-cart PT134 (- 250) 0))
  (Dog-Layer-Set "CENTER" 1 "CENTER" )
  (dog-poly (list  PT133 PT134 PT136 PT135 PT133))
  (setq ENT2337 (entlast))

  ; tekst loodstroken boven dakkapel
  (setq PT137  (DOG-MID PT131 PT135 ))
  (setq PT138 (dog-cart PT131 0 (* 5 (getvar "dimscale"))))
  (setq PT139 (dog-cart PT135 0 (* 5 (getvar "dimscale"))))
  (setq PT140 (dog-cart PT137 0 (* 5 (getvar "dimscale"))))
  (Dog-Layer-Set "RED" 1 "CONTINUOUS" )
  (dog-poly (list  PT138 PT139))
  (setq ENT252A (entlast))
  (Dog-Layer-Set "TEKST" 2 "CONTINUOUS" )
    (dog-text "bc" PT137 (* 3 (getvar "dimscale")) 0 "los meeleveren" nil 0 "" nil 0 "" )
  (setq ENT252D (entlast))
  (Dog-Layer-Set "TEKST" 2 "CONTINUOUS" )
    (dog-text "bc" PT140 (* 3 (getvar "dimscale")) 0 "lood 20 Kg/m2 2/500" nil 0 "" nil 0 "" )
  (setq ENT2530 (entlast))

  ; tekenen van stadsuitloop rechterzijde dakkapel
  (setq PT141 (dog-cart PT101 0 (- 30)))
  (setq PT142 (dog-cart PT141 0 (- 30)))
  (setq PT143 (dog-cart PT141 75 0))
  (setq PT144 (dog-cart PT142 75 0))
  (setq PT145 (dog-cart PT144 (- 10) 0))
  (setq PT146 (dog-cart PT145 (- 40) 0))
  (setq PT147 (dog-cart PT145 0 (- 10)))
  (setq PT148 (dog-cart PT146 0 (- 10)))
  (Dog-Layer-Set "RED" 1 "CONTINUOUS" )
  (dog-poly (list  PT141 PT143 PT144 PT142))
  (setq ENT273B (entlast))
  (Dog-Layer-Set "RED" 1 "CONTINUOUS" )
  (dog-poly (list  PT145 PT147 PT148 PT146))
  (setq ENT2954 (entlast))

  ; tekst hemelwaterafvoer
  (setq PT149 (dog-cart PT143 (- 15) (- 15)))
  (setq PT150 (dog-cart PT149 (* 65 (getvar "dimscale")) 0))
  (setq PT151 (dog-cart PT150 0 (- (* 5 (getvar "dimscale")))))
  (setq PT152 (dog-cart PT151 0 (- (* 5 (getvar "dimscale")))))
  (Dog-Layer-Set "RED" 1 "CONTINUOUS" )
  (dog-poly (list  PT149 PT150))
  (setq ENT2D75 (entlast))
  (Dog-Layer-Set "TEKST" 2 "CONTINUOUS" )
    (dog-text "br" PT150 (* 3 (getvar "dimscale")) 0 "HEMELWATERAFVOER" nil 0 "" nil 0 "" )
  (setq ENT2B67 (entlast))
  (Dog-Layer-Set "TEKST" 2 "CONTINUOUS" )
    (dog-text "br" PT151 (* 3 (getvar "dimscale")) 0 "leveren en aanbrengen" nil 0 "" nil 0 "" )
  (setq ENT2F91 (entlast))
  (Dog-Layer-Set "TEKST" 2 "CONTINUOUS" )
    (dog-text "br" PT152 (* 3 (getvar "dimscale")) 0 "door aannemer" nil 0 "" nil 0 "" )
  (setq ENT2F94 (entlast))

  ; tekst detailnummer c
  (setq PT153 (dog-cart PT115 (- 150) (/ (distance PT105 PT115) 3)))
  (setq PT154 (dog-cart PT153 275 0))
  (setvar "celtype" "CENTER")
  (Dog-Layer-Set "BLUE" 5 "CONTINUOUS" )
  (dog-poly (list  PT153 PT154))
  (setq ENT31BB (entlast))
  (setvar "celtype" "BYLAYER")
  (Dog-Layer-Set "GREEN" 3 "CONTINUOUS" )
    (dog-text "br" PT154 (* 7.5 (getvar "dimscale")) 0 "C" nil 0 "" nil 0 "" )
  (setq ENT31BF (entlast))

  ; tekst detailnummer 53
  (setq PT155 (dog-cart PT117 (- 350) 60))
  (setq PT156 (dog-cart PT117 150 60))
  (setq PT157 (dog-cart PT156 0 50))
  (setq PT158 (dog-cart PT156 0 150))
  (setq PT159 (dog-cart PT156 60 50))
  (setq PT160 (dog-cart PT156 (- 25) 0))
  (setvar "celtype" "CENTER")
  (Dog-Layer-Set "BLUE" 5 "CONTINUOUS" )
  (dog-poly (list  PT155 PT156 PT158 PT159 PT157))
  (setq ENT31DD (entlast))
  (setvar "celtype" "BYLAYER")
  (Dog-Layer-Set "GREEN" 3 "CONTINUOUS" )
    (dog-text "br" PT160 (* 7.5 (getvar "dimscale")) 0 "53" nil 0 "" nil 0 "" )
  (setq ENT341B (entlast))

  ; tekst getekend dakkapel
  (setq PT161 (dog-cart PT121 0 (- (* 15 (getvar "dimscale")))))
  (Dog-Layer-Set "GREEN" 3 "CONTINUOUS" )
    (dog-text "bl" PT161 (* 3 (getvar "dimscale")) 0 "x ALS GETEKEND bouwno: " nil 0 "" nil 0 "" )
  (setq ENT3891 (entlast))

  ; tekst gespiegeld dakkapel
  (setq PT162 (dog-cart PT161 0 (- (* 5 (getvar "dimscale")))))
  (Dog-Layer-Set "GREEN" 3 "CONTINUOUS" )
    (dog-text "bl" PT162 (* 3 (getvar "dimscale")) 0 "x ALS GESPIEGELD bouwno: " nil 0 "" nil 0 "" )
  (setq ENT3899 (entlast))
  (setvar "dimlfac" 1)

  (setvar "attdia" 0 )
  (setq file "DOG3VAR")
  (command "_layer" "_s" "DOG" "" )
(dog-drvar PT100 -950.0000 0.0000 20.0000 "VAR0" "Breedte kozijnmaat" (rtos VAR0 2))
  (dog-checklink (entlast))
(dog-drvar PT100 -950.0000 -150.0000 20.0000 "VAR1" "Hoogte kozijnmaat" (rtos VAR1 2))
  (dog-checklink (entlast))
(dog-drvar PT100 -950.0000 -300.0000 20.0000 "VAR2" "Dikte zijwang (excl. binnenplaat)" (rtos VAR2 2))
  (dog-checklink (entlast))
(dog-drvar PT100 -950.0000 -450.0000 20.0000 "VAR3" "Overstek buiten zijwang" (rtos VAR3 2))
  (dog-checklink (entlast))
(dog-drvar PT100 -950.0000 -600.0000 20.0000 "VAR4" "Hoogte boeiboord" (rtos VAR4 2))
  (dog-checklink (entlast))
  (command "_insert" "dog3tag"  (trans pt100 0 1)  8.0000 8.0000 0 dogcurrent )
  (dog-tagging)
  (dog-end)
(setvar "osmode" oldsnap)
);defun


kan iemand mij helpen? normaal moeten de functies:

in het begin
(setq oldsnap (getvar "osmode"))

op het einde
(setvar "osmode" oldsnap)

toch voldoende zijn?

groeten

sam

Citaat van: fcbsam op wo 07 03 2007, 09:01:37
oeps negeer die code. ik kon die dcl niet in bijlage steken maar ik voeg ze nu toe als txt

in bijlage vindt u het volledige dcl en lsp bestand.

HSB_BLOK_EDIT : dialog {
    label = "muurbeschrijving";
   
    :edit_box {
       label = "Dikte       ";
       key="PlaatVar1";
       width = 16;
    }
    :edit_box {
       label = "Omschrijving";
       key="PlaatVar2";
       width = 16;
    }
    :boxed_row {
        label="Verdeling";
        :button {
            label ="<";
            key = "Links";
        }
        :image {
            key="PlaatImage";
            aspect_ratio = 1.4;
            height=10;
        }
        :button {
            label =">";
            key = "Rechts";
        }
    }
    :edit_box {
        label= "A";
        key="PlaatVar4";
        width = 16;
    }
    :edit_box {
        label="B";
        key="PlaatVar5";
        width = 16;
    }
    ok_cancel;
}
HSB_PLAAT_EDIT : dialog {
    label = "Plaat beschrijving";
    :edit_box {
       label = "Dikte";
       key="PlaatVar1";
       width = 16;
    }
        : popup_list {
            popup_height = 4;
            label = "Omschrijving";
            value = "";
            key = "lijst";
            fixed_width_font = true;
            edit_width = 40;           
   }
       :boxed_row {
        label="Verdeling";
        :button {
            label ="<";
            key = "Links";
        }
        :image {
            key="PlaatImage";
            aspect_ratio = 1.4;
            height=10;
        }
        :button {
            label =">";
            key = "Rechts";
        }
    }
    :edit_box {
        label= "A";
        key="PlaatVar4";
        width = 16;
    }
    :edit_box {
        label="B";
        key="PlaatVar5";
        width = 16;
    }
    :edit_box {
        label="C";
        key="PlaatVar6";
        width = 16;
    }
    :edit_box {
        label="D";
        key="PlaatVar7";
        width = 16;
    }
    ok_cancel;
}

HSB_DETAIL_LIJST : dialog {
   label = "Keuze details";
      :row {
         :image {
            key="DetailImage";
            aspect_ratio = 1.4;
            height=16;
         }
         :column {
            :popup_list {
               key="DetailList";
               width = 20;
            }
            :text {
               key="DetailLabel2";
               width = 16;
            }
            :text {
               key="DetailLabel3";
               width = 16;
            }
            :text {
               key="DetailLabel4";
               width = 16;
            }
            :text {
               key="DetailLabel5";
               width = 16;
            }
            :text {
               key="DetailLabel6";
               width = 16;
            }
            :text {
               key="DetailLabel7";
               width = 16;
            }
            :text {
               key="DetailLabel8";
               width = 16;
            }
            :text {
               key="DetailLabel9";
               width = 16;
            }
            :text {
               key="DetailLabel10";
               width = 16;
            }
            :text {
               key="DetailLabel11";
               width = 16;
            }
            :text {
               key="DetailLabel12";
               width = 16;
            }
         }
      }   
      :row {
           :button {
               label= "Delete";
               key="Delete";
           }
           :button {
               label = "Cancel";
               key="cancel";
               is_cancel =true;
           }
      }
}




HSB_GAT_VAR : dialog {
   label = "Gat";
         :column {
            :edit_box {
               label="Omschrijving";
               key="Omschrijving";
               edit_width = 16;
            }
            :edit_box {
               label="Diameter ";
               key="Diameter";
               edit_width = 8;
            }
            :toggle {
               label="Boven ";
               key="Boven";
            }
            :toggle {
               label="Onder ";
               key="Onder";
            }
         }
   ok_cancel;
}




HSB_DAKP_OPENING : dialog {
   label = "Keuze openingen";
   :list_box {
        key="OpeningList";
        width = 40;
   }
   :row {
       ok_cancel;

       :button {
          label= "Delete";
          key="Delete";
       }
   }
   
}



HSB_OPENING_VAR : dialog {
    label = "Dakraam-beschrijving";
    :column {
        :boxed_column {
            :button {
               key="OpeningKeuze";
               label= "D E F A U L T";
            }
            :button {
               key="SaveDefault";
               label= "Save as default";
            }
        }
        :edit_box {
           label="Omschrijving";
           key="Omschrijving";
           edit_width = 16;
        }
        :boxed_column {
            label="Afmetingen";
            :edit_box {
               label="Hoogte boven ";
               key="HoogteBoven";
               edit_width = 8;
            }
            :edit_box {
               label="Hoogte raam ";
               key="HoogteRaam";
               edit_width = 8;
            }
            :edit_box {
               label="Afstand panlat ";
               key="AfstandPanlat";
               edit_width = 8;
            }
        }
        :boxed_column {
           label="Details";
           :row {
                :column{
                    :text{
                        label="Boven ";
                    }
                    :text{
                        label="Schuin Boven ";
                    }

                    :text{
                        label="Onder ";
                    }
                    :text{
                        label="Schuin Onder ";
                    }
                    :row {
                        :text{
                            label="Links ";
                        }
                        :edit_box {
                            key="AantalLinks";
                            edit_width = 2;
                        }
                    }
                    :row {
                        :text{
                            label="Rechts ";
                        }
                        :edit_box {
                            key="AantalRechts";
                            edit_width = 2;
                        }
                    }   
                 }
                 :column{
                    :edit_box {
                        key="DetailBoven";
                        edit_width = 12;
                    }
                    :edit_box {
                        key="DetailSchuinBoven";
                        edit_width = 12;
                    }
                    :edit_box {
                        key="DetailOnder";
                        edit_width = 12;
                    }
                    :edit_box {
                        key="DetailSchuinOnder";
                        edit_width = 12;
                    }
                    :edit_box {
                        key="DetailLinks";
                        edit_width = 12;
                    }
                    :edit_box {
                        key="DetailRechts";
                        edit_width = 12;
                    }
                 }
                 :column{   
                    :button {
                        label= "EDIT";
                        key="DetailBovenEdit";
                        fixed_width = 4;
                    }
                    :button {
                        label= "EDIT";
                        key="DetailSchuinBovenEdit";
                        fixed_width = 4;
                    }
                    :button {
                        label= "EDIT";
                        key="DetailOnderEdit";
                        fixed_width = 4;
                    }
                    :button {
                        label= "EDIT";
                        key="DetailSchuinOnderEdit";
                        fixed_width = 4;
                    }
                    :button {
                        label= "EDIT";
                        key="DetailLinksEdit";
                        fixed_width = 4;
                    }
                    :button {
                        label= "EDIT";
                        key="DetailRechtsEdit";
                        fixed_width = 4;
                    }
                }
           }
        }
     }
   ok_cancel;
}


bedankt voor de hulp. Als het lukt dat trakteer ik je!

groet sam

ja ik maak gebruik van lisp maar het zijn lisp routines die ik niet gemaakt heb.

Sam

heey,

mijn O-snap verspringt soms. ik stel mijn gegevens voor O-snap is. Ik teken en ineens is het veranderd. Weet iemand hoe dit zou kunnen komen?

Greetz Sam

het lukt nog altijd niet. Nu definieer ik mijn lijst in mijn lisp file maar hij vind de namen niet terug dus staat er niets in de lijst. Dit is mijn lisp.

(defun HSB-DAKP-Plaat-edit ( / k j l TileVar Soort)

   
    (new_dialog "HSB_PLAAT_EDIT" DAKP)

    (setq Spaanderplaten '( "Houtsp.plaat MUF" "Houtsp.pl. MUF met vellingkant" "Houtsp.plaat MUF wit" "H.sp.pl. MUF wit gegrond" "Naturspan-0" "Naturspan-0 met vellingkant" "Naturspan-0 wit gegrond" ))
    (setq k 0)
    (setq j 0)
    (setq TileVar "")
   
    (while (< k (strlen PlaatVar))
        (setq k (+ k 1))
        (setq l (substr PlaatVar k 1))
        (if (= l ";")
            (progn
                (setq j (+ j 1))
                (setq tile (strcat "PlaatVar" (itoa j)))
                (if (get_tile tile)
                    (set_tile tile tilevar)
                )
                (if (= j 3)
                   (setq Soort (atoi TileVar))
                )
                (setq TileVar "")
            );progn
            (setq TileVar (strcat TileVar l))
        )
    )
    (if (Not Soort) (setq Soort 1))
    (HSB-DAKP-Plaat-Image Soort)
   
    (action_tile "cancel"
        "(setq HSB_OK nil)(done_dialog)"
    )
   
    (action_tile "accept"
        "(setq HSB_OK 1)(HSB-DAKP-Plaat-OK)(done_dialog)"
    )
    (action_tile "Rechts"
        "(setq Soort (+ Soort 1))(if (> Soort (setq Soort 1))(HSB-DAKP-Plaat-Image Soort)"
    )
    (action_tile "Links"
        "(setq Soort (- Soort 1))(if (< Soort 1) (setq Soort )(HSB-DAKP-Plaat-Image Soort)"
    )
    (start_dialog)

)

daar in het begin heb ik dus mijn lijst gedefinieerd (Spaanderplaten) dit is mijn dcl:

     : popup_list {
      label = "Omschrijving";
      key = "Spaanderplaten";
      edit_width = 40;
      }

Weet er iemand waar dit stroef loopt?

1000 X bedankt voor de hulp

Sam

hoe moet ik die list definieren in mijn lisp file?

Sam

aah oké, Seg een klein detail. Als ik in die lijst het juist geselcteerd heb en dan weer sluit dan houd hij die keuze niet bij. hoe komt dit?

Sam

   :popup_list {
       label = "Omschrijving";
       width = 16;
       list = "\Houtsp.plaat MUF\nHoutsp.pl. MUF met vellingkant\nH.sp.pl. MUF wit gegrond\nNaturspan-0\nNaturspan-0 met vellingkant\nNaturspan-0 wit gegrond";
       height = 40;
    }

ik moest de lisp niet aanpassen...

Bedankt hé!!!

Sam

of popup_list

als ik de dcl aanpas moet de lsp dan ook aangepast worden?

Als ik op die knop 7 klik (rechts) Kom ik in het scherpje dat je links ziet. Daarin moet ik bij "omschrijving"de keuze laten maken. dus met zo een pijltje rechts. Als ik het goed versta is dit een list_box commando. maar waar moet je dit commando plaatsen? In het dcl bestand? Hoe bouw ik dit op?

Bedankt voor de hulp!

Sam

inderdaad ik ben voor het moment Vlisp aan het leren zodat ik het kan aanpassen. Ik wil wel een print screen invoegen maar euh... Hoe doe je dat?

Sam