Help Superhatch

[miamar]

Bonjour et Salut à tout le monde

 

J'ai incessament besoin d'une petite aide.

 

Il s'agit d'une simplification de la commande Superhachures. En fait je travaille chez un architectes et j'utilise assez souvent des dessins (une dizaine) comme motifs de hachurage avec la commande Superhachures, et j'ai crée un menu image pour les dix dessins, mais je me suis heurté au fait qu'il n'y a pas de version ligne de commande de Superhatch (surtout pour le script). Pour ça j'ai besoin de votre aide.

 

L'idée c'est d'enlever toutes les lignes de code dont j'en ai pas besoin de la commande Superhachures, je n'ai besoin ni d'image ni de xrefs... je veux que la commande Superhachures saute directement vers le bloc (et surtout le bloc fichier) de sorte à ce que la commande demande en ligne de commande et du premier coup le nom du fichier à utiliser comme motif de hachurage, le reste de la routine sera inchangée. Donc le travail sera de sauter les fonctions htype_info et dd_htype_info.

 

Est-ce quelqu'un peut m'aider, j'en ai vraiment besoin.

Merci de votre aide précieuse.

Merci Patrick Emin pour ton aide par avance

 

[lecrabe]

 

Bonjour

 

Désolé mais cette routine ne tient pas compte du mode:

CMDDIA = 0

FILEDIA = 0

ni du mode -SUPERHATCH

 

Il faudrait donc attaquer DIRECTEMENT le fichier "sprhatch.lsp"

qui est dans le sous-catalogue de ton AutoCAD ...

 

Sorry, Crabuleusement

 

[Tramber]

Attends, c'est tout bête, si ca peut se scripter dans un bouton, comme sont fait des tas de boutons. J'ai que LT sous la main sinon je regarderais bien.

[Tramber]

Par exemple, le bouton Arc, centre, départ, longueur est codé comme ceci :

 

^C^C_arc _c \\_l 

 

^C^C est systématique (équivaut à annuler toute commande en cours).

 

...clic-droit sur les boutons, choisir, Personnaliser...

..puis RE-clic-droit sur un nouveau bouton personnalisé défini par l'utilisateur et préalablement glissé par tes soins.

 

[Edité le 15/9/2004 par Tramber]

[Patrick_35]

Salut

Tu fais d'abord une copie du fichier sprhatch.lsp que tu nommes par exemple sh.lsp

 

Tu vas dans la partie htype_info

(defun htype_info ( / htype na flag flag2)

(while (not flag2)
[b][color=red];;[/color][/b](if (setq htype (dd_htype_info))
[b][color=red]  (if (setq htype '("Block" nil))[/color][/b]

et ensuite dans la partie get_insert_info

(defun get_insert_info ( na2 htype / na na3 fna bna blk lst2 xtlst
                                    uflag zflag ans
                      )

(setq na3 na2
      na (entlast)
);setq
(setvar_rt)
(setq ans "No")
(while (equal ans "No")
(setq ans nil);setq
(if (equal htype "Block")
    (progn
     (if (not na2)
         (progn
[b][color=red];;[/color][/b]           (ddins2)
[b][color=red]            (command "_.insert" (getstring "\nfichier : ") "0,0" "1" "1" "0")[/color][/b]

 

@+

 

ps : ce qui est en rouge est à ajouter dans le lisp et de plus, c'est fait depuis une version 2000, alors il risque d'y avoir des évolutions, mais normalement le principe reste le même

[lecrabe]

 

Ah qu'il est bon / beau et poilu notre Patrick_35 :) :D

 

et en plus il est balaise en Lisp : tout pour séduire ...

 

Bien le bonjour, Patrick_35

 

[Tramber]

Les furieux du lisp...toujours prêts à se casser la tête quand c'est utile mais aussi quand y a moins cher !

[lecrabe]

 

Bonjour Tramber

 

SVP arrête de médire ! :) :D

 

Dans cette situation, seule une intervention sur le programme Lisp

peut résoudre le problème posé !!!

 

Sympathiquement

 

[Patrick_35]

Bonjour à vous deux

Lecrabe à raison, seul une modification du lisp peut résoudre le problème sauf s'il a été prévu dans la conception de pouvoir l'appeler depuis un script, ce qui n'est pas le cas

Mais quand on compare le lisp avec le script, autant comparer une rolls avec une 2cv

 

Nb : pour les poils, désolé mais je n'ai pas de moquette :laugh:

 

@+

[Tramber]

Les cocos, vous avez 1000 fois raison.

 

J'ai que LT sous la main ces jours-ci et j'étais tout à fait persudadé que la commande était dispo sur la ligne de commande. N'ayant qu'un souvenir vague de Superhatch.

 

:red:

 

Il y a des chemins que vous ne me ferez jamais prendre avec une Rolls, même si j'en conduis plus souvent que vous ne l'imaginez...

 

J'en ai vu souvent répondre gaiement en Lisp sur un forum LT. Laissez-moi tenter ma chance !

[Patrick_35]

C'est sûr, il ne faut pas forcement tout demander à une rolls, il y a parfois des solutions plus simples et plus économiques ;)

 

@+