Aller au contenu
Problème de lien d'inscription (résolu ?) ×

- Routines LISP

# Lisps de Patrick_35

Par Patrick_35
le 8 août 2006 dans Routines LISP

Partager
Abonnés 4

- Précédent
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
- 22
- 23
- 24
- Suivant
- Page 19 sur 28

## Messages recommandés

### salvanorigatore

Posté(e) le 7 janvier 2010

### salvanorigatore

- Membres
- - 417
- Location Grenoble

Posté(e) le 7 janvier 2010

Bonjour Patrick_35, (gile), PHILPHIL, ...

j'ai essayé de suivre mais j'ai pas tout compris :mad2:

j'ai téléchargé la nouvelle version de GEF (3.04), petite(s) question(s) :

- La DLL remplace les ARX ?

- Dans quel dossier il faut la mettre ? là ou il y avait les ARX ?

merci d'avance pour vos réponses. :cool:

Bonne journée à tous.

" Celui qui a déplacé la montagne, c'est celui qui a commencé par enlever les petites pierres "

- Réponses 693
- Créé 18 a
- Dernière réponse 3 a

#### Meilleurs contributeurs dans ce sujet

- 214

- 45

- 39

- 34

#### Jours populaires

- le 23 janv.

  14

- le 7 févr.

  12

- le 9 août

  12

- le 10 juil.

  11

#### Meilleurs contributeurs dans ce sujet

- Patrick_35 214 messages

- PHILPHIL 45 messages

- lili2006 39 messages

- lecrabe 34 messages

#### Jours populaires

- le 23 janv. 2007

  14 messages

- le 7 févr. 2022

  12 messages

- le 9 août 2006

  12 messages

- le 10 juil. 2008

  11 messages

#### Messages populaires

##### Patrick_35

le 8 août 2006

Bonjour à vous tous Cela fait un moment que je fais des lisp et que je les publie sur ce forum On en trouve un peu partout et j'ai donc décidé de les regrouper dans ce post

##### JUJUZAZA

le 19 août 2006

patrick 35 tu as eu 1 superbe idée de tout regrouper et encore + fort de partager tes lisp . 1 grand merci

##### Patrick_35

le 22 août 2006

Ajout de la fonction Ctr @+

#### Images postées

### Patrick_35

Posté(e) le 7 janvier 2010

### Patrick_35

- Membres
- - 6,4 k

- Auteur

Posté(e) le 7 janvier 2010

Salut

La dll remplace les arx.

Normalement, avec elle, plus de soucis de version à partir de 2007

@+

Les Lisps de Patrick

Le but n'est pas toujours placé pour être atteint, mais pour servir de point de mire.

Joseph Joubert, 1754-1824

### (gile)

Posté(e) le 7 janvier 2010

### (gile)

- Moderateurs
- - 12,2 k

Posté(e) le 7 janvier 2010

Patrick_35,

> Citation
> Tu es le meilleur

Oh non, je bidouille encore beaucoup.

> Citation
> ps : comment évaluer la version d'une dll autement que par une fonction ?

je ne sais pas, le fais : (if gc-vpfreeze ...)

PS : tu peux remplacer (vlax-vla-object->ename vie) par (vla-get-ObjectId vie) mais je ne sais pas si c'est d'un grand intérêt...

salvanorigatore,

> Citation
> - La DLL remplace les ARX ?

> - Dans quel dossier il faut la mettre ? là ou il y avait les ARX ?

- oui

- dans un dossier des chemin de recherche

Gilles Chanteau - gileCAD - GitHub
Développements sur mesure pour AutoCAD

### salvanorigatore

Posté(e) le 7 janvier 2010

### salvanorigatore

- Membres
- - 417
- Location Grenoble

Posté(e) le 7 janvier 2010

Merci beaucoup les gars :heartpump:

" Celui qui a déplacé la montagne, c'est celui qui a commencé par enlever les petites pierres "

### PHILPHIL

Posté(e) le 7 janvier 2010

### PHILPHIL

- Membres
- - 1,3 k
- Location: NANTES

Posté(e) le 7 janvier 2010

hello patrick gile

merci du boulot les gars

bon désole mais j'ai des soucis en 64 bits apparement

sur gef 3.04 j'ai rajouter ca pensant que ca allait regler mon soucis mais non

      (command "_NETLOAD" "vplayerlisp.dll")

sinon comme ca ne fonctionne pas j'ai ca en réponse

charabia pour moi

