fabbcad

Salut, et merci Bonuscad! Effectivement c'est un bon avancement! Bon par contre je ne connais rien au lisp donc va me falloir un peu de temps pour tout déchiffrer (je viens du vba...). Je n'arrive pas à le lancer en tapant "surf_cadastrale" est ce normal? par contre en tapant "surf_cad2od" et en choisissant le jeu de sélection ça marche. Un grand bravo. Pour qu'il soit ultime il faudrait juste que ça se fasse en temps réel sans avoir à relancer la commande et la selection :p En tout cas encore merci beaucoup pour ta contribution.

Bon, merci pour ces réponses. Je vais continuer à chercher au cas ou...

Ok merci j'étais passé à côté de ce lisp. L'idée de le mettre dans le champ d'une fenêtre c'est par ce que quand on importe via le menu map des données au format SIG par exemple Autocad crée de nouveau champ renseignés dans la fenêtre propriétés. C'est pour ça que je me demandais si quelqu'un avait déjà creusé cette possibilité.

Merci pour ta réponse lili. J'avais tenté une recherche mais je me perdais un peu dans les résultats... Je vais retenter. En fait pas de rapport entre la taille de la fenêtre et ce que je souhaite. J'aimerai par exemple dans ma fenêtre propriété rajouter un champs surface qui me donne la valeur de mon objet selectionné en hectares. Donc sur le principe je cherche à savoir comment on crée un champs dans une fenêtre d'Autocad (la fenêtre propriété par ex) et comment on attribut la valeur qu'il renvoie. J'espère que vous voyez mieux. Sinon dites moi je ferais un schéma ou un imprim' ecran.

personne ne s'est jamais penché dessus?

Bonjour, je me demande s'il est possible sous Autocad de se créér une fenêtre avec les champs que l'on souhaite, ou alors en rajouter à des fenêtre existantes. Par exemple je souhaiterai rajouter à la fenêtre propriété un champs "Surface" qui soit en hectare. Est ce que c'est possible? Merci d'avance.

Ha, je me sens moins seul d'un coup... ;) J'ai le 2009 map 3D, et effectivement via l'add-on ça fonctionne mais du coup en manuel. Mon problème est que quand je l'utilise tout mes objets ne font ensuite plus qu'un dans le .3ds, même s'ils sont dans des calques différents... Je voulais donc faire une boucle pour les exporter un à un, mais a priori ça va être difficile alors...

Bonjour, je souhaiterai inserer dans une routine une commande d'export au format 3ds, est ce possible? Je n'ai rien trouvé sur le sujet... Merci d'avance.

Mince j'ai parlé trop vite... J'ai essayé de remplacer la selection de la ligne par des valeurs lorsque mes données sont en lambert (ex x = 180 000 et y = 600 000), et alors le programme me selectionne tout!! Faut il changer la déclaration de certaines variables à ce moment là?

Merci Romain, tes explications me font avancer à chaque fois! J'ai finalisé le code mais y'a encore un petit hic... Je crois qu'il arrive à selectionner les objets, sauf que ce n'est pas "retranscrit" à l'écran! J'ai mis une msgbox pour vérifier ma sélection et il me dit qu'il y a des éléments selectionnés mais ils ne sont pas affiché à l'écran... D'ailleurs dans la fenêtre propriété j'ai toujours "aucune selection" Ai je oublié une étape? Sub SelectionXY() Dim returnObj As AcadObject Dim basePnt As Variant Dim startPoint As Variant Dim endPoint As Variant ThisDrawing.Utility.GetEntity returnObj, basePnt returnObj.Update startPoint = returnObj.startPoint endPoint = returnObj.endPoint 'MsgBox ("Xd = " & startPoint(0) & " Yd = " & startPoint(1)) 'MsgBox ("Xa = " & endPoint(0) & " Ya = " & startPoint(1)) Dim MaSelection As AcadSelectionSet Dim Pt1(0 To 2) As Double Dim Pt2(0 To 2) As Double Pt1(0) = startPoint(0) Pt1(1) = startPoint(1) Pt1(2) = 0 Pt2(0) = endPoint(0) Pt2(1) = endPoint(1) Pt2(2) = 0 ThisDrawing.SelectionSets("ss1").Delete Set MaSelection = ThisDrawing.SelectionSets.Add("ss1") MaSelection.Select acSelectionSetCrossing, Pt1, Pt2 MsgBox MaSelection.Count End Sub

