code LISP.LSP Dessin2.dwg pfe michel loic.bak.cuix PFE MICHEL LOIC.cuix pfe michel loic.mnr pfe michel loic_light.mnr PI._DC PI.DCL

J'ai actuellement un problème sur mon programme.
Je veux générer des conditions afin de modifier la visibilité de deux blocs.
Tout fonctionne parfaitement sauf au moment de ma condition if.
Savez-vous où est le problème ? Voici le moment où ça bloque :  ;; Condition correcte
  (if (and
        (= (type_rsx) "PROJET")
        (= (config_nom) "TE À 3 EMBOITEMENTS")
      )
    (progn
      (setpropertyvalue bloc1 "AcDbDynBlockPropertyVisibilité1" "Te à 3 emboitements")
      (setpropertyvalue bloc2 "AcDbDynBlockPropertyVisibilité1" "reseaux pour te  a 3 emboitements (PROJET)")
    )
  )

Dessin2.dwg pi lisp.LSP PI.DCL

meilleurs voeux pour 2025.

Toujours dans mes blocs dynamiques, j'essaye de comprendre comment Autocad gère la définition et la représentation des blocs dynamiques.

je voudrais pourvoir changer à la demande la taille d'une flèche de ligne repère contenue dans un bloc dynamique.

En principe, sauf pour les attributs, il faut changer la définition du bloc pour que ça se répercute dans les occurrences du bloc.

je le fait via ce code exemple pour le bloc "gen_sup"

(defun foundef ()
(setq blks (vla-get-Blocks (vla-get-ActiveDocument(vlax-get-acad-object))))
  (setq blk (vla-item blks "gen_sup"))
  (vlax-for ent blk
    (if (= (vla-get-ObjectName ent) "AcDbMLeader")
      (vla-put-ArrowheadSize ent 9.87654321)
     )
  )
)

le changement de la définition se fait bien, mais elle n'est pas répercutée sur les occurences du bloc existantes.

dans le dwg joint, on voit que les blocs "gen_inf", qui ont été modifiés après qu'une occurence du bloc a été insérée dans le dessin gardent une taille de flèche de 0.4, et non pas 9.8765

si vous éditez ce bloc, vous verrez pourtant que sa définition à une valeur de 9.8765

le bloc gen_sup, qui a été redéfini avant l'insertion d'une occurence à bien une taille de flèche de 9.8755 au lieu des 0.4 initiaux.

Si j’utilise l'édition de bloc d'Autocad, la mise à jour est instantanée.

En faisant un "handle_explorer" j'ai vu que la taille de la flèche est stockée 2 fois, code 40 et 140 en dxf.

Je sais aussi que les blocs dyn créent une entrée personnalisée dans le dictionnaire irdDscDictionary, mais je n'ai rien trouvé dedans.

là je sèche !

a+

Gégé

Exemple_bdyn.dwg

existe-t-il un lisp qui calcule automatiquement des aires en lot et intègre les surfaces a l'intérieur des lots 

merci pour votre retour

Scout

Etant tout nouveau sur ce forum mais également dans le domaine des LISP, j'espère m'exprimer comme il se doit. J'ai pour projet d'améliorer certaines tâches dans un but de gain de temps lors de la création de plans.

Cela serait notamment possible en réalisant une liste de débit qui utiliserait une zone de sélection au préalable afin d'ériger un tableau reprenant :

• Le nom du bloc (original)
• Sa quantité 
• Sa section (autrement nommé en intégrant quelle visibilité est utilisée)
• Sa longueur (représentée dans les blocs dynamiques par le paramètre de distance nommé "L")

Je vous joins mon .dwg test, ainsi que le fichier LISP utilisé afin de réaliser cette liste de débit. 

Mon soucis étant : à l'heure actuelle, mon fichier LISP reste incomplet concernant la récupération du paramètre "L" afin de l'intégrer dans la colonne "Longueur en mm)" du tableau créé.