language pour vous ??

     Commande: gef
    _NETLOAD Nom du fichier d'assemblage: vplayerlisp.dll
    Commande: System.MissingMethodException: Méthode introuvable : 'Void
    Autodesk.AutoCAD.DatabaseServices.ObjectId..ctor(Int32)'.
      à VpLayerLisp.LspFuntions.vpFreezeOrThaw(ResultBuffer resbuf, Boolean frz)
      à VpLayerLisp.LspFuntions.VpFreeze(ResultBuffer resbuf)
      à Autodesk.AutoCAD.Runtime.CommandClass.InvokeWorker(MethodInfo mi, Object
    commandObject, Boolean bLispFunction)
      à
    Autodesk.AutoCAD.Runtime.CommandClass.InvokeWorkerWithExceptionFilter(MethodInfo
    mi, Object commandObject, Boolean bLispFunction)
      à Autodesk.AutoCAD.Runtime.CommandClass.CommandThunk.InvokeLisp(); erreur:
    Demande ADS erronée

sinon sans connaitre le language c++

est ce que je n'aurais pas interet a télécharger le programme de programation en C++ qui doit etre gratuit je pense fournit par totocad et transformer ca en 64 bits moi meme ??

faut le code source c'est ca heinn

a+

phil

FREELANCE

Autodesk Architecture 2025 sous windows 11 64

REVIT

24 pouces vertical + 30 pouces horizontal + 27 pouces horizontal

### (gile)

Posté(e) le 7 janvier 2010

### (gile)

- Moderateurs
- - 12,2 k

Posté(e) le 7 janvier 2010

Salut,

Je te propose d'essayer avec cette nouvelle DLL

Il semble que le constructeur pour ObjectId que j'utilise pour pouvoir accepter un nombre entier comme argument ait changé.

Avec cette version, le premier argument pour les fonctions LISP ne peut-être qu'un nom d'entité (type ENAME).

Gilles Chanteau - gileCAD - GitHub
Développements sur mesure pour AutoCAD

### PHILPHIL

Posté(e) le 7 janvier 2010

### PHILPHIL

- Membres
- - 1,3 k
- Location: NANTES

Posté(e) le 7 janvier 2010

hello tous

merci gile patrick

cette version de *.DLL fonctionne

test sur un fichier 7Mo

24 presentations à 1 fenetre et 1800 calques

pas de soucis rencontre avec AA2010 64 bits

juste un petit truc mais ca doit venir du grand nombre de calque ou/et fenetres

la mise a jour de la liste des calques a droite qui met 3 4 secondes

a+

phil :D ;)

FREELANCE

Autodesk Architecture 2025 sous windows 11 64

REVIT

24 pouces vertical + 30 pouces horizontal + 27 pouces horizontal

### pierrevigneux

Posté(e) le 14 janvier 2010

### pierrevigneux

- Membres
- - 393

Posté(e) le 14 janvier 2010

Merci Beaucoup Patrick, très interessants.

Beau travail

Acadnadien

### tom11

Posté(e) le 21 janvier 2010

### tom11

- Membres
- - 18

Posté(e) le 21 janvier 2010

Bonsoir,

j'ai un petit problème je viens d'utiliser le lisp "LG"de Patrick qui permet de creér une légende très pratique et de compter les blocs.

Depuis que je me suis servis de ce lisp je ne peut plus utiliser des raccourcis de base

ctrl+c et ctrl+v

quand je fais ctrl+c il me dit _copyclip etdemande choix des objets ? chose qu'il n'a jamais fait !

je ne peux plus faire glisser un objet d'une fenêtre a une autre ?

il y avait une manip aussi en faisant un clic droit sur un bloc par exemple et le copier plusieurs fois avec un point de base. Cette fonction a disparue du menu quand je fais un clic droit

Merci de votre aide.

### lili2006

Posté(e) le 21 janvier 2010

### lili2006

- Moderateurs
- - 12,6 k

Posté(e) le 21 janvier 2010

Bonsoir à toutes et tous,

CF ce post,

Civil 3D 2025 - COVADIS_18.3d

https://www.linkedin...3%ABt-95313341/

### DERMEISTER

Posté(e) le 29 janvier 2010

### DERMEISTER

- Membres
- - 2

Posté(e) le 29 janvier 2010

Bonjour Patrick

Nous utilisons votre routine PAT V1.02 et j'aimerais savoir si vous pouvez la modifier afin que l'enregistrement s'effectue toujours en mode AutoCAD 2004 (AC1018 lorsque le fichier DWG est ouvert dans le notepad)?

Pour des raison de compatibilité des dessins nous devons sauvegarder en 2004 même si la majorité des gens utilise la version 2008. J'ai remarqué que même si mon format d'enregistrement par défaut est 2004, la routine PAT 1.02 enregistre quand même en 2008.

Merci beaucoup.

[Edité le 2/2/2010 par DERMEISTER]

