-
Qui est en ligne 0 membre, 0 anonyme, 38 invités (Afficher la liste complète)
- Il n’y a aucun utilisateur enregistré actuellement en ligne
AutoCAD LT 2005
193 sujets dans ce forum
-
- 0 réponse
- 12,3 k vues
-
- 10 réponses
- 15,9 k vues
-
- 7 réponses
- 10,8 k vues
-
- 6 réponses
- 10,8 k vues
-
- 10 réponses
- 25,9 k vues
-
- 2 réponses
- 9,8 k vues
-
- 4 réponses
- 10,7 k vues
-
- 2 réponses
- 8,7 k vues
-
- 1 réponse
- 9,3 k vues
-
- 8 réponses
- 10,6 k vues
-
- 4 réponses
- 10,2 k vues
-
- 3 réponses
- 13,9 k vues
-
- 0 réponse
- 8,8 k vues
-
- 25 réponses
- 18,1 k vues
-
- 1 réponse
- 9,2 k vues
-
- 6 réponses
- 10,5 k vues
-
- 4 réponses
- 9,9 k vues
-
- 8 réponses
- 14,9 k vues
-
- 8 réponses
- 12,9 k vues
-
- 1 réponse
- 13,6 k vues
-
- 0 réponse
- 9,5 k vues
-
- 0 réponse
- 11,2 k vues
-
- 1 réponse
- 14,1 k vues
-
- 4 réponses
- 12,6 k vues
-
- 2 réponses
- 14,5 k vues
-
Statistiques des forums
-
Total des sujets49,1 k
-
Total des messages297,8 k
-
-
Sujets
-
-
Messages
-
Par julien1982 · Posté(e)
Bsr a tous, suite a un changement de logiciel, je possède un lisp qui a été fait pur autocad, hors aujourd’hui je travail avec GstarCAD. Comment puis je faire pour que cela fonctionne? le lisp marche jusqu'au moment de dessiner... ci joint le lisp. merci pour votre aide. ;----- Fonction d'Erreur Standard ----------------------------- (Defun DevErr (s) (If (/= s "Function cancelled") (Princ (StrCat "\nErreur: " s)) ) ;_ Fin de If (Princ "Abandon de la command") (Prin1) (Setq *error* OldErr) (Var_Rec) ) ;_ Fin de Defun ;----- Sauvegarde des variables Systémes ---------------------- (Defun Var_Sau (a) (Setq Mlst '()) (Repeat (Length a) (Setq Mlst (Append Mlst (List (List (Car a) (GetVar (Car a)))))) (Setq a (Cdr a)) ) ;_ Fin de Repeat ) ;_ Fin de Defun ;----- Rétabli les variables systémes précédemment sauvegardés -- (Defun Var_Rec () (Repeat (Length Mlst) (SetVar (Caar Mlst) (Cadar Mlst)) (Setq Mlst (Cdr Mlst)) ) ;_ Fin de Repeat ) ;_ Fin de Defun (DeFun C:AR4P (/ Echo Blip Pt1 Pt2 Pt3 Dist Y Ech Ang) (Princ "\n-Programme 4 Points Version:0-1-3 \n") ;V0-1-3-MaJ Nomenclature 203622 Suppression pince porteur- ;V0-1-2-MaJ Gestion variable OSNAPCOORD + Mise en place de la gestion TEEMO ;V0-1-1-MaJ + Montage Direct 204994 ;V0-1-0-MaJ avec utilisation blocs suspensions rigide type 49-38 49-49 + Montage 203622 Direct ;V0-0-4-MaJ Nomenclature 203622 - ;V0-0-3-Gestion Montage E inf 900mm et MaJ -Nomenclature 203622 -Determination de la position de la voie contigue ;V0-0-2-Gestion Variable angdir angbase (Setq OldErr *error* *error* DevErr ) ;_ Fin de Setq (Var_Sau '("BlipMode" "HighLight" "CmdEcho" "OsMode" "Aunits" "ANGDIR" "angbase" "OSNAPCOORD" "ATTDIA") ) ;_ Fin de Var_Sau (MapCar 'SetVar '("BlipMode" "HighLight" "CmdEcho" "Osmode" "Aunits" "ANGDIR" "angbase" "OSNAPCOORD" "ATTDIA") '(0 1 0 4 3 0 0 2 0) ) ;_ Fin de MapCar (SetQ NomCalque (Getvar "clayer")) (Command "_UCS" "_W") ;(command "modifvar" "attdia") (SetQ CheminDossier "C:/Users/julie/Desktop/Dev/Montage 4 points/Bibli25/Montage/") (Command "_-INSERT" (strcat CheminDossier "protoarm25.dwg") "0,0" "" "" "" ) ;_ Fin de Command (SetQ EProt (Entlast)) (Command "_ERASE" EProt "") ; (Command "-calque" "ch" "cat" "") ; (Initget 1 "1 2") ; (SetQ Test (GetKword "\n > 1=Millimetre 2=Metre ")) (SetQ Test "1") (Cond ((= Test "1") (SetQ TypeUni "MM" VEch 1000 ) ;_ Fin de SetQ ) ((= Test "2") (SetQ TypeUni "M" VEch 1 ) ;_ Fin de SetQ ) ) ;_ Fin de Cond (Initget 1 "1 2 3 4 5 6") (SetQ ValIso (GetkWord "\n > 1:Verre Nor 2:Verre Renfor 3:Composite Renfor 4:Ceramique Nor 5:Ceramique Renfor 6:Composite Nor " ) ;_ Fin de GetkWord ) ;_ Fin de SetQ (Cond ((= ValIso "1") (SetQ TypeIso "VN" DeltaLgIso 0 SusFixCon 100 SusFixHau 100 LgIso 500 ) ;_ Fin de SetQ ) ((= ValIso "2") (SetQ TypeIso "VR" DeltaLgIso 124 SusFixCon 150 SusFixHau 150 LgIso 625 ) ;_ Fin de SetQ ) ((= ValIso "3") (SetQ TypeIso "CO" DeltaLgIso 124 SusFixCon 300 SusFixHau 300 LgIso 625 ) ;_ Fin de SetQ ) ((= ValIso "4") (SetQ TypeIso "CN" DeltaLgIso 0 SusFixCon 200 SusFixHau 200 LgIso 500 ) ;_ Fin de SetQ ) ((= ValIso "5") (SetQ TypeIso "CR" DeltaLgIso 124 SusFixCon 250 SusFixHau 250 LgIso 625 ) ;_ Fin de SetQ ) ((= ValIso "6") (SetQ TypeIso "CON" DeltaLgIso 0 SusFixCon 400 SusFixHau 400 LgIso 500 ) ;_ Fin de SetQ ) ) ;_ Fin de Cond (Initget 1 "1 2") (SetQ ValRecoup (GetkWord "\n > Depassement Tube de Console >> 1:STI160-STI200/200mm 2:T85/150mm " ) ;_ Fin de GetkWord ) ;_ Fin de SetQ (Cond ((= ValRecoup "1") (SetQ BoutTube 200) ;------Depassement du tube de console ) ((= ValRecoup "2") (SetQ BoutTube 150) ;------Depassement du tube de console ) ) ;_ Fin de Cond (Initget 1 "o n") (SetQ ReCoupCon (GetkWord "\n > Recoupe de Console O/N " ) ;_ Fin de GetkWord ) ;_ Fin de SetQ (Initget 1 "1 2 3") (SetQ ValSusP (GetkWord "\n Choix Supension Porteur > 1:Porteur Nu 2:Porteur Protégé 3:Porteur Double" ) ;_ Fin de GetkWord ) ;_ Fin de SetQ (Cond ((= ValSusP "1") (SetQ PinceP "202218" ;--- Pince porteur SusP "232870" ;--- Suspension porteur LgPinPor (* 0.0695 VEch) ;--Longueur de la pince de suspension porteur LgAttPor (* 0.110 VEch) ;--- Longueur de lattache de la pince sur le tube LgSusPInf (* 0.0385 VEch) ;--- Longueur sous la pince porteur LgSusPLat (* 0.0055 VEch) ;--- Decalage lateral sous la pince porteur LgPinPLat (* 0 VEch) ;--- Decalage lateral de l'axe pince / porteur TxDesPin "Suspension 1 porteur" TxPlaPin "232870" TxRepPin "101" ) ;_ Fin de SetQ ) ((= ValSusP "2") (SetQ PinceP "232899-101-A" ;--- Pince porteur SusP "232899_101_B" ;--- Suspension porteur LgPinPor (* 0.0900 VEch) ;--Longueur de la pince de suspension porteur LgAttPor (* 0.110 VEch) ;--- Longueur de lattache de la pince sur le tube LgSusPInf (* 0.0450 VEch) ;--- Longueur sous la pince porteur LgSusPLat (* 0 VEch) ;--- Decalage lateral sous la pince porteur LgPinPLat (* 0 VEch) ;--- Decalage lateral de l'axe pince / porteur TxDesPin "Suspension 1 porteur Protégé" TxPlaPin "232899" TxRepPin "101" ) ;_ Fin de SetQ ) ((= ValSusP "3") (SetQ PinceP "202221" ;--- Pince porteur SusP "232870" ;--- Suspension porteur LgPinPor (* 0.0695 VEch) ;--Longueur de la pince de suspension porteur LgAttPor (* 0.110 VEch) ;--- Longueur de lattache de la pince sur le tube LgSusPInf (* 0.0385 VEch) ;--- Longueur sous la pince porteur LgSusPLat (* 0.00925 VEch) ;--- Decalage lateral sous la pince porteur LgPinPLat (* 0.0095 VEch) ;--- Decalage lateral de l'axe pince / porteur TxDesPin "Suspension 2 porteurs" TxPlaPin "232871" TxRepPin "101" ) ;_ Fin de SetQ ) ) ;_ Fin de Cond (Initget 1 "1 204935 2 204498 3 204932 4 204499 5 204994 6 203622 10 DIRECT 20 VieuxAnti" ) ;_ Fin de Initget (SetQ ValAnti (GetkWord "\n Choix Anti > 1:204935 2:204498 3:204932 4:204499 5:204994 6:203622 --> 10:Montage direct --> 20:VieuxAnti " ) ;_ Fin de GetkWord ) ;_ Fin de SetQ (Cond ((Or (= ValAnti "1") (= ValAnti "204935")) (SetQ TypeAnti "204935" TypeAtt "204885" LgAttAnt (* 0.055 VEch) LgAntY (* 0.40579 VEch) SensAnti "O" TypeSusRigide "_49-38_INF" ) ;_ Fin de SetQ ) ((Or (= ValAnti "2") (= ValAnti "204498")) (SetQ TypeAnti "204498" TypeAtt "204885" LgAttAnt (* 0.055 VEch) LgAntY (* 0.066 VEch) SensAnti "N" ) ;_ Fin de SetQ ) ((Or (= ValAnti "3") (= ValAnti "204932")) (SetQ TypeAnti "204932" TypeAtt "204885" LgAttAnt (* 0.055 VEch) LgAntY (* 0.30685 VEch) SensAnti "O" ) ;_ Fin de SetQ ) ((Or (= ValAnti "4") (= ValAnti "204499")) (SetQ TypeAnti "204499" TypeAtt "204885" LgAttAnt (* 0.055 VEch) LgAntY (* 0.6000 VEch) SensAnti "O" ) ;_ Fin de SetQ ) ((Or (= ValAnti "5") (= ValAnti "204994")) (SetQ TypeAnti "204994" TypeAtt "232879" LgAttAnt (* 0.050 VEch) LgAntY (* 0.500 VEch) SensAnti "O" TypeSusRigide "_49-49_INF" ) ;_ Fin de SetQ ) ((Or (= ValAnti "6") (= ValAnti "203622")) (SetQ TypeAnti "203622" TypeAtt "232879" LgAttAnt (* 0.050 VEch) SensAnti "O" LgBrasDep (* 1.01 VEch) TypeSusRigide "_49-49_INF" ) ;_ Fin de SetQ ) ((Or (= ValAnti "10") (= ValAnti "Direct")) (SetQ TypeAnti "Direct" ) ;_ Fin de SetQ ) ((Or (= ValAnti "20") (= ValAnti "VieuxAnti")) (SetQ TypeAnti "VieuxAnti" ) ;_ Fin de SetQ ) ) ;_ Fin de Cond (If (= TypeAnti "Direct") (Progn (Initget 1 "1 204520 2 204519 3 204499D 4 203622D 5 204994D 6 204932" ) ;_ Fin de Initget (SetQ ValAnti (GetkWord "\n Choix Anti > Montage direct->-> 1:204520 2:204519 3:204499D 4:203622D 5:204994D 6:204932 " ) ;_ Fin de GetkWord ) ;_ Fin de SetQ (Cond ((Or (= ValAnti "1") (= ValAnti "204520")) (SetQ TypeAnti "204520" TypeAtt "204885" LgAttAnt (* 0.055 VEch) LgAntY (* 0.600 VEch) SensAnti "N" ) ;_ Fin de SetQ ) ((Or (= ValAnti "2") (= ValAnti "204519")) (SetQ TypeAnti "204519" TypeAtt "204885" LgAttAnt (* 0.055 VEch) LgAntY (* 0.600 VEch) SensAnti "N" ) ;_ Fin de SetQ ) ((Or (= ValAnti "3") (= ValAnti "204499D")) (SetQ TypeAnti "204499" TypeAtt "204885" LgAttAnt (* 0.055 VEch) LgAntY (* 0.600 VEch) SensAnti "N" ) ;_ Fin de SetQ ) ((Or (= ValAnti "4") (= ValAnti "203622D")) (SetQ TypeAnti "203622" TypeAtt "204885" LgAttAnt (* 0.055 VEch) LgAntY (* 0.600 VEch) SensAnti "N" ) ;_ Fin de SetQ ) ((Or (= ValAnti "5") (= ValAnti "204994D")) (SetQ TypeAnti "204994" TypeAtt "204885" LgAttAnt (* 0.055 VEch) LgAntY (* 0.600 VEch) SensAnti "N" ) ;_ Fin de SetQ ) ((Or (= ValAnti "6") (= ValAnti "204932")) (SetQ TypeAnti "204932" TypeAtt "204885" LgAttAnt (* 0.055 VEch) LgAntY (* 0.600 VEch) SensAnti "N" ) ;_ Fin de SetQ ) ) ; ---- Fin Cond ) ; ---- Fin Progn ) ; ---- Fin If (If (= TypeAnti "VieuxAnti") (Progn (Initget 1 "1 204933 2 204900 3 203270 4 203500 5 203950 6 203250 7 203250" ) ;_ Fin de Initget (SetQ ValAnti (GetkWord "\n Choix Vieux Anti > 1:204933 2:204900 3:203270 4:203500 5:203950 6:203960 7:203250 " ) ;_ Fin de GetkWord ) ;_ Fin de SetQ (Cond ((Or (= ValAnti "1") (= ValAnti "204933")) (SetQ TypeAnti "204933" TypeAtt "204885" LgAttAnt (* 0.055 VEch) LgAntY (* 0.40579 VEch) SensAnti "O" ) ;_ Fin de SetQ ) ((Or (= ValAnti "2") (= ValAnti "204900")) (SetQ TypeAnti "204900" TypeAtt "204885" LgAttAnt (* 0.055 VEch) LgAntY (* 0.066 VEch) SensAnti "N" ) ;_ Fin de SetQ ) ((Or (= ValAnti "3") (= ValAnti "203270")) (SetQ TypeAnti "203270" TypeAtt "204772" LgAttAnt (* 0.039 VEch) LgAntY (* 0.250 VEch) SensAnti "O" ) ;_ Fin de SetQ ) ((Or (= ValAnti "4") (= ValAnti "203500")) (SetQ TypeAnti "203500" TypeAtt "204772" LgAttAnt (* 0.039 VEch) LgAntY (* 0.400 VEch) SensAnti "O" ) ;_ Fin de SetQ ) ((Or (= ValAnti "5") (= ValAnti "203950")) (SetQ TypeAnti "203950-T" TypeAtt "204772" LgAttAnt (* 0.039 VEch) LgAntY (* 0.310 VEch) SensAnti "N" ) ;_ Fin de SetQ ) ((Or (= ValAnti "6") (= ValAnti "203960")) (SetQ TypeAnti "203960-C" TypeAtt "204772" LgAttAnt (* 0.039 VEch) LgAntY (* 0.400 VEch) SensAnti "N" ) ;_ Fin de SetQ ) ((Or (= ValAnti "7") (= ValAnti "203250")) (SetQ TypeAnti "203250" TypeAtt "204885" LgAttAnt (* 0.055 VEch) LgAntY (* 0.6000 VEch) SensAnti "N" ) ;_ Fin de SetQ ) ) ; ---- Fin Cond ) ; ---- Fin Progn ) ; ---- Fin If (SetQ RepAntiAig "") (If (= SensAnti "O") (Progn (Initget 1 "T C") (SetQ SensAnti (GetkWord "\n > Montage anti Tension Compression: T C " ) ;_ Fin de GetkWord Typeanti (strcat TypeAnti "-" SensAnti) ) ;_ Fin de SetQ ) ;_ Fin de Progn ) ;_ Fin de If (If (= TypeAnti "203622-C") (SetQ LgAntY (* 0.5000 VEch)) ) ;_ Fin de If (If (= TypeAnti "203622-T") (SetQ LgAntY (* 0.230 VEch)) ) ;_ Fin de If (SetQ PtHauD (GetPoint "\nAttache de l'hauban") PtConD (GetPoint "\nAttache de la console") ) ;_ Fin de SetQ (SetVar "Osmode" 45) (SetQ PtFc (GetPoint "\nPosition Fc") PtPor (GetPoint "\nPosition Porteur") XFc (car PtFc) ;--- Recuperation le l'ordonne X du Point du FC YFc (Cadr PtFc) ;--- Recuperation le l'ordonne Y du Point du FC DeltaFc (- (Cadr PtConD) YFc) ;PtPor (List Xfc (+ YFc Encom)) PtCer (list (- (Car PtPor) LgPinPLat) (+ LgPinPor (Cadr PtPor))) PtTan (list (Car PtCer) (+ LgAttPor (Cadr PtCer))) Encom (distance PtFc PtPor) Ech 0.001 ) ;_ Fin de SetQ (If (Or (= TypeAnti "203622-T") (= TypeAnti "203622-C") ) ;-- Fin Or (Progn (Initget 1 "O N") (SetQ Test (GetkWord "\n > Determination longeur du bras en indiquant l'axe de la voie contigue: O/N ") ) (If (/= Test "N") (Progn (SetQ PtVoieC (GetPoint "\nPosition de l'axe voie contigue ") DistEntreV (abs (- (Car PtFc) (Car PtVoieC))) MsgBr (strcat "\n Longueur du Bras.(lg:1010 > 2160 / Calculé : " (Rtos (+ DistEntreV 1150)2 0) " -> ? ") ) ;-- Fin SetQ ) ;--- Fin Progn (SetQ MsgBr "\nLongueur du Bras.(lg:1010 > 2160 / Moy 1585 ) -> ? ") ) ;--- Fin If (Initget 7) (SetQ LgBras (GetReal MsgBr ) ;_ Fin de GetReal ) ;_ Fin de SetQ (If (> LgBras 1740) (SeTQ RepAntiAig "102") (If (> LgBras 1408) (SeTQ RepAntiAig "101") (SeTQ RepAntiAig "100") ) ;-- Fin iF ) ;-- Fin iF ) ;-- Fin Progn ) ;--- Fin If (Initget 1 "1 2 3 4 5") (SetQ DraCot (GetReal "\nCotation 0=St1 1=St1-1 2=St1-2 3=St1-3 ")) (SetQ Cot (StrCat "ARM_0_" TypeUni) TxCot "" TxNArm "0" ) ;_ Fin de SetQ (If (= DraCot 1) (SetQ Cot (StrCat "ARM_1_" TypeUni) TxCot " (1)" TxNArm "1" ) ;_ Fin de SetQ ) ;_ Fin de If (If (= DraCot 2) (SetQ Cot (StrCat "ARM_2_" TypeUni) TxCot " (2)" TxNArm "2" ) ;_ Fin de SetQ ) ;_ Fin de If (If (= DraCot 3) (SetQ Cot (StrCat "ARM_3_" TypeUni) TxCot " (3)" TxNArm "3" ) ;_ Fin de SetQ ) ;_ Fin de If (SetVar "Osmode" 0) (Command "_CIRCLE" PtCer LgAttPor) (SetQ ECerG (entlast)) (SetVar "Osmode" 256) (Command "_LINE" "_none" PtConD PtTan "") (SetVar "Osmode" 0) (SetQ ELin (entlast) PtConA (cdr (assoc 11 (entget ELin))) ;---Point insertion de la console DistCon (Distance PtConD PtConA) ;----Longueur de la console AngCon (Angle PtConD PtConA) ;----Angle de la console ) ;_ Fin de SetQ (Command "_ERASE" ECerG ELin "") (Command "_CIRCLE" PtConA (* 0.05 VEch)) (SetQ ECerP (entlast) ) ;_ Fin de SetQ (Command "_LINE" PtCer PtConA "") (SetQ ELinP (entlast) ) ;_ Fin de SetQ (Command "_EXTEND" ECerP "" PtConA "") (SetQ PtHauA (cdr (assoc 11 (entget ELinP))) DistHau (Distance PtHauD PtHauA) ;---Longueur du hauban AngHau (Angle PtHauD PtHauA) ;---Angle du haban ) ;_ Fin de SetQ (Command "zoom" "f" (list (* -1.350 VEch) (* -15.4 VEch)) (list (* 2.200 VEch) (* -14.2 VEch)) ) ;_ Fin de Command (Command "_ERASE" ECerP ELinP "") (If (and (= TypeAnti "204935-C") (< Encom 900) ) (SetQ TypeSusRigide "_49-38_SUP" BoutTube (+ BoutTube 200) ) ) ;------Assignation des Consoles (If (> DistCon (- (+ 5590 DeltaLgIso) BoutTube)) (SetQ TxLgCon "Hors Liste" TxRepCon "Hors Liste" ) ;_ Fin de SetQ ) ;_ Fin de If (If (<= DistCon (- (+ 5590 DeltaLgIso) BoutTube)) (SetQ TxLgCon (Rtos (+ 5.59 (/ DeltaLgIso 1000.0)) 2 2) TxRepCon (+ SusFixCon 14) ) ;_ Fin de SetQ ) ;_ Fin de If (If (<= DistCon (- (+ 5290 DeltaLgIso) BoutTube)) (SetQ TxLgCon (Rtos (+ 5.29 (/ DeltaLgIso 1000.0)) 2 2) TxRepCon (+ SusFixCon 13) ) ;_ Fin de SetQ ) ;_ Fin de If (If (<= DistCon (- (+ 4990 DeltaLgIso) BoutTube)) (SetQ TxLgCon (Rtos (+ 4.99 (/ DeltaLgIso 1000.0)) 2 2) TxRepCon (+ SusFixCon 12) ) ;_ Fin de SetQ ) ;_ Fin de If (If (<= DistCon (- (+ 4690 DeltaLgIso) BoutTube)) (SetQ TxLgCon (Rtos (+ 4.69 (/ DeltaLgIso 1000.0)) 2 2) TxRepCon (+ SusFixCon 11) ) ;_ Fin de SetQ ) ;_ Fin de If (If (<= DistCon (- (+ 4390 DeltaLgIso) BoutTube)) (SetQ TxLgCon (Rtos (+ 4.39 (/ DeltaLgIso 1000.0)) 2 2) TxRepCon (+ SusFixCon 10) ) ;_ Fin de SetQ ) ;_ Fin de If (If (<= DistCon (- (+ 4090 DeltaLgIso) BoutTube)) (SetQ TxLgCon (Rtos (+ 4.09 (/ DeltaLgIso 1000.0)) 2 2) TxRepCon (+ SusFixCon 9) ) ;_ Fin de SetQ ) ;_ Fin de If (If (<= DistCon (- (+ 3790 DeltaLgIso) BoutTube)) (SetQ TxLgCon (Rtos (+ 3.79 (/ DeltaLgIso 1000.0)) 2 2) TxRepCon (+ SusFixCon 8) ) ;_ Fin de SetQ ) ;_ Fin de If (If (<= DistCon (- (+ 3490 DeltaLgIso) BoutTube)) (SetQ TxLgCon (Rtos (+ 3.49 (/ DeltaLgIso 1000.0)) 2 2) TxRepCon (+ SusFixCon 7) ) ;_ Fin de SetQ ) ;_ Fin de If (If (<= DistCon (- (+ 3190 DeltaLgIso) BoutTube)) (SetQ TxLgCon (Rtos (+ 3.19 (/ DeltaLgIso 1000.0)) 2 2) TxRepCon (+ SusFixCon 6) ) ;_ Fin de SetQ ) ;_ Fin de If (If (<= DistCon (- (+ 2890 DeltaLgIso) BoutTube)) (SetQ TxLgCon (Rtos (+ 2.89 (/ DeltaLgIso 1000.0)) 2 2) TxRepCon (+ SusFixCon 5) ) ;_ Fin de SetQ ) ;_ Fin de If (If (<= DistCon (- (+ 2590 DeltaLgIso) BoutTube)) (SetQ TxLgCon (Rtos (+ 2.59 (/ DeltaLgIso 1000.0)) 2 2) TxRepCon (+ SusFixCon 4) ) ;_ Fin de SetQ ) ;_ Fin de If (If (<= DistCon (- (+ 2290 DeltaLgIso) BoutTube)) (SetQ TxLgCon (Rtos (+ 2.29 (/ DeltaLgIso 1000.0)) 2 2) TxRepCon (+ SusFixCon 3) ) ;_ Fin de SetQ ) ;_ Fin de If (If (<= DistCon (- (+ 1990 DeltaLgIso) BoutTube)) (SetQ TxLgCon (Rtos (+ 1.99 (/ DeltaLgIso 1000.0)) 2 2) TxRepCon (+ SusFixCon 2) ) ;_ Fin de SetQ ) ;_ Fin de If (If (<= DistCon (- (+ 1690 DeltaLgIso) BoutTube)) (SetQ TxLgCon (Rtos (+ 1.69 (/ DeltaLgIso 1000.0)) 2 2) TxRepCon (+ SusFixCon 1) ) ;_ Fin de SetQ ) ;_ Fin de If (If (/= TxRepCon "Hors Liste") (SetQ TxDesCon (StrCat "Console isolée Lg:" TxLgCon "m")) (SetQ TxDesCon "Console isolée Hors Liste") ) ;_ Fin de If (SetQ TxPlaCon "227281") ;------- Fin Pour la console (Command "_-INSERT" (strcat CheminDossier "227281" TypeIso ".dwg") (list 0 (* -15 VEch)) (* Ech VEch) "" 0 ) ;_ Fin de Command (Command "_ISOLATEOBJECTS" "D" "") (SetQ ECon (entlast)) (Command "_EXPLODE" ECon) (SetQ EDec (ssget "P")) (Command "chprop" EDec "" "calque" NomCalque "") (If (= TxLgCon "Hors Liste") (SetQ ReCoupCon "o" ValRecoup 200 ) ;_ Fin de SetQ ) ;_ Fin de If (If (= ReCoupCon "o") (SetQ DistConHt (+ DistCon BoutTube)) (SetQ DistConHt (* (Distof TxLgCon 2) 1000)) ) ;_ Fin de If (SetQ DeltaDist (- DistConHt (* 1.56 VEch))) ;--- Reclage de la console (SetQ PtDelta (list DeltaDist 0)) (Command "_STRETCH" "c" (list (* 1.76 VEch) (* -14.8 VEch)) (list (* 1.36 VEch) (* -15.2 VEch)) "" "_none" "0,0" "_none" PtDelta ) ;_ Fin de Command (Command "_UnIsolateObjects") (Command "_MOVE" EDec "" (List 0 (* -15 VEch)) PtConD) (Command "rotation" EDec "" PtConD AngCon) ;---Asignation des haubans (if (<= DistHau (+ 1660 DeltaLgIso)) (SetQ TxRepHau (+ SusFixHau 1)) ) ;_ Fin de if (if (And (> DistHau (+ 1660 DeltaLgIso)) (<= DistHau (+ 2060 DeltaLgIso)) ) ;_ Fin de And (SetQ TxRepHau (+ SusFixHau 2)) ) ;_ Fin de if (if (And (> DistHau (+ 2060 DeltaLgIso)) (<= DistHau (+ 2460 DeltaLgIso)) ) ;_ Fin de And (SetQ TxRepHau (+ SusFixHau 3)) ) ;_ Fin de if (if (And (> DistHau (+ 2460 DeltaLgIso)) (<= DistHau (+ 2810 DeltaLgIso)) ) ;_ Fin de And (SetQ TxRepHau (+ SusFixHau 4)) ) ;_ Fin de if (if (And (> DistHau (+ 2810 DeltaLgIso)) (<= DistHau (+ 3110 DeltaLgIso)) ) ;_ Fin de And (SetQ TxRepHau (+ SusFixHau 5)) ) ;_ Fin de if (if (And (> DistHau (+ 3110 DeltaLgIso)) (<= DistHau (+ 3410 DeltaLgIso)) ) ;_ Fin de And (SetQ TxRepHau (+ SusFixHau 6)) ) ;_ Fin de if (if (And (> DistHau (+ 3410 DeltaLgIso)) (<= DistHau (+ 3710 DeltaLgIso)) ) ;_ Fin de And (SetQ TxRepHau (+ SusFixHau 7)) ) ;_ Fin de if (if (And (> DistHau (+ 3710 DeltaLgIso)) (<= DistHau (+ 4010 DeltaLgIso)) ) ;_ Fin de And (SetQ TxRepHau (+ SusFixHau 8)) ) ;_ Fin de if (if (And (> DistHau (+ 4010 DeltaLgIso)) (<= DistHau (+ 4310 DeltaLgIso)) ) ;_ Fin de And (SetQ TxRepHau (+ SusFixHau 9)) ) ;_ Fin de if (if (And (> DistHau (+ 4310 DeltaLgIso)) (<= DistHau (+ 4610 DeltaLgIso)) ) ;_ Fin de And (SetQ TxRepHau (+ SusFixHau 10)) ) ;_ Fin de if (if (And (> DistHau (+ 4610 DeltaLgIso)) (<= DistHau (+ 4910 DeltaLgIso)) ) ;_ Fin de And (SetQ TxRepHau (+ SusFixHau 11)) ) ;_ Fin de if (if (And (> DistHau (+ 4910 DeltaLgIso)) (<= DistHau (+ 5360 DeltaLgIso)) ) ;_ Fin de And (SetQ TxRepHau (+ SusFixHau 12)) ) ;_ Fin de if (if (> DistHau (+ 5360 DeltaLgIso)) (SetQ TxRepHau "Hors Liste") ) ;_ Fin de if (SetQ TxDesHau "Hauban isolé Ø28" TxPlaHau "232268" ) ;_ Fin de SetQ ;------- Fin Pour le hauban (Command "_-INSERT" (Strcat CheminDossier "232268" TypeIso ".dwg") (list 0 (* -15 VEch)) (* Ech VEch) "" 0 ) ;_ Fin de Command (Command "_ISOLATEOBJECTS" "D" "") (Command "_EXPLODE" "D") (SetQ EDec (ssget "P") DeltaDist (- DistHau (* 1.56 VEch)) PtDelta (list DeltaDist 0) ) ;_ Fin de SetQ (Command "chprop" EDec "" "calque" NomCalque "") (Command "_STRETCH" "c" (list (* 1.76 VEch) (* -14.8 VEch)) (list (* 1.36 VEch) (* -15.2 VEch)) "" "0,0" PtDelta ) ;_ Fin de Command (Command "_UnIsolateObjects") (Command "_MOVE" EDec "" (list 0 (* -15 VEch)) PtHauD) (Command "_ROTATE" EDec "" PtHauD AngHau) (SetQ LgAnt (- (Car PtFc) (Car PtConD)) ) ;_ Fin de SetQ (If (< LgAnt 0) (SetQ CorrCon (/ pi 2) Gamma (- AngCon CorrCon) CorrAtt (+ Gamma Pi) CorrRot 1 AngAttHau (+ Gamma pi) ) ;_ Fin de SetQ (SetQ CorrCon (/ pi 2) Gamma (- CorrCon AngCon) CorrAtt (- (* 2 Pi) (- (/ Pi 2) AngCon)) CorrRot -1 AngAttHau (* CorrRot gamma) ) ;_ Fin de SetQ ) ;_ Fin de If (SetQ Xa (* (Sin Gamma) (/ LgAttAnt (Cos Gamma))) Xb (/ (- LgAntY DeltaFc) (Cos Gamma)) PtAtt (Polar PtConD AngCon (+ Xa Xb)) PtAnt (Polar PtAtt CorrAtt LgAttAnt) DistAnt (Abs (- (Car PtFc) (Car PtAnt))) ) ;_ Fin de SetQ ;--- Insertion Pince Porteur (Command "_-INSERT" (strcat CheminDossier PinceP ".dwg") PtPor (* Ech VEch) "" (/ pi 2) ) ;_ Fin de Command ;--- Insertion Suspension Anti (Command "_-INSERT" (strcat CheminDossier SusP ".dwg") PtConA (* Ech VEch) "" AngAttHau ) ;_ Fin de Command ;--- Insertion Attache anti (if (And (/= TypeAnti "203250") (/= TypeAnti "204520") (/= TypeAnti "204519") (/= TypeAnti "204499") (/= TypeAnti "203622") (/= TypeAnti "204994") (/= TypeAnti "204932") ) (Command "_-INSERT" (strcat CheminDossier TypeAtt ".dwg") PtAtt (* Ech VEch) "" PtAnt ) ;_ Fin de Command ) ;_ Fin de if ;--- Insertion Antibanlancant (Command "_-INSERT" (strcat CheminDossier TypeAnti RepAntiAig ".dwg") (list 0 (* -15 VEch)) (* Ech VEch) "" 0 ) ;_ Fin de Command (Command "_ISOLATEOBJECTS" "D" "") (SetQ EAnt (entlast)) (If (And (/= TypeAnti "203250") (/= TypeAnti "204520") (/= TypeAnti "204519") (/= TypeAnti "204499") (/= TypeAnti "203622") (/= TypeAnti "204994") (/= TypeAnti "204932") ) (Progn (Command "_EXPLODE" "D" "") (SetQ EAnt (ssget "P") DeltaDist (- DistAnt (* 1.56 VEch)) PtDelta (list DeltaDist 0) ) ;_ Fin de SetQ (Command "chprop" EAnt "" "calque" NomCalque "") (Command "_STRETCH" "c" (list (* 2 VEch) (* -14.2 VEch)) (List (* 1.425 VEch) (* -15.2 VEch)) "" "0,0" PtDelta ) ;_ Fin de Command ) ;---- fin Progn ) ;---fin if (If (= TypeAnti "203622-C") (Progn (SetQ DeltaDist (* (- LgBras LgBrasDep) -1) PtDelta (list DeltaDist 0) ) ;_ Fin de SetQ (Command "_STRETCH" "c" "-200,-14200" "-1350,-15200" "" "0,0" PtDelta) ;_ Fin de Command ;_ Fin de Command ) ;--- Fin Progn ) ;--- Fin IF (If (= TypeAnti "203622-T") (Progn (SetQ DeltaDist (- LgBras LgBrasDep) PtDelta (list DeltaDist 0) ) ;_ Fin de SetQ (Command "_STRETCH" "c" "1200,-14200" "460,-15200" "" "0,0" PtDelta) ;_ Fin de Command ;_ Fin de Command ) ;--- Fin Progn ) ;--- Fin IF ;(Command "chprop" EAnt "" "calque" NomCalque "") (If (> LgAnt 0) (Command "miroir" Eant "" "0,-15" "0,-16" "o") ) ;_ Fin de If (Command "_UnIsolateObjects") (Command "_MOVE" EAnt "" (list 0 (* -15 VEch)) PtFc) ;--- tracage ligne pour la suspension anti ; (SetQ PtSupD (List (- (Car PtPor) (* 0.0055 VEch)) (- (Cadr PtPor) (* 0.0385 VEch))) ; PtSupA (List (+ XFc (* (* 0.4 VEch) CorrRot)) (+ YFc LgAntY (* 0.025 VEch))) ; ) ; (Command "ligne" PtSupD PtSupA "") ;--- Insertion suspension anti tension (If (Or (= TypeAnti "204935-T") (= TypeAnti "204933-T") (= TypeAnti "204498") (= TypeAnti "204932-T") (= TypeAnti "204932-C") (= TypeAnti "204900") (= TypeAnti "203270-T") (= TypeAnti "203270-C") (= TypeAnti "203500-C") (= TypeAnti "203500-T") (= TypeAnti "203960-T") (= TypeAnti "203960-C") (= TypeAnti "204499-T") ) ;_ Fin de Or (Command "_-INSERT" (strcat CheminDossier "SUSPENSION-SOUPLE-DYN.dwg") (List (- (Car PtPor) LgSusPLat) (- (Cadr PtPor) LgSusPInf)) (* Ech VEch) "" 0 ) ;_ Fin de Command ) ;_ Fin de If ;--- Choix de mise en place d'une suspension compression (If (Or (= TypeAnti "204935-C") (= TypeAnti "204994-C") (= TypeAnti "204499-C") (= TypeAnti "203622-C") ) ;_ Fin de Or (Progn (Command "_-INSERT" (strcat CheminDossier "SUS_RIGIDE_CARRE_DYN" TypeSusRigide ".dwg") PtConA "1" "" 0 ) ;--- Insertion suspension anti compression (If (> LgAnt 0) (Command "miroir" "d" "" PtConA (list (car PtConA) (+ (cadr PtConA) 10)) "o" ) ;--mirroir si montage a droit du support ) ;_ Fin de If ) ;_ Fin de Progn ) ;_ Fin de If ;--- Insertion blocage de pince (If (Or (= TypeAnti "203622-T") (= TypeAnti "203622-C") (= TypeAnti "203622") ) ;_ Fin de Or (Progn (Command "_-INSERT" (strcat CheminDossier "232921.dwg") (List (- (Car PtPor) LgSusPLat) (- (Cadr PtPor) LgSusPInf)) "1" "" 0 ) ;_ Fin de Command (If (> LgAnt 0) (Command "miroir" "d" "" (List (- (Car PtPor) LgSusPLat) (- (Cadr PtPor) LgSusPInf) ) ;_ Fin de List (List (- (Car PtPor) LgSusPLat) (+ (- (Cadr PtPor) LgSusPInf) 100) ) ;_ Fin de List "o" ) ;--mirroir si montage a droit du support ) ;_ Fin de If ) ;_ Fin de Progn ) ;_ Fin de If ;--- Insertion Blocage Hauban-Console (If (Or (= TypeAnti "203622-T") (= TypeAnti "203622-C") (= TypeAnti "204994-T") (= TypeAnti "204994-C") (= TypeAnti "203622") (= TypeAnti "204994") ) ;_ Fin de Or (Progn (SetQ PtSusVri (Inters PtHauA PtHauD PtConA PtConD Nil)) (Command "_-INSERT" (strcat CheminDossier "SUS_CONSOLE_HAUBAN_DYN.dwg") PtSusVri "1" "" 0 ) ;_ Fin de Command (If (> LgAnt 0) (Command "miroir" "d" "" PtSusVri (List (Car PtSusVri) (+ (Cadr PtSusVri) 100) ) ;_ Fin de List "o" ) ;--mirroir si montage a droit du support ) ;_ Fin de If ) ;_ Fin de Progn ) ;_ Fin de If (Cond ((= TypeAnti "204935-T") (SetQ XPtAntB 0.20)) ((= TypeAnti "204935-C") (SetQ XPtAntB -1.30)) ((= TypeAnti "204498") (SetQ XPtAntB -0.10)) ((= TypeAnti "204932-T") (SetQ XPtAntB 0.30)) ((= TypeAnti "204932-C") (SetQ XPtAntB -1.30)) ((= TypeAnti "204933-T") (SetQ XPtAntB 0.20)) ((= TypeAnti "204933-C") (SetQ XPtAntB -1.30)) ((= TypeAnti "204900") (SetQ XPtAntB -0.10)) ((= TypeAnti "203270-T") (SetQ XPtAntB 0.20)) ((= TypeAnti "203270-C") (SetQ XPtAntB -1.135)) ((= TypeAnti "203500-T") (SetQ XPtAntB 0.10)) ((= TypeAnti "203500-C") (SetQ XPtAntB -1.100)) ((= TypeAnti "204994-T") (SetQ XPtAntB 0.10)) ((= TypeAnti "204994-C") (SetQ XPtAntB -1.222)) ((= TypeAnti "203950-T") (SetQ XPtAntB 0.8319)) ((= TypeAnti "203960-C") (SetQ XPtAntB -1.0719)) ((= TypeAnti "204499-T") (SetQ XPtAntB -0.35)) ((= TypeAnti "204499-C") (SetQ XPtAntB -1.50)) ((= TypeAnti "203622-T") (SetQ XPtAntB (+ 0.89850 (/ DeltaDist VEch))) ) ((= TypeAnti "203622-C") (SetQ XPtAntB (+ -1.2314716 (/ DeltaDist VEch))) ) ) ;_ Fin de Cond (SetQ PtCotHau (List (Car PtHauD) (+ (Cadr PtHauD) (* 0.3 VEch))) PtCotCon (List (Car PtConD) (+ (Cadr PtConD) (* 0.3 VEch))) ) ;_ Fin de SetQ (if (And (/= TypeAnti "203250") (/= TypeAnti "204520") (/= TypeAnti "204499") (/= TypeAnti "204519") (/= TypeAnti "203622") (/= TypeAnti "204994") (/= TypeAnti "204932") ) (SetQ PtCotAtt (List (Car PtConD) (- (Cadr PtConD) (* 0.3 VEch))) PtCotAnt (List (Car PtAnt) (+ (Cadr PtAnt) (* 0.2 VEch))) PtAntB (List (+ XFc (* (* XPtAntB VEch) CorrRot)) (+ YFc LgAntY)) ) ;_ Fin de SetQ ) ;_ Fin de if ;--- Insertion Suspension suspension vertical (If (Or (= TypeAnti "204994-T") (= TypeAnti "203622-T") ) ;_ Fin de Or (Progn (SetQ PtSusVri (Inters PtConA PtConD PtAnt PtAntB Nil)) (Command "_-INSERT" (strcat CheminDossier "SUS_RIGIDE_CARRE_VERTI_DYN.dwg") PtSusVri "1" "" 0 ) ;_ Fin de Command (If (< LgAnt 0) (Command "miroir" "d" "" PtSusVri (List (Car PtSusVri) (+ (Cadr PtSusVri) 100) ) ;_ Fin de List "o" ) ;--mirroir si montage a droit du support ) ;_ Fin de If ) ;_ Fin de Progn ) ;_ Fin de If ;--- Mise en place des cotes (Command "_DIM" "_RESTORE" Cot "_EXIT") (Command "_DIM" "_ALIGNED" PtHauD PtHauA PtCotHau "") (Command "_ALIGNED" PtConD PtConA PtCotCon "") (if (And (/= TypeAnti "203250") (/= TypeAnti "204520") (/= TypeAnti "204499") (/= TypeAnti "204519") (/= TypeAnti "203622") (/= TypeAnti "204994") (/= TypeAnti "204932") ) (Progn (Command "_ALIGNED" PtAtt PtConD PtCotAtt "") (Command "_HORI" PtAnt PtAntB PtCotAnt "") ) ;_ Fin de Progn ) ;_ Fin de if (Command "_EXIT") (Command "_DIM" "_RESTORE" "NORMAL_CAT" "_EXIT") (Command "_UCS" "_P") (Command "_ZOOM" "_P") (Var_Rec) (Setq *error* OldErr) (Prin1) ; -- points de verification des montages (If (And (/= TypeAnti "203250") (/= TypeAnti "204520") (/= TypeAnti "204499") (/= TypeAnti "204519") (/= TypeAnti "203622") (/= TypeAnti "204994") (/= TypeAnti "204932") ) (If (< (Distance PtAtt PtConD) (+ LgIso 60)) (Alert "Attention Attache anti trop pres de l'isolateur") ) ;--fin If ) ;--fin If (If (And (= TypeAnti "204935-T") (< (Abs (- (Car PtAtt) (Car PtFc))) 1330) ) (Alert "Attention Attache du bras de rappel est trop pres de l'attache Anti") ) ;--fin If ; -- Fin de verification des points de verification des montages (Initget 1 "o n") (SetQ Nom (GetkWord "\n > Avec une Nomenclature O/N ")) (If (= Nom "o") (MontageNomenclature) ) ;_ Fin de If ) ;_ Fin de DeFun ;------------------------- ;-------------------------Montage Nomenclature ;------------------------- (Defun MontageNomenclature () (Initget 1 "G T") (SetQ TypeNom (GetkWord "\n > Nomenclature Type Genecat ou Teemo G/T ")) ;(SetQ TypeNom "G") ;-- A supprimer pour faire le choix entre Genecat et Teemo (SetQ CompTeemo -1 StaTeemo "POSE" ) (If (= TypeNom "G") (Progn (Command "Tilemode" "0") (SetVar "Osmode" 109) (SetQ PtHauNom (GetPoint "\nPoint Haut gauche de la ligne superieur") ) ;_ Fin de SetQ (SetQ XPtLigne0 (+ (Car PtHauNom) 2.50) YPtLigne0 (+ (- (Cadr PtHauNom) 1.75) 3.50) ) ;_ Fin de SetQ ;--- Calcul des X/Y de la premiere ligne / au haut de la nomenclature ;--- Decalage X = 2.5000 Y = -1.7500 Saut de Ligne Y = -3.5000 ;------ Nomenclature par defaut pour hauban console et suspension porteur (SetVar "Osmode" 0) (Command "_-INSERT" (Strcat CheminDossier "Nomenclature_VC.dwg") (List XPtLigne0 (- YPtLigne0 (* 1 3.50))) "1" "1" "0" (Strcat TxDesHau TxCot) TxPlaHau TxRepHau "1" "" "" ) ;_ Fin de Command (Command "_-INSERT" (Strcat CheminDossier "Nomenclature_VC.dwg") (List XPtLigne0 (- YPtLigne0 (* 2 3.50))) "1" "1" "0" (Strcat TxDesCon TxCot) TxPlaCon TxRepCon "1" "" "" ) ;_ Fin de Command (Command "_-INSERT" (Strcat CheminDossier "Nomenclature_VC.dwg") (List XPtLigne0 (- YPtLigne0 (* 5 3.50))) "1" "1" "0" (Strcat TxDesPin TxCot) TxPlaPin TxRepPin "1" "" "" ) ;_ Fin de Command ) ;_ Fin de Progn ) ;_ Fin de If (If (/= TxRepHau "Hors Liste") (SetQ TxtTeemo (StrCat "<material position=\"" "1" "\" designation=\"" TxDesHau TxCot "\" plan=\"" TxPlaHau "\" repere=\"" (Rtos TxRepHau 2 0) "\" total=\"" "1" "\" status=\"" StaTeemo"\"/>" )) (SetQ TxtTeemo (StrCat "<material position=\"" "1" "\" comment=\"true\" designation=\"" TxDesHau TxCot "\" plan=\"" TxPlaHau "\" repere=\"" (Rtos TxRepHau 2 0) "\" total=\"" "1" "\" status=\"" StaTeemo"\"/>" )) ) ;_ Fin de If (If (/= TxRepCon "Hors Liste") (SetQ TxtTeemo (StrCat TxtTeemo "\r" "<material position=\"" "2" "\" designation=\"" TxDesCon TxCot "\" plan=\"" TxPlaCon "\" repere=\"" (Rtos TxRepCon 2 0) "\" total=\"" "1" "\" status=\"" StaTeemo"\"/>" )) (SetQ TxtTeemo (StrCat TxtTeemo "\r" "<material position=\"" "2" "\" comment=\"true\" designation=\"" TxDesCon TxCot "\" plan=\"" TxPlaCon "\" repere=\"" (Rtos TxRepCon 2 0) "\" total=\"" "1" "\" status=\"" StaTeemo"\"/>" )) ) ;_ Fin de If (SetQ TxtTeemo (StrCat TxtTeemo "\r" "<material position=\"" "5" "\" designation=\"" TxDesPin TxCot "\" plan=\"" TxPlaPin "\" repere=\"" TxRepPin "\" total=\"" "1" "\" status=\"" StaTeemo"\"/>" )) ;-- ;--- Fin d montage Hauban et console le Mini d'une nomenclature ;-- ;-- ;-- ;------ Nomenclature pour les anti type 204935 tension et compression (If (Or (= TypeAnti "204935-T") (= TypeAnti "204935-C") ) ;_ Fin de Or (Progn (If (= TypeAnti "204935-T") (SetQ DeltAnt 200) (SetQ DeltAnt -1300) ) ;_ Fin de If (If (> DistAnt (+ 4500 DeltAnt)) (SetQ TxDesAnt (Strcat "Antibalançant Hors Liste") TxRepAnt "Hors Liste" ) ;_ Fin de SetQ ) ;_ Fin de If (If (<= DistAnt (+ 4500 DeltAnt)) (SetQ TxDesAnt (Strcat "Antibalançant bras:1.15m Lg:4.50m") TxRepAnt "108" ) ;_ Fin de SetQ ) ;_ Fin de If (If (<= DistAnt (+ 4250 DeltAnt)) (SetQ TxDesAnt (Strcat "Antibalançant bras:1.15m Lg:4.25m") TxRepAnt "112" ) ;_ Fin de SetQ ) ;_ Fin de If (If (<= DistAnt (+ 4000 DeltAnt)) (SetQ TxDesAnt (Strcat "Antibalançant bras:1.15m Lg:4.00m") TxRepAnt "107" ) ;_ Fin de SetQ ) ;_ Fin de If (If (<= DistAnt (+ 3750 DeltAnt)) (SetQ TxDesAnt (Strcat "Antibalançant bras:1.15m Lg:3.75m") TxRepAnt "111" ) ;_ Fin de SetQ ) ;_ Fin de If (If (<= DistAnt (+ 3500 DeltAnt)) (SetQ TxDesAnt (Strcat "Antibalançant bras:1.15m Lg:3.50m") TxRepAnt "106" ) ;_ Fin de SetQ ) ;_ Fin de If (If (<= DistAnt (+ 3250 DeltAnt)) (SetQ TxDesAnt (Strcat "Antibalançant bras:1.15m Lg:3.25m") TxRepAnt "110" ) ;_ Fin de SetQ ) ;_ Fin de If (If (<= DistAnt (+ 3000 DeltAnt)) (SetQ TxDesAnt (Strcat "Antibalançant bras:1.15m Lg:3.00m") TxRepAnt "105" ) ;_ Fin de SetQ ) ;_ Fin de If (If (<= DistAnt (+ 2750 DeltAnt)) (SetQ TxDesAnt (Strcat "Antibalançant bras:1.15m Lg:2.75m") TxRepAnt "109" ) ;_ Fin de SetQ ) ;_ Fin de If (If (<= DistAnt (+ 2500 DeltAnt)) (SetQ TxDesAnt (Strcat "Antibalançant bras:1.15m Lg:2.50m") TxRepAnt "104" ) ;_ Fin de SetQ ) ;_ Fin de If (If (<= DistAnt (+ 2000 DeltAnt)) (SetQ TxDesAnt (Strcat "Antibalançant bras:1.15m Lg:2.00m") TxRepAnt "103" ) ;_ Fin de SetQ ) ;_ Fin de If (If (<= DistAnt (+ 1500 DeltAnt)) (SetQ TxDesAnt (Strcat "Antibalançant bras:1.15m Lg:1.50m") TxRepAnt "102" ) ;_ Fin de SetQ ) ;_ Fin de If (If (<= DistAnt (+ 1000 DeltAnt)) (SetQ TxDesAnt (Strcat "Antibalançant bras:1.15m Lg:1.00m") TxRepAnt "101" ) ;_ Fin de SetQ ) ;_ Fin de If ) ;_ Fin de Progn ) ;_ Fin de If (If (And (Or (= TypeAnti "204935-T") (= TypeAnti "204935-C") ) ;_ Fin de Or (= TypeNom "G") ) ;_ Fin de And (Progn (Command "_-INSERT" (Strcat CheminDossier "Nomenclature_VC.dwg") (List XPtLigne0 (- YPtLigne0 (* 3 3.50))) "1" "1" "0" (Strcat TxDesAnt TxCot) "204935" TxRepAnt "1" "" "" ) ;_ Fin de Command (Command "_-INSERT" (Strcat CheminDossier "Nomenclature_VC.dwg") (List XPtLigne0 (- YPtLigne0 (* 6 3.50))) "1" "1" "0" (Strcat "Attache Antibalançant" TxCot) "204885" "" "1" "" "" ) ;_ Fin de Command ) ;_ Fin de Progn ) ;_ Fin de If ;------ ;--- Nomenclature Teemo des attache et Anti 204935 ;------ (If (Or (= TypeAnti "204935-T") (= TypeAnti "204935-C") ) ;_ Fin de Or (If (/= TxRepAnt "Hors Liste") (SetQ TxtTeemo (StrCat TxtTeemo "\r" "<material position=\"" "3" "\" designation=\"" TxDesAnt TxCot "\" plan=\"" "204935" "\" repere=\"" TxRepAnt "\" total=\"" "1" "\" status=\"" StaTeemo"\"/>" ) TxtTeemo (StrCat TxtTeemo "\r" "<material position=\"" "6" "\" designation=\"" "Attache Antibalançant" TxCot "\" plan=\"" "204885" "\" repere=\"" "" "\" total=\"" "1" "\" status=\"" StaTeemo"\"/>" ) ) (SetQ TxtTeemo (StrCat TxtTeemo "\r" "<material position=\"" "3" "\" comment=\"true\" designation=\"" TxDesAnt TxCot "\" plan=\"" "204935" "\" repere=\"" TxRepAnt "\" total=\"" "1" "\" status=\"" StaTeemo"\"/>" ) TxtTeemo (StrCat TxtTeemo "\r" "<material position=\"" "6" "\" designation=\"" "Attache Antibalançant" TxCot "\" plan=\"" "204885" "\" repere=\"" "" "\" total=\"" "1" "\" status=\"" StaTeemo"\"/>" ) ) ) ;_ Fin de If ) ;_ Fin de If ;------ ;--- Nomenclature Genecat des suspension 204935 ;------ (If (And (Or (= TypeAnti "204935-T") (= TypeAnti "204935-C") ) ;_ Fin de Or (= TypeNom "G") ) ;_ Fin de And (If (= TypeAnti "204935-C") (Command "_-INSERT" (Strcat CheminDossier "Nomenclature_VC.dwg") (List XPtLigne0 (- YPtLigne0 (* 4 3.50))) "1" "1" "0" (Strcat "Susp. anti rigide Lg:X.XXm" TxCot) "204504" "10X" "1" "" "" ) ;_ Fin de Command (Command "_-INSERT" (Strcat CheminDossier "Nomenclature_VC.dwg") (List XPtLigne0 (- YPtLigne0 (* 4 3.50))) "1" "1" "0" (Strcat "Susp. anti souple Lg:X.XXm" TxCot) "203200" "20X" "1" "" "" ) ;_ Fin de Command ) ;--- Fin If ) ;--- Fin If ;------ ;--- Nomenclature Teemo des suspensions 204935 ;------ (If (Or (= TypeAnti "204935-T") (= TypeAnti "204935-C") ) ;-- Fin de Or (If (= TypeAnti "204935-C") (SetQ TxtTeemo (StrCat TxtTeemo "\r" "<material position=\"" "4" "\" comment=\"true\" designation=\"" "Susp. anti rigide Lg:X.XXm" TxCot "\" plan=\"" "204504" "\" repere=\"" "10X" "\" total=\"" "1" "\" status=\"" StaTeemo"\"/>" )) (SetQ TxtTeemo (StrCat TxtTeemo "\r" "<material position=\"" "4" "\" comment=\"true\" designation=\"" "Susp. anti souple Lg:X.XXm" TxCot "\" plan=\"" "203200" "\" repere=\"" "20X" "\" total=\"" "1" "\" status=\"" StaTeemo"\"/>" )) ) ;-- Fin de If ) ;-- Fin de If ;------ Nomenclature pour les tubes reglable Dia49 (If (Or (= TypeAnti "203622-T") (= TypeAnti "203622-C") (= TypeAnti "204994-T") (= TypeAnti "204994-C") ) ;_ Fin de Or (Progn (Cond ((= TypeAnti "203622-T") (SetQ DeltAnt (* (+ 0.89850 (/ DeltaDist VEch)) VEch)) ) ((= TypeAnti "203622-C") (SetQ DeltAnt (* (+ -1.2314716 (/ DeltaDist VEch)) VEch)) ) ((= TypeAnti "204994-T") (SetQ DeltAnt (* 0.10 VEch)) ) ((= TypeAnti "204994-C") (SetQ DeltAnt (* -1.222 VEch)) ) ) ;_ Fin de Cond (If (> DistAnt (+ 4930 DeltAnt)) (SetQ TxDesAnt (Strcat "Antibalançant Hors Liste") TxRepAnt "Hors Liste" ) ;_ Fin de SetQ ) ;_ Fin de If (If (<= DistAnt (+ 4930 DeltAnt)) (SetQ TxDesAnt (Strcat "Tube Réglable Ø49 Lg:4.30m") TxRepAnt "112" ) ;_ Fin de SetQ ) ;_ Fin de If (If (<= DistAnt (+ 4510 DeltAnt)) (SetQ TxDesAnt (Strcat "Tube Réglable Ø49 Lg:4.00m") TxRepAnt "111" ) ;_ Fin de SetQ ) ;_ Fin de If (If (<= DistAnt (+ 4210 DeltAnt)) (SetQ TxDesAnt (Strcat "Tube Réglable Ø49 Lg:3.70m") TxRepAnt "110" ) ;_ Fin de SetQ ) ;_ Fin de If (If (<= DistAnt (+ 3910 DeltAnt)) (SetQ TxDesAnt (Strcat "Tube Réglable Ø49 Lg:3.40m") TxRepAnt "109" ) ;_ Fin de SetQ ) ;_ Fin de If (If (<= DistAnt (+ 3610 DeltAnt)) (SetQ TxDesAnt (Strcat "Tube Réglable Ø49 Lg:3.10m") TxRepAnt "108" ) ;_ Fin de SetQ ) ;_ Fin de If (If (<= DistAnt (+ 3310 DeltAnt)) (SetQ TxDesAnt (Strcat "Tube Réglable Ø49 Lg:2.80m") TxRepAnt "107" ) ;_ Fin de SetQ ) ;_ Fin de If (If (<= DistAnt (+ 3010 DeltAnt)) (SetQ TxDesAnt (Strcat "Tube Réglable Ø49 Lg:2.50m") TxRepAnt "106" ) ;_ Fin de SetQ ) ;_ Fin de If (If (<= DistAnt (+ 2710 DeltAnt)) (SetQ TxDesAnt (Strcat "Tube Réglable Ø49 Lg:2.20m") TxRepAnt "105" ) ;_ Fin de SetQ ) ;_ Fin de If (If (<= DistAnt (+ 2410 DeltAnt)) (SetQ TxDesAnt (Strcat "Tube Réglable Ø49 Lg:1.90m") TxRepAnt "104" ) ;_ Fin de SetQ ) ;_ Fin de If (If (<= DistAnt (+ 2060 DeltAnt)) (SetQ TxDesAnt (Strcat "Tube Réglable Ø49 Lg:1.50m") TxRepAnt "103" ) ;_ Fin de SetQ ) ;_ Fin de If (If (<= DistAnt (+ 1660 DeltAnt)) (SetQ TxDesAnt (Strcat "Tube Réglable Ø49 Lg:1.10m") TxRepAnt "102" ) ;_ Fin de SetQ ) ;_ Fin de If (If (<= DistAnt (+ 1260 DeltAnt)) (SetQ TxDesAnt (Strcat "Tube Réglable Ø49 Lg:0.70m") TxRepAnt "101" ) ;_ Fin de SetQ ) ;_ Fin de If ) ;_ Fin de Progn ) ;_ Fin de If tubes reglable Dia49 (If (And (Or (= TypeAnti "203622-T") (= TypeAnti "203622-C") (= TypeAnti "204994-T") (= TypeAnti "204994-C") ) ;_ Fin de Or (= TypeNom "G") ) ;_ Fin de And (Command "_-INSERT" (Strcat CheminDossier "Nomenclature_VC.dwg") (List XPtLigne0 (- YPtLigne0 (* 3 3.50))) "1" "1" "0" (Strcat TxDesAnt TxCot) "232272" TxRepAnt "1" "" "" ) ;_ Fin de Command ) ;_ Fin de If tubes reglable Dia49 (If (Or (= TypeAnti "203622-T") (= TypeAnti "203622-C") (= TypeAnti "204994-T") (= TypeAnti "204994-C") ) ;_ Fin de Or (SetQ TxtTeemo (StrCat TxtTeemo "\r" "<material position=\"" "3" "\" designation=\"" TxDesAnt TxCot "\" plan=\"" "232272" "\" repere=\"" TxRepAnt "\" total=\"" "1" "\" status=\"" StaTeemo"\"/>" )) ) ;---Fin If ;------ Nomenclature pour les anti type 203622-C (If (And (= TypeAnti "203622-C") (= TypeNom "G") ) ;---Fin And (Progn (Command "_-INSERT" (Strcat CheminDossier "Nomenclature_VC.dwg") (List XPtLigne0 (- YPtLigne0 (* 4 3.50))) "1" "1" "0" (Strcat "Bras Rappel Reglable d'Aiguillage" TxCot) "203622" (If (> LgBras 1740) "102" "101" ) ;_ Fin de If "1" "" "" ) ;_ Fin de Command (Command "_-INSERT" (Strcat CheminDossier "Nomenclature_VC.dwg") (List XPtLigne0 (- YPtLigne0 (* 6 3.50))) "1" "1" "0" (Strcat "Attache Verticale du bras" TxCot) "204505" "104" "1" "" "" ) ;_ Fin de Command (Command "_-INSERT" (Strcat CheminDossier "Nomenclature_VC.dwg") (List XPtLigne0 (- YPtLigne0 (* 7 3.50))) "1" "1" "0" (Strcat "Tube Ø49 Lg:0.475" TxCot) "204516" "103" "1" "" "" ) ;_ Fin de Command (Command "_-INSERT" (Strcat CheminDossier "Nomenclature_VC.dwg") (List XPtLigne0 (- YPtLigne0 (* 8 3.50))) "1" "1" "0" (Strcat "Attache Antibalançant" TxCot) "232879" "" "1" "" "" ) ;_ Fin de Command (Command "_-INSERT" (Strcat CheminDossier "Nomenclature_VC.dwg") (List XPtLigne0 (- YPtLigne0 (* 9 3.50))) "1" "1" "0" (Strcat "Pince Fc" TxCot) "4000" "" "1" "" "" ) ;_ Fin de Command (Command "_-INSERT" (Strcat CheminDossier "Nomenclature_VC.dwg") (List XPtLigne0 (- YPtLigne0 (* 10 3.50))) "1" "1" "0" (Strcat "Blocage de Suspension" TxCot) "232921" "" "1" "" "" ) ;_ Fin de Command (Command "_-INSERT" (Strcat CheminDossier "Nomenclature_VC.dwg") (List XPtLigne0 (- YPtLigne0 (* 11 3.50))) "1" "1" "0" (Strcat "Susp. Console/Hauban Lg:0.30m" TxCot) "204504" "415" "1" "" "" ) ;_ Fin de Command (Command "_-INSERT" (Strcat CheminDossier "Nomenclature_VC.dwg") (List XPtLigne0 (- YPtLigne0 (* 12 3.50))) "1" "1" "0" (Strcat "Susp. anti rigide Lg:X.XXm" TxCot) "204504" "20X" "1" "" "" ) ;_ Fin de Command ) ;_ Fin de Progn ) ;_ Fin de If 203622-C (If (= TypeAnti "203622-C") (Progn (SetQ TxtTeemo (StrCat TxtTeemo "\r" "<material position=\"" "4" "\" designation=\"" "Bras Rappel Reglable d'Aiguillage" TxCot "\" plan=\"" "203622" "\" repere=\"" (If (< LgBras 1790)"101" "102") "\" total=\"" "1" "\" status=\"" StaTeemo"\"/>" )) (SetQ TxtTeemo (StrCat TxtTeemo "\r" "<material position=\"" "6" "\" designation=\"" "Attache Verticale du bras" TxCot "\" plan=\"" "204505" "\" repere=\"" "104" "\" total=\"" "1" "\" status=\"" StaTeemo"\"/>" )) (SetQ TxtTeemo (StrCat TxtTeemo "\r" "<material position=\"" "7" "\" designation=\"" "Tube Ø49 Lg:0.475" TxCot "\" plan=\"" "204516" "\" repere=\"" "103" "\" total=\"" "1" "\" status=\"" StaTeemo"\"/>" )) (SetQ TxtTeemo (StrCat TxtTeemo "\r" "<material position=\"" "8" "\" designation=\"" "Attache Antibalançant" TxCot "\" plan=\"" "232879" "\" repere=\"" "" "\" total=\"" "1" "\" status=\"" StaTeemo"\"/>" )) (SetQ TxtTeemo (StrCat TxtTeemo "\r" "<material position=\"" "9" "\" designation=\"" "Pince Fc" TxCot "\" plan=\"" "4000" "\" repere=\"" "" "\" total=\"" "1" "\" status=\"" StaTeemo"\"/>" )) (SetQ TxtTeemo (StrCat TxtTeemo "\r" "<material position=\"" "10" "\" designation=\"" "Blocage de Suspension" TxCot "\" plan=\"" "232921" "\" repere=\"" "" "\" total=\"" "1" "\" status=\"" StaTeemo"\"/>" )) (SetQ TxtTeemo (StrCat TxtTeemo "\r" "<material position=\"" "11" "\" comment=\"true\" designation=\"" "Susp. Console/Hauban Lg:0.30m" TxCot "\" plan=\"" "204504" "\" repere=\"" "415" "\" total=\"" "1" "\" status=\"" StaTeemo"\"/>" )) (SetQ TxtTeemo (StrCat TxtTeemo "\r" "<material position=\"" "12" "\" comment=\"true\" designation=\"" "Susp. anti rigide Lg:X.XXm" TxCot "\" plan=\"" "204504" "\" repere=\"" "20X" "\" total=\"" "1" "\" status=\"" StaTeemo"\"/>" )) ) ;--Fin Progn ) ;_ Fin de If 203622-C ;------ Nomenclature pour les anti type 203622-T (If (And (= TypeAnti "203622-T") (= TypeNom "G") ) ;---Fin And (Progn (Command "_-INSERT" (Strcat CheminDossier "Nomenclature_VC.dwg") (List XPtLigne0 (- YPtLigne0 (* 4 3.50))) "1" "1" "0" (Strcat "Bras Rappel Reglable d'Aiguillage" TxCot) "203622" (If (< LgBras 1790) "101" "102" ) ;_ Fin de If "1" "" "" ) ;_ Fin de Command (Command "_-INSERT" (Strcat CheminDossier "Nomenclature_VC.dwg") (List XPtLigne0 (- YPtLigne0 (* 6 3.50))) "1" "1" "0" (Strcat "Attache du Bras H:180mm" TxCot) "203601" "" "1" "" "" ) ;_ Fin de Command (Command "_-INSERT" (Strcat CheminDossier "Nomenclature_VC.dwg") (List XPtLigne0 (- YPtLigne0 (* 7 3.50))) "1" "1" "0" (Strcat "Attache Antibalançant" TxCot) "232879" "" "1" "" "" ) ;_ Fin de Command (Command "_-INSERT" (Strcat CheminDossier "Nomenclature_VC.dwg") (List XPtLigne0 (- YPtLigne0 (* 8 3.50))) "1" "1" "0" (Strcat "Pince Fc" TxCot) "4000" "" "1" "" "" ) ;_ Fin de Command (Command "_-INSERT" (Strcat CheminDossier "Nomenclature_VC.dwg") (List XPtLigne0 (- YPtLigne0 (* 9 3.50))) "1" "1" "0" (Strcat "Blocage de Suspension" TxCot) "232921" "" "1" "" "" ) ;_ Fin de Command (Command "_-INSERT" (Strcat CheminDossier "Nomenclature_VC.dwg") (List XPtLigne0 (- YPtLigne0 (* 10 3.50))) "1" "1" "0" (Strcat "Susp. Console/Hauban Lg:0.30m" TxCot) "204504" "415" "1" "" "" ) ;_ Fin de Command (Command "_-INSERT" (Strcat CheminDossier "Nomenclature_VC.dwg") (List XPtLigne0 (- YPtLigne0 (* 11 3.50))) "1" "1" "0" (Strcat "Susp. anti rigide Lg:X.XXm" TxCot) "204504" "20X" "1" "" "" ) ;_ Fin de Command ) ;_ Fin de Progn ) ;_ Fin de If -- 203622-T (If (= TypeAnti "203622-T") (Progn (SetQ TxtTeemo (StrCat TxtTeemo "\r" "<material position=\"" "4" "\" designation=\"" "Bras Rappel Reglable d'Aiguillage" TxCot "\" plan=\"" "203622" "\" repere=\"" (If (< LgBras 1790)"101" "102") "\" total=\"" "1" "\" status=\"" StaTeemo"\"/>" )) (SetQ TxtTeemo (StrCat TxtTeemo "\r" "<material position=\"" "6" "\" designation=\"" "Attache du Bras H:180mm" TxCot "\" plan=\"" "203601" "\" repere=\"" "" "\" total=\"" "1" "\" status=\"" StaTeemo"\"/>" )) (SetQ TxtTeemo (StrCat TxtTeemo "\r" "<material position=\"" "7" "\" designation=\"" "Attache Antibalançant" TxCot "\" plan=\"" "232879" "\" repere=\"" "" "\" total=\"" "1" "\" status=\"" StaTeemo"\"/>" )) (SetQ TxtTeemo (StrCat TxtTeemo "\r" "<material position=\"" "8" "\" designation=\"" "Pince Fc" TxCot "\" plan=\"" "4000" "\" repere=\"" "" "\" total=\"" "1" "\" status=\"" StaTeemo"\"/>" )) (SetQ TxtTeemo (StrCat TxtTeemo "\r" "<material position=\"" "9" "\" designation=\"" "Blocage de Suspension" TxCot "\" plan=\"" "232921" "\" repere=\"" "" "\" total=\"" "1" "\" status=\"" StaTeemo"\"/>" )) (SetQ TxtTeemo (StrCat TxtTeemo "\r" "<material position=\"" "10" "\" comment=\"true\" designation=\"" "Susp. Console/Hauban Lg:0.30m" TxCot "\" plan=\"" "204504" "\" repere=\"" "415" "\" total=\"" "1" "\" status=\"" StaTeemo"\"/>" )) (SetQ TxtTeemo (StrCat TxtTeemo "\r" "<material position=\"" "11" "\" comment=\"true\" designation=\"" "Susp. anti rigide Lg:X.XXm" TxCot "\" plan=\"" "204504" "\" repere=\"" "20X" "\" total=\"" "1" "\" status=\"" StaTeemo"\"/>" )) ) ;--Fin Progn ) ;_ Fin de If 203622-T ;------ Nomenclature pour les anti type 204994 (If (And (Or (= TypeAnti "204994-T") (= TypeAnti "204994-C") ) ;_ Fin de Or (= TypeNom "G") ) ;_ Fin de And (Progn (Command "_-INSERT" (Strcat CheminDossier "Nomenclature_VC.dwg") (List XPtLigne0 (- YPtLigne0 (* 4 3.50))) "1" "1" "0" (Strcat "Bras Rappel Crosse 1.00m" TxCot) "204994" "" "1" "" "" ) ;_ Fin de Command (Command "_-INSERT" (Strcat CheminDossier "Nomenclature_VC.dwg") (List XPtLigne0 (- YPtLigne0 (* 6 3.50))) "1" "1" "0" (Strcat "Attache Verticale du bras" TxCot) "204505" "104" "1" "" "" ) ;_ Fin de Command (Command "_-INSERT" (Strcat CheminDossier "Nomenclature_VC.dwg") (List XPtLigne0 (- YPtLigne0 (* 7 3.50))) "1" "1" "0" (Strcat "Tube Ø49 Lg:0.230" TxCot) "204516" "103" "1" "" "" ) ;_ Fin de Command (Command "_-INSERT" (Strcat CheminDossier "Nomenclature_VC.dwg") (List XPtLigne0 (- YPtLigne0 (* 8 3.50))) "1" "1" "0" (Strcat "Attache Antibalançant" TxCot) "232879" "" "1" "" "" ) ;_ Fin de Command (Command "_-INSERT" (Strcat CheminDossier "Nomenclature_VC.dwg") (List XPtLigne0 (- YPtLigne0 (* 9 3.50))) "1" "1" "0" (Strcat "Pince Fc" TxCot) "4000" "" "1" "" "" ) ;_ Fin de Command (Command "_-INSERT" (Strcat CheminDossier "Nomenclature_VC.dwg") (List XPtLigne0 (- YPtLigne0 (* 10 3.50))) "1" "1" "0" (Strcat "Susp. anti rigide Lg:X.XXm" TxCot) "204504" "20X" "1" "" "" ) ;_ Fin de Command (Command "_-INSERT" (Strcat CheminDossier "Nomenclature_VC.dwg") (List XPtLigne0 (- YPtLigne0 (* 11 3.50))) "1" "1" "0" (Strcat TxDesPin TxCot) TxPlaPin TxRepPin "1" "" "" ) ;_ Fin de Command (Command "_-INSERT" (Strcat CheminDossier "Nomenclature_VC.dwg") (List XPtLigne0 (- YPtLigne0 (* 12 3.50))) "1" "1" "0" (Strcat "Susp. Console/Hauban Lg:0.30m" TxCot) "204504" "415" "1" "" "" ) ;_ Fin de Command ) ;_ Fin de Progn ) ;_ Fin de If -- 204994-T & 204994-C (If (Or (= TypeAnti "204994-T") (= TypeAnti "204994-C") ) ;_ Fin de Or (Progn (SetQ TxtTeemo (StrCat TxtTeemo "\r" "<material position=\"" "4" "\" designation=\"" "Bras Rappel Crosse 1.00m" TxCot "\" plan=\"" "204994" "\" repere=\"" "" "\" total=\"" "1" "\" status=\"" StaTeemo"\"/>" )) (SetQ TxtTeemo (StrCat TxtTeemo "\r" "<material position=\"" "6" "\" designation=\"" "Attache Verticale du bras" TxCot "\" plan=\"" "204505" "\" repere=\"" "104" "\" total=\"" "1" "\" status=\"" StaTeemo"\"/>" )) (SetQ TxtTeemo (StrCat TxtTeemo "\r" "<material position=\"" "7" "\" designation=\"" "Tube Ø49 Lg:0.230" TxCot "\" plan=\"" "204516" "\" repere=\"" "103" "\" total=\"" "1" "\" status=\"" StaTeemo"\"/>" )) (SetQ TxtTeemo (StrCat TxtTeemo "\r" "<material position=\"" "8" "\" designation=\"" "Attache Antibalançant" TxCot "\" plan=\"" "232879" "\" repere=\"" "" "\" total=\"" "1" "\" status=\"" StaTeemo"\"/>" )) (SetQ TxtTeemo (StrCat TxtTeemo "\r" "<material position=\"" "9" "\" designation=\"" "Pince Fc" TxCot "\" plan=\"" "4000" "\" repere=\"" "" "\" total=\"" "1" "\" status=\"" StaTeemo"\"/>" )) (SetQ TxtTeemo (StrCat TxtTeemo "\r" "<material position=\"" "10" "\" comment=\"true\" designation=\"" "Susp. anti rigide Lg:X.XXm" TxCot "\" plan=\"" "204504" "\" repere=\"" "20X" "\" total=\"" "1" "\" status=\"" StaTeemo"\"/>" )) (SetQ TxtTeemo (StrCat TxtTeemo "\r" "<material position=\"" "11" "\" designation=\"" TxDesPin TxCot "\" plan=\"" TxPlaPin "\" repere=\"" TxRepPin "\" total=\"" "1" "\" status=\"" StaTeemo"\"/>" )) (SetQ TxtTeemo (StrCat TxtTeemo "\r" "<material position=\"" "12" "\" designation=\"" "Susp. Console/Hauban Lg:0.30m" TxCot "\" plan=\"" "204504" "\" repere=\"" "415" "\" total=\"" "1" "\" status=\"" StaTeemo"\"/>" )) ) ;--Fin Progn ) ;_ Fin de If 204994-T 204994-C ;------ Nomenclature pour les anti type 204499 (If (And (= TypeAnti "204499") (= TypeNom "G") ) ;---Fin and (Progn (Command "_-INSERT" (Strcat CheminDossier "Nomenclature_VC.dwg") (List XPtLigne0 (- YPtLigne0 (* 3 3.50))) "1" "1" "0" (Strcat "Bras Rappel Sectionnement 1.30m" TxCot) "203628" "" "1" "" "" ) ;_ Fin de Command (Command "_-INSERT" (Strcat CheminDossier "Nomenclature_VC.dwg") (List XPtLigne0 (- YPtLigne0 (* 4 3.50))) "1" "1" "0" (Strcat "Attache Orientable du bras" TxCot) "203524" "101" "1" "" "" ) ;_ Fin de Command (Command "_-INSERT" (Strcat CheminDossier "Nomenclature_VC.dwg") (List XPtLigne0 (- YPtLigne0 (* 6 3.50))) "1" "1" "0" (Strcat "Tube Ø49 Lg:X.XXX" TxCot) "204516" "103" "1" "" "" ) ;_ Fin de Command (Command "_-INSERT" (Strcat CheminDossier "Nomenclature_VC.dwg") (List XPtLigne0 (- YPtLigne0 (* 7 3.50))) "1" "1" "0" (Strcat "Pince Fc" TxCot) "4000" "" "1" "" "" ) ;_ Fin de Command (Command "_-INSERT" (Strcat CheminDossier "Nomenclature_VC.dwg") (List XPtLigne0 (- YPtLigne0 (* 8 3.50))) "1" "1" "0" (Strcat TxDesPin TxCot) TxPlaPin TxRepPin "1" "" "" ) ;_ Fin de Command ) ;_ Fin de Progn ) ;_ Fin de If -- 204499 (If (= TypeAnti "204499") (Progn (SetQ TxtTeemo (StrCat TxtTeemo "\r" "<material position=\"" "3" "\" designation=\"" "Bras Rappel Sectionnement 1.30m" TxCot "\" plan=\"" "203628" "\" repere=\"" "" "\" total=\"" "1" "\" status=\"" StaTeemo"\"/>" )) (SetQ TxtTeemo (StrCat TxtTeemo "\r" "<material position=\"" "4" "\" designation=\"" "Attache Orientable du bras" TxCot "\" plan=\"" "203624" "\" repere=\"" "101" "\" total=\"" "1" "\" status=\"" StaTeemo"\"/>" )) (SetQ TxtTeemo (StrCat TxtTeemo "\r" "<material position=\"" "6" "\" designation=\"" "Tube Ø49 Lg:X.XXX" TxCot "\" plan=\"" "204516" "\" repere=\"" "103" "\" total=\"" "1" "\" status=\"" StaTeemo"\"/>" )) (SetQ TxtTeemo (StrCat TxtTeemo "\r" "<material position=\"" "7" "\" designation=\"" "Pince Fc" TxCot "\" plan=\"" "4000" "\" repere=\"" "" "\" total=\"" "1" "\" status=\"" StaTeemo"\"/>" )) (SetQ TxtTeemo (StrCat TxtTeemo "\r" "<material position=\"" "8" "\" designation=\"" TxDesPin TxCot "\" plan=\"" TxPlaPin "\" repere=\"" TxRepPin "\" total=\"" "1" "\" status=\"" StaTeemo"\"/>" )) ) ;--Fin Progn ) ;_ Fin de If 204499 ;------ Nomenclature pour les anti type 204520 (If (And (= TypeAnti "204520") (= TypeNom "G") ) ;---Fin and (Progn (Command "_-INSERT" (Strcat CheminDossier "Nomenclature_VC.dwg") (List XPtLigne0 (- YPtLigne0 (* 3 3.50))) "1" "1" "0" (Strcat "Anti. montage direct bras:1.15m" TxCot) "204520" "" "1" "" "" ) ;_ Fin de Command (Command "_-INSERT" (Strcat CheminDossier "Nomenclature_VC.dwg") (List XPtLigne0 (- YPtLigne0 (* 4 3.50))) "1" "1" "0" (Strcat "Tube Ø49 Lg:X.XXX" TxCot) "204516" "103" "1" "" "" ) ;_ Fin de Command ) ;_ Fin de Progn ) ;_ Fin de If ------- Bras 204520 (If (= TypeAnti "204520") (Progn (SetQ TxtTeemo (StrCat TxtTeemo "\r" "<material position=\"" "3" "\" designation=\"" "Anti. montage direct bras:1.15m" TxCot "\" plan=\"" "204520" "\" repere=\"" "" "\" total=\"" "1" "\" status=\"" StaTeemo"\"/>" )) (SetQ TxtTeemo (StrCat TxtTeemo "\r" "<material position=\"" "4" "\" designation=\"" "Tube Ø49 Lg:X.XXX" TxCot "\" plan=\"" "204516" "\" repere=\"" "103" "\" total=\"" "1" "\" status=\"" StaTeemo"\"/>" )) ) ;--Fin Progn ) ;_ Fin de If 204520 ;------ Nomenclature pour les anti type 203622 (If (And (= TypeAnti "203622") (= TypeNom "G") ) ;---Fin and (Progn (Command "_-INSERT" (Strcat CheminDossier "Nomenclature_VC.dwg") (List XPtLigne0 (- YPtLigne0 (* 3 3.50))) "1" "1" "0" (Strcat "Bras Rappel Reglable d'Aiguillage" TxCot) "203622" "10X" "1" "" "" ) ;_ Fin de Command (Command "_-INSERT" (Strcat CheminDossier "Nomenclature_VC.dwg") (List XPtLigne0 (- YPtLigne0 (* 4 3.50))) "1" "1" "0" (Strcat "Attache Orientable du bras" TxCot) "203524" "101" "1" "" "" ) ;_ Fin de Command (Command "_-INSERT" (Strcat CheminDossier "Nomenclature_VC.dwg") (List XPtLigne0 (- YPtLigne0 (* 6 3.50))) "1" "1" "0" (Strcat "Tube Ø49 Lg:X.XXX" TxCot) "204516" "103" "1" "" "" ) ;_ Fin de Command (Command "_-INSERT" (Strcat CheminDossier "Nomenclature_VC.dwg") (List XPtLigne0 (- YPtLigne0 (* 7 3.50))) "1" "1" "0" (Strcat "Pince Fc" TxCot) "4000" "" "1" "" "" ) ;_ Fin de Command (Command "_-INSERT" (Strcat CheminDossier "Nomenclature_VC.dwg") (List XPtLigne0 (- YPtLigne0 (* 8 3.50))) "1" "1" "0" (Strcat TxDesPin TxCot) TxPlaPin TxRepPin "1" "" "" ) ;_ Fin de Command (Command "_-INSERT" (Strcat CheminDossier "Nomenclature_VC.dwg") (List XPtLigne0 (- YPtLigne0 (* 9 3.50))) "1" "1" "0" (Strcat "Blocage de Suspension" TxCot) "232921" "" "1" "" "" ) ;_ Fin de Command (Command "_-INSERT" (Strcat CheminDossier "Nomenclature_VC.dwg") (List XPtLigne0 (- YPtLigne0 (* 10 3.50))) "1" "1" "0" (Strcat "Susp. Console/Hauban Lg:0.30m" TxCot) "204504" "415" "1" "" "" ) ;_ Fin de Command ) ;_ Fin de Progn ) ;_ Fin de If -- 203622 (If (= TypeAnti "203622") (Progn (SetQ TxtTeemo (StrCat TxtTeemo "\r" "<material position=\"" "3" "\" comment=\"true\" designation=\"" "Bras Rappel Reglable d'Aiguillage" TxCot "\" plan=\"" "203622" "\" repere=\"" "10X" "\" total=\"" "1" "\" status=\"" StaTeemo"\"/>" )) (SetQ TxtTeemo (StrCat TxtTeemo "\r" "<material position=\"" "4" "\" designation=\"" "Attache Orientable du bras" TxCot "\" plan=\"" "203624" "\" repere=\"" "101" "\" total=\"" "1" "\" status=\"" StaTeemo"\"/>" )) (SetQ TxtTeemo (StrCat TxtTeemo "\r" "<material position=\"" "6" "\" designation=\"" "Tube Ø49 Lg:X.XXX" TxCot "\" plan=\"" "204516" "\" repere=\"" "103" "\" total=\"" "1" "\" status=\"" StaTeemo"\"/>" )) (SetQ TxtTeemo (StrCat TxtTeemo "\r" "<material position=\"" "7" "\" designation=\"" "Pince Fc" TxCot "\" plan=\"" "4000" "\" repere=\"" "" "\" total=\"" "1" "\" status=\"" StaTeemo"\"/>" )) (SetQ TxtTeemo (StrCat TxtTeemo "\r" "<material position=\"" "8" "\" designation=\"" TxDesPin TxCot "\" plan=\"" TxPlaPin "\" repere=\"" TxRepPin "\" total=\"" "1" "\" status=\"" StaTeemo"\"/>" )) (SetQ TxtTeemo (StrCat TxtTeemo "\r" "<material position=\"" "9" "\" designation=\"" "Blocage de Suspension" TxCot "\" plan=\"" "232921" "\" repere=\"" "" "\" total=\"" "1" "\" status=\"" StaTeemo"\"/>" )) (SetQ TxtTeemo (StrCat TxtTeemo "\r" "<material position=\"" "10" "\" comment=\"true\" designation=\"" "Susp. Console/Hauban Lg:0.30m" TxCot "\" plan=\"" "204504" "\" repere=\"" "415" "\" total=\"" "1" "\" status=\"" StaTeemo"\"/>" )) ) ;--Fin Progn ) ;_ Fin de If 203622 ;------ Nomenclature pour les anti type 204994 (If (And (= TypeAnti "204994") (= TypeNom "G") ) ;---Fin and (Progn (Command "_-INSERT" (Strcat CheminDossier "Nomenclature_VC.dwg") (List XPtLigne0 (- YPtLigne0 (* 3 3.50))) "1" "1" "0" (Strcat "Bras Rappel Crosse 1.00m" TxCot) "204994" "" "1" "" "" ) ;_ Fin de Command (Command "_-INSERT" (Strcat CheminDossier "Nomenclature_VC.dwg") (List XPtLigne0 (- YPtLigne0 (* 4 3.50))) "1" "1" "0" (Strcat "Attache Orientable du bras" TxCot) "203524" "101" "1" "" "" ) ;_ Fin de Command (Command "_-INSERT" (Strcat CheminDossier "Nomenclature_VC.dwg") (List XPtLigne0 (- YPtLigne0 (* 6 3.50))) "1" "1" "0" (Strcat "Tube Ø49 Lg:X.XXX" TxCot) "204516" "103" "1" "" "" ) ;_ Fin de Command (Command "_-INSERT" (Strcat CheminDossier "Nomenclature_VC.dwg") (List XPtLigne0 (- YPtLigne0 (* 7 3.50))) "1" "1" "0" (Strcat "Pince Fc" TxCot) "4000" "" "1" "" "" ) ;_ Fin de Command (Command "_-INSERT" (Strcat CheminDossier "Nomenclature_VC.dwg") (List XPtLigne0 (- YPtLigne0 (* 8 3.50))) "1" "1" "0" (Strcat TxDesPin TxCot) TxPlaPin TxRepPin "1" "" "" ) ;_ Fin de Command (Command "_-INSERT" (Strcat CheminDossier "Nomenclature_VC.dwg") (List XPtLigne0 (- YPtLigne0 (* 9 3.50))) "1" "1" "0" (Strcat "Susp. Console/Hauban Lg:0.30m" TxCot) "204504" "415" "1" "" "" ) ;_ Fin de Command ) ;_ Fin de Progn ) ;_ Fin de If -- 204994 (If (= TypeAnti "204994") (Progn (SetQ TxtTeemo (StrCat TxtTeemo "\r" "<material position=\"" "3" "\" designation=\"" "Bras Rappel Crosse 1.00m" TxCot "\" plan=\"" "204994" "\" repere=\"" "" "\" total=\"" "1" "\" status=\"" StaTeemo"\"/>" )) (SetQ TxtTeemo (StrCat TxtTeemo "\r" "<material position=\"" "4" "\" designation=\"" "Attache Orientable du bras" TxCot "\" plan=\"" "203624" "\" repere=\"" "101" "\" total=\"" "1" "\" status=\"" StaTeemo"\"/>" )) (SetQ TxtTeemo (StrCat TxtTeemo "\r" "<material position=\"" "6" "\" designation=\"" "Tube Ø49 Lg:X.XXX" TxCot "\" plan=\"" "204516" "\" repere=\"" "103" "\" total=\"" "1" "\" status=\"" StaTeemo"\"/>" )) (SetQ TxtTeemo (StrCat TxtTeemo "\r" "<material position=\"" "7" "\" designation=\"" "Pince Fc" TxCot "\" plan=\"" "4000" "\" repere=\"" "" "\" total=\"" "1" "\" status=\"" StaTeemo"\"/>" )) (SetQ TxtTeemo (StrCat TxtTeemo "\r" "<material position=\"" "8" "\" designation=\"" TxDesPin TxCot "\" plan=\"" TxPlaPin "\" repere=\"" TxRepPin "\" total=\"" "1" "\" status=\"" StaTeemo"\"/>" )) (SetQ TxtTeemo (StrCat TxtTeemo "\r" "<material position=\"" "9" "\" comment=\"true\" designation=\"" "Susp. Console/Hauban Lg:0.30m" TxCot "\" plan=\"" "204504" "\" repere=\"" "415" "\" total=\"" "1" "\" status=\"" StaTeemo"\"/>" )) ) ;--Fin Progn ) ;_ Fin de If 204994 ;------ Nomenclature pour les anti type 204499 (If (And (= TypeAnti "204932") (= TypeNom "G") ) ;---Fin and (Progn (Command "_-INSERT" (Strcat CheminDossier "Nomenclature_VC.dwg") (List XPtLigne0 (- YPtLigne0 (* 3 3.50))) "1" "1" "0" (Strcat "Bras Rappel Droit Lg.:1.00m" TxCot) "203628" "" "1" "" "" ) ;_ Fin de Command (Command "_-INSERT" (Strcat CheminDossier "Nomenclature_VC.dwg") (List XPtLigne0 (- YPtLigne0 (* 4 3.50))) "1" "1" "0" (Strcat "Attache Orientable du bras" TxCot) "203524" "101" "1" "" "" ) ;_ Fin de Command (Command "_-INSERT" (Strcat CheminDossier "Nomenclature_VC.dwg") (List XPtLigne0 (- YPtLigne0 (* 6 3.50))) "1" "1" "0" (Strcat "Tube Ø49 Lg:X.XXX" TxCot) "204516" "103" "1" "" "" ) ;_ Fin de Command (Command "_-INSERT" (Strcat CheminDossier "Nomenclature_VC.dwg") (List XPtLigne0 (- YPtLigne0 (* 7 3.50))) "1" "1" "0" (Strcat "Pince Fc" TxCot) "4000" "" "1" "" "" ) ;_ Fin de Command ) ;_ Fin de Progn ) ;_ Fin de If -- 204932 (If (= TypeAnti "204932") (Progn (SetQ TxtTeemo (StrCat TxtTeemo "\r" "<material position=\"" "3" "\" designation=\"" "Bras Rappel Droit Lg.:1.00m" TxCot "\" plan=\"" "204928" "\" repere=\"" "" "\" total=\"" "1" "\" status=\"" StaTeemo"\"/>" )) (SetQ TxtTeemo (StrCat TxtTeemo "\r" "<material position=\"" "4" "\" designation=\"" "Attache Orientable du bras" TxCot "\" plan=\"" "203624" "\" repere=\"" "101" "\" total=\"" "1" "\" status=\"" StaTeemo"\"/>" )) (SetQ TxtTeemo (StrCat TxtTeemo "\r" "<material position=\"" "6" "\" designation=\"" "Tube Ø49 Lg:X.XXX" TxCot "\" plan=\"" "204516" "\" repere=\"" "103" "\" total=\"" "1" "\" status=\"" StaTeemo"\"/>" )) (SetQ TxtTeemo (StrCat TxtTeemo "\r" "<material position=\"" "7" "\" designation=\"" "Pince Fc" TxCot "\" plan=\"" "4000" "\" repere=\"" "" "\" total=\"" "1" "\" status=\"" StaTeemo"\"/>" )) ) ;--Fin Progn ) ;_ Fin de If 204932 ;------ Nomenclature pour les anti type 204519 (If (= TypeAnti "204519") (Progn (Command "_-INSERT" (Strcat CheminDossier "Nomenclature_VC.dwg") (List XPtLigne0 (- YPtLigne0 (* 3 3.50))) "1" "1" "0" (Strcat "Anti. montage direct bras:1.40m" TxCot) "204519" "" "1" "" "" ) ;_ Fin de Command (Command "_-INSERT" (Strcat CheminDossier "Nomenclature_VC.dwg") (List XPtLigne0 (- YPtLigne0 (* 4 3.50))) "1" "1" "0" (Strcat "Tube Ø49 Lg:X.XXX" TxCot) "204516" "103" "1" "" "" ) ;_ Fin de Command ) ;_ Fin de Progn ) ;_ Fin de If ------- Bras 204519 (If (= TypeAnti "204519") (Progn (SetQ TxtTeemo (StrCat TxtTeemo "\r" "<material position=\"" "3" "\" designation=\"" "Anti. montage direct bras:1.40m" TxCot "\" plan=\"" "204519" "\" repere=\"" "" "\" total=\"" "1" "\" status=\"" StaTeemo"\"/>" )) (SetQ TxtTeemo (StrCat TxtTeemo "\r" "<material position=\"" "4" "\" designation=\"" "Tube Ø49 Lg:X.XXX" TxCot "\" plan=\"" "204516" "\" repere=\"" "103" "\" total=\"" "1" "\" status=\"" StaTeemo"\"/>" )) ) ;--Fin Progn ) ;_ Fin de If 204519 ;------ Nomenclature pour les anti type 204498 anti relévement (If (= TypeAnti "204498") (Progn (SetQ DeltAnt -100) (If (> DistAnt (+ 4530 DeltAnt)) (SetQ TxDesAnt (Strcat "Antibalançant Hors Liste") TxRepAnt "Hors Liste" ) ;_ Fin de SetQ ) ;_ Fin de If (If (<= DistAnt (+ 4530 DeltAnt)) (SetQ TxDesAnt (Strcat "Antibalançant Rel. Fc107 Lg:4.53m") TxRepAnt "108" ) ;_ Fin de SetQ ) ;_ Fin de If (If (<= DistAnt (+ 4030 DeltAnt)) (SetQ TxDesAnt (Strcat "Antibalançant Rel. Fc107 Lg:4.03m") TxRepAnt "107" ) ;_ Fin de SetQ ) ;_ Fin de If (If (<= DistAnt (+ 3530 DeltAnt)) (SetQ TxDesAnt (Strcat "Antibalançant Rel. Fc107 Lg:3.53m") TxRepAnt "106" ) ;_ Fin de SetQ ) ;_ Fin de If (If (<= DistAnt (+ 3030 DeltAnt)) (SetQ TxDesAnt (Strcat "Antibalançant Rel. Fc107 Lg:3.03m") TxRepAnt "105" ) ;_ Fin de SetQ ) ;_ Fin de If (If (<= DistAnt (+ 2530 DeltAnt)) (SetQ TxDesAnt (Strcat "Antibalançant Rel. Fc107 Lg:2.53m") TxRepAnt "104" ) ;_ Fin de SetQ ) ;_ Fin de If (If (<= DistAnt (+ 2030 DeltAnt)) (SetQ TxDesAnt (Strcat "Antibalançant Rel. Fc107 Lg:2.03m") TxRepAnt "103" ) ;_ Fin de SetQ ) ;_ Fin de If (If (<= DistAnt (+ 1530 DeltAnt)) (SetQ TxDesAnt (Strcat "Antibalançant Rel. Fc107 Lg:1.53m") TxRepAnt "102" ) ;_ Fin de SetQ ) ;_ Fin de If (If (<= DistAnt (+ 1030 DeltAnt)) (SetQ TxDesAnt (Strcat "Antibalançant Rel. Fc107 Lg:1.03m") TxRepAnt "101" ) ;_ Fin de SetQ ) ;_ Fin de If (If (= TypeNom "G") (Progn (Command "_-INSERT" (Strcat CheminDossier "Nomenclature_VC.dwg") (List XPtLigne0 (- YPtLigne0 (* 3 3.50))) "1" "1" "0" (Strcat TxDesAnt TxCot) "204498" TxRepAnt "1" "" "" ) ;_ Fin de Command (Command "_-INSERT" (Strcat CheminDossier "Nomenclature_VC.dwg") (List XPtLigne0 (- YPtLigne0 (* 6 3.50))) "1" "1" "0" (Strcat "Attache Antibalançant" TxCot) "204885" "" "1" "" "" ) ;_ Fin de Command (Command "_-INSERT" (Strcat CheminDossier "Nomenclature_VC.dwg") (List XPtLigne0 (- YPtLigne0 (* 4 3.50))) "1" "1" "0" (Strcat "Susp. anti souple Lg:X.XXm" TxCot) "203200" "20X" "1" "" "" ) ;_ Fin de Command ) ;_ Fin de Progn ) ;_ Fin de If ) ;_ Fin de Progn ) ;_ Fin de If (If (= TypeAnti "204498") (Progn (SetQ TxtTeemo (StrCat TxtTeemo "\r" "<material position=\"" "3" "\" designation=\"" TxDesAnt TxCot "\" plan=\"" "204498" "\" repere=\"" TxRepAnt "\" total=\"" "1" "\" status=\"" StaTeemo"\"/>" )) (SetQ TxtTeemo (StrCat TxtTeemo "\r" "<material position=\"" "6" "\" designation=\"" "Attache Antibalançant" TxCot "\" plan=\"" "204885" "\" repere=\"" "" "\" total=\"" "1" "\" status=\"" StaTeemo"\"/>" )) (SetQ TxtTeemo (StrCat TxtTeemo "\r" "<material position=\"" "4" "\" comment=\"true\" designation=\"" "Susp. anti souple Lg:X.XXm" TxCot "\" plan=\"" "203200" "\" repere=\"" "20X" "\" total=\"" "1" "\" status=\"" StaTeemo"\"/>" )) ) ;--Fin Progn ) ;_ Fin de If 204498 ;------ Nomenclature pour les anti type 204499 tension et compression (If (Or (= TypeAnti "204499-T") (= TypeAnti "204499-C") ) ;_ Fin de Or (Progn (If (= TypeAnti "204499-T") (SetQ DeltAnt -350) (SetQ DeltAnt -1500) ) ;_ Fin de If (If (> DistAnt (+ 4500 DeltAnt)) (SetQ TxDesAnt (Strcat "Antibalançant bras:1.30m Hors Liste") TxRepAnt "Hors Liste" ) ;_ Fin de SetQ ) ;_ Fin de If (If (<= DistAnt (+ 4500 DeltAnt)) (SetQ TxDesAnt (Strcat "Antibalançant bras:1.30m Lg:4.50m") TxRepAnt "108" ) ;_ Fin de SetQ ) ;_ Fin de If (If (<= DistAnt (+ 4000 DeltAnt)) (SetQ TxDesAnt (Strcat "Antibalançant bras:1.30m Lg:4.00m") TxRepAnt "107" ) ;_ Fin de SetQ ) ;_ Fin de If (If (<= DistAnt (+ 3500 DeltAnt)) (SetQ TxDesAnt (Strcat "Antibalançant bras:1.30m Lg:3.50m") TxRepAnt "106" ) ;_ Fin de SetQ ) ;_ Fin de If (If (<= DistAnt (+ 3000 DeltAnt)) (SetQ TxDesAnt (Strcat "Antibalançant bras:1.30m Lg:3.00m") TxRepAnt "105" ) ;_ Fin de SetQ ) ;_ Fin de If (If (<= DistAnt (+ 2500 DeltAnt)) (SetQ TxDesAnt (Strcat "Antibalançant bras:1.30m Lg:2.50m") TxRepAnt "104" ) ;_ Fin de SetQ ) ;_ Fin de If (If (<= DistAnt (+ 2000 DeltAnt)) (SetQ TxDesAnt (Strcat "Antibalançant bras:1.30m Lg:2.00m") TxRepAnt "103" ) ;_ Fin de SetQ ) ;_ Fin de If ) ;_ Fin de Progn ) ;_ Fin de If 204499-T & C (If (And (Or (= TypeAnti "204499-T") (= TypeAnti "204499-C") ) (= TypeNom "G") ) ;--- Fin if (Progn (Command "_-INSERT" (Strcat CheminDossier "Nomenclature_VC.dwg") (List XPtLigne0 (- YPtLigne0 (* 3 3.50))) "1" "1" "0" (Strcat TxDesAnt TxCot) "204499" TxRepAnt "1" "" "" ) ;_ Fin de Command (Command "_-INSERT" (Strcat CheminDossier "Nomenclature_VC.dwg") (List XPtLigne0 (- YPtLigne0 (* 6 3.50))) "1" "1" "0" (Strcat "Attache Antibalançant" TxCot) "204885" "" "1" "" "" ) ;_ Fin de Command (If (= TypeAnti "204499-C") (Command "_-INSERT" (Strcat CheminDossier "Nomenclature_VC.dwg") (List XPtLigne0 (- YPtLigne0 (* 4 3.50))) "1" "1" "0" (Strcat "Susp. anti rigide Lg:X.XXm" TxCot) "204504" "10X" "1" "" "" ) ;_ Fin de Command (Command "_-INSERT" (Strcat CheminDossier "Nomenclature_VC.dwg") (List XPtLigne0 (- YPtLigne0 (* 4 3.50))) "1" "1" "0" (Strcat "Susp. anti souple Lg:X.XXm" TxCot) "203200" "20X" "1" "" "" ) ;_ Fin de Command ) ;_ Fin de If ) ;---Fin Progn ) ;_ Fin de If (If (Or (= TypeAnti "204499-T") (= TypeAnti "204499-C") ) ;--Fin Or (Progn (SetQ TxtTeemo (StrCat TxtTeemo "\r" "<material position=\"" "3" "\" designation=\"" TxDesAnt TxCot "\" plan=\"" "204499" "\" repere=\"" TxRepAnt "\" total=\"" "1" "\" status=\"" StaTeemo"\"/>" )) (SetQ TxtTeemo (StrCat TxtTeemo "\r" "<material position=\"" "6" "\" designation=\"" "Attache Antibalançant" TxCot "\" plan=\"" "204885" "\" repere=\"" "" "\" total=\"" "1" "\" status=\"" StaTeemo"\"/>" )) (If (= TypeAnti "204499-C") (SetQ TxtTeemo (StrCat TxtTeemo "\r" "<material position=\"" "4" "\" comment=\"true\" designation=\"" "Susp. anti rigide Lg:X.XXm" TxCot "\" plan=\"" "204504" "\" repere=\"" "10X" "\" total=\"" "1" "\" status=\"" StaTeemo"\"/>" )) (SetQ TxtTeemo (StrCat TxtTeemo "\r" "<material position=\"" "4" "\" comment=\"true\" designation=\"" "Susp. anti souple Lg:X.XXm" TxCot "\" plan=\"" "203200" "\" repere=\"" "20X" "\" total=\"" "1" "\" status=\"" StaTeemo"\"/>" )) ) ;_ Fin de If ) ;--Fin Progn ) ;_ Fin de If 204499 (SetVar "Osmode" 109) (if (= TypeNom "T") (EcritureTeemo) ) ) ;_ Fin de Defun (Defun EcritureTeemo (/ file) ;(SetQ TxtTeemo (StrCat "\"<material position=\"" (+ CompTeemo 1) "\" \"plan=\"" TxPlaHau "\" \"repere=\"" TxRepHau "\" \"total=\"" NbHau "\" \"status=\"" staTeemo"\"/" )) ;(SetQ TxtTeemo (StrCat "\"<material position=\"" "1" "\" \"plan=\"" TxPlaHau "\" \"repere=\"" TxRepHau "\" \"total=\"" NbHau "\" \"status=\"" StaTeemo "\"/" )) ;(SetQ TxtTeemo (StrCat "\"<material position=\"" (+ CompTeemo 1))) ;(SetQ TxtTeemo "toto") (Initget 1 "") (SetQ TxNVoie (GetString "\n Numero de la nomenclature ?")) ;_ Fin de GetString (SetQ PrefixChe (StrCat (getvar "dwgprefix") (Substr (GetVar "DWGNAME") 1 (- (Strlen (GetVar "DWGNAME")) 4)) "." TxNVoie "." TxNArm ".TXT") ) ;---Fin SetQ ; (setq file (open "C:\\temp\\Points-2.txt" "w")) (setq file (open PrefixChe "w")) (write-line (strcat "<?xml version=\"1.0\" encoding=\"UTF-8\" standalone=\"yes\"?>" ) ;_ Fin de strcat file ) ;_ Fin de write-line (write-line "<root>" file) ; (write-line "<materialOnly />" file) ; (write-line (strcat "<way position=\"0\">") file) (write-line (strcat TxtTeemo) file) ; (write-line " " file) ; (write-line "</way>" file) (write-line "</root>" file) (close file) ) ;_ Fin de defun -
Hihi, Ah y'est, j'ai fini. Je suis assez satisfait du résultat. Le poids des fichiers reste correct, tout bon pour moi. Merci encore à tous de vos interventions,😎 -
Salut @lili2006 Au début, je ne voulais pas te répondre, mais les enfants ont appelé pour me demander de te renvoyer dans le bureau. Voilà, tu sais tout (hihihi) Amicalement -
Yes, super, ça marche !! Grand merci @didier👌, J'ai commencé sur l'ordi d'un de mes enfants et ça marche sans pb. Grace à ton info, je vais pouvoir retravailler dans mon bureau, chouette ! Merci encore @ tous,
-
Bonjour @lili2006 J'ai sans doute pas exprimé le bon chemin, tu peux chercher ailleurs, il y en a plein. ICI :
-
-
Sujets
-
