Aller au contenu

AutoCadMan77

Membres
  • Compteur de contenus

    8
  • Inscription

  • Dernière visite

Contact Methods

  • Website URL
    http://

AutoCadMan77's Achievements

Newbie

Newbie (1/14)

0

Réputation sur la communauté

  1. AutoCadMan77

    Vous le savez??

    Si vous avez d'autres besoins en clim ou plomberie..... Ne pas hésiter !!! AutoCadement votre. Et bon clic. AutoCadMan77
  2. AutoCadMan77

    Vous le savez??

    La même en beaucoup plus court. (defun c:fond (/ ang1 ang2 couche dis1 ent1 plan pt1 pt2 pt3 pt4 pt5 pt6 pt7 pt8) (setvar "osmode" 512) (initget 1) (setq pt1 (getpoint "\nCLIQUEZ SUR LE 1ER COTE DE LA TUYAUTERIE...")) (setvar "osmode" 128) (terpri) (initget 33) (setq pt2 (getpoint pt1 "\nCLIQUEZ SUR LE 2EME COTE DE LA TUYAUTERIE...") plan (ssget pt2) couche (cdr (assoc 8 (entget (ssname plan 0))))) (setvar "osmode" 0) (setq ang1 (angle pt1 pt2) dis1 (distance pt1 pt2) pt3 (polar pt1 ang1 (/ dis1 2))) (setvar "osmode" 512) (terpri) (initget 33) (setq pt4 (getpoint pt3 "\nINDIQUEZ LA DIRECTION DE LA TUYAUTERIE A AJUSTER (EN CLIQUANT SUR L'AXE)...")) (setvar "osmode" 0) (setq ang2 (angle pt3 pt4) pt5 (polar pt3 ang2 (/ dis1 4))) (command "_layer" "_s" couche "" "_line" pt1 pt2 "" "_arc" pt1 pt5 pt2) (setq ent1 (entlast) pt6 (polar pt1 ang2 (/ dis1 3)) pt7 (polar pt2 ang2 (/ dis1 3)) pt8 (polar pt3 ang2 (/ dis1 3))) (command "_line" pt6 pt7 "") (setq ent2 (entlast)) (command "_extend" ent2 "" pt1 pt2 pt3 "" "_erase" ent2 "") (command "_trim" ent1 "" pt6 pt7 pt8 "") )fin du defun fond (c:fond) AutoCadement votre. Et bon clic. AutoCadMan77
  3. AutoCadMan77

    Vous le savez??

    Voici une petite routine qui sort tout droit de la version 1 de AutoFluid avant que cela existe. (defun c:fondt (/ pt1 pt2 pt3 pt4 pt5 pt6 pt7 pt8 pt9 pt10 sel dir dia ang s plcour selarc1 selarc2 cenarc1 cenarc2 pt88 pt99) (command "scu" "g") (setvar "osmode" 512) (setq pt1 (getpoint "\n 1er point...")) (setvar "osmode" 128) (setq pt2 (getpoint pt1 "\n 2em point...")) (setq dia (distance pt1 pt2)) (setq ang (angle pt1 pt2)) (setq pt3 (polar pt1 ang (/ dia 2))) (setvar "osmode" 512) (setq pt4 (getpoint pt3 "\ndirection...")) (setvar "osmode" 0) (setq s (ssget pt1) plcour (cdr (assoc 8 (entget (ssname s 0))))) ;****************definition des points************************* (setq dir (angle pt3 pt4)) (setq pt5 (polar pt3 (+ dir pi) dia)) (setq pt10 (polar pt5 dir dia)) (setq pt6 (polar pt5 (+ dir (/ pi 2)) (/ dia 2))) (setq pt7 (polar pt5 (+ dir (* pi 1.5)) (/ dia 2))) (setq pt9 (polar pt7 dir (* dia 0.866026))) (setq pt8 (polar pt6 dir (* dia 0.866026))) ;****************commandes de dessin*************************** (command "_LAYER" "ch" plcour "") (command "_LINE" pt6 pt7 "") (setq sel (entlast)) (command "_TRIM" sel "" pt4 "") (command "_ERASE" sel "") (command "_ARC" pt8 pt10 pt9) (setq sel (entlast)) (command "_FILLET" "r" (/ dia 10)) (command "_FILLET" pt10 pt6) (setq selarc1 (entlast)) (command "_FILLET" pt10 pt7) (setq selarc2 (entlast)) (command "_EXTEND" sel "" pt5 "") (setq cenarc1 (cdr (assoc 10 (entget selarc1)))) (setq cenarc2 (cdr (assoc 10 (entget selarc2)))) (setq pt99 (inters cenarc1 cenarc2 pt7 pt9 nil)) (setq pt88 (inters cenarc1 cenarc2 pt6 pt8 nil)) (command "_LINE" pt88 pt99 "") (command "scu" "p") );fin du defun (c:fondt) AutoCadement votre. Et bon clic. AutoCadMan77
  4. AutoCadMan77

    menu

    D'après ce que j'ai pu lire sur CADxp les mnu et mns sont encore d'actualité. Recherche des explications sur MNU et CUI. AutoCadement votre. Et bon clic. AutoCadMan77
  5. En effet, il y a un utitlitaire dans "Express" avec V2006 c'est certain. Je fais le trie sur un poste perso et je n'ai pas d'AutoCad dessus. AutoCadement votre. Et bon clic. AutoCadMan77
  6. Bonjour, Les portes normalisées hors handicapé sont avec un passage de 83cm. Pour certaine on aura 73cm ce qui permet un accès au dressing ou autre endroit qui ne sont pas vraiment des pièces qui nécessite un passage de gros meuble (certain WC en sont pourvu). De là, on rajoute les 2 épaisseur de bâtis de la porte et on trouve la largeur du couloir, cette valeur est généralement de 2x3.5cm. Ce qui nous amène au fameux 90cm. 90cm est donc la valeur s'il on ne veut pas de retour de chaque coté du bâti. AutoCadement votre. Bon clic. AutoCadMan77
  7. Je cherche un moyen pour retrouver un logiciel qui se nomme DSVisual. Il a pour particularité de lire les PLT et surtout de pouvoir reconvertir un fichier PLT en DWG. En plus, il récupère aussi les couches ou calques (comme vous voulez) en fonction de chaque couleur utilisée. Si vous l'avez ou possédez l'adresse du site ou un lien. Sinon, à défaut un logiciel gratuit qui le fait je suis preneur. AutoCadement votre. Et bon clic. AutoCadMan77
  8. AutoCadMan77

    ligne de commande

    Par rapport à une ligne existante ou par rapport à une ligne à créer? Si c'est une ligne existante: la convertir la ligne en polyligne puis décalage. Si c'est une ligne à créer: utiliser la commande multiligne (mligne) AutoCadement votre. Et bon clic.
×
×
  • Créer...

Information importante

Nous avons placé des cookies sur votre appareil pour aider à améliorer ce site. Vous pouvez choisir d’ajuster vos paramètres de cookie, sinon nous supposerons que vous êtes d’accord pour continuer. Politique de confidentialité