J'espère tout le monde va bien.

J'ai créé un lisp qui retourne la liste des imprimantes système par le biais de la commande _-plot, qui permet d'afficher les imprimantes système dans l'historique de l'invite de commande (un bon gros F2 quoi) que j'enregistre pour extraire la liste.

Bref. 

Le problème que le F2 n'est pas très silencieux, et je n'arrive pas à l'empêcher. 

Auriez-vous une solution autre que de ne passer par une commande ? 🙂

Merci beaucoup !

Matt.

Pour commencer, je ne recherche aucunement des programmes tout fait, tout propre chat ne m'intéresse pas :3
Mon but est simplement de trouver une logique permettant de répondre à un problème afin que je puisse par la suite transposer en programme.

Donc pour faire relativement simple, il existe bon nombre de programmes (LeeMac, TheSwamp, etc) permettant de générer un contour sur un jeu de sélection d'objets linéaires sécants (des images valent mieux que des mots donc voici une démonstration du programme de LeeMac). Les conditions à respecter pour que ce programme fonctionne c'est :
 - Les objets sont compatibles avec la commande "_BOUNDARY" (ou "CONTOUR")
 - Les objets se croisent donc sont coplanaires et possèdent des points d'intersections entre-eux

J'avais déjà discuté de ce programme avec @didier mais je n'ai jamais vraiment eu le temps de me pencher plus en avant sur le sujet (le soucis, c'est que l'idée est toujours dans ma tête, d'où mon problème ^^).
Le but étant d'avoir un principe similaire à une exception près parmi les conditions ci-dessus : les objets ne possèdent pas de points d'intersections entre-eux...
Pour le contexte, je travaille dans un BE d'implantation de centrales photovoltaïques et donc on travaille constamment avec des modules et des structures qui sont espacés les uns des autres (les écarts ne sont pas fixes donc on ne peut pas fixer une valeur pour les recherches), cependant ces éléments sont très souvent regroupés via des zonages divers et variés (emprise PV, répartitions des puissances, types de modules, architecture élec', etc). Donc structurellement parlant, ces éléments sont distincts les uns des autres (pas de superposition ou autre) mais ils sont tous liés selon une propriété précise générant des zonages plus ou moins complexes. Le soucis, c'est que les itérations au sein d'un même projet sont nombreuses, donc ces zonages sont souvent modifiés et cela prend donc du temps.

Mon idée est donc de pouvoir générer un contour à partir d'un jeu de sélection qui soit suffisamment précis pour englober l'ensembles des objets sélectionnés sans englober d'autres objets non concernés... Le programme devrait pouvoir fonctionner avec des objets linéaires (pour commencer disons simplement lignes et polylignes) puis s'étendre avec des blocs (mais si c'est possible de le faire avec des objets linéaires, cela ne posera pas de soucis de faire la même chose avec des blocs puisqu'il suffira de générer un contour précis au sein d'une définition de bloc pour ensuite utiliser ce contour dans la génération du contour en EO).

Pour donner un exemple, je joins un fichier .dwg afin d'illustrer la chose.
Dans ma logique, j'avais pensé à une analyse longue et fastidieuse qui s'apparente à la technique du drap. Le but étant de générer un contour global du jeu de sélection (par exemple (LM:ssboundingbox) qui permet de s'assurer que l'ensemble des objets sont présent dans ce rectangle). On définit un point M tel que M appartient à la polyline ABCD (fermée) et aux droites Dh et Dv, avec ABCD le contour du jeu de sélection, Dh la droite horizontale passant par M et Dv la droite verticale passant par M (selon la position du point M sur ABCD). Les droites Dh et Dv vont générer des points d'intersection avec les objets présents dans la surface ABCD, que l'on nommera M' tels que M' soit la projection horizontale ou verticale du point M sur les objets composants le jeu de sélection initial. On obtient donc une liste de points d'intersection pour chaque point M dont on peut récupérer facilement la borne inférieure et la borne supérieure donc on a pour tout points M, une liste de 2 points correspondant à la borne inférieure et supérieure (ou 1 point si la borne inférieure et supérieure sont confondue).

En affectant un pas pour générer une liste de point M, on obtient tout un ensemble de couples de points correspondant à l'emprise réelle des objets (sous forme de dessin la forme est proche du zonage attendu, mais sous forme de liste, les points ne sont pas ordonnés correctement, à moins de ne choisir uniquement le point d'intersection le plus proche du point M (car (vl-sort M'-list '(lambda (e1 e2) (< (distance M e1) (distance M e2))))) mais auquel cas il faudra parcourir 100% du périmètre de la boundingbox, et non 50%).
Si on affecte un lien entre le point et l'objet issu de cette intersection, il suffira ensuite de récupérer pour chaque projection le sommet réel des objets "coupés" le plus proche de la projection pour limiter le nombre d'objets (et limiter également un contour trop serré) et également éliminer les sommets situés à une distance beaucoup trop importante par rapport à ses voisins (cf. fichier .dwg).