Sauriez-vous quels éléments apporter au fichier LISP afin de mener à bien ce projet ?

Vous remerciant en tout bien tout honneur pour le temps accordé à ma question,

Un total néophyte 

Test liste de débit.dwg QSD.lsp

j'ai créé un bloc dynamique servant de base à une annotation.

Il est très simple, un point, une ligne repère, 11 attributs,

un étirement polaire des la ligne repère et des 11 attributs.

+ un état de visibilité sur la ligne repère visible ou invisible.

A partir des ce bloc "cellule souche", je défini 80 blocs à partir de cette cellule souche, en ajoutant des entités diverses pour avoir un symbole + évolué qu'un simple point.

sauf que l'ajout des entités se fait dans un état de visibilité ou l'autre.

Du coup, c'est soit je vois la ligne repère soit les entités ... (voir exemple joint)

si je trouvais où est stocké l'état de visibilité, je pourrai le corriger par la programmation, ça serait mieux que de me palucher 80 blocs ...

mais la je sèche.

Lee mac drive les blocdynamique, mais il ne fait pas ça...

a+

Gégé

applique.dwg

Il y a TRÉS longtemps que je n'ai pas mis les pieds ici, et encore plus longtemps que je n'ai pas tripatouillé du lisp...

Aujourd'hui j'aurais besoin d'un peu d'aide. Comme beaucoup, je "traite" mes plans archi avant de dessiner dessus (CVC).

