J\'ai bcp de mal avec entnext entlast

[cadpolo]

Salut à vous .....

 

Comme promis ....J'ai intégrer les explic de Gile à ma routine, bien sûre à compléter mais

ça marche .....

Il m'hachure les elts les apres les autres ......Comme ils sont tous indépendant ......

 

 (defun c:tr_mac ( / )


(command "_.undo" "_begin")

 (if (not (tblsearch "LAYER" "_BA_Maçonneries"))
     (command "-calque" "E" "_BA_Maçonneries"  "CO" "6" "" "")
  )
     
 (command "_.point" '(0 0 0))

   (setq point (entlast)
         dep point
  );;;fin de setq
 
 (setq ep_mac (getreal "\n Rayon d'ajustement < >: "))  

(command "pedit" "multiple" (setq sel_poly (ssget  (list(cons 0 "CIRCLE,SOLID,LINE,ARC")))) "" "J" ep_mac "" "" )

;;Transforme les (list(cons 0 "CIRCLE,SOLID,LINE,ARC")))) en polyligne et les joints

(setq n 0)

 (setq Long_sel 0 )
 
(setq ss_region (ssadd))
 
(while (setq dep (entnext dep))
  
  (ssadd dep ss_region)

     ) ;;;fin
 
  (setq Long_sel (sslength ss_region))
  
  (repeat Long_sel
 
(setq ent_last ( ssname ss_region n))

    (command "_chprop" ent_last "" "CO" "DUCALQUE" "CA" "_BA_Maçonneries" "EP" "0" "" "" )

    (setvar "cecolor" "8" )
    
 (command "-fhach" "P" "solid" "s" ent_last "" "" )

    (command "draworder" ent_last "" "AV" "")
    
    (setq n(+ 1 n))
 
);;fin de repeat


 (entdel point)

 (command "_.undo" "_end")


 );;;fin de defun 

 

 

Dites moi ce que vous en pensez .......

[Patrick_35]

Salut

(command "-calque" "E" "_BA_Maçonneries" "CO" "6" "" "")

En version international

(command "_.layer" "_make" "_BA_Maçonneries" "_color" "6" "" "")

 

Pour la commande pedit, chprop, hachure et draworder, c'est la même chose

Je te laisse chercher un peu ;)

 

@+

[cadpolo]

Ouais ....Oauis

 

:casstet: Vais chercher encore un peu .......

[cadpolo]

 

:casstet: :casstet: Et que veux tu dire ....... par la ......

[Patrick_35]

Ce que je veux dire, c'est que le lisp pourra fonctionner sur n'importe quelle machine, version, pays et langage.

 

@+

[cadpolo]

 

Bien compris ....

Je chechais une erreur .....

Mais pourquoi la version internationnale ....Et puuis je n'ai pas les commandes inertnationnales .........

 

:D

[Tramber]

Tout le monde a la version internationale avec la couche locale au dessus (francaise en l'occurence).

 

Regarde la fonction (getcname "ETIRER") ou (getcname "_STRETCH"), GETCNAME dans l'aide.

 

[(gile)]

Mais pourquoi la version internationnale

 

Pour éviter à d'autres les problèmes rencontrés ici ou là.

 

Dès lors que tu publies du code, il peut être chargé par des utilisateurs n'ayant pas forcément la même version (pays) d'AutoCAD que toi.

 

(command "ligne") ne marche que sur une version française,

(command "line") ne marche que sur une version anglo-saxone,

(command "_line") marche avec toutes les versions.

(command "_.line") avec un point après le underscore est encore mieux, c'est la garantie d'appeler la commande originelle même si cette commande a été redéfinie avec la commande "_undefine".

 

Pour obtenir les noms de commande en version internationale tu peux soit lire la ligne de commande après l'appel d'une commande soit utiliser la fonction LISP getcname :

 

(getcname "ligne") -> _line

(getcname "_line") -> ligne

 

pour les options, un peu d'imagination et des essais.

 

Et puis parce que vive l'internationalisme !

 

[Edité le 14/3/2006 par (gile)]

[cadpolo]

 

Ce n'est pas une mauvaise volonté de ma part, mais il est clair que lorsqu'on débute (là ou l'on devrait prendre de bonnes habitudes ),ben il y a la complexité du langage que l'on passe au premier plan ....

Mais j'en tiendrai compte .........

 

[(gile)]

Ne prends surtout pas çà comme un reproche, c'est juste un conseil.

 

Sans vouloir parler pour les autres j'imagine qu'on a tous commencé comme çà.

 

C'est avec le temps, et une certaine pratique qu'on se préoccupe plus de "l'universalité" d'une routine, que ce soit pour l'utilisation avec différentes versions, ou pour les SCU non paralléles au SCG, pour la restauration de l'environnement initial (variables systéme) en cas d'erreur (ou d'annulation) ou, le plus difficile, pour imaginer toutes les possibilité de fausses manoeuvres.

 

Mais çà fait plaisir de voir comment tu t'accroches et j'espère que tu y prends autant de plaisir que je peux en prendre.

 

Bienvenue au club !

[cadpolo]

eh non ...

je ne prend pas ça comme un reproche .....mais cest vrai que ce n'est la priorité ......

Depuis que je suis au lisp je ne m'arrête pas .........cela demande comme tu le sais un gros investissement ........on n'a rein sans rien .....

 

Tout ça cause d'usine a gaz dévelloppé sur Autocad :casstet: .......ça a du bon ..........

 

je suis un peu sévère mais c'est la vérité .........

 

Je suis projeteur structure à ce jour je n'ai tjs rien trouvé qui semble bien marché .....

 

Sois trop evolué demande bcp de tps en saisi soit ne convient pas à la phase du projet ........

 

Cela ma quand même de m'y mettre ....................

 

Petit coup de gueule .....