Recherche
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
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
Les|Forums Vous n'êtes pas connecté | Dernière visite: 30/7/2010 à 18:02
Enregistrer | Liste des membres | Rechercher dans les forums | FAQ | Stats
Sélectionnez un forum
--------------------
> CADxp, comment ça marche?
> CADxp, vos souhaits
> Forum test
Emploi
--------------------
> Emploi, monde du travail
AutoCAD
--------------------
> AutoCAD 2011
> AutoCAD LT2011
> AutoCAD 2010
> AutoCAD LT2010
> AutoCAD 2009
> AutoCAD LT2009
> AutoCAD 2008
> AutoCAD LT2008
> AutoCAD 2007
> AutoCAD LT2007
> AutoCAD 2006
> AutoCAD LT2006
> AutoCAD 2005
> AutoCAD LT2005
> AutoCAD 2004
> AutoCAD LT2004
> AutoCAD 2000 à 2002
> AutoCAD LT2000 à LT2002
> AutoCAD R12, R13,R14
> AutoCAD LT95,97,98
> Tutoriaux AutoCAD
> AutoCAD, liste de souhaits
Autres logiciels de DAO, CAO généralistes
--------------------
> Microstation
> SmartDraw
> Visio
> Turbocad
> IntelliPlus, IntelliCAD, IntelliDesk
> Esquisse
> CADKEY
> CADSoft
Architecture
--------------------
> Revit
> Architectural Studio
> Archicad
> AutoCAD Architecture
> AllPlan
> Robobat
> AutoCAD MEP
Mécanique
--------------------
> Inventor
> Tutoriaux Inventor
> SolidEdge
> SolidWorks
> Pro/Engineer Wildfire
> Catia
> Topsolid
> Autodesk Mechanical Desktop
> AutoCAD Mechanical
> Think3
> Alibre Design
> Unigraphix
> PLM
SIG, Génie civil, Cartographie, VRD
--------------------
> Autodesk Raster Design
> Autodesk Mapguide
> Autodesk Map
> VRD
> Arcview
> MapInfo
> Covadis
> GeoConcept
> Mensura
> AutoCAD Civil
> GeoMacao
> Geopak
> Bentley MX
> SIG internet
Electricité, électronique, PCB
--------------------
> AutoCAD Electrical
> Trace Elec Pro
> SEE Electrical Expert
> CAO électrique
> Kicad
> CadWorx Plant
Imagerie, animation, PAO, modélisation 3D
--------------------
> 3DSMAX
> VIZ
> Accurender
> Création et retouche d'images
> Sketchup
> Autodesk Impression
> Autres logiciels d'infographie
Programmation
--------------------
> LISP et Visual LISP
> Débuter en LISP
> Pour aller plus loin en LISP
> Visual LISP
> Routines LISP
> ObjectDCL
> VBA et VB
> Routines VBA
> Personnalisation, macros, DIESEL
> ObjectARX, ObjectDBX, C++
> Programmer en s'amusant
> Suggestions de développements
> GDL Geometric Description Language
Trucs et astuces
--------------------
> AutoCAD trucs & astuces
> Windows trucs & astuces
Commercial
--------------------
> Services
> Matériel
Matériel CAO
--------------------
> Ordinateurs
> Périphériques d'entrée
> Périphériques de sortie, impression
> Stockage et archivage
> Mobilité
Divers
--------------------
> CAO, généralités
> Echanges de fichiers
> Organisation du travail
> Visualisateurs, annotation
> Pause café
> Forum vocal téléphonique
> Bibliothèques de composants
> PARTsolutions
> TraceParts
> Formation
Videothèque
--------------------
> Vidéos AutoCAD
Logiciels connexes
--------------------
> Devis, métré, estimation, quantitatif
> Bâtiments, construction
> Climatisation, chauffage
> SGDT
> Calculs et simulation
Forums métier
--------------------
> Bâtiment
> Mécanique
> Infrastructures
Sélectionnez un type de liste
dernières réponses tous forums
dernières solutions par forum
derniers bugs par forum
derniers messages tous forums
derniers messages par forums
sujets les plus lus tous forums
sujets avec le plus de réponses
sujets les plus appréciés
vos messages par forum
vos 100 derniers messages
defrai
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]
Patrick_35
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
defrai
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
defrai
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
Patrick_35
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
defrai
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
Oli553
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
(gile)
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
Patrick_35
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
(gile)
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
(gile)
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
Patrick_35
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
PHILPHIL
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
(gile)
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
(gile)
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
PHILPHIL
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
(gile)
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
PHILPHIL
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
defrai
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
Oli553
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
(gile)
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
lecrabe
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
Oli553
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
davidcad01
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
kkwet
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
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.