La Lozère

Dans mon cas non, car mon but est d'AJOUTER 200gr. Tous les points n'ayant pas la même rotation à la base. Et je ne veux pas que tous les points aient la même rotation au final. Merci quand même.

Bon, je n'arrive à rien avec la fonction Covadis. Du coup, je me suis rabattu sur un lisp de Gilles (BROT) Que j'ai trouvé sur le forum. Merci

Bonjour, Je dois être fatigué, mais je n'arrive pas à faire fonctionner la commande Rotation Attribut/Point. J'ai quelques 50 000 points topo qui ne sont pas orientés comme je le voudrais. Ils sont complétement à l'envers, soit 200gr de trop. J'ai voulu me servir de la commande BLOCROTATT de Covadis, mais je n'arrive pas à mes fins. Voici comment je procède: - Je lance la commande - Je sélectionne mes points - Je choisis l'option "Tous" pour traiter tous les points - Je change rien pour Rotation - Je mets 200 Et là, la catastrophe, mes points tournent, mais pas un du même angle. Ce que je ne comprend pas, c'est que j'ai comme option Un coup H pour rotation et O pour orientation, et si je sélectionne H, maintenant j'ai R pour rotation :huh: Bref je patauge... Alors si quelqu'un a une idée. Merci

Autant pour moi, je n'avais pas vu la petite subtilité du "-" devant SUPCALQUE. Comme ça, plus de soucis, effectivement ça marche. Merci.

Désolé, mais malgré ce que vous dites, je ne vois pas comment ça peut fonctionner. Moi quand je lance SUPCALQUE, j'ai: -SUPCALQUE Sélectionner un objet du calque à supprimer ou [Nommer]: Et si ensuite je met n pour Nommer, j'ai une boite de dialogue qui s'ouvre. Donc pour passer tout ça en script, ça ne marche pas.

Bonjour, Est-il possible de supprimer un calque (dont le nom est connu) uniquement en ligne de commande. En fait, j'ai 100 fichiers lourd à charger, et je voudrais supprimer un calque dans chaque fichier via un script et SuperAutoScript. Oui, mais voilà, la commande SUPCALQUE, sauf erreur de ma part, n'accepte pas les noms. C'est soit un clic sur un objet, soit via boite de dialogue. Merci d'avance.

Merci les gars. 9a marche au poil...

Bonjour, Existe-t-il un moyen ou un lisp permettant de redéfinir l'origine d'un lot de hachures par paquet. En gros j'ai récupéré des fichiers sur lesquels l'origine des hachure est mal calés. Et j'en ai vraiment pas mal. Du coup, je cherche un moyen de changer l'origine de chaque hachure au centre ou autre, mais pas à 0,0,0. Mais je cherche à le faire d'un seul coup. Si quelqu'un a une idée, je suis client. J'ai bien vu HPORIGINMODE, mais ça ne marche pas après coup. J'ai fait une recherche sur CADXP, mais je n'ai pas trouvé. Mais je peux avoir mal cherché.... ;) Merci