Dans ma routine, je supprime les hachures solides par cet extraordinaire lisp (désolé j'ai perdu la source de généreux donateurs... gile, patrick_35, Bonuscad, Fraid, lecrabe ?). J'en ai même fait tout un tas de variante pour supprimer d'autres type d'objets (cotations, etc).

(defun c:supsolid ()
(vl-load-com)
(setq a (vla-get-blocks (vla-get-activedocument (vlax-get-acad-object))))
(vlax-for bl a
(vlax-for ent bl
(if (and (= (vla-get-objectname ent) "AcDbHatch")
(= (vla-get-PatternName ent) "SOLID")
)
(vla-delete ent)
)
)
)
(vla-regen (vla-get-activedocument (vlax-get-acad-object)) acActiveViewport)
)

Je cherche aujourd'hui à supprimer également les "gradients"...

Pattern-name qui commence par GR_* (mais je ne sais pas si c'est la bonne méthode : ne pourrait-il pas y avoir des motifs personnalisés, issu d'un export d'un autre logiciel par exemple, dont le nom de motif ne commence pas par GR_)

J'ai trouvé sur internet le code DXF 450 mais je ne sais pas comment l'exploiter dans mon code...

Citation

450

Indicates solid hatch or gradient; if solid hatch, the values for the remaining codes are ignored but must be present. Optional; if code 450 is in the file, then the following codes must be in the file: 451, 452, 453, 460, 461, 462, and 470. If code 450 is not in the file, then the following codes must not be in the file: 451, 452, 453, 460, 461, 462, and 470 0 = Solid hatch 1 = Gradient

Est-ce que quelqu'un aurait une idée ? Merci d'avance

Je cherche aussi à supprimer la couleur d'arrière plan des hachures qui ont une couleur d'arrière plan... J'en fais un autre sujet.

Les fonctions (getvar "CDATE") et (getvar "DATE") renvoient la date de Windows.

Sauriez-vous comment faire en LISP ou VLISP pour obtenir la date "INTERNET" ?

Merci

L56

quand une routine vieille de 30 ans ne marche plus,

on se pose des questions ...

est un espace c'est invisible ...

alors quand votre vielle routine qui découpe un chaine avec un séparateur vous donne le mauvais résultat dans le deboggueur

(pw_lst_de_ch "15 c" " ")
-> ("15 c")

Vous retapez en ligne de commande et la c'est bon:

(pw_lst_de_ch "15 c" " ")
-> ("15" "c")

Vous cogitez un moment,

car en fait "  " /= "  "

car (chr 32) /= (chr 160)

code ascii 160 = espace insécable

https://fr.wikipedia.org/wiki/Espace_insécable

donc j'ai ajouté à mon code:

(if	(or (= (chr 32) separ) ;_espace normal
	    (= (chr 160) separ) ;_espace insécable
	)
      (progn
	(setq separ (chr 32)) ;_espace normal
	(while (vl-string-search (chr 160) ch)
	  (setq ch (vl-string-subst separ (chr 160) ch))
	)
      )
    )

voilà, 1h30 de perdues ...

a+

Gégé

voici une moulinette qui permet d'importer les style de cote depuis le prototype

(defun c:importstylecot ( / template f cotlist )

 (setq template "monproto.dwt")
(vl-load-com)
 
 (if (setq f (opendbx (strcat (getenv "TemplatePath") "\\" template)))
   (progn
     (vlax-for l (vla-get-dimstyles f)
       (or
         (wcmatch (vla-get-Name l) "*|*")
         (setq cotlist (cons l cotlist))
       )
     )
     (vlax-invoke f 'CopyObjects cotlist (vla-get-dimstyles (vla-get-ActiveDocument (vlax-get-acad-object))))
     (vlax-release-object f)
   )
 )
 (princ)
)

mais je galère a faire la même pour les styles de "lignes repère multiples"

si vous avez une idée ......

Je suis débutant en LISP, j'ai commencé à chercher par moi-même mais je bloque.

Je souhaite créer une LISP qui prend en compte les polylignes (ou lignes) d'un calque donné dans mon dessin dwg, et qui m'affiche en couleur (rouge par exemple) celles qui sont alignées entre elles.

Mon approche pour cela est la suivante : le code va décomposer les polylignes de mon calque afin d'en faire des lignes (des segments), puis il va analyser les propriétés de ces lignes, et changer la couleur de celles dont les coordonnées XY "début de ligne" et/ou "extrémité" sont identiques, ET dont l'angle est similaire à 0.005 ± 200 grades (ou 0.00008 ± 𝝅 rad).

Je vous ai mis en fichier joint les propriétés des lignes dans AutoCAD.

À préciser que je travaille sur AutoCAD MAP 2014, avec Covadis 14. J'espère que ça n'est pas une grosse contrainte pour ce code...

Jusqu'à maintenant, j'ai un code qui décompose mes polylignes et change la couleur des lignes résultantes en rouge :

(vl-load-com)
(defun c:color-align ()
 ;; charger les fonctions Visual LISP
 (vl-load-com)

 ;; démarrer le chrono
 (setq t0 (* 84600 (getvar 'tdusrtimer)))
 
  ;; créer une variable globale pour le document actif si elle n'existe pas déjà
 (or *acdoc* (setq *acdoc* (vla-get-ActiveDocument (vlax-get-acad-object))))
 
  (if (ssget "_X" (list '(0 . "LWPOLYLINE") (cons 410 (getvar 'ctab))))
   (progn
     ;; démarrer un groupe d'annulation
     (vla-StartUndoMark *acdoc*)
     
     ;; pour chaque polyligne sélectionnée
     (vlax-for	pl (setq ss (vla-get-ActiveSelectionSet *acdoc*))
(vla-Explode pl) ; décomposer la polyligne
(vla-Delete pl) ; supprimer la polyligne
     )
     (vla-Delete ss); supprimer le jeu de sélection (libérer les ressources)

     ;; terminer le groupe d'annulation
     (vla-EndUndoMark *acdoc*)
   )
 )
 
  ;Ajoute à la variable ss les objets du calque PARCELLES.
  (setq ss  
      (ssget "_X" '((8 . "*PARCELLES"))))
	
  ; Applique la couleur Rouge dans les propriétés des objets de la sélection.
   (command "chprop" ss "" "CO" "Rouge" "")
 

 ;; arréter le chrono et afficher le temps d'exécution
 (setq t1 (* 84600 (getvar 'tdusrtimer)))
 (princ (strcat "\nTemps d'exécution : " (rtos (- t1 t0)) " secondes"))
 (princ)
)
(c:color-align)


; (equal '(1.12345 12.0) '(1.12346 12.0) 0.00001) -> tolérance 

Merci d'avance pour votre aide 😇

Edouard

test.lsp

J'ai exporté des plans depuis Revit vers Autocad et je me retrouve dans mon plan Autocad avec des blocs identiques mais avec un nom de bloc différent

exemple :

Luminaire Type-Y3800 - Luminaire Type Y3800-742741-ECLAIRAGE - NIVEAU 098
Luminaire Type-Y3800 - Luminaire Type Y3800-V1188-ECLAIRAGE - NIVEAU 098

Ce sont pourtant 2 blocs identiques mais Revit a ajouté du blabla derrière le nom du bloc

Auriez-vous un lisp qui permet de changer le nom pour avoir un seul bloc

Pour l'exemple je ne dois garder que cette partie de nom :

Luminaire Type-Y3800 - Luminaire Type Y3800

Merci d'avance

Bonne journée

J'ai découvert le merveilleux LISP "LISTBLOCK", me permettant d'afficher dans un tableau le nom, le nombre, et le symbole, c'est super !

Mais il me manque quelque chose d'essentiel, car je souhaiterai afficher également le nom de la visibilité de mon bloc dynamique dans une 4e colonne.

J'utilise un même bloc avec des dizaines de visibilités et je souhaiterai les quantifier indépendamment. 

Merci à vous et bonne fin de journée 🙂 

Un cherchant sur le forum j'ai trouvé ce bout de code

(defun c:att ( / obj-txt chn obj-att att-tag att-val obj-blc blc-val)

(setq obj-txt (nentsel "\n Choisir le texte de reference : "))

(setq chn (cdr (assoc 1 (entget (car obj-txt)))))

 

(setq obj-att (nentsel "\n Choisir l'attribut à modifier : "))

(setq att-tag (cdr (assoc 2 (entget (car obj-att)))))

(setq att-val (cdr (assoc 1 (entget (car obj-att)))))

 

(alert (strcat "\nEtiquette de l'attribut : " att-tag ".\n"

"Valeur de " att-tag " : " att-val ".\n"

"Nouvelle valeur de " att-tag " : " chn "."))

 

(command "_attedit" "oui" "" att-tag att-val (car obj-att) "v" "r" chn "")

 

(entdel (car obj-txt))

)

Il fonctionne très bien, mais il faut a chaque modification relance le code.

Comment faire pour que le coller soit en boucle.

Merci d'avance et bonne journée

(setq ListNb (list 0 0 0 0 0 0))

Et lorsque je rencontre une entité qui serait en troisième position, il faudrait ajouter 1 au troisième élément de la liste ListNb, ce qui donnera ListNb = 0 0 1 0 0 0

(setq ListTS (vl-sort ListTS '<))

Dans ma liste, je peut avoir "1;ST" "10;ST" "2;ST"...
Le problème est qu'à la sortie du tri, j'ai "10;ST" "1;ST" "2;ST"...
Je préfèrerais avoir "1;ST" "2;ST" "10;ST", avec le 10 plus grand que 1 et 2...

Si quelqu'un a une astuce, un conseil...
Denis.

Est-il possible en LISP/VLISP (via les réacteurs je suppose) de créer une commande qui afficherait une fenêtre (type info-bulle) quand la souris passe sur un bloc avec attribut ?

Par exemple, en appuyant sur CTRL et l'info-bulle apparaitrait avec les attributs que j'aurai choisi d'afficher. cela serait plus léger que d'afficher la boite de dialogue d'édition des attributs.

Autres exemple, je pourrais aussi l'utiliser pour afficher des X-datas d'entités qui en contiennent.

J'ai bien jeté un œil à "vlr-mouse-reactor" mais je ne sais pas quoi en faire ...

Merci à ceux qui ont une idée

L56

Pour faire suite à une discussion récente sur le forum, vla-get-textstring -> Ne donne pas forcement la bonne valeur, consultable ici

Je propose de créer ici un fil de discussion pour répertorier les limitations ou exception (plus ou moins connus et non documenté) de certaines fonctions lisp.

Je sais récupérer une liste de dossiers avec "(vl-directory-files ..." mais je voudrais également obtenir la date de création et de modification de ces dossiers.

Si quelqu'un à une petite idée ...

Merci

L56

Dans un Dessin Courant AutoCAD, j'ai un calque nommé RESEAU et différents fichiers .dwg ont été attachés en XREF, sur un calque nommé REFERENCES. Les fichiers .dwg  attachés en XREF ont la même structure. En particulier, dans chacun d'entre eux, des objets graphiques sont placées sur un calque nommé FILAIRE.

Dans le Dessin Courant AutoCAD, j'aimerais dupliquer sur le calque RESEAU - via un code AutoLISP - les objets contenus sur le calque FILAIRE de chacune des XREF.

Merci pour votre aide.

YUHTINA44

Nous rencontrons des difficultés avec la gestion des palettes et groupes de palette.

Toute une série de palette vient d'être créée dans notre service et doit être déployée à chaque utilisateur d'Autocad.

Nous avons une routine qui change "l'emplacement des fichiers de palettes d'outils" et de "palettes de création" et les nouvelles palettes sont chargées.

Mais nous nous apercevons qu'il reste toujours d'anciennes palettes que nous aimerions retirer sans devoir obliger chacun des utilisateurs à le faire manuellement et une par une.

Est ce qu'il existe une commande LISP qui affiche la liste des palettes chargées et une autre qui peut les retirer du panneau "Personnaliser les palette \ Groupe de palette" (vla-delete-grouppalette ??)

Nous avions bien essayé de résoudre ce problème en diffusant à l'ensemble des collaborateurs un profil .arg, cela fonctionne bien au niveau des palettes et groupes de palette mais bien entendu, cela change également les préférences utilisateurs de chacun. 

Une idée pour nous aider?

Grand Merci

Pas sur que le titre soit très clair.

Quand on quitte un dessin on peut utiliser :vlr-beginClose pour exécuter une commande LISP juste avant de fermer le dessin.

Quand on à plusieurs DWG d'ouvert dans un même AUTOCAD, on peut "passer" de l'un à l'autre en cliquant sur l'onglet correspondant.

Peut-on repérer ce "passage" par un réacteur ?

Je souhaiterai exécuter une commande LISP juste avant de passer dans un autre dessin MAIS sans fermer l'actuel.

Est-ce possible ?

Merci

L56

En mode compilé (.FAS) c'est extrêmement rapide ; la machine et les algorithmes ne sont donc pas en cause mais en mode "source" c'est affreux.

Je bosse sur AutoCAD 2021.

Durant ces périodes "d'attente du résutat", dans l'éditeur, le curseur devient "le petit balai" ; comme si l'éditeur manquait de ressource et swappait en permanence il y a pourtant de la mémoire à gogo

quelqu'un a-t-il eu le même problème ?

surtout quelqu'un a-t-il une piste, un réglage quelconque ?

merci.

comment définir un réseau rectangulaire avec visual lisp, le but étant d'éviter l'utilisation de (command "_arrayrect" etc...) ?

Même chose avec la commande "_arrayedit"

Merci par avance

Amicalement

Vincent

J'ai créé un Onglet de Ruban avec plusieurs groupe de fonction.

Comment afficher ou masquer un groupe de fonction avec une commande Lisp ou Vlisp ou autre (macro, script, ...) ?

Merci à ceux qui savent.

Cordialement

L56