vincentp010

J'avais pas fais gaffe. C'est vrais qu'elle a l'air bien merdique cette aide.

Salut, avec une version map, si je fais F1 ou si je tape '_help, j'ai bien l'aide de la variable qui s'affiche.

Ou autrement, transformer les nombres en textes et concaténer le tout: (command "_line" P0 (strcat "@" (rtos chauss) "," (rtos deltay)) "") Par contre ça ne te donnera pas P1 mais nil. Si tu veux P1: (setq P1 (cdr (assoc 11 (entget (entlast)))))

Il suffit que je vienne poster ici pour que le quatrième téléchargement que j'avais lancé se passe bien :o Fausse alerte donc.

Bonjour à tous, ça fait trois fois que j’essaie de télécharger la version d'essai d'Autocad MAP 3D 2013 et à chaque fois arrivé au bout des 2.1gb (il doit rester quelques octets à télécharger) le téléchargement se coupe et je commence à en avoir mare de recommencer. Avez vous le même problème où ça vient de la connexion du boulot?

Salut, Je viens de commencer une ébauche d'un projet similaire mais en python (c'est fou tout ce qu'on peut faire avec ce langage). Ça doit pouvoir se faire en lisp mais je voulait tester le contrôle d'autocad en python via l'interface COM. Le plus dur en lisp doit être de faire les changements de système de coordonnées (seulement disponible dans autocad map ?)

J'ai mon collège qui me dit, depuis un moment déjà, que Géomédia voulait se détacher d'autocad et utiliser leur propre moteur graphique afin d'être un peut plus libre dans le développement. On va peut être voir fleurir un mix Covadis/Mensura.

Moins de concurrence. Les prix des licences qui flambent. :blink:

Sur mon exemple tu vois 4 croix; le plan est au 1/1000em; il y a 10cm entre les croix sur le papier. Donc taille réelle il y a 100m entre chaque croix. C'est beaucoup plus précis pour la mise à l’échelle. http://pix.toile-libre.org/upload/thumb/1332853253.jpg

Sinon il y a le carroyage pour mettre le plan à l’échelle. C'est toujours plus précis que de prendre un trait de 19m.

Salut, il faut voir tes paramètres de cookie dans ton navigateur.

Salut, Dans autocad tu as les définitions des fonctions dans l'aide au développeur Sinon il y l'aide en ligne cond permet de tester plusieurs conditions, un peut à la manière de if. le t n'est n'est pas une fonction, c'est la valeur True qui veut dire Vrai; il est utilisé par cond pour executer une commande si aucun test n'est vrai avant. Exemple (cond ((=a 1) fait ceci) ((=a 2) fait cela) ((=a 3) fait autre chose) (t fait ça) ) se traduit par

+1

A oui zut! juste en dessous la ligne (defun () ajoute (vl-load-com) pour charger les fonctions visual lisp

Pour le charger dans autocad tu as 2 solutions: - tu peux le coller sur la ligne de commande d'autocad - tu le sauvegarde avec le bloc note dans un fichier (exemple "c:\renatt.lsp") puis tu le charges avec outils -> autolisp -> charger une application Ensuite tu tapes renatt pour le lancer

Salut, j'ai fait ce petit bout de lisp (defun c:renatt (/ bname mattrib aattrib lst nb nb1 blk attr a) (vl-load-com) (setq bname (getstring T "nom du bloc a modifier les attributs: ")) (setq mattrib (getstring T "attribut a remplacer par MAT: ")) (setq aattrib (getstring T "attribut a remplacer par ALT: ")) (setq lst (ssget "x" (list (cons 2 bname)))) (setq nb (sslength lst)) (setq nb1 0) (while (< nb1 nb) (setq blk (ssname lst nb1)) (setq blk (vlax-ename->vla-object blk)) (setq attr (vlax-invoke blk 'getattributes)) (foreach a attr (setq AttName (vla-get-TagString a)) (if (= AttName mattrib) (vla-put-TagString a "MAT")) (if (= AttName aattrib) (vla-put-TagString a "ALT")) ) (setq nb1 (+ nb1 1)) ) ) Dans ton cas le nom du bloc est TCPOINT l'attribut à remplacer par MAT est M l'attribut à remplacer par ALT est Z

