Rechercher dans la communauté
Affichage des résultats pour les étiquettes '[resolu]'.
1 résultat trouvé
-
Bonjour la communauté, j'essaye d'automatiser des choses sur mes heures creuses/perdues et bon ... je butte.. j'ai donc un lisp qui propose à mon utilisateur de dessiner un réseau (VRD), et suivant le type de réseau choisi dans une liste d'un léger fichier DCL. mais la création du calque avec entmakeX me pose problème au niveau de la couleur et du style de trait. mais déjà la si je veux faire un load automatique du style de trait FANTOME bêtement depuis acadiso.lin j ai tout le mal du monde (pour le moment j ai donc simplement pré chargé ce trait avant de lancer la fonction.. j'ai une création de valeurs qui suit le choix de l'opérateur dans la fenêtre dcl (cond ((or (wcmatch chosenNetwork Type_reseau_1)) (progn (setq layerColor "1") ; Rouge (setq layerLinetype "FANTOME") (setq layerLineweight 50) ) ) ((or (wcmatch chosenNetwork Type_reseau_2)) (progn (setq layerColor "3") ; Vert (setq layerLinetype "FANTOME") (setq layerLineweight 50) ) ) ((or (wcmatch chosenNetwork Type_reseau_3)) (progn (setq layerColor "114") ; Couleur 114 (setq layerLinetype "FANTOME") (setq layerLineweight 50) ) ) ) mais je n'arrive pas à créer le calque avec le bon style de trait et la bonne couleur.. : ;; Créer le calque s'il n'existe pas (if (not (tblsearch "LAYER" chosenNetwork)) (entmakex (list '(0 . "LAYER") '(100 . "AcDbSymbolTableRecord") '(100 . "AcDbLayerTableRecord") (2 . chosenNetwork) '(70 . 0) '(62 . layerColor) ;; couleur du calque '(6 . layerLinetype) ;; Type de ligne FANTOME '(370 . 50) ;; épaisseur de ligne 0.50 mm ) ) ) à la création du calque j'ai une erreur DFX 62, les variables dans le entmakex me pose problème. si une bonne âme passe par là 😀