Bienvenue sur CADxpProEngineer
  Connexion. Accueil  ·  Téléchargements  ·  Forums  ·  Contacts  ·  Livre d'Or  ·  Chat  ·  A propos  ·  Webmaster  ·  Signets 30 Juil 2010 

  Recherche
 
Web CADxp


  

Vous êtes sur le portail CADxp.
Ce site est un peu le vôtre, n'hésitez pas à poster des articles, les commenter et participer aux forums. Pour avoir un accès complet au site, inscrivez-vous!

Présentation vidéo de CADxp!

  Connexion
 Surnom/pseudo
 Mot de passe
 Retenir


Pas encore de compte ?
Enregistrez vous !
C'est gratuit et ça ne prend qu'un instant !
Mot de passe oublié ?

  Dernières visites
Invité
19:02 - 30/07/2010
Invité
19:02 - 30/07/2010
Invité
19:02 - 30/07/2010
Invité
19:02 - 30/07/2010
Invité
19:02 - 30/07/2010

  Infos rapides
 Non connecté
Les|ForumsVous n'êtes pas connecté | Dernière visite: 30/7/2010 à 18:02

  <<  1    2  >>  
Auteur: Sujet: probleme avec lisp legende

ceinture jaune




Messages: 11
Inscrit(e) le: 4/10/2006
Statut: Déconnecté(e)

  posté le 18/7/2008 à 09:47
bonjour,
Voila j’utilise un lisp pour faire mes légendes
Mais depuis que je suis passé en 2008,
J’ai un problème sur la première ligne elle n'est pas comptabiliser.
Je suis juste utilisateur et pas programmeur.

Merci d’avance pour votre aide

voici le lisp que j'utilise


(if col
(vlax-for i (vla-get-Blocks
(vla-get-activedocument (vlax-get-acad-object))
)
(if (and (/= (substr (vla-get-name i) 1 1) "*")
(= :vlax-false (vla-get-IsXref i))
)
(setq libloc (append libloc (list (vla-get-name i)))
liidbloc (append liidbloc (list (vla-get-ObjectID i)))
)
)
)
(setq libloc (remove_doubles liref)
liidbloc (mapcar
'(lambda (x)
(vla-get-ObjectID
(vla-item
(vla-get-Blocks
(vla-get-activedocument
(vlax-get-acad-object)
)
)
x
)
)
)
libloc
)
)
)
(initget 1)
(setq ptins (trans (getpoint "\nPoint d'insertion: ") 1 0))
(setq tableVL (vla-addtable
(vla-get-modelspace
(vla-get-activedocument (vlax-get-acad-object))
)
(vlax-3d-point ptins)
(length libloc)
3
20
100
)
)
(vla-put-TitleSuppressed tableVL :vlax-true)
(setq cont -1)
(repeat (vla-get-Rows tableVL)
(vla-settext
tableVL
(setq cont (1+ cont))
0
(nth cont libloc)
)
(vla-settext
tableVL
cont
1
(length (vl-remove-if-not
'(lambda (n) (= n (nth cont libloc)))
liref
)
)
)
(vla-SetBlockTableRecordId
tableVL
cont
2
(nth cont liidbloc)
:vlax-true
)
(vla-setcellalignment tableVL cont 0 5)
(vla-setcellalignment tableVL cont 1 5)
)
(princ)
)

;;; REMOVE_DOUBLES - Suprime tous les doublons d'une liste

(defun REMOVE_DOUBLES (lst)
(cond
((atom lst) lst)
(T
(cons (car lst) (REMOVE_DOUBLES (vl-remove (car lst) lst)))
)
)
)


[Edité le 18/7/2008 par defrai]

 

ceinture rouge et blanche 8em dan




Messages: 4313
Inscrit(e) le: 6/1/2003
Statut: Déconnecté(e)

  réponse n°1 postée le 18/7/2008 à 09:50
vous devez être enregistré pour voir les réponses
 

ceinture jaune




Messages: 11
Inscrit(e) le: 4/10/2006
Statut: Déconnecté(e)

  réponse n°2 postée le 18/7/2008 à 09:56
vous devez être enregistré pour voir les réponses
 

ceinture jaune




Messages: 11
Inscrit(e) le: 4/10/2006
Statut: Déconnecté(e)

  réponse n°3 postée le 18/7/2008 à 10:03
vous devez être enregistré pour voir les réponses
 

ceinture rouge et blanche 8em dan




Messages: 4313
Inscrit(e) le: 6/1/2003
Statut: Déconnecté(e)

  réponse n°4 postée le 18/7/2008 à 10:30
vous devez être enregistré pour voir les réponses
 

ceinture jaune




Messages: 11
Inscrit(e) le: 4/10/2006
Statut: Déconnecté(e)

  réponse n°5 postée le 18/7/2008 à 10:31
vous devez être enregistré pour voir les réponses
 

