richard-c

le papy vient de faire un nouvel essai (qui semble marcher) : dans le programme sauvgrd_auto.lsp (il vérifie la sauvegarde automatique à chaque démarage de dessin (V2002 = 120mn de base, chez moi =10mn) je lance tes lignes : (setq *GelerOngletObjet* (vlr-command-reactor nil '((:vlr-commandWillStart . gelobjstart) (:vlr-commandEnded . gelobjend) ) ) ) çà fontionne sans que la case de dialogue arrive au démarage, affaire à suive . . . A+

j'arive bettement à le fairedepuis quelques minutes, voila comment je passe à travers les mailles (c'est de l'alchimie) j'ai un menu MNL : [surligneur] (load "C:\\Mes documents\\SoftE88 2006\\recharge_image.lsp") (load "C:\\Mes documents\\SoftE88 2006\\gelobj.lsp") (load "C:\\Mes documents\\SoftE88 2006\\sauvgrd_auto.lsp") (if s::startup (setq s::startup (append s::startup '(c:sauvgrd_auto))) (defun-q s::startup () (c:sauvgrd_auto)) ) (princ "\n======== Les menus SoftE88 sont Chargés ========\n") (princ)[/surligneur] puis dans le programme sauvgrd_auto.lsp (il vérifie la sauvegarde automatique à chaque démarage de dessin (V2002 = 120mn de base, chez moi =10mn) je lance [surligneur] (c:gelobj)[/surligneur] bien sur, j'ai la case de dialogue qui arrive, je répond OK et c'est tout, mais je le répete [surligneur] c'est de l'alchimie[/surligneur] A+

OK, mais moi, je ne charge pas les programmes au démarage, j'ai un dossier propre au programmes que j'ai besoin, avec un menu déroulant ou barre d'outils, exemple: [surligneur] [Gèle dans l'Espace Objet]^c^c(if(not c:gelobj)(load "gelobj"));gelobj[/surligneur] et la, je les place ou tes lignes de programme? A+

et tu places ou ton petit bout de programme ? dans gelobj.lsp ? A+

essayes TEXTFILL à 1, pour activer le remplissage. A+

bonjour, merci (gile) pour tes infos, çà fonctione nickel, A+

ou alors, avoir le choix de cliquer une entité à geler ou choisir le calque. A+

et pourquoi pas utiliser un liste déroulante avec le nom des calques plutôt qu'une boite ou l'on coche le calque à geler, çà serait plus facile si on a beaucoup de calques. A+

Bonjour, avec ta nouvelle version, je n'ai plus d'erreur fatale, c'est déjà un plus, parfois je me heurte à : [surligneur] ; erreur: Erreur Automation Calque incorrect[/surligneur] pourquoi ? Dans mon dessin test j'ai crée deux calques : calque1(de couleur rouge) et calque2 (de couleur jaune), lorsque je lance gelobj, seul n'apparaissent les calques 0 et calque2, pas la moindre trace de calque1, alors j'ai créé deux autres calques calque3 et calque4, alors quand je lance gelobj, c'est maintenant le calque2 qui n'apparait plus, bizare, je n'ai pas essayé sur un dessin avec beaucoup de calques A suivre . . . A+

bonjour, j'ai testé le programme ce matin (sur V2002), çà fonctionne, mais si je passe en présentation pour voir si le calque gelé en objet est présent (et ilest présent) et que je revient en espace objet, [surligneur] j'ai une erreur fatale . . .[/surligneur] A+

merci, c'est bien ce que j'avais lu, mais à) aurait été tellement bien si une polyligne d'une demi largeur se dessinait d'une demi largeur et non d'une demi largeur x 2 au résultat. voici la "parade" pour réaliser une polyligne épaissit d'un seul coté. (defun c:bgj () (command "cmdecho" 0) (command "regnauto" "IN") (setq nplan (getvar "clayer")) (if (and (setq nomp(tblsearch "LAYER" "00-epaisseur")) (= (cdr (assoc 70 nomp)) 65)) (command "calque" "l" "00-epaisseur" "") ) (command "calque" "l" "00-epaisseur" "") (command "calque" "e" "00-epaisseur" "co" "1" "" "") ;(if (not epa) (setq epa 0.1)) ;(setq epa0 (getdist (strcat " Epaisseur <" (rtos epa) ">: "))) (setq epa0 (getdist (strcat " Epaisseur : "))) (if epa0 (setq epa epa0) ) (while (setq pol (entsel)) (setq poi (getpoint "\n Coté à décaler : ")) (command "_OFFSET" (/ epa0 2) pol poi "") (command "CHANGER" "d" "" "PR" "calque" "00-epaisseur" "") (command "PEDIT" "d" "E" epa0 "") ) (command "calque" "e" nplan "" "") (prin1) ) A+

ben mon pauvre gars je ne vois pas, regardes les variables HPSCALE et HPSPACE sinon persiste dans ton message, y a des gars balaises qui n'ont pas encore lu ton message. A+

comment as tu inseré ta hachure Ar-conc ? Dessin => Hachures ou Design Center

Salut, à tout hazard, insère ton dessin dans un dessin neuf. je n'ai pas retrouver le programme que je t'avais parlé hiers. A+

Bonjour, quelle différence y a t'il entre la largeur et la demi largeur lorque on dessine une polyligne ? si la demi largeur = 0.5 on obtient une polyligne de 1.00. si au moins quand on demande une demi largeur de 0.50, que l'on dessine une polyligne de gauche à droite, que celle-ci se dessine vers le haut avec 0.50 de largeur, je comprendrais, et vice versa de droite à gauche , la demi largeur vers le bas. A+

Bonjour, Affichage => Point de vue 3D => Dessus Dessous Gauche etc . . . tu enregistres chaque vue Affichage => Vues existantes. . . => nouveau Dans ta présentation, tu crées 3 ou 4 (ou plus) fenêtres, dans chaque fenêtre en espace objet flottant, tu appelles chaque vue enregistrée précédement. voilà. A+

j'y pense d'un coup, ta variable SNAPBASE est peut être à 0 (zéro), tapes SNAPBASE au clvier et donnes lui un point dans la zone à hachurer, j'ai lu quelque part qu'il faut faire un regen avant de faire des hachures, il parait que çà va plus vite. A+

je ne retrouve pas le programme, çà m'énerve. pour ton problème, essaaies une autre hachure que AR-CONC, et si la hachure te plait, tu la remplaceras par AR-CONC en changeant l'échelle, autrement persistes dans ton message,je suis sur que quelqu'un, (et surtout l'auteur du programme,) te répondra. A+

est ce que tu utilises bien les hachures [surligneur] Acadiso.pat[/surligneur] et non AutoCAD.pat (anglo saxon), sinon sur le forum il y a un programme (de Bonuscad je crois ) qui pourait te sauver la vie, je ne sais plus quand, j'ai récupéré le programme, je le cherche et je l'envoie, A+

regarde si les variables MEASUREMENT et MEASUREINIT ne sont pas passées à 0 (zéro) anglo saxon, passes les à 1 A+

Salut à toi Bonuscad, çà fait une paie qu'on se s'est pas écrit. A+

ok (gile) çà marche, mais il est têtu le vosgien, n'ya t'il pas moyen avec cette fonction, que si on clique à coté du bloc, la fonction attendre vraiment que l'on clique le bloc ? A+

oui et non ou plutôt NON et oui, je vai essayer quand même A+

Oui, l'insertion du bloc est bien le nodal, le bloc se nomme point-a, et il est inséré en X, Y et Z, dans mon programme, je fais la distance PT1, PT2 et je lit uniquement le Z pour l'altitude, ce qui me donne un fichier du genre: 0.00 339.7297 12.434 340.1218 7.512 340.3587 12.488 340.7266 7.486 340.9466 12.514 341.3020 etc 14.356 342.5335 5.658 342.4771 fin c'est pour dessiner un profil en long. A+

Pour (gile) voila le résultat : [surligneur] ; erreur: type d'argument incorrect: lselsetp nil[/surligneur] aprè avoir entré en commande dans le dessin (setq p1 (ssget "_:S:E" '((0 . "POINT")))) puis (setq p1 (cdr (assoc 10 (entget (ssname p1 0))))) pour bred exact, c'est un bloc et attribut rentré en X,Y et Z A+