### bonuscad

Posté(e) le 30 janvier 2010

### bonuscad

- Membres
- - 5 k

Posté(e) le 30 janvier 2010

Salut DERMEISTER,

Je précède Patrick_35, car je me demande si ce problème ne pourrait pas être résolu par cette réponse

De cette manière je pense que l'environnement de ton Autocad sera configuré pour sauvegarder systématiquement dans la version souhaitée, quelque soit la commande utilisée (SAVEAS WBLOCK).

Choisissez un travail que vous aimez et vous n'aurez pas à travailler un seul jour de votre vie. - Confucius

### Patrick_35

Posté(e) le 30 janvier 2010

### Patrick_35

- Membres
- - 6,4 k

- Auteur

Posté(e) le 30 janvier 2010

Bonjour

Merci Bonus, je ne connaissais pas cette variable.

Je vais regarder de plus près.

@+

Les Lisps de Patrick

Le but n'est pas toujours placé pour être atteint, mais pour servir de point de mire.

Joseph Joubert, 1754-1824

### pierricq

Posté(e) le 1 février 2010

### pierricq

- Membres
- - 92

Posté(e) le 1 février 2010

Bonjour,

Bon désolé je vais être hors sujet et je sais bien que patrick n'y est pour rien, mais j'ai écris au webmaster qui n'a pas daigné me répondre...

En faite ca fait un moment que je souhaite me désabonner de cette discution et quite a passer pour un noob je n'y suis pas parvenus j'ai donc demandé a patrick qui m'a dis qu'il n'etait pas webmaster et ensuite au webmaster...

Donc etant toujours sans réponse je solicite la communauté CADXP pour connaitre cette foutue procedure.

Merci [Edité le 1/2/2010 par pierricq]

[Edité le 1/2/2010 par pierricq]

### Patrick_35

Posté(e) le 1 février 2010

### Patrick_35

- Membres
- - 6,4 k

- Auteur

Posté(e) le 1 février 2010

Salut

Tu édites ton/tes message(s) et tu décoches la case Recevoir un courriel lors d'un nouveau message sous ce Sujet?

@+

Les Lisps de Patrick

Le but n'est pas toujours placé pour être atteint, mais pour servir de point de mire.

Joseph Joubert, 1754-1824

### pierricq

Posté(e) le 1 février 2010

### pierricq

- Membres
- - 92

Posté(e) le 1 février 2010

merci,

cette case n'etait pas cochée j'ai donc coché puis décocher on vera bien...

Bonne continuation a tout le monde sur les lisp...

### Patrick_35

Posté(e) le 1 février 2010

### Patrick_35

- Membres
- - 6,4 k

- Auteur

Posté(e) le 1 février 2010

Alors, ce n'était pas le bon message.

Si tu en as par exemple 5 dans ce sujet, il faut vérifier que les 5 sont décochées.

@+

Les Lisps de Patrick

Le but n'est pas toujours placé pour être atteint, mais pour servir de point de mire.

Joseph Joubert, 1754-1824

### DERMEISTER

Posté(e) le 1 février 2010

### DERMEISTER

- Membres
- - 2

Posté(e) le 1 février 2010

> Citation
> Salut DERMEISTER,

> Je précède Patrick_35, car je me demande si ce problème ne pourrait pas être résolu par cette réponse

> De cette manière je pense que l'environnement de ton Autocad sera configuré pour sauvegarder systématiquement dans la version souhaitée, quelque soit la commande utilisée (SAVEAS WBLOCK).

Bonjour bonuscad

J'avais finalement trouvé une solution, modifier la ligne de la manière suivante:

    (vla-saveas (car doc) (strcat rep "/" [b]ac2004_dwg[/b] ))

où ac2004_dwg remplace fic. Ca fonctionne pour le moment, mais je vais investiguer plus en profondeur votre solution qui risque de nous sauver de quelques problèmes.

Merci

### oran

Posté(e) le 2 février 2010

### oran

- Membres
- - 249

Posté(e) le 2 février 2010

Bonjour,

A propos de MAT.lsp, serait-ce possible d'affiner la recherche de l'attribut en ajoutant "une case" supplémentaire qui correspondrait à la valeur "Par défaut" attribuée à notre attribut lors de sa réalisation.

Merci d'avance :)

### Patrick_35

Posté(e) le 3 février 2010

### Patrick_35

- Membres
- - 6,4 k

- Auteur

Posté(e) le 3 février 2010

Salut

Oui, dès que j'aurai un moment

@

Les Lisps de Patrick

Le but n'est pas toujours placé pour être atteint, mais pour servir de point de mire.

Joseph Joubert, 1754-1824

### oran