ceinture noire




Messages: 1356
Inscrit(e) le: 23/7/2003
Statut: Déconnecté(e)

  réponse n°6 postée le 18/7/2008 à 12:19
vous devez être enregistré pour voir les réponses
 

Modérateur




Messages: 7326
Inscrit(e) le: 2/9/2005
Statut: En ligne

  réponse n°7 postée le 19/7/2008 à 11:17
vous devez être enregistré pour voir les réponses
 

ceinture rouge et blanche 8em dan




Messages: 4313
Inscrit(e) le: 6/1/2003
Statut: Déconnecté(e)

  réponse n°8 postée le 20/7/2008 à 20:05
vous devez être enregistré pour voir les réponses
 

Modérateur




Messages: 7326
Inscrit(e) le: 2/9/2005
Statut: En ligne

  réponse n°9 postée le 20/7/2008 à 20:25
vous devez être enregistré pour voir les réponses
 

Modérateur




Messages: 7326
Inscrit(e) le: 2/9/2005
Statut: En ligne

  réponse n°10 postée le 20/7/2008 à 20:38
vous devez être enregistré pour voir les réponses
 

ceinture rouge et blanche 8em dan




Messages: 4313
Inscrit(e) le: 6/1/2003
Statut: Déconnecté(e)

  réponse n°11 postée le 20/7/2008 à 20:49
vous devez être enregistré pour voir les réponses
 

ceinture noire




Messages: 517
Inscrit(e) le: 24/1/2006
Statut: Déconnecté(e)

  réponse n°12 postée le 20/7/2008 à 20:58
vous devez être enregistré pour voir les réponses
 

Modérateur




Messages: 7326
Inscrit(e) le: 2/9/2005
Statut: En ligne

  réponse n°13 postée le 20/7/2008 à 21:00
vous devez être enregistré pour voir les réponses
 

Modérateur




Messages: 7326
Inscrit(e) le: 2/9/2005
Statut: En ligne

  réponse n°14 postée le 20/7/2008 à 21:06
vous devez être enregistré pour voir les réponses
 

ceinture noire




Messages: 517
Inscrit(e) le: 24/1/2006
Statut: Déconnecté(e)

  réponse n°15 postée le 20/7/2008 à 21:19
vous devez être enregistré pour voir les réponses
 

Modérateur




Messages: 7326
Inscrit(e) le: 2/9/2005
Statut: En ligne

  réponse n°16 postée le 20/7/2008 à 21:38
vous devez être enregistré pour voir les réponses
 

ceinture noire




Messages: 517
Inscrit(e) le: 24/1/2006
Statut: Déconnecté(e)

  réponse n°17 postée le 20/7/2008 à 22:40
vous devez être enregistré pour voir les réponses
 

ceinture jaune




Messages: 11
Inscrit(e) le: 4/10/2006
Statut: Déconnecté(e)

  réponse n°18 postée le 21/7/2008 à 11:09
vous devez être enregistré pour voir les réponses
 

ceinture noire




Messages: 1356
Inscrit(e) le: 23/7/2003
Statut: Déconnecté(e)

  réponse n°19 postée le 21/7/2008 à 13:10
vous devez être enregistré pour voir les réponses
 

Modérateur




Messages: 7326
Inscrit(e) le: 2/9/2005
Statut: En ligne

  réponse n°20 postée le 22/7/2008 à 12:50
vous devez être enregistré pour voir les réponses
 

Modérateur




Messages: 3237
Inscrit(e) le: 10/12/2003
Statut: Déconnecté(e)

  réponse n°21 postée le 22/7/2008 à 13:06
vous devez être enregistré pour voir les réponses
 

ceinture noire




Messages: 1356
Inscrit(e) le: 23/7/2003
Statut: Déconnecté(e)

  réponse n°22 postée le 22/7/2008 à 13:10
vous devez être enregistré pour voir les réponses
 

ceinture jaune




Messages: 18
Inscrit(e) le: 12/1/2010
Statut: Déconnecté(e)

  réponse n°23 postée le 12/1/2010 à 10:16
vous devez être enregistré pour voir les réponses
 

ceinture jaune




Messages: 17
Inscrit(e) le: 24/4/2007
Statut: Déconnecté(e)

  réponse n°24 postée le 26/1/2010 à 11:17
vous devez être enregistré pour voir les réponses
 
<<  1    2  >>  


technologie XForum 1.81.1 fournie par Trollix Software



Positionnement et Statistiques Gratuites  
Portail réalisé avec PostNuke sous licence GNU/GPL. Tous les logos et marques commerciales sont la propriété de leurs propriétaires respectifs; les commentaires sont la propriété de leur éditeur, tout le reste est © CADxp 2002.
retour en page d'accueildernières réponses des forumsderniers messages des forumsvos 100 derniers messagesrecherche sur les forums