Arf.... Sujet vieux comme le monde. J'ai jamais trouvé d'Autocad qui ne fasse pas ce bug. Car je considère ça comme un bug :(

Bonjour, Et avec la commande de fusion de calque "_laymrg", tu as essayé....

Hello, Bon, finalement, j'ai repris depuis le début, et j'ai réussi à pondre un truc qui en tout cas marche et me convient. (defun c:unload_image ( / *error str2lst sep pos str aa bb cc lst nom) (princ "\nSélectionner l'Image à décharger. ") ;;; Gestion d'erreur (defun *error* (msg) (if (/= msg "Fonction annulée") (princ (strcat "\nErreur: " msg)) ) (princ) ) ;;; Transformation d'une chaine avec séparateur en liste de chaînes (defun str2lst (str sep / pos) (if (setq pos (vl-string-search sep str)) (cons (substr str 1 pos) (str2lst (substr str (+ (strlen sep) pos 1)) sep) ) (list str) ) ) ;;; (while (setq aa (entget (car (entsel)))) (setq bb (entget (cdr (assoc 340 aa)))) (setq cc (cdr (assoc 1 bb))) (setq lst (last (str2lst cc "\\"))) (setq nom (car (str2lst lst "."))) (command "_.-image" "D" nom) ) (prin1) ) toujours en grand merci à (gile) pour son tuto.

Hello, Je déterre un vieux sujet car je cherche une fonction un peu similaire. Je voudrais détacher à la volé des images. J'ai essayé d'adapter le code suivant, mais je n'y arrive pas. Alors si une bonne âme passe dans le coin.... (defun c:unload_xref ( / js name_xref) (princ "\nSélectionner l'XRef à décharger. ") (while (null (setq js (ssget "_+.:E:S" '((0 . "INSERT"))))) (princ "\nObjets non valable!") ) (cond ((eq (boole 1 (cdr (assoc 70 (tblsearch "BLOCK" (setq name_xref (cdr (assoc 2 (entget (ssname js 0)))))))) 4) 4) (command "_.-xref" "_Unload" name_xref) ) (T (princ "\nN'est pas une référence externe. ")) ) (prin1) ) Merci d'avance

Et avec SuperAutoScript d'Eric, ce n'est pas possible?

Là je pense qu'il y a une variable quelconque à changer. Car à ma connaissance le miroir d'un texte reste toujours lisible. En tout cas chez moi ça marche.....

A l’arrache... C'est à dire: - J'exporte le PL en DWG - Je l'importe dans l'onglet DAO - Je fais un miroir des données qui doivent être dans l'autre sens - Je créais une nouvelle feuille Et voilà le tour et joué. Sinon, je ne vois pas.

Je ne pense pas que ce soit la peine de passer par un lisp. Dans les propriétés de la cote, tu peux mettre une valeur de 0.5 à "Cote à l'échelle linéaire". Et là, ta valeur sera divisée par deux. Pour faire tes cotes: - Soit tu copies ta première cote autant de fois que voulu en remettant le lignes d'attaches là où il faut - Soit tu fais normalement toutes tes cotes, et tu y appliques après un "coup de pinceaux" en prenant comme base une cote modifiée - Soit, et c'est le mieux, tu te créais un style de cote rien que pour ça avec comme valeur 0.5 au "facteur d'échelle" de l'onglet "unités principales" Mais si un de tes buts est de créer un lisp, alors je n'ai rien dis... Continu

Perso, je ne sais même plus où sont ces liens sur la page d'accueil. Mon raccourcis va directement sur le lien que j'ai indiqué. Et si j'ai besoin de poster dans une catégorie particulière, soit je clic sur le forum voulu dans la colonne"Forum", soit je reviens vers la page d’accueil. Et pour une recherche, je passe par google avec comme recherche: "cadxp ma recherche"

Hello, Pour commencer, tu as cette page qui est vraiment pas mal. Elle regroupe tout les nouveaux post par date de publication sur les dernières 24h. Perso je n'utilise que ça. Mon lhttp://cadxp.com/index.php?app=core&module=search&do=activeien

Oups.... Je n'ai pas vu qu'on était sur Covadis et pas sur Autopiste. Désolé, mais là je sais pas.

Salut Thierry, Je ne suis vraiment pas sur, mais il n'y avait un moyen de faire un truc comme ça en typant les segments dans les DTY???? j'ai un souvenir comme ça. Mais je peux me tromper.....

Bon, j'ai cherché un peu plus, et il y a tout ce qu'il faut dans Covadis3D/Volet paysager ....

Bonjour, Je déterre un vieux sujet car je souhaiterais plaquer une orthophoto géo-référencée sur un MNT objet issu d'un nuage de point. le truc, c'est que mes derniers bouquins date de la V12 de Covadis. Je n'ai rien trouver sur CADXP, est-ce que quelqu'un aurait un petit tuto ou explication pour faire ça avec une V15 et Autocad 2015 MAP? merci d'avance.

Oui effectivement, cliquer le peigne serait une idée. A voir, car suivant le sens de description de l'objet ça pourrait tourner à l'envers :(rires forts): Et pour les XY, également, bonne idée. Encore qu'ici on peut faire un filtre de coordonnées .xy A tester.... Merci pour les idées

Merci (gile), effectivement j'avais sorti trop de chose de la boucle.... <_< Bon, je pense être arrivé à ce que je voulais avec ce code: (defun c:PT2dto3D (/ fichier sep pos str lst num_pt xzp yzp zzp gis zp str2lst kw *error* *zp* *gis* sel pb ) ;;; ;;;gestion d'erreur (defun *error* (msg) (if (/= msg "Fonction annulée") (princ (strcat "\nErreur: " msg)) ) (if fichier (close fichier) ) (princ) ) ;;; (defun str2lst (str sep / pos) (if (setq pos (vl-string-search sep str)) (cons (substr str 1 pos) (str2lst (substr str (+ (strlen sep) pos 1)) sep) ) (list str) ) ) ;;; (initget 1 "Oui Non") (setq kw (getkword "\nVoulez-vous utiliser un fichier csv? [Oui/Non]: " ) ) ;;; ;;; Boucle pour OUI (if (= "Oui" kw) (progn (setq fichier (open (getfiled "Fichier .CSV à ouvrir" "" "csv" 8) "r" ) ) ;;; (while (setq str (read-line fichier)) (setq lst (str2lst str ";")) (setq num_pt (car lst)) (setq xzp (atof (cadr lst))) (setq yzp (atof (caddr lst))) (setq zzp (atof (cadddr lst))) (setq gis (atof (car (cdr (cdr (cdr (cdr lst))))))) (setq zp (list xzp yzp zzp)) (setq sel (ssget)) (setq pb (getpoint "\nPoint de base du déplacement: ")) (if (setq *zp* (getpoint (strcat "\nSpécifier les coordonnées du ZP du profil " (car lst) "\: <" (cadr lst) "\ " (caddr lst) "\ " (cadddr lst) ">: " ) ) ) (setq zp *zp*) (setq *zp* zp) ) ; (if (setq *gis* (getreal (strcat "\nSpécifier la valeur du gisement du profil " (car lst) "\: <" (car (cdr (cdr (cdr (cdr lst))))) ">: " ) ) ) (setq gis *gis*) (setq *gis* gis) ) ;;; ;;;Déplacement (command "_move" sel "" pb zp) (command "3DROTATION" sel "" "x" zp "300") (command "_rotate" sel "" zp gis) ) (close fichier) ) ) ;;; ;;; ;;; Boucle pour NON (if (= "Non" kw) (progn ;;; Entrée utilisateur (setq sel (ssget)) (setq pb (getpoint "\nPoint de base du déplacement: ")) (setq zp (getpoint pb "\nSpécifier les coordonnées du ZP: ")) (setq gis (getreal "\nSpécifier la valeur du gisement: ")) ;;; ;;;Déplacement (command "_move" sel "" pb zp) (command "3DROTATION" sel "" "x" zp "300") (command "_rotate" sel "" zp gis) ;;; ) ) (princ) ) J'ai bien encore une erreur aléatoire: Mais si je ferme Autocad, et que je ré-ouvre mon fichier, ça marche ou pas.... :blink: J'ai comme l'impression que ça a un rapport avec le fait que j'ai la variable startup à 2 Je vous mets en WeTransfert un exemple avec le DWG, le CSV, le LSP A TELECHARGER C'est forcément améliorable, et je vais regarder ce qu'il est possible de faire. Mais là, pour l'instant, ça fait le boulot. (gile) je vais regarder ce que tu propose comme adaptation, et notamment la boucle foreach. En tout cas gros merci à vous pour mes re-début dans le monde du lisp....

C'est presque çà. Avant le déplacement, je saisi le point de base du déplacement