commande décaler

[Patrick05]

bonjour,

peux t'on décaler sur un autre calque.

c'est à dire que j'ai une ligne sur un calque 1 et je voudrais décaler cette ligne pour qu'elle passe sur le calque 2 directement.

merci.

Patrick

[Oli553]

:casstet: :casstet: Tu là selectionne, tu selectionne le calque 2 dans la liste déroulante et ta ligne y passe toute seul. :casstet: :casstet: :casstet:

[Patrick05]

merci de ta réponse Oli553.

mais que l'on sélectionne la ligne avant ou après c'est quand mème une commande supplémentaire.

par exemple tu as un plan de fondation tu décales les lignes du mur et ces lignes passe directement sur un calque semelle que j'aurai préalablement défini.

ce n'est sans doute pas possible...

A+

Patrick

[Patrick_35]

Si, via une macro dans un bouton que tu définis au préalable

 

@+

[Eric]

La commande [surligneur] exoffset [/surligneur] du menu express permet un peu ce genre d'aaction en utilisant l'option layer.

 

A plus

 

Eric

 

[Steven]

La commande copytolayer des Express Tools fait ça.

 

@+

Steven

[Oli553]

:casstet: A pas tout compris ce qu'il veut le monsieur :casstet:

[Steven]

:casstet: A pas tout compris ce qu'il veut le monsieur :casstet:

 

Il souhaite copier un objet et faire en sorte que la copie aille directement dans un calque prédéfinii sans devoir passer par les propriétés ;)

 

@+

Steven

[bonuscad]

Peut être un truc dans ce style!

N'est-il pas obsoléte pour 2005?

 

(defun c:decalpl ( / strmess js val ent pt entfin nam_lay)
(setvar "cmdecho" 0)
(command "_.undo" "_group")
(setq strmess
	(strcat
		"\nSpécifiez la distance de décalage ou [Par] <"
		(rtos (abs (getvar "OFFSETDIST")))
		">: "
	)
)
(initget 128 "Par _Through")
(setq js (ssadd) val (getpoint strmess))
(if (not val)
	(setq val (rtos (abs (getvar "OFFSETDIST"))))
)
(if (and (or (= 'LIST (type val)) (= 'STR (type val))) (/= "Through" val))
	(if (= 'LIST (type val))
		(progn
			(initget 71)
      			(setq val (rtos (getdist val "\n2ème Point")))
		)
	)
)
(while (setq ent (entsel "\nChoix de l'objet à décaler: "))
	(cond
		((= (boole 1 (cdr (assoc 70 (tblsearch "LAYER" (cdr (assoc 8 (entget (car ent))))))) 4) 4)
			(prompt "\nL'entité est sur un plan verrouillé.")
		)
		(T
			(if (= val "Through")
				(setq pt (getpoint "\nPar le point: ") val "_through")
				(setq pt (getpoint "\nSpécifiez un point sur le côté à décaler: "))
			)
			(if (and ent pt)
				(progn
					(command "_.offset" val (cadr ent) pt "")
					(setq js (ssadd (entlast) js))
				)
			)
		)
	)
)
(cond
	((not (zerop (sslength js)))
		(setq entfin (entsel "\nDésignez une entité du calque de destination ou : "))
		(if entfin
			(progn
				(setq nam_lay (cdr (assoc 8 (entget (car entfin)))))
				(prompt nam_lay)
				(command "_.change" js "" "_properties" "_layer" nam_lay "")
			)
		)
	)
	(T
		(prompt "\Aucune entité à décaler.")
	)
)
(command "_.undo" "_end")
(setvar "cmdecho" 1)
(if (null entfin)
	(progn
		(setvar "PICKFIRST" 1)
		(sssetfirst nil js)
		(command "_.properties")	
	)
	(prin1)
)
)

[Eric]

La commande copytolayer des Express Tools fait ça

 

Oui mais il ne veut pas copier il veut décaler

 

 

[Oli553]

Il souhaite copier un objet et faire en sorte que la copie aille directement dans un calque prédéfinii sans devoir passer par les propriétés

 

Okidoki :P

[Serge]

Oli553,

 

Il suffit d'acheter la 2006, ou encore ceci:

 

Remplacer les .... par des espaces)

 

(defun c:offset2 (

.. / layer newObject newObjectGet oldObject

....)

....(setq layer (getstring "\nNom du calque de destination : "))

....(if (= "" layer) (setq layer (getvar "clayer")))

....(if (tblsearch "layer" layer)

....(progn

........(command "._offset" pause) ;; Demander le décalage

........(while (setq oldObject (entsel "\nSelectionez l'objet à décaler: "))

............(command oldObject pause) ; Demander de quel coté

............(setq newObject (entlast))

............(setq newObjectGet (entget newObject))

............(setq newObjectGet (subst (cons 8 layer) (assoc 8 newObjectGet) newObjectGet))

............(entmod newObjectGet)

............(entupd newObject)

........)

........(command "")

....)

....(progn

........(princ "\nCe calque n'existe pas.")

....))

....(princ)

)

 

 

Serge, le gars de la campagne

 

[Serge]

oops,

 

Encore ces smileys..

La première ligne se lit comme suit:

(defun c:offset2

 

et c'était destiné à Patric05.

 

Serge

(Je vais aller me traire une vache)

 

 

[Edité le 13/5/2005 par Serge]

[Patrick05]

merci à tous, j'ai qq. choix.

à tatôt.

Patrick.

[MAC]

j'utilise souvent une macro qui me permet ce genre d'opération repetitive toujours vers le meme calque .

 

^C^Cdc;\\\;changer;D;;p;CA;nom_calque_destination;;

 

je sais! c'est ridicule comparé aux lisp donné plus haut. mais bon je voulais participer.

[Tramber]

Je ne suis pas d'accord MAC.

 

C'est au contraire bien + malin de faire une programmation de bouton si ca ne concerne qu'un calque.

 

^C^C_offset;\\\;chprop;D;;CA;Calque1;;

 

:cool: avec tout le respect que je dois au contributeurs du sujet.... ;)