Comande \"_insert\"

[miamar]

Salut à tous

 

Comment faire en utilisant la commande "_insert" de stocker la réponse au message du point d'insertion (donc le point d'insertion) dans une variable pour une utilisation ultérieure.

 

Pour être plus explicite, ( Bonuscad, je suis toujours en train de bidouiller les express), je voudrais automatiser la commande Superhatch pour une utilisation plus simple. Grace à l'aide de Patrick_35, de Bonuscad, de Didier et d'autres, j'ai pu y arriver. J'ai crée un menu image pour quelques motifs que j'utilise beaucoup. Je voudrais que dés que je clique sur le cliché (menu image) la seule chose que j'ai à faire c'est cliquer une seule fois pour spécifier le point d'insertion (je ne change pas beaucoup l'echelle ni l'orientation). Il me reste cette question de point d'insertion, que j'aimerais utiliser dans le message "point interne". voilà.

 

 

Merci

[bonuscad]

Ce que tu cherche est dans ddins2.lsp

 

Tes express vont finir par ne plus fonctionner du tout si il faut que tu bidouille les fichiers les un après les autres :D

[miamar]

Salut Bonuscad

 

ne craints rienpour les fichiers express, ilsmarchent à merveille. J'ai pu à quelques détails près avoir ce que je veux, bientôt je ne bidouillerais plus (ce n'est pas une promesse, car c'est dans ces bidouillages que j'apprend des choses)

 

Merci beaucoup

Je crains que que je puisse revenir à ddins2 car elle ouvre la boite de dialogue choix du bloc, et ça je veux pas. Par contre quelqu'un m'a offert ceci :

 

 (command "_insert" nom_du_bloc (setq p (getpoint)) les autres parametres)

 

Je ne suis pas chez moi je ne peux vérifier en ce moment.

 

Une autre chose, l'autre jour tu m'a offert la réponse à mon souci de "Tolérance d'erreur des courbes" tu as donné le code suivant :

 

 (defun htype_info ( / htype na flag flag2)
(while (not flag2)
(if (setq htype '("Block" nil))
(progn
(if (not #sprhatch_type) (setq #sprhatch_type "Block"));if
(setq na (cadr htype)
htype (car htype)
);setq
(if #clipitres
(setq a #clipitres)
(setq a (acet-geom-pixel-unit));setq
);if
(setq #clipitres a)
(initget 6)
(setq a (getreal (strcat "Tolérance d'erreur des courbes <" (ai_rtos #clipitres) ">: ")))
(if (not a) (setq a #clipitres))

 

quand je donne de nouvelles valeurs à "Tolérance d'erreur des courbes" , il n'y a pas de changement comme si les modifs des valeurs ne sont pas prises en considération.

 

s'il te plait regarde encore une fois s'il n'y a pas d'ommission ou erreur...

Merci ;)

[glopri]

Bonjour

 

Je recherche un moyen, en lisp, de re inserer un bloc qui existe déja dans le dessin et donc de le redefinir!!

Actuellement, si je passe par la commande "_-insert", il ne me propose pas de REDEFINIR le bloc !

Pourriez vous m'aider ?

 

Merci

[Tramber]

Bonjour

.....

Je recherche un moyen....i

 

Pouquoi tu ne fais pas un nouveau sujet avec un titre explicite ?

 

Voir ici et surtout là.

 

Tu peux jouer avec findfile et aussi avec la variable EXPERT.

 

 

 

 

 

[glopri]

Merci

 

Mais comment intégrer cette fonction dans une commande LISP?

 

 

[Patrick_35]

Salut

Tu as deux manières de procéder

En autolisp avec un bloc nommé par exemple Meuble1 sans attributs

(command "_.insert" "Meuble1=C:\\rep1\\rep2\\rep3\\Meuble1.dwg" "0,0" "1" "1" "0") 
(entdel (entlast))

Si tu as un bloc avec des attributs, tu dois changer la variable attreq pour que ta commande se déroule sans encombre

Si tu n'as pas bloqué le regen avec la variable regenmmode et que ton dessin est un peu lourd, cela peut être un inconvénient

 

Maintenant par la méthode vlisp

(vl-load-com)
(vla-delete (vla-InsertBlock (vla-get-modelspace (vla-get-activedocument (vlax-get-acad-object))) (vlax-3d-point '(0.0 0.0 0.0)) " C:\\rep1\\rep2\\rep3\\Meuble1.dwg" 1 1 1 0))

Cela revient au même qu’en autolisp , sauf qu’il n’y a pas de regen, ni besoin de savoir si le bloc possède ou pas des attributs

 

@+