home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 24 / CD_ASCQ_24_0995.iso / dos / fr / side_cad / util / acad.mnl next >
Text File  |  1995-01-19  |  6KB  |  215 lines
  1. ;;;   ACAD.MNL
  2. ;;;   Copyright (C) 1992 by Autodesk, Inc.
  3. ;;;
  4. ;;;  La permission d'utiliser, de copier, de modifier,
  5. ;;;  de distribuer gratuitement ce logiciel ou tout autre usage est autoris
  6. ;;;  pourvus que le Copyright apparaisse sur chaque copies et notices.
  7. ;;;  Ce logiciel est fourni "tel quel" sans garantie tacite.
  8.  
  9. ;;;
  10. ;;;   THIS SOFTWARE IS PROVIDED "AS IS" WITHOUT EXPRESS OR IMPLIED
  11. ;;;   WARRANTY.  ALL IMPLIED WARRANTIES OF FITNESS FOR ANY PARTICULAR
  12. ;;;   PURPOSE AND OF MERCHANTABILITY ARE HEREBY DISCLAIMED.
  13. ;;;
  14. ;;;   Routines AutoLISP utilisees par le Menu Standart AutoCAD 12
  15.  
  16. (princ "\nAutoCAD Version 12, Utilitaire de menus...")
  17.  
  18. ;;;=== Icon Menu Functions ===
  19.  
  20. ;;;  View -> Layout -> Tiled Viewports...
  21.  
  22. (defun ai_tiledvp_chk ()
  23.   (setq m:err *error* *error* *merrmsg*)
  24.   (if (= (getvar "TILEMODE") 0)
  25.     (progn
  26.       (princ "\n** Commande non autorisée à moins que  TILEMODE soit à 1 (Actif) **")
  27.       (princ)
  28.     )
  29.     (progn
  30.       (menucmd "I=VPORTI")
  31.       (menucmd "I=*")
  32.     )
  33.   )
  34.   (setq *error* m:err m:err nil)
  35.   (princ)
  36. )
  37.  
  38. (defun ai_tiledvp (num ori / ai_tiles_g ai_tiles_cmde)
  39.   (setq m:err *error* *error* *merrmsg*
  40.         ai_tiles_cmde (getvar "CMDECHO")
  41.         ai_tiles_g (getvar "GRIDMODE")
  42.   )
  43.   (setvar "CMDECHO" 0)
  44.   (setvar "GRIDMODE" 0)
  45.   (cond ((= num 1)
  46.          (command "_.VPORTS" "_SI")
  47.          (setvar "GRIDMODE" ai_tiles_g)
  48.         )
  49.         ((< num 4)
  50.          (command "_.VPORTS" "_SI")
  51.          (command "_.VPORTS" num ori)
  52.          (setvar "GRIDMODE" ai_tiles_g)
  53.         )
  54.         ((= ori nil)
  55.          (command "_.VPORTS" "_SI")
  56.          (command "_.VPORTS" num)
  57.          (setvar "GRIDMODE" ai_tiles_g)
  58.         )
  59.         ((= ori "L")
  60.          (command "_.UNDO" "_M")
  61.          (command "_.VPORTS" "_SI")
  62.          (command "_.VPORTS" "2" "")
  63.          (setvar "CVPORT" (car (cadr (vports))))
  64.          (command "_.VPORTS" "2" "")
  65.          (command "_.VPORTS" "_J" "" (car (cadr (vports))))
  66.          (setvar "CVPORT" (car (cadr (vports))))
  67.          (command "_.VPORTS" "3" "_H")
  68.          (setvar "GRIDMODE" ai_tiles_g)
  69.          (setvar "CVPORT" (car (cadddr (vports))))
  70.          (setvar "GRIDMODE" ai_tiles_g)
  71.          (setvar "CVPORT" (car (cadddr (vports))))
  72.          (setvar "GRIDMODE" ai_tiles_g)
  73.          (setvar "CVPORT" (car (cadddr (vports))))
  74.          (setvar "GRIDMODE" ai_tiles_g)
  75.          (command "_.UNDO" "_E")
  76.         )
  77.         (T
  78.          (command "_.UNDO" "_M")
  79.          (command "_.VPORTS" "_SI")
  80.          (command "_.VPORTS" "2" "")
  81.          (command "_.VPORTS" "2" "")
  82.          (setvar "CVPORT" (car (caddr (vports))))
  83.          (command "_.VPORTS" "_J" "" (car (caddr (vports))))
  84.          (setvar "CVPORT" (car (cadr (vports))))
  85.          (command "_.VPORTS" "3" "_H")
  86.          (setvar "GRIDMODE" ai_tiles_g)
  87.          (setvar "CVPORT" (car (cadddr (vports))))
  88.          (setvar "GRIDMODE" ai_tiles_g)
  89.          (setvar "CVPORT" (car (cadddr (vports))))
  90.          (setvar "GRIDMODE" ai_tiles_g)
  91.          (setvar "CVPORT" (car (cadddr (vports))))
  92.          (setvar "GRIDMODE" ai_tiles_g)
  93.          (command "_.UNDO" "_E")
  94.         )
  95.   )
  96.   (setq *error* m:err m:err nil)
  97.   (setvar "CMDECHO" ai_tiles_cmde)
  98.   (princ)
  99. )
  100.  
  101. ;;;=== General Utility Functions ===
  102.  
  103. (defun *merr* (msg)
  104.   (setq *error* m:err m:err nil)
  105.   (princ)
  106. )
  107.  
  108. (defun *merrmsg* (msg)
  109.   (princ msg)
  110.   (setq *error* m:err m:err nil)
  111.   (princ)
  112. )
  113.  
  114. (defun c:rectang ( / cmde pt1 pt2)
  115.   (setq m:err *error* *error* *merr*
  116.         cmde (getvar "CMDECHO")
  117.   )
  118.   (setvar "CMDECHO" 0)
  119.   (setq pt1 (getpoint "\nPremier coin du rectangle : ")
  120.         pt2 (getcorner pt1 "\nDeuxième coin : ")
  121.   )
  122.   (command "_.PLINE" pt1 (list (car pt1) (cadr pt2))
  123.                    pt2 (list (car pt2) (cadr pt1))
  124.            "_C"
  125.   )
  126.   (setvar "CMDECHO" cmde)
  127.   (setq *error* m:err m:err nil)
  128.   (princ)
  129. )
  130.  
  131. (defun c:ai_peditm (/ m:p0 m:p1)
  132.   (setq m:err *error* *error* *merr*)
  133.   (defun m:p0 (/ m:s1 m:e1 m:e2 m:e3)
  134.     (menucmd"S=X")
  135.     (menucmd"S=PSEL")
  136.     (while (not m:s1)
  137.       (if (setq m:s1 (ssget))
  138.         (progn
  139.           (setq m:e1 (ssname m:s1 0)
  140.                 m:e2 (entget m:e1)
  141.                 m:e3 (cdr (assoc 0 m:e2))
  142.           )
  143.           (if (= m:e3 "POLYLINE")
  144.             (m:p1)
  145.             (if (member m:e3 '("LINE" "ARC"))
  146.               (progn
  147.                 (command "_.PEDIT" m:e1 pause)
  148.                 (menucmd "S=X")
  149.                 (menucmd "S=P0")
  150.               )
  151.               (progn
  152.                 (terpri)
  153.                 (princ "L'entité sélectionnée n'est pas une Polyligne.")
  154.                 (terpri)
  155.                 (setq m:s1 nil)
  156.               )
  157.             )
  158.           )
  159.         )
  160.       )
  161.     )
  162.   )
  163.   (defun m:p1 (/ m:a)
  164.     (menucmd"S=X")
  165.     (if (= (setq m:a (cdr (assoc 70 m:e2))) nil)
  166.       (menucmd"S=P0")
  167.       (progn
  168.         (setq m:a (/ m:a 2))
  169.         (if (>= m:a 8)
  170.           (menucmd"S=P16")
  171.           (if (< m:a 4)
  172.             (menucmd"S=P0")
  173.             (menucmd"S=P8")
  174.           )
  175.         )
  176.       )
  177.     )
  178.     (command "_.PEDIT" m:e1)
  179.   )
  180.   (m:p0)
  181.   (setq *error* m:err m:err nil)
  182.   (princ)
  183. )
  184.  
  185. ;;;=== Menu Functions ===
  186.  
  187. (defun ai_rootmenus ()
  188.   (setq T_MENU 0)
  189.   (menucmd "S=X")
  190.   (menucmd "S=S")
  191.   (menucmd "T2=TABLET2")
  192.   (menucmd "T3=TABLET3")
  193.   (menucmd "T4=TABLET4")
  194.   (princ)
  195. )
  196.  
  197. (if (not (load "acadr12.lsp" nil))
  198.   (progn
  199.     (princ "ERREUR de chargement.")
  200.     (princ "\nFichier ACADR12.lsp non trouvé.  AutoLoader n'est pas chargé.  ")
  201.     (princ "Autre utilitaire.")
  202.   )
  203.   (progn
  204.     (ai_loadaverendr)
  205.     (ai_aloadame)
  206.     (ai_asegrey "~")
  207.   )
  208. )
  209. (setvar "MENUCTL" 1)
  210. (if (not (load"side_cad.lsp" nil))(alert "Ne trouve pas le fichier SiDE_CAD.LSP")(c:side_cad))
  211. (princ " chargé.")
  212. (princ)
  213.  
  214.  
  215.