pascal19

OK OK OK J'avais pas compris j'avais testé uniquement sur des blocs... a+

allez je me lance: (defun c:bl_att(/ blatt) (while (not blatt) (setq blatt (cdr (assoc 66 (entget (car (entsel "\nSélectionnez le bloc: ?"))))))) (prin1 "\nceci est un bloc à attribut") ) J'ai un peu de mal pour afficher un résultat entre prin1 princ prompt read...

retour de vacances ... j'ai tout oublié!! Bonne année à tous en ce qui concerne notre probème, en affichant les codes dxf d'un bloc normal et d'un bloc à attribut, la seule différence concerne le code 66 qui apparait sur le bloc à attribut,dois je utiliser ce code?

j'vais trouver... demain je m'y met J'espère que je serai pas seul... a+

ou plutot ça: http://www.dordogne.equipement.gouv.fr/crudor/

On s'en fou, il fait tjs beau à brive... moi j'ai trouvé ça: http://www.dordogne.equipement.gouv.fr/crudor/html/briv.htm mais ça donne sur les 30 derniers jours

http://www.cad-organizer.com puis downloads et colorize Téléchargement gratuit Marche trés bien

http://www.cad-organizer.com contient "colorize" permet de passer un plan sur une couleur et "qplot" pour tracer des PLT depuis autocad

(defun c:calq(/ ent1) (while (not ent1) (setq ent1 (entsel "\nentité?")) ) (setq calq1 (cdr (assoc 8 (entget (car ent1))))) ;(alert (strcat "le calque est " calq1)) (setvar "clayer" calq1) ) oh! on a refait la commande "_Laymcur"... là je suis chaud...

voila: (defun c:calq(/ ent1) (while (not ent1) (setq ent1 (entsel "\nentité?")) ) (setq calq1 (cdr (assoc 8 (entget (car ent1))))) (alert (strcat "le calque est " calq1)) )

j'étais pas trés loin quand même: (defun C:mespol () (setvar "cmdecho" 0) (setq mesur1 (getreal "distance points")) (prompt "\nchoix des polylignes...") (setq gr (ssget)) (setq tot 0 cont 0) (repeat (sslength gr) (command "mesurer" (ssname gr cont) mesur1) (setq cont(+ 1 cont)) ) ) en esperant que ça marche mieux... mais je me suis fais grillé par gile

J'en ai une mais je sais pas si ça marche avec les polylignes 3D Les PRO du LISP auront surement mieux: (defun C:lpol () (setvar "cmdecho" 0) (prompt "\nchoix des polylignes...") (setq gr (ssget)) (setq tot 0 cont 0) (repeat (sslength gr) (command "_AREA" "_o" (ssname gr cont)) (setq tot (+ tot (getvar "perimeter"))) (setq cont(+ 1 cont)) ) (princ "\nlongueur totale: ") (princ tot) (princ) )

Merci les gars ,je m'étais tjs demandé ce que c'étais ces trucs entre parenthèses aprés defun... c'est quoi la suite de l'exo?

(defun c:calq() (setq ent1 nil) (while (= ent1 nil) (setq ent1 (entsel "entité?")) ) (setq calq1 (cdr (assoc 8 (entget (car ent1))))) ) j'ai bon?

si si moi ça m'interresse... C'est vrai que je me sens un peu seul c'est vrai aussi que je suis pas un rapide n'etant pas programmeur mais utilisant souvent le LISP sans personne pour m'apprendre (hormis manuel de progrmmation autocad 12) sans que les bénéfices des programmmes soient reconnus dans l'entreprise, ce forum en général et ce sujet en particulier m'apporte beaucoup. Merci à tous les pro du lisp qui y contribue...

OK JE VAIS Y PENSER mais en dehors de m'amuser à faire du LISP j'ai un métier... et là en + c'est le week end... a+

effectivement (entget (car (nentsel))) marche mais il faut sélectionner directement l'attribut quid si celui ci est masqué Est ce possible en sélectionnant le bloc? Au niveau de l'extraction des attributs y a t il une différence entre blocs à attributs et blocs dynamiques? Si ça continu je vais ma mettre au VBA

Merci pour les conseils: (defun c:calq() (setq ent1 (entsel "entité")) (setq ent2 (entget (car ent1))) (setq calq1 (cdr (assoc 8 ent2))) (princ calq1) ) Pour continuer à faire du social, ou puis je trouver une liste des codes dxf associé et notament pour les attributs de blocs

Merci de penser à nous les nuls... j'ai pensé qu'en passant par la commande _Laymcur puis "getvar clayer" c'était de la gruge ... alors je veux bien être ridicule et j'ai commencé un truc genre: (defun c:calq() (setq ent1 (nentsel "entité")) (setq ent2 (entget (ent1))) (setq calq1 (cdr (assoc 8 ent2))) (princ calq1) ) mais ça marche pas...(à cause de entget?) suis-je loin du but?

Nommer le SCU en espace ojet (en tappant ddscu et renomer sans-nom) par ex SCU1 passer en espace papier Double clic dans la fenetre ddscu Selectionner SCU1 et le définir courant taper REPERE et 2 fois "entrée" Sortir de la fenetre

Tu travailles en BE ou en entreprise?(l'approche est souvent différente) -Au départ j'avais un programme qui utilisait des blocs pour les coudes mai ça oblige à faire des traits de constructions pour avoir des coudes à 45° ou 30° et on y passe + de temps -si tu veux faire avec des blocs, 2 solutions -tu as une bibliothèque avec tous tes blocs mais il faut qu'elle soit énorme (pense aux transformations circulaire rectangulaire ou tout est possible) -ton programme créé les blocs au fur et à mesure et c'est compliqué au niveau du nom du bloc (pour gérer les doublons) sachant que l'idéal serait de générer des blocs à attributs...

non c'est un programme purement graphique (lignes polylignes) sans insersion de blocs (à part vannes filtres... sur les tuyaux mais je m'en sert pas) Ce que tu veux faire est plus ambitieux... comment comptes-tu gérerles modifications de plans?

J'ai eu le même probleme il y a qqe temps Je l'ai résolu en utilisant TRANS pour convertir un point ou déplacement d'un système de coordonnées vers un autre...

Au départ c'est un petit LISP que j'ai commencé il y a 10 ans et que je fais évoluer et qui est donc devenu gros n'étant pas programmeur, sa structure est confuse pour pas dire bordélique mais le résultat est là, je m'en sert tous les jours pour faire du bifilaire en cvc (gaines rectangulaires circulaires flexible) plomberie (alimentations évacuation) elec (chemins de câbles CFO CFA)...

j'ai un programme perso pour gaines - tuyau - chemins de câbles - PVC avec un e-mail je peux te l'envoyer