Demande de lisp

RhymOne · le 27 mai 2010

Bonjour,

Je souhaiterais projeté une polyligne sur un MNT créant ainsi une polyligne 3D.

Plusiseurs paramètres:

1.La pente de projection (unités: % ou H/V)

2.Si un MNT de projection est crée

3.Le sens de projection (vers le bas ou le haut)

Si vous pensez avoir des idées a faire partagé cela m'interesserait.

Merci les gars....

thierry.garré · le 27 mai 2010

Bonsoir,

je ne comprend pas le but de ta demande,sachant que tu possède covadis et que ce que tu demande est une exacte copie d'une commande déjà existante!!!!!????!!!???

didier · le 28 mai 2010

coucou

le fun !! Thierry, le FUN !!

je comprends que c'est un beau challenge ce lisp

de mon côté j'ai fait, à ma sauce, des commandes existantes dans Covadis

qui ne gère pas tous les cas qui se présentent à nous quelquefois.

pour Rhymone, je n'ai même pas le début d'une réponse, désolé

j'ai pas encore vraiment travaillé sur les faces3D.

amicalement

capde06 · le 28 mai 2010

jai fais ca dans Captopo

;;projection d'une ligne sur maillage 3D MNT
;;capde06
(defun c:projectline2dto3d ( / js_line dxf_line p1 p2 all_pt js n lst_px dxf_ent lst_pt px
		    new_lst l el pt_all nouv n_pr echll a_
		    curv ent lst_som ent_po pc high_z pt_ins pt_coi dxf_210)

 (setq oldos (getvar "osmode")
js_line nil
pt_all nil
lst_pt nil
lst_px nil)
 (setvar "osmode" 0)
 (prompt "\nSelection de la ligne a projeter :")
   (setq js_line (ssget "_+.:E:S" '((0 . "LINE"))))
   (cond
     (js_line
      (setvar "cmdecho" 1)
      (setq
 dxf_line (entget (ssname js_line 0))
 p1	  (list	(cadr (assoc 10 dxf_line))
		(caddr (assoc 10 dxf_line))
		)
 p2	  (list	(cadr (assoc 11 dxf_line))
		(caddr (assoc 11 dxf_line))
		)
 all_pt	  nil
 )
      
      (setq
 js	(ssget "_F" (list p1 p2) '((0 . "3DFACE")))
 n	-1
 lst_px	nil
 )
      (cond
 (js
  (repeat (sslength js)
    (setq
      dxf_ent (entget (ssname js (setq n (1+ n))))
      lst_pt
	      (list
		(cdr (assoc 10 dxf_ent))
		(cdr (assoc 11 dxf_ent))
		(cdr (assoc 12 dxf_ent))
		(cdr (assoc 13 dxf_ent))
		)
      )
    (if	(equal (caddr lst_pt) (cadddr lst_pt))
      (setq lst_pt (list (car lst_pt)
			 (cadr lst_pt)
			 (caddr lst_pt)
			 (car lst_pt)
			 )
	    )
      (setq lst_pt (append lst_pt (list (car lst_pt))))
      )
    (while (cdr lst_pt)
      (setq px (inters p1 p2 (car lst_pt) (cadr lst_pt) T))
      (if px
	(progn
	  (setq	px (inters (list (car px) (cadr px) 0.0)
			   (list (car px) (cadr px) 100.0)
			   (car lst_pt)
			   (cadr lst_pt)
			   nil
			   )
		)
	  (if (and px (not (member px lst_px)))
	    (setq lst_px (cons px lst_px))
	    )
	  )
	)
      (setq lst_pt (cdr lst_pt))
      )
    )
  (if lst_px
    (progn
      (setq new_lst nil)
      (while lst_px
	(setq l (mapcar '(lambda (x) (distance x p1)) lst_px))
	(setq el (nth (- (length lst_px)
			 (length (member (apply 'min l) l))
			 )
		      lst_px
		      )
	      )
	(setq
	  lst_px  (vl-remove el lst_px)
	  new_lst (cons el new_lst)
	  )
	)
      (setq pt_all (append (list (cadr all_pt)) new_lst pt_all))
      )
    (setq pt_all (append (list (cadr all_pt)) pt_all))
    )
  )
 )




      )

    

     )
(setq pt_all (reverse(cdr pt_all))
      x 0)
     (command "_.3dpoly")
     (foreach el pt_all
          (command (trans el 0 1))
      )
     (command "")


(setvar "osmode" oldos)
   )

MarcoTic · le 28 mai 2010

Bonjour,

Je me melle de ce qu'il ne me regarde pas, mais j'ai une question : si la polilygne contient des arcs, que se passe-t-il ? Faut sans doute les "simplifiés" par une succession de petits éléments rectiligne, et d'ailleur que fait Covadis dans ce cas ? Je demande vu que je ne l'ais pas.

RhymOne · le 28 mai 2010

Bonjour,

C'est tout simplement pour ne pas utiliser covadis.

Je crée un applicatif au sein de ma societe pour eviter d'instalé covadis sur tout les postes, mais comme même avoir tous la meme facon de travailler.

Donc c'est sur que pour le travail avec MNT sa va ressemblé a covadis mais je veut pas cette machinerie de fou qui dés fois ne fait pas ce que tu lui demande.

Merci Cadpe06 je suis ravi que ma requête t'ai plu.

Je vais testé sa de suite pour voir...

RhymOne · le 28 mai 2010

(Re)

Réponse à Cadpe06:

A première vu le lisp ne fonctionne que dans certain cas, et il ne gére pas la pente de projection.

Réponse à marcoTic:

Covadis discretise tous les arcs ou cercle (petit morceau rectiligne).

Réponse à Thierry.garré:

Il ne faut pas croire qu'il n'y a que les editeurs de geomedia qui savent programmé.

Mon but n'est pas de copier covadis mais juste sortir des outils pour travaillé de la même manière.

(gile) · le 28 mai 2010

Salut,

C'est tout simplement pour ne pas utiliser covadis.
Je crée un applicatif au sein de ma societe pour eviter d'instalé covadis sur tout les postes

Il ne faut pas croire qu'il n'y a que les editeurs de geomedia qui savent programmé.

Donc tu demandes à d'autres de te le faire gratuitement...

thierry.garré · le 28 mai 2010

réponse à Capde06

COVADIS discrétise les arcs en créant des cordes respectant une flèche paramétrable.

réponse à rhymone

Il ne faut pas croire qu'il n'y a que les editeurs de geomedia qui savent programmé.

Loin de moi cette idée d'autant plus que je connais reconnais et respecte le talent et le dévouement des membres de ce forum.

Mais tu d'apercevra vite que du Lisp et du C++ c'est tout de même légèrement différent en capacité. Et que pour le sujet qui t'intéresse le décalage de polylignes 2D/3D c'est un sujet des plus ardu. quelques questions a ce poser:

la pente perpendiculaire au coté ou suivant les bissectrices ?

surpression des arcs ou discrétisation (interpolation des nouveaux sommets interpolés?)

si surpression de sommets sur la polyligne décalé (du au décalage et à la taille des segments et l'angle entre segment)que ce passe t'il ?

si au contraire le décalage en rajoute?

COVADISs a un prix mais c'est "entre autre" parce qu'il réponds a l'ensemble de ces questions.

mais juste sortir des outils pour travaillé de la même manière

Ok c'est trés respectable , surtout si tu le fais toi même ;)

Donc tu demandes à d'autres de te le faire gratuitement...

asses d'accord avec Gile d'autant que pour construire une aplication métier qui servira à une entreprise c'est asses gonflé de demander a des gens qui parfois sont au chomage de le faire gratuitement.

Cordialement et sans animosité aucune

capde06 · le 29 mai 2010

faire une application topo, c'est bien...

rien que sur ce site il y a de quoi faire...

mais il faut que ca reste gratuit.

le but de ce site est de s'améliorer et de partager

mon application topo est gratuite et disponible la

La http:// http://sites.google.com/site/captopo/Home

(gile) · le 29 mai 2010

faire une application topo, c'est bien...
rien que sur ce site il y a de quoi faire...

mais il faut que ca reste gratuit.

le but de ce site est de s'améliorer et de partager

mon application topo est gratuite et disponible la
La http:// http://sites.google.com/site/captopo/Home

Bien sûr chacun peut donner ou prendre ce qu'il veut sur ce site.

Demander à ce qu'on nous écrive une (ou des) routine(s) spécifique(s) pour construire son "application" est une démarche un peu différente.

Pour ma part, je pense qu'une vraie application topo sur mesure et cohérente (pas un assemblage de routines glanées ça et là) demande un travail conséquent sur lequel je serais prêt à me pencher, mais pas bénévolement...

didier · le 29 mai 2010

Coucou

débat de philosophie, presque !

je suis POUR l'échange,

mais l'échange d'informations pas de routines toutes faites

il faut que ce site continue à servir à l'apprentissage

ainsi, lorsqu'on se confronte à un souci, on trouve de l'aide

maintenant, demander une collaboration à un besoin professionnel

me semble sortir de ce cadre.

surtout que l'on sait bien que les membres du "noyau dur"

de CadXp vivent de leur savoir en programmation

au sens "alimentaire".

toutefois je continuerai à répondre, dans la mesure de mes connaissances,

mais pas à des demandes "pro", plus à des morceaux d'aide

que quelqu'n souhaite déposer son travail sur CadXp

est la liberté de chacun et reste très généreux

c'est autre chose de le demander

toujours amicalement

usegomme · le 30 mai 2010

Coucou

je suis POUR l'échange,
mais l'échange d'informations pas de routines toutes faites

Peut être mais quelques routines basiques , utilitaires ou des explications sur du code lisp et vlisp seraient pas mal sur ACADLABS pour lui donner un peu d'intérêt , sinon à quoi ça sert que ton fils se décarcasse.

amicalement

didier · le 30 mai 2010

coucou

tu touches un point délicat, mais je ne t'en veux aucunement

le fait est que mon site est loin de l'expansion que je lui croyais prendre à la création

faire quelque chose de spécialisé dans la programmation d'AutoCAD

me semblait porteur, il n'en est rien.

et pour corser un peu plus la gestion, je suis en déplacement à Madagascar

où la connexion à internet est très compliquée et erratique

donc pour m'occuper du site c'est coton de chez coton

mais je n'ai pas dit mon dernier mot

amicalement

RhymOne · le 30 mai 2010

Bonjour à tous,

Pour ma part didier je trouve que ton site est très bien géré et que le site est de plus en plus vivant.

Bon pour l'histoire du décalage de polyligne je suis en écriture d'un progr adapté à cette solution et pour réponse à thierry je préférais largement l'ancienne méthode de décalage que la nouvelle qui sur la bissectrice fait n'importe quoi .....

J'avais déjà fait un post sur ce sujet....

http://cadxp.cadmag.info/modules.php?op=modload&name=XForum&file=viewthread&tid=25100

La réponse était que l'ancien module gérer la bissectrice par tronçon...

Bref pour mon applicatif que je mettrais en ligne bientôt et qui je le rappele est grâce à tous les lipeurs et autres génies de ce site et qui servira à faire de la topo l'interprète et la travaillé par exemple avec des fouilles et des projections de polyligne (enfin j'espère..)

A plus...

RhymOne · le 30 mai 2010

(Re)

Citation:

posté le 28/5/2010 à 14:55

Salut,

citation extraite du message original:

C'est tout simplement pour ne pas utiliser covadis.

Je crée un applicatif au sein de ma societe pour eviter d'instalé covadis sur tout les postes

citation extraite du message original:

Il ne faut pas croire qu'il n'y a que les editeurs de geomedia qui savent programmé.

Donc tu demandes à d'autres de te le faire gratuitement...

Toujours le mot pour plaire gile...

Dommage car je trouve que ce que tu fait est au top et j'essaye de tiré de tes écrits des repères...

usegomme · le 30 mai 2010

Salut Rhymone, une petite remise en question de soi à parfois du bon, et il ne serait pas inutile que tu repenses à ta demande .

Gile fait un boulot énorme sur les forums , y compris sur ACADLABS et si tu l'agaces , c'est qu' il y a certainement une bonne raison .

Amicalement.

bonuscad · le 30 mai 2010

Bonsoir,

Pour ma part, je suis un peu froissé quand je lis ceci:

jai fais ca dans Captopo

Alors que si on examine le code que j'ai publié ici , on peu s'apercevoir que le copier-coller a fonctionné...

Ce n'est pas qu'on utilise des morceaux de mes code qui me chagrine, mais plutôt qu'on se les approprie si facilement sans avoir chercher à améliorer un tant soi peu le code (qui date en plus!)

Mais bon, cela a été mon choix de publié en "open", a défaut des lauriers, j'aurais le ragout

;)

Autrement une réflexion (ancienne) que j'avais mené sur les projection de polyligne sur des 3DFaces.

Sans rancune, Bonuscad qui se détache doucement de l'activité sur le forum

thierry.garré · le 31 mai 2010

rhymone dit

je préférais largement l'ancienne méthode de décalage que la nouvelle qui sur la bissectrice fait n'importe quoi .....

la pente est appliquée perpendiculairement au coté, tu peu regarder pour plus d'info le manuel V10 page IV-3 ( tu pourra d'ailleurs comprendre que COVADIS ne fait pas "n'importe quoi" mais donne le résultat le plus vraisemblable en fonction de la géométrie de départ de la polyligne et des intersections des plans de talus)

sauf si tu privilégie la méthode simplifiée auquel cas la pente est appliquée sur la bissectrice

rhymone dit

J'avais déjà fait un post sur ce sujet....

http://cadxp.cadmag.info/modules.php?op=modload&name=XForum&file=viewthread&tid=25100

Tu parlais alors des divisions d'angle de talus des plates formes, un autre sujet. A savoir que la division paramétrable des angles "vifs" de plateformes cité par ADAT BTP sera mis en place en V12

Bonuscad dit

Sans rancune, Bonuscad qui se détache doucement de l'activité sur le forum

c'est bien le risque de tout ce genre d'histoires......

Cordialement

RhymOne · le 31 mai 2010

Bonjour,

Si j'arrive à l'ecrire ce bout de progr. alors qu'est ce que je fait je le garde pour moi parceque covadis fait la même chose....

Ou parce que gile ou patrcik35 y sont pour beaucoup dans l'ecriture de mon progr.

...

C'est n'importe quoi je pense, si c'est pour avancé dans la programation tout échange est justifiée...

Bref je deviens septique à partagé avec toutes ces attaques...

(gile) · le 31 mai 2010

Salut,

C'est moi (le "modérateur") qui ait mis le feu aux poudres, je vais donc essayer de m'expliquer plus clairement que par une réponse sarcastique.

Tu n'as jamais, jusqu'à ce dernier message précisé que tu voulais de l'aide pour écrire toi même un programme dans le but de le partager sur CADxp, mais tu as intitulé ton sujet "demande de lisp" et précisé plus loin que c'était pour faire l'économie de licences Covadis dans ton entreprise...

Par ailleurs, je n'ai pas souvenir que tu aies beaucoup publié de code de ton cru sur CADxp (mais je me trompe peut-être).

De mon côté, j'essaye de gagner une partie de ma croute avec la programmation d'AutoCAD et je suis un peu désabusé par ces demandes de programmes spécifiques gratuits dans le but de faire faire des économies à des entreprises.

Tu n'es pas le premier que je titille dans ce sens (et, malheureusement, certainement pas le dernier).

Ça ne m'empêchera pas de continuer à partager ce que j'ai envie de partager.

lili2006 · le 31 mai 2010

Bonsoir à toutes et tous,

Bonuscad qui se détache doucement de l'activité sur le forum

La retraite ?

(gile) · le 31 mai 2010

(message effacé par son auteur)
Je ne savais pas qu’il y avait des comptes pour savoir si l’on donne plus qu’on ne reçoit.

Je pense faire partie de ceux qui donnent sans compter sur ce site (et sur d'autres).

J'ai même toujours défendu le partage plutôt que l'échange.

J'ai juste voulu essayer d'expliquer ce qui avait pu m'agacer dans la demande de rhymone : on ne vit pas, à mon plus grand regret, dans une monde de partage, et puisqu'il est question d'intérêts économiques, je tiens à défendre les miens.

(gile) · le 31 mai 2010

(message effacé par son auteur)
ici:
Par ailleurs, je n'ai pas souvenir que tu aies beaucoup publié de code de ton cru sur CADxp (mais je me trompe peut-être).

OK, encore une fois le propos est peut-être mal tourné.

Il m'est arrivé d'aider des membres à développer des routines ou à apprendre le LISP mais pour ce faire, il faut qu'ils fassent les premiers pas et montrent où ils en sont pour que l'aide soit efficace.

Si je n'ai vu jamais aucun code écrit par rhymone, comment savoir où il en est et comment l'aider ?

(message effaé par son auteur)
C'est quoi le but de CADXP ???

Je ne sais pas quel est le but de CADxp, mais moi j'y suis pour apprendre des autres et aux autres, autrement dit pour partager des connaissances, pour s'entr'aider.

Si le but de CADxp est de faire gagner de l'argent à certains patrons en profitant de la générosité bénévole de certains et au détriment des programmeurs professionnels, ça sera sans moi...

bonuscad · le 31 mai 2010

citation extraite du message original:
Bonuscad qui se détache doucement de l'activité sur le forum

La retraite ?

Non pas vraiment, il m'en reste encore, mais une certaine lassitude.

Peut être simplement un coup de blues .

Enfin des choses d'ici et d'ailleurs...

Pour l'instant je prends toujours plaisir à vous lire, même si je me détache...

Connexion

Demande de lisp

Messages recommandés

RhymOne

thierry.garré

didier

capde06

MarcoTic

RhymOne

RhymOne

(gile)

thierry.garré

capde06

(gile)

didier

usegomme

didier

RhymOne

RhymOne

usegomme

bonuscad

thierry.garré

RhymOne

(gile)

lili2006

(gile)

(gile)

bonuscad

Créer un compte ou se connecter pour commenter

Créer un compte

Se connecter

Forums

Naviguer

Activité

Information importante