Posté(e) le 3 février 2010

### oran

- Membres
- - 249

Posté(e) le 3 février 2010

....pas de soucis, ça n'a pas un caractère d'urgence.

Merci de ta disponibilité.

Sylvain

- 1 mois après...

### andreanne

Posté(e) le 22 mars 2010

### andreanne

- Membres
- - 4

Posté(e) le 22 mars 2010

bonjour,

je suis incapable de faire fonctionner le lisp LSTBL,

lorsque je le charge, j'ai ce message:

; error: Automation Error. Problem in loading VBA

est ce que quelqu'un pourrait m'aider svp

j'ai autocad mechanical 2010

merci

### andreanne

Posté(e) le 23 mars 2010

### andreanne

- Membres
- - 4

Posté(e) le 23 mars 2010

bonjour patrick,

je suis presentement en train de faire un programme afin de classer des blocs par leur point d'insertion.

je dois pouvoir les classer en colonnes et savoir leurs ordre dans les colonnes

voici mon debut de programme, est ce que tu aurais des idees pour effectuer le classement sans perdre le lien entre le point d'insertion et le nom d'entitée.

merci beaucoup pour ton temps et tes programmes

(DEFUN C:BLOCORD (/ BLOCNAME LISTE LISTE2 JS)

(SETQ BLOCNAME

(CDR (NTH 10 (ENTGET (car (ENTSEL "Sélectionnez un bloc"))))

)

)

(setq JS (ssget "x" (list (CONS 2 BLOCNAME) (CONS 0 "INSERT"))))

(SETQ LISTE (mapcar 'cadr (ssnamex js)))

(FOREACH ITEM LISTE

(IF LISTE2

(PROGN

(CONS (CDAR (ENTGET ITEM)) LISTE2)

(CONS (ASSOC 10 (ENTGET ITEM)) LISTE2)

)

)

(PROGN

(SETQ LISTE2 (CDAR (ENTGET ITEM)))

(CONS (ASSOC 10 (ENTGET ITEM)) LISTE2)

)

)

)

### Patrick_35

Posté(e) le 23 mars 2010

### Patrick_35

- Membres
- - 6,4 k

- Auteur

Posté(e) le 23 mars 2010

Salut

Pour LSTBL, il fait appel à une fonction vba. Il faut donc l'installer ou plus simple, tu as le lisp LSTATT qui fait la même chose, mais en plus, avec la possibilité de différencier ou pas les blocs avec leurs attributs

Pour ton lisp

    (defun trier_blocs(/ bl lst nom nombl res)

     (defun nombl(bl)
       (if (vlax-property-available-p bl 'effectivename)
         (vla-get-effectivename bl)
         (vla-get-name bl)
       )
     )

     (vl-load-com)
     (and  (setq bl (entsel "\nSélectionnez un bloc : "))
    (ssget "x" (list (cons 0 "insert") (cons 2 (strcat "`**," (setq nom (cdr (assoc 2 (entget (car bl)))))))))
       (progn
         (vlax-for bl (setq sel (vla-get-activeselectionset (vla-get-activedocument (vlax-get-acad-object))))
    (and (eq (nombl bl) nom)
      (setq lst (cons (list bl (vlax-get bl 'insertionpoint)) lst))
    )
         )
         (vla-delete sel)
         (setq res (vl-sort lst '(lambda (a b) (> (cadadr a) (cadadr b))))
        res (vl-sort res '(lambda (a b) (< (caadr a) (caadr b))))
         )
       )
     )
     res
    )

    (setq ma_liste (trier_blocs))

@+

Les Lisps de Patrick

Le but n'est pas toujours placé pour être atteint, mais pour servir de point de mire.

Joseph Joubert, 1754-1824

### andreanne

Posté(e) le 23 mars 2010

### andreanne

- Membres
- - 4

Posté(e) le 23 mars 2010

merci beaucoup Patrick

ca marche super bien

je te mari quand tu veux! <acronym class=dict title=

- Précédent
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
- 22
- 23
- 24
- Suivant
- Page 19 sur 28

## Créer un compte ou se connecter pour commenter

Vous devez être membre afin de pouvoir déposer un commentaire

## Créer un compte

Créez un compte sur notre communauté. C’est facile !

Créer un nouveau compte

## Se connecter

Vous avez déjà un compte ? Connectez-vous ici.

Connectez-vous maintenant
Partager
Abonnés 4
Aller sur la liste des sujets

## Information importante

Nous avons placé des cookies sur votre appareil pour aider à améliorer ce site. Vous pouvez choisir d’ajuster vos paramètres de cookie, sinon nous supposerons que vous êtes d’accord pour continuer. Politique de confidentialité

deleted
×