Bon je bloque à nouveau... J'arrive pas à trouver la syntaxe pour lui dire de me retourner es coordonnées de l'objet selectionné. Je pensais à quelque chose comme ça mais ça bug... Pouvez-vous m'aider? Sub AfficheXY() Dim objSet As AcadSelectionSet On Error Resume Next ThisDrawing.SelectionSets("ss1").Delete On Error GoTo 0 Set objSet = ThisDrawing.SelectionSets.Add("ss1") objSet.SelectOnScreen StartPoint = objSet.AcadLine.StartPoint EndPoint = objSet.AcadLine.EndPoint MsgBox ("X = " & StartPoint) MsgBox ("Y = " & EndPoint) End Sub

Merci rom1_am je vais essayer de faire quelque chose et je reviens si je bloque...

Ah ok... Alors c'est un bon début, il faudrait rajouter un bout pour lui dire que les valeurs des deux points correspondent à celles de la droite que je selectionne et ça serait bon! Est il possible de récupérer les coordonnées des extrêmités d'un droite selectionnée?

Hum, je ne connais pas cette fonction, peux tu m'en dire un peu plus sur son fonctionnement?

Bonjour et merci, mais le problème c'est que je dois alors déssiner ma polyligne après avoir tapé "trajet". Or je souhaiterai partir d'une polyligne déjà existante... Vous voyez ce que je veux dire?

Bonjour, un nouveau petit souci : est il possible (un peu comme en sig) de selectionner des objets qui sont intersectés par un autre? Exemple : http://imagik.fr/thumb/128013.jpeg j'ai une polyligne qui intersecte mes carrés, je souhaiterai que tout ces carrés soient selectionnés. Merci d'avance pour vos pistes.

Je vais plutôt créer un nouveau sujet pour cette dernière question. Je reste preneur d'infos pour une solution pour ma séléction de 16... ;)

Merci pour ta réponse mais, mais avec cette option je doit faire mon trajet avec la souris, or je souhaiterai que la selection se fasse par rapport à une droite qui existe déjà (polyligne)... Tu vois ce que je veux dire?

Bon a priori personne... Ma question reste d'actualité mais j'en ai une autre qui s'en rapproche : Est il possible de faire une selection par intersection d'entité? Comme sur l'exemple joint je veux selectionner les carrés qui intersectent ma droite : http://imagik.fr/thumb/128013.jpeg Comment peut on faire ça s'il vous plait? merci d'avance.

Yes! Merci Lili c'est exactement ce que je cherchai... Merci à tous pour votre participation.

Merci de prendre du temps sur mon sujet... Je vais essayer de m'expliquer au mieux. je travaille en réseau sur des plans (.dwg) dans lesquels on trouve des fonds IGN. Or ces fonds sont sur le réseau et c'est très long d'accès (parfois 40mn pour ouvrir un projet!). J'ai donc copié mes fonds IGN en local sur mon ordi. Quand je tape "xref" dans un projet je vois les chemins de mes IGN qui pointent sur le réseau. J'aimerai, sans ouvrir mon projet, pouvoir changer le chemin d'accès à ces IGN du réseau à mon disque local. L'idée de pas ouvrir le projet c'est pour ne pas perdre 30mn à hcauqe fois puis d'aller pointer manullement le nouveau chemin souhaité des xref. Voilà, j'espère que vous voyez mieux mon problème?

Mercie pour ta réponse. C'est en effet pour modifier sans ouvrir le dessin source... Le SAS serait peut être une solution mais il faudrait un script qui change les xref...

Bonjour, voilà ma question : est il possible d'éditer les xref d'un dessin en dwg sans avoir à l'ouvrir? J'ai regardé et ça n'a pas l'air possible, mais je suis peut être passé à côté de quelque chose... Merci d'avance.

Est ce que vous pourriez me dire ce que je dois changer dans ce script pour selectionner des polylignes et non un bloc? Comme ça j'essaye de voir ce qu je peux faire... Merci d'avance.

J'ai peut être du vous embrouiller alos... ;)