dupin

Bonjour, Je cherche un bénévole pour m'extirper une aiguille du pied Voila J'ai un petit problème pour l'apparition d'un texte dans ma boite de dialogue Je résume: .DCL ...etc... :text_part{ key = " rep " ; value= "*" ; } ...etc...fin .LISP ...Etc... (Action_tile "res" "(setq res $value)") ...etc.. fin voila je voudrais faire apparaitre le resultat de "res" dans le text_part "rep" merci d'avance pour l'aide.

Re-re-bonjour, (tramber) Je suis en train de devenir fout, j’ai toujours eu des problème avec (ssget) Voila ou j’en suis arriver (un programme qui ne fonctionne même pas) Mais toujours pas de solution. Je te serais infiniment reconnaissant si tu voulais bien m’éclairer Mille fois merci d’avance. (defun c:voir_layer () (setq jeus (ssget) jeuTot (sslength jeus) compt 0) (repeat (sslength jeutot) (setq compt (1+ compt)) (setq ent1 (ssname jeus compt)) (setq ent2 (entget ent1)) (princ(strcat "layer:"(cdr (assoc 8 ent2)))) ) )

Re-bonjour (trember) c'est pour une sélection de plusieurs objet. Mais comment l'incorporer a mon programe (defun c:voir_couche (/ layer) (setq layer (tblnext "LAYER" T)) (while layer (princ (strcat "\nLayer name: " (cdr (assoc 2 layer)))) (setq layer (tblnext "LAYER")) ) (princ) ) --------- Re-merci

Bonjour, J’espère que quelqu’un pourra m’aider, Voila je désirerais afficher les layers de l’objet que je sélectionne Manière (ssget) Jusque maintenant j’ai seulement réussie a afficher tous les layers qui se trouve dans le dessin. ----------------- (defun c:voir_couche (/ layer) (setq layer (tblnext "LAYER" T)) (while layer (princ (strcat "\nLayer name: " (cdr (assoc 2 layer)))) (setq layer (tblnext "LAYER")) ) (princ) ) --------- Merci d'avance.