Renommer bloc

[philous2]

Bjr,

 

Je voudrais renommer certains blocs d'un plan et j'ai donc chargé la routine de Patrick, [surligneur] REN.LSP V1.01 [/surligneur]comme code j'ai mis " ren" mais ça marche pas, c'est quoi le code me serais-je trompé !

[phil_vsd]

Salut,

 

As tu bien chargé ton lisp ?

 

Sinon : tappes "appload" et va le chercher dans "contenu au demarrage". Ou alors pour l'essayer, tu glisses le fichier lisp sur ton écran autocad.

 

ensuite, tu choisis un bloc, tu fais clic droit... et voilà...

 

A+++

[philous2]

j'ai bien chargé le lisp et à chaque fois j'ai cette réponse

" Commande: _appload Ren.lsp correctement chargé(s)

Commande:

REN.LSP chargé.

Commande:

Commande: REN

Commande inconnue "REN". Appuyez sur F1 pour obtenir de l'aide."

[phil_vsd]

Ben...

 

Une fois ton lisp chargé.

 

Tu cliques sur un bloc, puis tu fais clic-droit, et là t'as un message.

 

Ne passe pas par le ligne de commande. Que par clic-droit !

[philous2]

bon je viens de recharger le lisp j'ai clique sur un bloc, puis j'ai fais clic-droit, et là pas un message particulier à part le menu déroulant habituel c'est dingue ce truc j'ai fait comme tu m'as dit eh bien rien

[Invité ingoenius]

ici une routine modifiée ca fonctionne en selectionnant le bloc avant ou pas et affiche une boite de dialogue dan laquelle mettre le nouveau nom de bloc

 

;; InputBox (gile)
;; Ouvre une boite de dialogue pour récupérer une valeur
;; sous forme de chaine de caractère
;;
;; Arguments
;; tous les arguments sont de chaines de caractère (ou "")
;; box : titre de la boite de dialogue
;; msg : message d'invite
;; val : valeur par défaut
;;
;; Retour
;; une chaine ("" si annulation)

(defun InputBox (box msg val / subr temp file dcl_id ret)

;; Retour chariot automatique à 50 caractères
(defun subr (str / pos)
(if (and
(< 50 (strlen str))
(setq pos (vl-string-position 32 (substr str 1 50) nil T))
)
(strcat ":text_part{label=\""
(substr str 1 pos)
"\";}"
(subr (substr str (+ 2 pos)))
)
(strcat ":text_part{label=\"" str "\";}")
)
)

;; Créer un fichier DCL temporaire
(setq temp (vl-filename-mktemp "Tmp.dcl")
file (open temp "w")
ret ""
)

;; Ecrire le fichier
(write-line
(strcat
"InputBox:dialog{key=\"box\";initial_focus=\"val\";spacer;:paragraph{"
(subr msg)
"}spacer;:edit_box{key=\"val\";edit_width=54;allow_accept=true;}
spacer;ok_cancel;}"
)
file
)
(close file)

;; Ouvrir la boite de dialogue
(setq dcl_id (load_dialog temp))
(if (not (new_dialog "InputBox" dcl_id))
(exit)
)
(set_tile "box" box)
(set_tile "val" val)
(action_tile
"accept"
"(setq ret (get_tile \"val\")) (done_dialog)"
)
(start_dialog)
(unload_dialog dcl_id)

;;Supprimer le fichier
(vl-file-delete temp)
ret
)

(defun c:BB ();rinomina i blocchi 
(setq OBJ (ssgetfirst))
(setq old_BLOCCO (cadr OBJ));estrai la selezione

(if	(= old_BLOCCO nil)	;se nulla é selezionato  
(setq BLOCCO (car (entsel "\nSelect block ")))
(setq BLOCCO (ssname old_BLOCCO 0))	
)	

(setq old_DatiB (entget BLOCCO))(= (cdr (assoc 0 old_DatiB)) "INSERT")
(setq Test (cdr(assoc 2 old_DatiB))) 		;metto qui il vecchio nome del blocco
;(setq New_N (getstring T "\nNew Name? "))

(setq New_N   (inputbox "Rename Block" Test "new name")) ;cambiare qui la dcl dialog 
(null (tblsearch "BLOCK" New_N))
(vl-cmdf "_.rename" "_b" (cdr (assoc 2 old_DatiB)) New_N)
 
(princ)
)



