Pb d'inserssion de wbloc en 0,0

[globehugo]

Bonjour,

J'utilisais depuis 15 ans un lisp tres simple pour copier/coller des objets sur différents plans aux mêmes cordonnés, ce qui est très utile quand on dessine des chutes verticales en plomberie sanitaire.

Mais voila depuis peux, celui-ci fonctionne d'une manière aléatoire; en effet les objet sont de temps en temps légèrement décalés lors de leur insertion.

 

Avez vous déjà eu des problèmes similaire lors d'insertion de blocs sur A2015.

Merci

 

PJ:le lisp en question:

(defun c:aw ()

(command "SCU" "G")

(setq ent (ssget))

(command "_wblock" "C:/Acads/tx" "_y" "" "0,0,0" ent "" "_oops")

(command "SCU" "P")

)

(defun c:wa ()

(command "SCU" "G")

(command "_insert" "*C:/Acads/tx" "0,0,0" "" "")

(command "SCU" "P")

)

[bonuscad]

Bonjour,

 

celui-ci fonctionne d'une manière aléatoire; en effet les objet sont de temps en temps légèrement décalés lors de leur insertion.

 

Essayes (dans un premier temps) de changer "0,0,0" -> "_none" "0,0,0" dans tes expressions.

 

Cela aura pour conséquence de désactiver temporairement l'accroche objet lors de l'insertion ou de la définition du point d'insertion. En effet il suffit que des objets soit présent et proche du 0,0,0 et que si l'accrochage est actif et bien les points introduits soient modifié par cet accroche.

[globehugo]

Merci, je vais essayer

[zebulon_]

Bonjour,

 

c'est marrant, j'utilise aussi depuis des lustres 2 lisps qui ressemblent beaucoup aux précédents

 

(defun C:WW (/ OLDOS OBJETS NOMFIC)
; Copie (WBLOC) d'une sélection dans un fichier temporaire
(setvar "cmdecho" 0)
(setq OLDOS (getvar"osmode"))
(setvar "osmode" 0)
       (if (not (setq OBJETS (cadr (ssgetfirst))))
         (setq OBJETS (ssget))
       )
       (setq NOMFIC (strcat (getvar "TEMPPREFIX") "temp.dwg"))
(command "_ucs" "_w")
       (if (findfile NOMFIC)
       	(command "_wblock" NOMFIC "_y" "" '(0 0 0) OBJETS "")
       	(command "_wblock" NOMFIC  "" '(0 0 0) OBJETS "")
)
(command "_oops")
(command "_ucs" "_p")
(setvar "osmode" OLDOS)
(princ)
) ; WW

(defun C:II (/ OLDOS NOMFIC)
       (setq NOMFIC (strcat (getvar "TEMPPREFIX") "temp.dwg"))
       (if (findfile NOMFIC)
         (progn
       	; Coller de la sélection dans un autre dessin
	(setvar "cmdecho" 0)
	(command "_ucs" "_w")
	(setq OLDOS (getvar"osmode"))
	(setvar "osmode" 0)
       	;; insérer le bloc temporaire en le décomposant
	(command "_insert" (strcat "*" NOMFIC) '(0 0 0) "1" "0")
	(command "_ucs" "_p")
	(setvar "osmode" OLDOS)
          )
          (alert (strcat "Fichier temporaire\n" NOMFIC "\nnon trouvé"))
       )
(princ)
) ; II

 

Amicalement

Vincent

[globehugo]

Zebulon_ C'est tellement pratique, que quand ca ne fonctionne plus ca rend fou.

Bonuscad ca marche ta modif pour l'instant...

[zebulon_]

Zebulon_ C'est tellement pratique, que quand ca ne fonctionne plus ca rend fou.

Bonuscad ca marche ta modif pour l'instant...

 

On peut s'en passer sur les versions récentes, tout de même, en utilisant le copier/coller vers les coordonnées d'origine. Ce n'était pas le cas il y a 15 ans...

 

Amicalement

Vincent

[bonuscad]

On peut s'en passer sur les versions récentes, tout de même, en utilisant le copier/coller vers les coordonnées d'origine.

 

C'est aussi ce que j'utilise, sauf que je prend plutôt "copier avec point de base" et donne 0,0,0 en réponse, pour être sur de mon point de base.

[Steven]

On peut s'en passer sur les versions récentes, tout de même, en utilisant le copier/coller vers les coordonnées d'origine. Ce n'était pas le cas il y a 15 ans...

 

Amicalement

Vincent

 

Salut,

 

En fait, cette commande existe depuis qu'on peut ouvrir plusieurs dessins dans une seule session AutoCAD avec AutoCAD 2000 sorti en 1999 ;)

[zebulon_]

Malgré tout, je continue à utiliser les 2 lisps ww et ii parce que je m'en sers depuis la version 12 (on est réactionnaire par nature...) et parce qu'ils partent du scg et aboutissent dans le scg. Quand on veut superposer des implantations lambert (par exemple), c'est quand même mieux. Les copier/coller, il faut faire attention d'où on part et où on va, si on manipule des scu autres que le scu général.

 

Amicalement

Vincent

[Steven]

Je suis d'accord avec toi sur le fait qu'il faut faire attention avec les copier/coller. Je dis toujours qu'ils faut les utiliser avec précaution car si on fait un coller en tant que bloc, c'est le début des emmerdes avec des blocs anonymes.

Je dis ça, mais ça ne tient qu'à moi.

[globehugo]

@Bonuscad, c'est validé la modification fonctionne très bien.

 

@Zebulon_, Gros avantage du lisp c'est la possibilité d'avoir plusieurs copiers en réserve (stye 1 en espace objet et un en espace papier ).

[philsogood]

superbe lisp

merci à toi hugo!!!

Phil

[La Lozère]

Salut,

Perso j'utilis,e via 2 boutons, ces 2 petites macro: Topic en question

 

Depuis pas mal de version j'ai plus de problème de blocs anonymes. Certe le bloc ainsi inséré à un nom à la c.., mais il n'est pas anonymes.

 

A plus.