Salut, ou plus simplement: (ade_projsetwscode "NTF.Lambert-1")

En fait là tu as juste chargé le script dans le dessin. Maintenant si tu tape la commande rails il doit se lancer.

Essais ça voir si ça te convient: (les polylignes doivent être en 3D) (vl-load-com) (defun init-excel (/ wb-collection workbook sheets sheet1) (setq excel-app (vlax-create-object "excel.application")) (setq wb-collection (vlax-get excel-app "workbooks")) (setq workbook (vlax-invoke-method wb-collection "add")) (setq sheets (vlax-get workbook "sheets")) (setq sheet1 (vlax-get-property sheets "item" 1)) (setq *excel-cells* (vlax-get sheet1 "cells")) (vlax-put excel-app "visible" 1) ) (defun write-row-column (row col x) (vlax-put-property *excel-cells* "item" row col x ) ) (defun c:rails (/ ent ent1 nb) (setq ent (vlax-ename->vla-object (car (entsel "Selectionnez le premier rail :")))) (setq ent1 (vlax-ename->vla-object (car (entsel "Selectionnez le second rail :")))) (setq dist (getreal "Incrementation: ")) (init-excel) (write-row-column 1 1 "DISTANCE") (write-row-column 1 2 "ALTI RAIL 1") (write-row-column 1 3 "ALTI RAIL 2") (write-row-column 1 4 "ECARTEMENT") ; division de la polyligne suivant dist (setq param_start (vlax-curve-getStartParam ent) param_end (vlax-curve-getEndParam ent) perim_obj (vlax-curve-getDistAtParam ent (+ param_start param_end)) l_pt '() lg 0.0 ) (while (< (+ lg dist) perim_obj) (setq l_pt (cons (vlax-curve-getPointAtDist ent (setq lg (+ lg dist))) l_pt)) ) ; fin division, liste dans l_pt (setq nb 2) (foreach pt l_pt (setq pt1 (vlax-curve-getClosestPointto ent1 pt)) (write-row-column nb 1 (* dist (- nb 1))) (write-row-column nb 2 (vl-string-subst "," "." (rtos (caddr pt) 2))) (write-row-column nb 3 (vl-string-subst "," "." (rtos (caddr pt1) 2))) (write-row-column nb 4 (vl-string-subst "," "." (rtos (distance pt pt1) 2))) (setq nb (+ nb 1)) ) )

J'ai un petit lisp qui me donne la pente entre deux points 3D sur la ligne de commande. (defun c:pentes (/ p1 p2 h d p) (setvar "cmdecho" 0) (print) (princ "Extremitees de la pente:") (print) (setq p1 (getpoint "Sélectionnez le premier point :")) (print) (setq p2 (getpoint p1 "Sélectionnez le second point :")) (grdraw p1 p2 1) (setq h (- (caddr p2) (caddr p1))) (setq d (sqrt (+ (* (- (car p1) (car p2)) (- (car p1) (car p2))) (* (- (cadr p1) (cadr p2)) (- (cadr p1) (cadr p2)))))) (setq p (* 100 (/ h d))) (print) (princ "Pente : ") (princ p) (princ " %") (print) )

A une époque ça me le fesait sous map 2009. En redémarrant autocad la commande refonctionnait.

Pour moi il faut mettre des points topo aux sommets de ta polyligne et creer un fichier de points. Covadis 2D -> Points Topographiques -> Immatriculation d'entitées Covadis 2D -> Points Topographiques -> Ecrire un fichier de points (en format colonné ou avec séparateur suivant ce que ton appareil accepte)

En fait je m'en sert avec word et il doit y avoir un verrouillage du fichier par word pour ne pas le modifier, ce que ne fait pas notepad.

Salut, tu n'as pas covadis dans ton bureau de géomètres ?

Salut, j'utilise ce code dans une de mes routines: (setq file (open "\\monfichier1.dat" "a")) (if (= file nil) (progn (alert "Erreur, fichier ouvert par une autre application\nVeuillez la fermer et recommencer.") (exit) ) (close file) )