;----------------------------------------------------------------------------


(defun c:SB () ;scala tutti i blocchi uguali a quello selezionato
 
 
  (SETQ CMDE (GETVAR "cmdecho"))
  (SETVAR "CMDECHO" 0)
  (setq n 0 )
  (command "_undo" "_m")

(setq Obj (car (entsel "\nSeleziona un oggetto\n ")))
(setq DatiB (entget Obj))
(setq InsObj(cdr (assoc 10 DatiB)));punto inserzione blocco 
 
;(setq P (getvar "lastpoint"))  
(setq LayObj (cdr (assoc 8 DatiB)))						;recupera il layer del'oggetto selezionato
(setq NameObj (cdr (assoc 2 DatiB)))						;recupera il nome del blocco selezionato
(setq ssLayBloc (ssget "x" (list(cons 8 LayObj)(cons 2 NameObj))))		;crea il set di selezione degli oggetti sul layer scelto NLAY   

;(command "_move" ssLayBloc "" InsObj  pause  "")  
 
(setq js ssLayBloc)
  (initget 1)
  (setq ech (getstring "/Reference :"))
  (if (or (= ech "R") (= ech "r"))
     (progn
        (setq long_ref (getreal "Longueur de reference <1>:")) 
        (if (= nil long_ref) (setq long_ref 1.0000000))
        (initget (+ 1 2 4))
        (setq long_new (getreal "Nouvelle Longueur:"))
     )
  )
  (repeat (sslength js)
     (setq ent (ssname js n))
     (SETQ PT1 (cdr (assoc 10 (entget ent))))
     (if (or (= ech "R") (= ech "r"))
        (command "_SCALE" ent "" pt1 "r" long_ref long_new)
        (command "_SCALE" ent "" pt1 ech)
     )
     (setq n (1+ n))
     (IF (= (/ n 5.00) (/ n 5)) (prompt "."))
  );repeat
  (SETVAR "CMDECHO" CMDE)
  (terpri)
);

;----------------------------------------------------------------------------



(defun c:RB ( / n js ent pt1 ang);ruota tutti i blocchi con nome uguale al selezionato 
  (SETQ CMDE (GETVAR "cmdecho"))
  (SETVAR "CMDECHO" 0)
  (setq n 0 )
  (command "_undo" "_m")

(setq Obj (car (entsel "\nSeleziona un oggetto\n ")))
(setq DatiB (entget Obj))
(setq InsObj(cdr (assoc 10 DatiB)));punto inserzione blocco 
 
;(setq P (getvar "lastpoint"))  
(setq LayObj (cdr (assoc 8 DatiB)))						;recupera il layer del'oggetto selezionato
(setq NameObj (cdr (assoc 2 DatiB)))						;recupera il nome del blocco selezionato
(setq ssLayBloc (ssget "x" (list(cons 8 LayObj)(cons 2 NameObj))))		;crea il set di selezione degli oggetti sul layer scelto NLAY   

(setq js ssLayBloc)
 
  (setq ang (getreal "Angle de rotation:")) 
  (repeat (sslength js)
     (setq ent (ssname js n))
     (SETQ PT1 (cdr (assoc 10 (entget ent))))
     (command "_rotate" ent "" pt1 ang)
     (setq n (1+ n))
     (IF (= (/ n 50.00) (/ n 50)) (prompt "."))
  );repeat
  (SETVAR "CMDECHO" CMDE)
  (terpri)
 )

;-----------------------------

[Patrick_35]

Bonjour

 

C'est avec un clic droit sur un bloc que tu pourras lancer la commande.

Sinon, tu as plus simple avec la commande renommer.

 

@+