D

[nicolas74]

Aide
Au secours. Je ne sais pas comment créer un simple dcl avec une image.
ou mieux, le fichier dcl que je pense est créé correctement, mais je ne peux pas créer le fichier lsp pour le rappeler, il me donne une erreur, trop d'arguments. . . .
Pouvez-vous m'aider ? ?
sous dcl et lisp
Je vous remercie.

dossier 52.dcl:
no_name: dialogue {
Étiquette
: image
clé = "dclimage1" ;
largeur = 32,3;
hauteur = 9.1;
is_tab_stop = faux;
couleur = noir;
alignement = haut;
?

ok_cancel_help;
?
//////////

fichier lisp
(défun c:imma( / dcl_id)
(defun init_handler() ;initialisation_code
(setq _x_ (dimx_tile "dclimage1")
(setq _y_ (dimy_tile "dclimage1")
(image_démarrage "dclimage1")
(image de diapositive 0 _x_ _y_ ""d:/client/ceb/logo.png"")
(image_fin)
(principal)
); fin de la fonction initiale
(defun set_data() ;start set fonction
(principal)
); fin de la fonction définie
(defun get_data() ;start get fonction
(principal)
); fin de la fonction get
(si (setq dcl_id)
(si (nouveau_dialogue "no_name" dcl_id)
(progrès)
(setq résultat zéro)
(init_handler)
(set_données)
(action_tile "accept" (get_data)(done_dialog)(setq result t))
(début_dialogue)
(décharger_dialogue dcl_id)
résultat
)
)
)
)
(chargerdialog_no_nom)

 

[nicolas74]

édition des fichiers que j'ai réussi à ouvrir le dcl, mais vous ne voyez pas l'image
Qui peut m'aider ?
Je vous remercie.

exemple1.dcl
cercle de texte: dialogue {
étiquette = "forage de création";
: boxed_row

: modifier_la boîte {
clé = "diam";
étiquette = "diamètre:";
largeur = 18;
espaceur;
espaceur;
espaceur;

?

: modifier_la boîte {
clé = "xforo";
étiquette = "quota x trou: ";
largeur = 18;

?

: modifier_la boîte {
clé = "yforo";
étiquette = "trou de quota y";
largeur = 18;

?

: bouton {
clé = "svuotatxt";
étiquette = "vide";
?
?


clé = "titre";
étiquette = "image";///title$ du fichier lsp
espaceur;
: image_tile
clé = "image";
largeur = 18;
hauteur = 16,59;
fixe_largeur = true;
_hauteur fixe = true;
le ratio d'aspect = 1;
couleur = -2;
?
_annuler;
?


//////
fichier lisp

(définir c:ite ( / texte dcl_id pressé ang cent~ pickingpt x# y#)


(setq dcl_id)
(si (nouveau_dialogue "testocerchio" dcl_id))
(sortie)
)
(action_tile "svuotatxt" (set_tile \"xforo\"\")
(rires)
"accepter"
(setq xforo (get_tile \"xforo\")) (setq yforo (get_tile \"yforo\") (setq diam (get_tile \"diam\")) (done_dialog 1)"


)

(image_démarrage "image")
(setq x# (dimx_tile "image")
(setq y# (image "dimy_tile")
(slide_image 0 x# y# "d:/client/ceb/logo.sld")
(image_fin)




(setq bouton presse (start_dialog))
(si = touche pressée 1)
(progrès)



(print) "x trou est...
(print) "y trou est...
(empreinte)

(setq posforo (strcat xforo ", yforo))

(empreintes)

(commande "_cercle" posforo "d" diam)


)
)
(décharger_dialogue dcl_id)
(principes)
)

 

[Gio_S]

Je ne comprends pas que vous pouvez utiliser un fichier png, pour que ne pas le télécharger, il faut une diapositive (*.sld) qui sont des fichiers vectoriels, donc vous devez les obtenir avec la commande pour faire des instantanés sur l'écran de votre cad, sur lequel vous devez apporter l'image que vous voulez.
Vous pouvez également utiliser les fichiers ems et wmf qui sont des métafiles de windows, mais je ne les connais pas.
Dans la deuxième liste, je vois que vous utilisez aussi une diapositive, mais comment l'avez-vous créée ?

 

[rpor66]

https://autolisp-exchange.com/tutoriels/mydialogs.htm

ho arrêté spunto da qui

 

[Gio_S]

Mais avez-vous créé la diapositive en prenant un instantané ? Je ne sais pas comment vous dire ça
vous auriez dû avoir à l'écran ce que vous tenez à l'image, et faire mslide
qui vous demande quel nom vous voulez lui donner pour sauver comme sld.
Je commencerais par commander à partir d'ici, essayer de le créer, puis l'attacher ici et vérifier tout d'abord qui est une diapositive valide.
Je dois essayer de la charger, je ne sais pas les programmes pour la voir, sinon une commande de cad interne, mais si nous le faisons, c'est plus facile.
Je centralise le sujet à l'écran, j'utilise une extension avant d'enregistrer.

 

[nicolas74]

Bonjour.
le problème n'est pas la diapositive. Je l'ai créé avec la commande mslide qui fonctionne correctement.
le problème est le fichier lisp...
Mais je ne sais pas pourquoi. .
J'ai aussi essayé de refaire la diapositive, que j'attache, mais pas funcia

 

[nicolas74]

Ok, maintenant changer le lisp je vois la fenêtre tout noir au lieu de l'image...
Mais je ne vois pas la diapositive... Quelqu'un peut m'aider ?
la diapositive est correcte, avec la commande "view" dans azwcad J'affiche correctement le contenu de la diapositive et je vois l'image correcte.
Ce qui me rend bizarre, c'est d'utiliser
(setq ximage (+ (dimx_tile "image") 20)
(setq yimage (+ dimy_tile "image") 20)

et imprimer ximage et yimage le résultat est 20. comme si l'image de lui-même était de taille zéro... bho!!!! !
Pourquoi n'y a-t-il pas de documentation sur ces choses?
fichier allego lisp et slide
Je vous remercie.

 

[nicolas74]

Il est
testocerchio : boîte de dialogue {
étiquette = "créazione foratura";
: boxed_row {

: modifier_la boîte {
clé = "diam";
étiquette = "diamétro: ";
largeur = 8;
espaceur;
espaceur;
espaceur;

}

: modifier_la boîte {
clé = "xforo";
étiquette = "quota x foro: ";
largeur = 3;

}

: modifier_la boîte {
clé = "yforo";
étiquette = "quota y foro: ";
largeur = 3;

}

: bouton {
clé = "svuotatxt";
étiquette = "svuota";
}
}


clé = "titre";
étiquette = "Imaginer 1";//title$ du fichier lsp
espaceur;
espaceur;
espaceur;
espaceur;
: image {
clé = "immagine";
largeur = 50;
hauteur = 20;
fixe_largeur = true;
_hauteur fixe = true;
le ratio d'aspect = 1;
couleur = -2;
}




_annuler;
}

 

[Gio_S]

Désolé d'essayer, mais je ne peux rien faire.
si j'appelle la commande immédiatement me donne "argument d'improper"

commande & #160;:
commande : _appload
chargement C:\cadext\isertesto.lsp
commande : c:ite
commande : ite
erreur : argument d'abus
(nouveau_dialogue "testocerchio" dcl_id)
(non (nouveau_dialogue "testocerchio" dcl_id))
(si (non) (sortie))
(c:ite)

Pourriez-vous faire un seul paquet zip avec tout ? Lisp dcl et...
sans chemins dans le code, pour que tout soit propre ?
Je l'ai ensuite mis dans mes extensions de dossiers auxquelles je suis habitué
Puis j'essaie d'isoler en retirant le code, afin de remonter à ce qui est indigestion.
Je ne comprends pas pourquoi ça me différencie du vôtre.

 

[nicolas74]

La diapositive

 

[nicolas74]

Désolé, allego zip avec les 3 fichiers

 

[Gio_S]

J'ai tout mis dans le code.
Maintenant j'essaie jusqu'à ce que je charge, comment ils chargent mes parents doivent charger!

 

[nicolas74]

Pourriez-vous m'envoyer un programme de lisp avec une diapositive et un fichier dcl ? Je voudrais faire un test avec mon installation. Je ne veux pas qu'elle ait un problème. Je vous remercie.

 

[Gio_S]

Je compare avec l'un des miens.
l'erreur est cependant dans le dcl, le lisp fonctionne
Maintenant je fais une copie de moi

 

[Gio_S]

Me voici, dans le lisp j'ai souligné la partie de votre intérêt "ici ...... jusqu'ici"
Puis il y a tout l'ambaradan qui crée des ms, si on fait "ok".
Bref, je pense que c'est ton Dcl que tu ne veux pas... revendre et faire la compensation en ajoutant une chose à la fois. Il se peut aussi que vous fâchez avec tous ces arguments, vous devez les ajouter lentement. essayer de ne pas donner trop de paramètres, au début les indiquer statiquement dans le dcl

 

[nicolas74]

J'ai pu télécharger l'image, maintenant ça ne fait pas de moi le cercle.
Il me tue. mais une documentation décente n'est pas trouvée?
Si vous avez le temps de nous donner un oeil au lisp... Je ne comprends pas où est le problème.
Je vous remercie.

 

[Gio_S]

En gros, il ne passe pas les arguments au commandement ?
pour moi, ton liss ne facture rien, il sort toujours

commande : _appload
chargement C:\cadext\isertesto.lsp
commande : c:ite
commande : ite
erreur : argument d'abus
(nouveau_dialogue "testocerchio" dcl_id)
(non (nouveau_dialogue "testocerchio" dcl_id))
(si (non) (sortie))
(c:ite)

mais la diapositive est valide, avec vslide la charge
définir un dcl propre, avec sa diapositive, et que la première étape est en place.
puis voir comment passer un premier argument au lisp.

 

[Gio_S]

un exemple pour utiliser les valeurs placées...

dans le lis
(action_tile "xxx" (setq usertext $value))

dans le dcl
: edit_box { alignement = centré;
étiquette = "courante";
valeur = 33;
clé = "xxx";
?

et à Lisp, pour vérifier
(texte utilisateur courant)
Il m'a écrit ce que j'avais remis au dcl, au lieu de 33

 

[Gio_S]

puis je vois qu'il y a un moyen d'obtenir les valeurs placées par l'utilisateur comme arguments déclarés d'une fonction,
Mais je me suis arrêté ici pour l'instant parce qu'il semble fonctionnel et clair.
chaque clé lisp, lorsque vous sortez du dcl, l'assigne à sa variable que vous avez également déclarée sur des lignes consécutives séparées... même étape avec dcl edit_boxes

"(action_tile "xxx" (setq usertex ... )
"(action_tile "xxxetcetc" (setq usertextetetcetc...)

 

[nicolas74]

J'ai tout fait.
attachez-vous aux postures au-dessous du fichier lisp, et au-dessous du fichier dcl à mettre en support avec tout fichier de diapositive (slide1.sld)

(définir c:ite ( /)
(setq dcl_id)
(si (nouveau_dialogue "testocerchio" dcl_id))
(sortie)

(setvar "cmdecho" 1)
(setq x (dimx_tile "image") y (dimy_style "image")
(image_démarrage "image")
(image de remplissage 0 x y 0)
(setq pathsld)
(image de diapositive 0 x y pathld)
(image_fin)

(action_tile "svuotatxt" (set_tile \"xforo\"\")(set_tile \"yforo\"\")(set_tile \"diam\"\"))
(action_tile "accept" (setq xforo (get_tile \"xforo\")) (setq yforo (get_tile \"yforo\")) (setq diam (get_tile \"diam\") (done_dialog 1)")
(action_tile "annulation" (done_dialog) (bouton de pression de setq 0))

(setq bouton presse (start_dialog))
(si = touche pressée 1)
(progrès)
(setq posforo (strcat xforo ", yforo))
(commande "_cercle" posforo "d" diam)
)
)
(décharger_dialogue dcl_id)
(principes)
)

; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ;
le fichier dcl exemple1.dcl
; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ;

cercle de texte: dialogue {
étiquette = "forage de création";
: boxed_row
: modifier_la boîte {
clé = "diam";
étiquette = "diamètre:";
largeur = 8;
espaceur;
?
: modifier_la boîte {
clé = "xforo";
étiquette = "quota x trou: ";
largeur = 3;
?
: modifier_la boîte {
clé = "yforo";
étiquette = "trou de quota y";
largeur = 3;
?
: bouton {
clé = "svuotatxt";
étiquette = "vide";
?
?
clé = "titre";
étiquette = "trou";
espaceur;
: image
clé = "image";
largeur = 50;
hauteur = 20;
_largeur fixe = faux;
_hauteur fixe = faux;
aspect_ratio = 0;
couleur = 0;
?
_annuler;
?