Je me rends compte que j'ai de vrais problèmes de concision dans mes explications moi...Donc pour ceux qui ont compris, j'aimerais savoir comment peut-on aborder un problème comme celui-ci sans avoir besoin de calculer les points d'intersection projetés de 2 milliard de points pour simplement générer un contour précis à un jeu de sélection...Car même si sur le papier, la technique du drap fonctionne, cela demande beaucoup de ressources et de temps, ce qui n'est pas le but non plus ! >n<
Donc je me dis qu'il existe probablement un théorème mathématique ou une logique permettant de gagner du temps sur les calculs, mais pour un sujet comme celui-ci, ma logique propre ne me permet pas de réfléchir autrement qu'en analytique...

Bref, merci pour les âmes charitables qui prendront non seulement le temps de me lire, mais également de me répondre ! (voyez chat comme...un challenge, sauf que je n'ai pas de solution toute faite :3)

Bisous,
Luna

SSBoundingLine.dwg

J'espère que vous allez bien.

Pour les besoins d'un export de polyligne à rentrer dans un post processus de CN sans passer par son logiciel, j'aimerais convertir une polyligne sélectionnée en lignes (ça c'est pas bien compliqué) et en arcs (là c'est plus compliqué haha).

Le post pro demande 3 points d'arc : Point de départ / milieu de l'arc / point d'arrivée. J'ai cherché sur le net, et pas trouvé grand chose.

Pour l'instant je me cantonne juste à essayer de reproduire la polyligne en lignes et arcs sans la décomposer.

L'idéal serait une routine permettant de retourner les coordonnées du milieu de l'arc en fonction du point de départ / point d'arrivée / bulge de l'arc dans la polyligne.

Avez-vous qqh dans ce genre ?

Merci beaucoup.

Matt.

L'élément problématique ici est le fait qu'avec, 3,4,5,6 pages cela fonctionne très bien mais à partir de 7 pages donc 4 copies les décalages de pan sont complétement déréglés. Et je comprends pas pourquoi c'est à partir de ce moment là alors que tout fonctionne par paire (5 et 6; 7 et 8 ; 9 et 10 etc...)
De plus je tiens à dire que les duplications de layout se passent bien comme je le souhaite.

Voici le lisp :

 

 
(setq nb (atoi nombre_pages))  ;; Convertir en entier si nécessaire
 
  (if (< nb 3)
    (princ "\nMoins de 3, donc pas de copie.")
    (progn
      ;; Calcul du nombre de copies en fonction du nombre saisi
      (if (<= nb 4)
        (setq copies 1)
        (setq copies (+ 2 (fix (/ (- nb 5) 2)))))
      (princ (strcat "\nLa commande sera exécutée " (itoa copies) " fois."))

      ;; échelle
     
      (setq ptpan1 (list 0 0))  ;; Point de départ fixe
      (setq ptpandecal1
            (cond
              ((or (= choix_echelle "1/50"))   (list 0 (* (/ Latab 20) copies)))
          
          
              ((or (= choix_echelle "1/100")) (list 0 (* (/ Latab 10) copies)))
          
          
              ((or (= choix_echelle "1/25")) (list 0 (* (/ Latab 40) copies)))
          
              (T (list 0 0))  ;; Échelle non reconnue : pas de décalage
            )
        (princ (strcat "\nValeur du décalage : " (itoa copies)))
      )

      (setq i 0)
      (repeat copies                          ; LE PROBLEME ARRIVE DANS CETTE BOUCLE
        (progn
          ;; Construit un nom dynamique pour la présentation :
          ;; la première copie s'appellera "n", puis "n1", "n2", etc.
          (setq nameSuffix (if (= i 0)
                               "n"
                               (strcat "n" (itoa i))))
          (princ (strcat "\nCréation de la présentation : " nameSuffix))

          ;; --- Copie et établissement de la présentation actuelle avec un nom unique ---
          (command "-presentation" "c" "" nameSuffix)
          (command "-presentation" "E" nameSuffix)

          ;; --- Sélection des viewports dans le layout actif ---
          (setq ss (ssget "X" (list (cons 0 "VIEWPORT") (cons 410 (getvar "CTAB")))))
          (if ss
            (progn
              (princ (strcat "\n" (itoa (sslength ss)) " viewport(s) sélectionné(s)."))
              ;; Si plusieurs viewports existent, on sélectionne le premier
              (if (> (sslength ss) 1)
                (progn
                  (setq viewport1 (ssname ss 0))
                  (princ "\nPremier viewport sélectionné.")
                )
              )
            )
            (princ "\nAucun viewport trouvé.")
          )

          ;; Passage en espace objet
          (command "_MSPACE")

      ; Deverrouillage VIEWPORT
         (command "_mview" "V" "I" "TOUT" "")

      
          ;; --- Déplacement de la vue (PAN) ---
          (command "-pan" ptpan1 ptpandecal1)

          ;; --- Sélection et modification du viewport actif ---
          (setq ss (ssget "X" (list (cons 0 "VIEWPORT")
                                    (cons 410 (getvar "CTAB")))))
          (if ss
            (progn
              (setq num (sslength ss))
              (princ (strcat "\nNombre de viewports trouvés : " (itoa num)))
              (if (>= num 3)
                (progn
                  ;; Sélection directe du troisième viewport (index = 3)
                  (setq vp-index 3)
                  (command-s "_MSPACE")
                  (setvar "CVPORT" vp-index)
                  (princ (strcat "\nViewport " (itoa vp-index) " activé."))
                )
                (princ "\nIl n'y a pas assez de viewports.")
              )
            )
            (princ "\nAucun viewport trouvé.")
          )

          ;; --- Réexécution du déplacement (PAN) ---
          (command "-pan" ptpan1 ptpandecal1)
          
          (princ "\n--- Exécution de la copie terminée ---")
      
     ; Deverrouillage VIEWPORT
         (command "_mview" "V" "A" "TOUT" "")

          (setq i (1+ i))
        )
      )
    )
  )

(defun c:convert_objet_papier ()
  (if (= (getvar "TILEMODE") 1)
    (princ "\nVous êtes en espace objet. Passez en espace papier pour utiliser cette commande.")
    (progn
      ;; Sélectionner la fenêtre de présentation
      (setq vp_ent (car (entsel "\nSélectionnez une fenêtre de présentation : ")))
      (if (and vp_ent (eq (cdr (assoc 0 (entget vp_ent))) "VIEWPORT"))
        (progn
          ;; Basculer en espace objet
          (command "_MSPACE")
          
          ;; Sélectionner un point en espace objet
          (setq point_objet (getpoint "\nSélectionnez un point en espace objet : "))
          
          ;; Conversion du point en espace papier en tenant compte du viewport
          (setq point_papier (trans point_objet 0 2 vp_ent))  ; 0 = WCS (World Coordinate System), 2 = DCS (Display Coordinate System)

          ;; Retourner en espace papier
          (command "_PSPACE")

          ;; Affichage des coordonnées
          (princ (strcat "\nCoordonnées en espace objet : "
                         (rtos (car point_objet) 2 2) ", "
                         (rtos (cadr point_objet) 2 2)))
          (princ (strcat "\nCoordonnées en espace papier : "
                         (rtos (car point_papier) 2 2) ", "
                         (rtos (cadr point_papier) 2 2))))
        )
        (princ "\nSélection invalide. Veuillez sélectionner une fenêtre de présentation.")
      )
    )
  )

J'ai donc commencer à faire ceci mais le problème est qu'il me renvoie les coordonnées que l’espace objet, alors que cela n'est pas le cas.

Pour la commande ligne de repère multiple LIGNEDEREPMULT

Y a t il une variable qui détermine le mode de placement : Commencer par le contenu ou commencer par la pointe de flèche ?

Merci, Patrice

Est-il possible de lister en Lisp tous les dossiers / fichiers que nous paramétrons dans les options ?

J'ai trouvé le fichier d'export des options. Ficher.arg

Y-aurait-il une autre solution plus rapide en Lisp ?

Merci

Patrice

Je n'arrive pas à sélectionner les éléments qui se trouve dans un calque dont le nom contient des [crochets].

(princ (sslength (setq entite_sel (ssget "_x" '((2 . "*POINT*")(8 . "TOPOJIS-2025-[01]"))))))

Merci

Patrice

Je voudrai utiliser la commande "TCASE" en passant par le lisp.

Dans ce cas, je voudrai mettre le dernier élément (texte) en majuscule

(command "-TCASE" "d" "" "U")

Et j'ai l'erreur :

-TCASE Commande inconnue "-TCASE".

Comment utilisez vous cette commande (lisp) avec des paramètres

Merci

Patrice

Je suis confronté à un problème un peu particulier.

Dans mon dessin AutoCAD, j'ai environ 35 000 points. Pour chacun d'eux, j'extrais ses coordonnées, puis je lance un EXE externe en passant ces coordonnées en paramètre. Ce programme externe tourne environ 2 à 3 minutes et produit un fichier TXT que je lis et que je mouline pour créer un nouvel objet dans AutoCAD.

Le programme externe est mono threat, alors que je dispose de 20 cœurs dispo (variable d'environnement NUMBER_OF_PROCESSORS dispo pour connaître ce nombre).

Ce que j'aimerais, c'est lancé en parallèle 15 process chacun tournant sur son cœur, mais chacun de manière synchrone pour attendre le résultat avant d'en chaîner un autre.

L'idée c'est que les 15 cœurs soient occupés en permanence. Même à ce rythme, ça va prendre 4 jours, sinon c'est 2 mois 😞 

Actuellement, j'ai fait le programme en Lisp (plus rapide à mettre en place), mais s'il faut passer en C# ça sera possible sans souci. 

J'ai regardé du côté du traitement multithreat, mais ça ne semble pas adapté, puisque ce n'est pas un seul processus à répartir sur plusieurs threat.

SI vous avez une idée, je suis preneur de toutes réflexions.

Merci

Olivier

J'utilise une routine permettant de cumuler les surfaces et l'inscrire dans un texte.

En revanche elle ne fonctionne pas dans l'édition de référence (editref)

quelqu'un pourrait m'aider à l'adapter ?

voilà la routine et en pj un dwg pour le test

 (defun c:at (/ js somme ind st_ent type texte valtxt point surf)

   (setq cmdech (getvar "CMDECHO"))
   (setq iconscu (getvar "UCSICON"))
   (setq old_plan (getvar "clayer"))
   (setvar "CMDECHO" 0)
   (setvar "UCSICON" 0)	
  
  (prompt "\nChoisir les textes a additionner")
  (setq js (ssget))

  (setq somme 0.0)
  (setq ind 0)
  (if js
    (repeat (sslength js)
      (setq st_ent (entget (ssname js ind)))
      (setq type (cdr (assoc 0 st_ent)))
      (if (= type "TEXT")
	(progn
	  ; on additionne la valeur du texte
	  (setq texte (cdr (assoc 1 st_ent)))
	  (setq valtxt (atof texte))
	  (setq somme (+ somme valtxt))
	) 
      )
      (setq ind (1+ ind))
    ) 
  ) 
  (setq surf (strcat (rtos somme 2 2) ))
  (setq p3 (getpoint "\n Position pour le resultat de la somme : "))
  	(command "_layer" "l" "Z_Surf" "n" "Z_Surf" "e" "Z_Surf" "ch" "Z_Surf" "ac" "Z_Surf" "co" "" "" "")
  	(command "texte" p3 20 0 surf)
   (setvar "CMDECHO" cmdech )
   (setvar "UCSICON" iconscu )
   (setvar "clayer" old_plan)
)

Test.dwg

Y-a-t-il une variable dans le DWG que je peux réinitialiser pour supprimer le message 'DWG non autodesk' à l'ouverture du fichier ?

Merci et joyeuses fêtes à tous

Patrice

	(command "FILEDIA" 0)
	(command "NOUVEAU" "C:/_SADE/_Prototypes/Recolement/Eau Du Ponant/recol-prototype.dwg"))

Si je tape les commandes claviers :

     FILEDIA 0

puis NOUVEAU C:/_SADE/_Prototypes/Recolement/Eau Du Ponant/recol-prototype.dwg

cela fonctionne.

Par le Lisp, cela plante ?

Qui a la réponse.

Merci, Patrice

En lisp, je voudrai activer ou désactiver le 'Masque d'arrière plan' d'une étiquette ?

Comment feriez vous ?

Merci

Patrice

En Lisp, je voudrai parcourir la liste des filtres de calques

Et supprimer un filtre ou plusieurs filtres : connu ou inconnu

Merci, Patrice

J'ai besoin d'imprimer uniquement les présentations sélectionnées.

Est-il possible en lisp, de parcourir ou de connaitre les présentations sélectionnées ?

Merci

Patrice

Comment basculer d'une palette d'outils à une autre ? en Lisp

Je voudrai passer de Architecture vers Annotation

Merci

Patrice

Je dois modifier une bonne quantités de blocs dans les lesquels je dois changer le calque et la couleur des éléments du bloc.

Je suis à la recherche d'un Lisp qui permet de changer le calque du bloc vers le calque "2D_Symboles" et d'avoir la possibilité de choisir la couleur.

Merci d'avance pour votre aide

Sur une présentation donnée : déjà paramétrée : Imprimante / Papier / Echelle ...

Comment connaitre le nom de l'imprimanbte utilisée pour contrôle en LISP ?

Car je voudrai imprimer en PDF vers un dossier de l'affaire et le nom du PDF daté (pas vers mesDocuùents), mais je dois effectuer un contrôle de l'imprimante ?

J'utiliserai la commande -TRACEUR

Merci

Patrice

J'ai un petit problème avec le code ci dessous :

La routine permet en choisissant un multiple d'altitude (0.5/1/2/5/10/25/50/100 mètres) de placer dans un (nouveau) calque les courbes de niveau (situées dans un calque originel) répondant au critère.

Cependant, depuis peu, certaine courbe ne se place pas dans le nouveau calque alors que le critère est respecté (les altitudes affichées dans les propriétés sont juste).

Il y a peut être une erreur dans le code, ou une variable a modifier (précision ou arrondi proche par exemple..) ?

Merci,

(defun c:MAJCL (
					;/ elev ss i el
	       )
  (vl-load-com)
  (setq Valer (getvar "luprec"))
  (setvar "luprec" 0)
  (initget 1 "0.5 1 2 5 10 25 50 100")
  (setq
    elev (getkword
	   "\nSelect String for filter [0.5/1/2/5/10/25/50/100]: "
	 )
  )
  (setq
    LayerCL (car
	      (entsel
		"\nClick on a layer with contour lines to modify : "
	      )
	    )
  )
  (setq EntLay (entget LayerCL))
  (setq LAY (cdr (assoc 8 EntLay)))
  (setq nomcalc (strcat "_NB-MajorLine_" elev))
  (initget 1 "Blue Green GRey Pink Red White Yellow Other")
  (setq
    ColorCalc
     (getkword
       "\nSelect a color for the layer [Blue/Green/GRey/Pink/Red/White/Yellow/Other]: "
     )
  )
  (cond	((= ColorCalc "Blue")
	 (setq Color 141)
	)
	((= ColorCalc "Green")
	 (setq Color 91)
	)
	((= ColorCalc "GRey")
	 (setq Color 253)
	)
	((= ColorCalc "Pink")
	 (setq Color 211)
	)
	((= ColorCalc "Red")
	 (setq Color 241)
	)
	((= ColorCalc "White")
	 (setq Color 7)
	)
	((= ColorCalc "Yellow")
	 (setq Color 51)
	)
	((= ColorCalc "Other")
	 (setq Color 121)
	)
  )
  (if (not (tblsearch "LAYER" nomcalc))
    (entmake
      (list
	(cons 0 "LAYER")
	(cons 100 "AcDbSymbolTableRecord")
	(cons 100 "AcDbLayerTableRecord")
	(cons 2 nomcalc)
	(cons 70 0)
	(cons 62 Color)
	(cons 370 -3)
	(cons 6 "Continuous")
      )
    )
  )
  (if (setq ss (ssget "_X"
		      (list (cons 0 "LWPOLYLINE") (cons 8 LAY))
	       )
      )
    (repeat (setq i (sslength ss))
      (setq
	el (cdr
	     (assoc 38 (entget (setq e (ssname ss (setq i (1- i))))))
	   )
      )
      (if (equal (distof (rtos (rem el (distof elev)) 2 2)) 0.0 1e-6)
					; at elevation that is a multiple of elev?
	(vla-put-Layer (vlax-ename->vla-object e) nomcalc)
					;(command "_.chprop" e "" "_layer" nomcalc "")
      )					; if
    )					; repeat
  )					; if
  (setvar "luprec" Valer)
  (princ)
)

J'utilise cela pour afficher des barres d'outils sur mon écran.

	(command "-BAROUTIL" "CALQUES II" "A")	;gestion des calques
	(command "-BAROUTIL" "EDIT REF" "A")	;édition des blocs
	(command "-BAROUTIL" "GROUPER" "A")		;édition des groupes

Pour la barre d'outils "EDIT REF" : erreur, la barre d'outils n existe pas, et cela bloque la commande suivant.

Commande: -BAROUTIL Entrez le nom de la barre d'outils ou [TOUTES]: EDIT REF
La barre d'outils n'a pas été trouvée.
Entrez le nom de la barre d'outils ou [TOUTES] <EDIT REF>: A

Comment annulez-vous la commande en cours ?

Merci

Patrice

J'arrive à créer une ListBox avec le fichier de Gil.

Est-il possible de sélectionner un élément dans la liste (ancienne valeur par exemple) ?

Merci

Patrice

Le but de ce challenge est d'écrire une routine qui prend en argument une chaîne de caractères et renvoie la liste des nombres contenus dans cette chaîne.

Exemple :

(extraireNombres "Longueur = 25.4mm Largeur = 12.7mm Quantité = -42") 

renvoie : (25.4 12.7 -42)

Je parcours quelques blocs insérés sur un fichier.

Ces blocs ont des attributs, certains de ces attributs, je voudrai les supprimer (pas les mettre à vide).

Comment faire en Lisp ?

Merci, Patrice