Routine (gile)

[fabdo]

Bonsoir (gile)

Je pense que c'était en 2007 tu avais créé 1 ou 2 routine(s)pour palier à ce problème

j'avais un semi de points chargé dans autocad référencé en X, Y et Z (coordonnées lambert I)en plan.

L'idée était de créer un scu, puis de faire une rotation des bocs afin qu'ils soient lisibles et de pouvoir monter

mon plan de façade.

Je pense que tu avais créer une routine ou je pouvais entrer directement mon semi dans la bonne vue pour pouvoir dessiner directement.

Cela fait longtemps que je ne suis pas venu sur le site et je n'arrive pas à retrouver ce ou ces lisp.

Peu-tu m'aider?

D'avance Merci.

Fabdo

[(gile)]

Salut,

 

Désolé, ce que tu décris là ne me dis rien du tout.

[lecrabe]

Hello

 

Je pense que l'on parle de la routine R2V !?

Voici la routine R2V ... non testee ... ecrite par Gilles (me semble t-il) fin 2007/debut 2008 ...

 

Bye, lecrabe

 

;; Pivote les textes et blocs dans le plan de la vue courante en 3D
;; Ils deviennent perpendiculaires au point de vue 3D, donc tres lisibles 
;; Commande: R2V

(defun c:r2v (/ doc nor ins dir mat)
(vl-load-com)
(setq doc (vla-get-ActiveDocument (vlax-get-acad-object)))
(vla-StartUndoMark doc)
(if (ssget '((0 . "INSERT,*TEXT")))
(vlax-for obj (vla-get-ActiveSelectionSet doc)
(setq nor (vlax-get obj 'Normal)
ins (vlax-get obj 'InsertionPoint)
dir (mapcar '-
(trans (getvar "viewdir") 1 0)
(trans '(0 0 0) 1 0)
)
mat (mxm
(mapcar '(lambda (x) (trans x 0 dir T))
'((1 0 0) (0 1 0) (0 0 1))
)
(mapcar '(lambda (x) (trans x nor 0 T))
'((1 0 0) (0 1 0) (0 0 1))
)
)
)
(vla-TransformBy
obj
(vlax-tmatrix 
(append
(mapcar
'(lambda (v1 v2)
(append v1 (list v2))
)
mat
(mapcar '- ins (mxv mat ins))
)
(list '(0 0 0 1))
)
)
)
)
)
(vla-EndUndoMark doc)
(princ)
)

;; Retourne le produit scalaire (réel) de deux vecteurs
(defun vxv (v1 v2)
(apply '+ (mapcar '* v1 v2))
)

;; Transpose une matrice Doug Wilson
(defun trp (m)
(apply 'mapcar (cons 'list m))
)

;; Applique une matrice de transformation à un vecteur Vladimir Nesterovsky
(defun mxv (m v)
(mapcar '(lambda (r) (vxv r v)) m)
)

;; Multiplie deux matrices Vladimir Nesterovsky
(defun mxm (m q)
(mapcar '(lambda (r) (mxv (trp q) r)) m)
)  

[fabdo]

Merci lecrabe,

Cela fonctionne, il faut juste sur le semi de base changer de scu, mettre ucsfollow à 1, faire une rotation de X à 300gr et finalement lancer la routine r2v.

Je sais (gile), cela remonte, je pense entre 2006 et 2007, mais tu avais réussi sur le semi de base à faire un lisp pour tout gérer.

Merci encore à vous.

fabdo

[lecrabe]

Hello

 

1) Heureux d'avoir pu t'aider avec une excellente (comme d'habitude) routine de Gilles !

 

2) SVP tu as fais tourner R2V sur quelle version d'ACAD : 2016, 2015, 2014, 2013, etc ?

et version 32 ou 64 bits ?

 

C juste pour savoir, car je n'ai pas utilise cette routine depuis au moins 4 ans !!

 

3) Quelles ameliorations pourrait on apporter a cette routine ???

Afin que Gilles travaille "un peu " eventuellement !?

 

Bonne Journee, Bye, lecrabe

[fabdo]

Bonjour

 

J'utilise Autocad map 2013+covadis14 version 64 bits sous windows 8.

 

Pour améliorer " il faut sur le semi de base changer de scu, mettre ucsfollow à 1, faire une rotation autour de X à 300gr "

enfin moi je fais comme ça, il y a peut-être d'autres moyens pour y arriver.

 

A bientôt

fabdo

[lili2006]

Bonsoir à toutes et tous,

 

covadis14

 

Et pourquoi tu ne l'utilises pas pour ton changement de repère alors ????

[(gile)]

Pour améliorer " il faut sur le semi de base changer de scu, mettre ucsfollow à 1, faire une rotation autour de X à 300gr "

 

Pour moi, il ne s'agit pas d'une amélioration, mais d'une adaptation à un besoin (très) spécifique, à moins de penser que tout le monde travaille en grades et sens horaire avec des semis de points ayant subi une rotation 3D sur l'axe X...

[lecrabe]

Hello

 

Je soutiens Gilles a 100% dans sa decision de ne pas modifier son excellente routine R2V !

 

A propos MERCI de nous avoir dit que la routine fonctionnait bien sur un AutoCAD moderne 64 bits !!

 

Bonne Journee, Bye, lecrabe

[GEGEMATIC]

salut

+ 1 avec le Crabe,

Fabdo nous entraine dans la réalisation d'une application personnalisée !

Mais il peut y arriver tout seul, avec patience abnégation et volonté !

Gégé

[fabdo]

Ok,

Mais j'essaie de retrouver le lisp de (gile), même si c'est vrai, c'était un besoin spécifique.

Fabdo

[lecrabe]

Hello

 

Au fait penses tu que la routrine R2V n'est celle a laquelle tu pensais !?

 

Bye, lecrabe

 

PS: sous entendu, faut il que j'aille "encore" farfouiller dans ma reserve de 2000 routines !

[fabcad]

Hello

 

Au fait penses tu que la routrine R2V n'est celle a laquelle tu pensais !?

 

Bye, lecrabe

 

PS: sous entendu, faut il que j'aille "encore" farfouiller dans ma reserve de 2000 routines !

 

Et bien tu as quoi comme logiciel pour gérer toutes ces routines un GEDLISP Hihihi !

 

Bonne journée

 

Fabrice Le Rennais Métropolitain

[(gile)]

PS: sous entendu, faut il que j'aille "encore" farfouiller dans ma reserve de 2000 routines !

 

À en croire les statistiques de CADxp, fabdo n'aurait posté que 143 messages. Ça ne devrait pas lui être insurmontable de retrouver la discussion et le LISP en question...

[Patrick_35]

Salut

 

PS: sous entendu, faut il que j'aille "encore" farfouiller dans ma reserve de 2000 routines !

 

Notre bibliothécaire aux pinces d'or ;)

 

@+

[fabdo]

Bonjour

 

J'aimerai bien mais je n'arrive à voir mes anciens messages!

[fabdo]

Bonjour

 

lili2006

Ily a une commande dans covadis ?

[lili2006]

Bonsoir à toutes et tous,

 

 

Ily a une commande dans covadis ?

 

Oui => Cov 2D => Points Topo => Basculement de points de façade =>

[fabdo]

Bonjour,

 

Effectivement je m'en suis servi aujourd'hui,

par contre il faut que je vois les "écarts".

 

Merci à tous