schematec

Un grand merci pour toutes ces informations

Bonjour; Je souhaiterai insérer le bloc RESA-TXT (voir ci-dessous) dans le calque RESA-TXT sans qu'il me demande le facteur d'échelle et l'angle de rotation. Merci d'avance (command "_insert" "RESA-TXT")

Merci j'ai compris le principe et ca marche très bien.

Bonjour; Je souhaite créer une fonction qui créé un segment perpendiculaire de longueur L suivant 2 points donnés. J'ai commencé la fonction ci-dessous mais je bloque au niveau des fonctions polar + angle car je ne suis pas sur de bien comprendre la syntaxe. Merci d'avance. (defun c:ANG() (setq P1(getpoint "\n point 01: ")) (setq P2(getpoint "\n point 02: ")) (setq L(getdist "\n Largeur: ")) (setq L(/ L 2)) (setq A(angle P1 P3))

Merci. Je vais chercher pour le calcul polaire comme tu a dis car c'est sur que se sera plus pratique.

Bonjour; La fonction ci-dessous réalise un rectangle avec une surface 2d en croix à l'intérieur suivant 2 points sur la même abscisse. Je souhaiterai que cette fonction puisse s'exécuter avec des abscisses différentes, soit de placer temporairement le SCU sur l'objet par exemple. Merci par avance de votre aide. (defun c:RES() ; (setq P1(getpoint "\n point 01: ")) (setq P2(getpoint "\n point 02: ")) (setq A(getdist "\n largeur: ")) ; (setq P1Y(-(cadr P1) A)) (setq P2Y(+(cadr P2) A)) ; (setq P1(list(car P1) P1Y (caddr P1))) (setq P3(list(car P2) P2Y (caddr P2))) ; (setq P2(list(car P3) (cadr P1) (caddr P1))) (setq P4(list(car P1) (cadr P3) (caddr P1))) ; (command "rectangle" P1 P3"") (command "solide" P1 P2 P3 P4"") )

Merci beaucoup ton aide a été très utile.

Bonjour; Merci pour ton aide, la syntaxe fonctionne. Malheureusement et je ne comprends pas pourquoi le rectangle tracé n'a rien à voir avec les critères de la commande. Merci d'avance: (defun c:RESA150() ; (setq P1(getpoint "\n point 01: ")) (setq P2(getpoint "\n point 02: ")) ; (setq P1Y(-(cadr P1) 0.75) (setq P2Y(+(cadr P2) 0.75) ; (setq P1Y(list(car P1)(P1Y)(cddr P1))) (setq P2Y(list(car P2)(P2Y)(cddr P2))) ; (command "rectangle" P1Y P2Y"") )

Bonjour; Je souhaiterai créer un rectangle de 0.75 de part et d'autre suivant 2 points choisis. J'ai écris le code suivant mais en raison de mes premiers pas, il comporte des erreurs. Merci de votre aide par avance: (defun c:RESA150() (setq P1 (getpoint "\n point 01: ")) (setq P2 (getpoint "\n point 02: ")) (setq P1Y (cadr P1(-0.75))) (setq P2Y (cadr P2(+0.75))) (command "rectangle" P1Y P2Y"") )

Merci beaucoup c'est super ça marche super bien. Je vais essayer de le comprendre d'avantage.

Bonjour; Est-il possible de programmer une fonction LISP pour réaliser une polyligne qui crée automatiquement et de valeur fixe des arcs dès lors que lors effectue un changement de direction. Merci d'avance