Lisps de gile

[(gile)]

Salut,

 

tu peux coller le code suivant à la fin de fichier Special_Selections.lsp.

 

;; Sélection par motif de hachure
(defun c:sshp (/ ss ent elst)
 (and
   (or
     (and
(setq ss (cadr (ssgetfirst)))
(= 1 (sslength ss))
(setq ent (ssname ss 0))
     )
     (and
(sssetfirst nil nil)
(setq ent (car (entsel "\nSélectionnez une hachure: ")))
     )
   )
   (= (cdr (assoc 0 (setq elst (entget ent)))) "HATCH")
   (sssetfirst nil (ssget "_X" (list '(0 . "HATCH") (assoc 2 elst))))
 )
 (princ)
)

[x_all]

super merci

et

merci encore

[(gile)]

si je ne m'abuse, il y a une parentèse en trop sur la ligne

(sssetfirst nil (ssget "_X" (list '(0 . "HATCH") (assoc 2 elst)))))

 

C'est corrigé.

[lecrabe]

Hello Gilles

 

MERCI j'ai complete ton Special_Selections ...

 

Bye, lecrabe - Sous la pluie dans la Loire (42)

[(gile)]

Special_Selections a été mis à jour sur CADxp et gileCAD.

[jndessin44]

Merci

[Raph_38]

Un grand merci gilles !! c'est top

[PHILPHIL]

salut gile

[PHILPHIL]

hello

 

y aurait il des pros de la boite de dialogue pour mon petit soucis ?

que je comprenne en emme temps

 

ouiii j'ai trouvé

 

merci

 

phil

[PHILPHIL]

hello

 

Gile peux tu retirer les deux posts au dessus qui doivent emcombrer maintenant que j'ai trouvé la solution

 

je laisse ici le lisp qui marche pour qui ca peut interesser

 

MLP.LSP

 

merci a toi Gile pour la boite de dialogue

 

a+

 

Phil

[fabcad]

Bonjour à tous,

 

J'ai trouvé le lisp Plineorg qui modifie le point d'origine d'une polyligne fermée, j'ai le même souci mais sur une grille de tuiles (1974 tuiles).

 

Pourrais t'on la modifier pour faire un traitement sur plusieurs polylignes sans pointer le futur point d'origine de chaque tuile.

 

Ci-joint un zoom sur ces tuiles avec le souhait de changement du point d'origine.

 

Merci d'avance,

 

Fabcad

 

Le Rennais Métropolitain

[PHILPHIL]

hello Gile

 

tu n'avais pas fait une appli qui empechait la selection d'entité sur des calques verrouillés ?

 

je ne la retrouve plus sur CADXP

 

y a t il une mise a jour pour 2016 ?

 

merci

 

bonne journée

Phil

[(gile)]

Salut,

 

Regarde ici.

[fabcad]

Bonjour Gile,

Bonjour Amis lispeurs,

 

Utilisant ta routine ListBox dans une de mes routines de sélection de Champs de Données d'Objets,

j'aurais souhaité agrandir la largeur de la liste de sélection car je dois concaténer le nom de la table et le nom du champ pour traiter les choix.

 

J'ai regardé dans ta routine mais je ne vois pas où.

 

Merci d'avance,

 

Fabcad

 

Le Rennais Métropolitain

[(gile)]

Salut,

 

C'était pas prévu...

Tu peux utiliser la version ci-dessous en forçant à ta guise la largeur de la colonne.

(write-line ":column{width=0;" file) ; <- changer la largeur si besoin

 

;; ListBox (gile)
;; Boite de dialogue permettant un ou plusieurs choix dans une liste
;;
;; Arguments
;; title : le titre de la boite de dialogue (chaîne)
;; msg ; message (chaîne), "" ou nil pour aucun
;; keylab : une liste d'association du type ((key1 . label1) (key2 . label2) ...)
;; flag : 0 = liste déroulante
;;        1 = liste choix unique
;;        2 = liste choix multipes
;;
;; Retour : la clé de l'option (flag = 0 ou 1) ou la liste des clés des options (flag = 2)
;;
;; Exemple d'utilisation
;; (listbox "Présentation" "Choisir une présentation" (mapcar 'cons (layoutlist) (layoutlist)) 1)

(defun ListBox (title msg keylab flag / tmp file dcl_id choice)
 (setq	tmp  (vl-filename-mktemp "tmp.dcl")
file (open tmp "w")
 )
 (write-line
   (strcat "ListBox:dialog{label=\"" title "\";")
   file
 )
 (write-line ":column{width=0;" file) ; <- changer la largeur si besoin
 (if (and msg (/= msg ""))
   (write-line (strcat ":text{label=\"" msg "\";}") file)
 )
 (write-line
   (cond
     ((= 0 flag) "spacer;:popup_list{key=\"lst\";}")
     ((= 1 flag) "spacer;:list_box{key=\"lst\";}")
     (T "spacer;:list_box{key=\"lst\";multiple_select=true;}")
   )
   file
 )
 (write-line "}spacer;ok_cancel;}" file)
 (close file)
 (setq dcl_id (load_dialog tmp))
 (if (not (new_dialog "ListBox" dcl_id))
   (exit)
 )
 (start_list "lst")
 (mapcar 'add_list (mapcar 'cdr keylab))
 (end_list)
 (action_tile
   "accept"
   "(or (= (get_tile \"lst\") \"\")
   (if (= 2 flag) (progn
   (foreach n (str2lst (get_tile \"lst\") \" \")
   (setq choice (cons (nth (atoi n) (mapcar 'car keylab)) choice)))
   (setq choice (reverse choice)))
   (setq choice (nth (atoi (get_tile \"lst\")) (mapcar 'car keylab)))))
   (done_dialog)"
 )
 (start_dialog)
 (unload_dialog dcl_id)
 (vl-file-delete tmp)
 choice
)

[fabcad]

Bonsoir Gile,

 

Merci pour cette modification, la sélection va être agréable :-)

 

Fabcad

 

Le Rennais Métropolitain

[DenisHen]

Bonjour à tous.

 

J'ai un petit souci avec Edit_Bloc_rep. Je commence un nouveau dessin et la routine me dit que le dessin n'est pas vide :

Le dessin contient des entités.

Ce programme doit être lancé à partir d'un dessin vierge.

Je lance Rpurge et il me dit la même chose.

 

Je ne peux donc pas utiliser Edit_bloc_rep.

 

Si quelqu'un a une astuce ou un conseil, je suis preneur.

 

Denis...

[PHILPHIL]

bonjour Gile

 

j'utilise ton programme acheter sur xchange d'incrementation ( 2.1.2 )

 

dans l'onglet selection, peut on avoir un bouton pour selectionner les blocs deja en place, plutot que de les choisir dans la liste des nom de bloc du fichier, comme tu as mis dans l'onglet attribut.

 

meme chose dans l onglet auto ?

 

puis quand on lance le programment d'incrémentation avec "selection" que les objet sélectionnées soit grisé ou bleuté ( comme lors d'une sélection ) pour savoir ou on en est, est pas resélectionner des objets.

 

 

les coches dans selection sont carré et ronde dans auto, ca doit etre normal, ca n'empeche pas de fonctionner

 

 

merciii

 

bonne semaine

 

Phil

[DenisHen]

Bonjour à tous.

 

Voilà, j'ai un petit souci avec la super commande RPurge, que j'utilise tous les jours...

 

Mais aujourd'hui, petit problème sur un dessin client. J'ai fais un controle du dessin et pas d'erreurs détectées...

 

Je remonte donc au grand (gile) cette information au cas où ça l'intéresserait.

 

Tout est dans l'image...

 

Denis...

[Raph_38]

Allé, j'y vais de ma réclamation

 

 

LAYLOCKSEL, ne s'installe plus sur mon PC, j'ai un message lors de l'installation (Autocad 2017) :

Error 1001. La référence d'objet n'est pas définie à une instance d'un objet

[(gile)]

Houlà,

 

Avalanche de 'réclamations' à propos d'application que j'ai effectivement commis mai qui n'ont rien à voir avec les LISPs de cette page (ni avec le LISP d'ailleurs).

Je vais quand même essayer de répondre.

 

@PHILPHIL

J'ai en projet de reprendre complètement l'interface de "Increment" en utilisant WPF pour résoudre les (très rares) problèmes d'affichage qui m'ont été signalés. je pourrais intégrer tes demandes à ce moment là, mais il s'agit d'un travail assez conséquent (plus de 3500 lignes de code) que je ferais à temps perdu.

 

@DenisH

L'image ne me dit rien si ce n'est que le programme n'a pas pu supprimer un objet, mais sans connaitre le type d'objet, je ne peux rien dire...

Si tu peux m'envoyer le dessin, j'essayerais de regarder.

 

@neptune38,

Pour AutoCAD 2013 et ultérieur, je recommande la version utilisant le mécanisme Autoloader qui permet de faire des installeurs plus fiables. Voir ce sujet.

[DenisHen]

Bonjour (gile) et merci de ton attention.

 

Voici le fichier qui pose problème...

 

Denis...

[PHILPHIL]

Hello Gile

 

 

pas de soucis et mercii

 

 

bon week end

 

Phil

[(gile)]

@DenisH,

 

Le problème vient des styles de texte. Si tu décoches "Styles de texte" ça devrait marcher.

Ça semble venir du style SYMAP mais je vais chercher plus précisément.

[(gile)]

Pour RadicalPurge (et BatchPurge), je pense avoir trouvé le problème (un fichier SHX manquant) et la parade.

J'ai soumis une nouvelle version sur Exchange Apps elle devrait être publiée sous peu (dès qu'Autodesk l'aura approuvée).