Bloc avec point de connexion autocoupant

[Netik]

Bonjour,

comme électricien, ce qui me botterait pas mal ce serait d'avoir des blocs comportant des points de connexion coupant automatiquement la ligne passant par deux points contigus verticaux ou horizontaux.

Je m'explique : prenons le cas d'une bobine de relais , on la représente par un rectangle avec un petit bout de ligne en haut et en bas. Lorsque ce relais est placé sur une ligne verticale, il faudrait que la ligne soit automatiquement interrompue par la présence du relais.

Cette fonction a existé avec un additif "wipeout" mais cela ne fonctionnait que pour masquer un fond de dessin pour que le texte soit lisible.

Merci d'avance Monsieur Autocad.

Janos

 

pour ceux qui dessine des schémas électriques, je les invite à jeter un coup d'oeil sur mon site

http://www.netik.name

Electriquement vôtre

 

[usegomme]

Si tu precises comme sont des blocs , point d'insertion et orientation , je peux te faire qlq chose à partir d'un de mes lisp.

Par exemple pt insertion a gauche et bloc oriente a droite ( 0°) ,ce qui permet de definir facilement les deux points de coupure .

En souhaitant que ce ne soit pas le bordel de bloc.

[Patrick_35]

Salut

C'est assez simple avec la fonction vla-IntersectWith

Je vous donne un exemple

Je trace une ligne et j'implante par exemple ma bobine sur cette ligne

 

Exemple

Je sélectionne ma bobine

(setq a (car (entsel)))
(setq b (vlax-ename->vla-object a))

Je sélectionne la ligne

(setq a (car (entsel)))
(setq c (vlax-ename->vla-object a))

Je recherche les intersections

(setq d (vlax-safearray->list (vlax-variant-value (vla-IntersectWith b c 0))))

Je coupe me ligne

(command "_.break" (vlax-vla-object->ename c) (list (nth 0 d) (nth 1 d) (nth 2 d)) (list (nth 6 d) (nth 7 d) (nth 8 d)))

 

Voila le principe

Pour aller plus loin, se serait bien de passer par les réacteurs pour couper la ligne lorsque l'on exécute les commande suivantes : insérer, copier, rotation, déplacer commande et déplacer grips, étirer commande et étirer grips.

Je pense ne rien oublier. Je ferais bien ce lisp, mais en ce moment je n'ai pas le temps

 

@+

 

[Tramber]

(vl-cmdf "_break" (vlax-vla-object->ename ldte) psauv3 psauv3)
  (if(/=(vlax-get-property (vlax-ename->vla-object(entlast)) 'handle)(vlax-get-property ldte 'handle))(progn(ab-erase ldte)(setq ldte(vlax-ename->vla-object(entlast)))))

 

ab-erase est une fonction perso d'effacement.

 

Je propose ce complément qui permet de trouver lequel des 2 objets résultant est celui que l'on veut conserver. Si ca peut servir à quiconque.

 

Mais nous ne sommes que dans un forum de souhait, pas de prog.

[Bilbeau]

Y'aurait aussi moyen de s'arranger avec les multi-lignes, mais bon c'est bâtard.