home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p024 / 4.img / SUPPORT1.LIB / ACAD.MNL < prev    next >
Encoding:
Text File  |  1992-09-08  |  8.5 KB  |  337 lines
  1. ;;;   ACAD.MNL
  2. ;;;   ¬⌐┼v⌐╥ª│ (C) 1992  Autodesk ñ╜Ñq.
  3. ;;;
  4. ;;;   Ñ╗│n┼ΘºK╢O¿╤▒z╢iªµÑ⌠ª≤Ñ╬│~╗▌¿D¬║½■¿⌐íB¡╫º∩ñ╬╡oªµ, ª²¼O░╚╜╨┐φ┤`ñU¡z
  5. ;;;   ¡∞½h :
  6. ;;;
  7. ;;;   1)  ñWªC¬║¬⌐┼v│qºi░╚╗▌ÑX▓{ªb¿Cñ@Ñ≈½■¿⌐∙╪íC
  8. ;;;   2)  ¼█├÷¬║╗í⌐·ñσÑ≤ñ]Ñ▓╢╖⌐·╕ⁿ¬⌐┼v│qºiñ╬Ñ╗╢╡│\Ñi│qºiíC
  9. ;;;
  10. ;;;   Ñ╗│n┼Θ╢╚┤ú¿╤º@¼░└│Ñ╬ñW¬║░╤ª╥, ª╙Ñ╝┴n⌐·⌐╬┴⌠ºtÑ⌠ª≤½O├╥; ╣∩⌐≤Ñ⌠ª≤»S«φ
  11. ;;;   Ñ╬│~ñº╛A║┘⌐╩, ÑHñ╬░╙╖~╛P░Γ⌐╥┴⌠ºtÑX¿π¬║½O├╥, ªbª╣ñ@╖ºñ⌐ÑHº_╗{íC
  12. ;;;
  13. ;;;
  14. ;;;   ░tªX AutoCAD Release 12 ╝╨╖╟Ñ\»α¬φ¿╧Ñ╬ñº AutoLISP ▒`ªííC
  15.  
  16. (princ "\nAutoCAD Release 12 Ñ\»α¬φñ╜Ñ╬╡{ªí  ")
  17.  
  18.  
  19. ;;;=== ╣╧╣│Ñ\»α¬φ¿τªí ===
  20.  
  21. ;;;  ╡°┤║ -> ╣╧¡▒ºG│] -> ┐j¼M╡°╡í...
  22.  
  23. (defun ai_tiledvp_chk ()
  24.   (setq m:err *error* *error* *merrmsg*)
  25.   (if (= (getvar "TILEMODE") 0)
  26.     (progn
  27.       (princ "\n** ░ú½Díu┐j¼M╝╥ªí (TILEMODE)ív│]¼░ 1 (ON), º_½hª╣½ⁿÑO╡L¬k░⌡ªµ **")
  28.       (princ)
  29.     )
  30.     (progn
  31.       (menucmd "I=VPORTI")
  32.       (menucmd "I=*")
  33.     )
  34.   )
  35.   (setq *error* m:err m:err nil)
  36.   (princ)
  37. )
  38.  
  39. (defun ai_tiledvp (num ori / ai_tiles_g ai_tiles_cmde)
  40.   (setq m:err *error* *error* *merrmsg*
  41.         ai_tiles_cmde (getvar "CMDECHO")
  42.         ai_tiles_g (getvar "GRIDMODE")
  43.   )
  44.   (setvar "CMDECHO" 0)
  45.   (setvar "GRIDMODE" 0)
  46.   (cond ((= num 1)
  47.          (command "_.VPORTS" "_SI")
  48.          (setvar "GRIDMODE" ai_tiles_g)
  49.         )
  50.         ((< num 4)
  51.          (command "_.VPORTS" "_SI")
  52.          (command "_.VPORTS" num ori)
  53.          (setvar "GRIDMODE" ai_tiles_g)
  54.         )
  55.         ((= ori nil)
  56.          (command "_.VPORTS" "_SI")
  57.          (command "_.VPORTS" num)
  58.          (setvar "GRIDMODE" ai_tiles_g)
  59.         )
  60.         ((= ori "L")
  61.          (command "_.UNDO" "_M")
  62.          (command "_.VPORTS" "_SI")
  63.          (command "_.VPORTS" "2" "")
  64.          (setvar "CVPORT" (car (cadr (vports))))
  65.          (command "_.VPORTS" "2" "")
  66.          (command "_.VPORTS" "_J" "" (car (cadr (vports))))
  67.          (setvar "CVPORT" (car (cadr (vports))))
  68.          (command "_.VPORTS" "3" "_H")
  69.          (setvar "GRIDMODE" ai_tiles_g)
  70.          (setvar "CVPORT" (car (cadddr (vports))))
  71.          (setvar "GRIDMODE" ai_tiles_g)
  72.          (setvar "CVPORT" (car (cadddr (vports))))
  73.          (setvar "GRIDMODE" ai_tiles_g)
  74.          (setvar "CVPORT" (car (cadddr (vports))))
  75.          (setvar "GRIDMODE" ai_tiles_g)
  76.          (command "_.UNDO" "_E")
  77.         )
  78.         (T
  79.          (command "_.UNDO" "_M")
  80.          (command "_.VPORTS" "_SI")
  81.          (command "_.VPORTS" "2" "")
  82.          (command "_.VPORTS" "2" "")
  83.          (setvar "CVPORT" (car (caddr (vports))))
  84.          (command "_.VPORTS" "_J" "" (car (caddr (vports))))
  85.          (setvar "CVPORT" (car (cadr (vports))))
  86.          (command "_.VPORTS" "3" "_H")
  87.          (setvar "GRIDMODE" ai_tiles_g)
  88.          (setvar "CVPORT" (car (cadddr (vports))))
  89.          (setvar "GRIDMODE" ai_tiles_g)
  90.          (setvar "CVPORT" (car (cadddr (vports))))
  91.          (setvar "GRIDMODE" ai_tiles_g)
  92.          (setvar "CVPORT" (car (cadddr (vports))))
  93.          (setvar "GRIDMODE" ai_tiles_g)
  94.          (command "_.UNDO" "_E")
  95.         )
  96.   )
  97.   (setq *error* m:err m:err nil)
  98.   (setvar "CMDECHO" ai_tiles_cmde)
  99.   (princ)
  100. )
  101.  
  102. ;;;=== ╝╞ª∞¬O╛▄┤½¿τªí ===
  103.  
  104. (defun ai_tab1 ()
  105.   (if (null T_MENU)
  106.     (setq T_MENU 0)
  107.   )
  108.   (if (= (logand 1 T_MENU) 1)
  109.     (progn (setq T_MENU (- T_MENU 1))
  110.       (if (< (getvar "EXPERT") 4)
  111.         (princ "\n╛▄┤½Ñ╬¬║íu▓─ñ@░╧╝╞ª∞¬OÑ\»αívñw─└⌐±íC")
  112.       )
  113.       (menucmd "T1=TABLET1")
  114.       (if (< (getvar "EXPERT") 1)
  115.         (princ "\nÑ╤ AutoCAD AME ╗P AutoShade ¬║íu╝╞ª∞¬OÑ\»α¬φívñW┐∩¿·íC\n")
  116.       )
  117.     )
  118.     (progn
  119.       (setq T_MENU (+ T_MENU 1))
  120.       (if (< (getvar "EXPERT") 4)
  121.         (princ "\níu▓─ñ@░╧╝╞ª∞¬OÑ\»αívñw╛▄┤½íC ")
  122.       )
  123.       (menucmd "T1=TABLET1ALT")
  124.       (if (< (getvar "EXPERT") 1)
  125.         (princ "\nª╣░╧½Y¿╤▒z│W╣║ª█ñv¬║└│Ñ╬╡{ªí╗PÑ\»α╢╡ñºÑ╬íC\n")
  126.       )
  127.     )
  128.   )
  129.   (menucmd (strcat "s=HEADER" (itoa T_MENU)))
  130.   (princ)
  131. )
  132.  
  133. (defun ai_tab2 ()
  134.   (if (null T_MENU) (setq T_MENU 0))
  135.   (if (= (logand 2 T_MENU) 2)
  136.     (progn
  137.       (setq T_MENU (- T_MENU 2))
  138.       (if (< (getvar "EXPERT") 4)
  139.         (princ "\n╛▄┤½Ñ╬¬║íu▓─ñG░╧╝╞ª∞¬OÑ\»αívñw─└⌐±íC ")
  140.       )
  141.       (menucmd "T2=TABLET2")
  142.       (if old_wv (setvar "WORLDVIEW" old_wv))
  143.       (if (< (getvar "EXPERT") 1)
  144.         (princ "\n½ⁿÑOÑHíu│z│qívñΦªí░⌡ªµ; VPOINT╗P DVIEW▒─íuÑ@¼╔«y╝╨ív╞[┬IíC\n")
  145.       )
  146.     )
  147.     (progn
  148.       (setq T_MENU (+ T_MENU 2))
  149.       (setq old_wv (getvar "WORLDVIEW"))
  150.       (setvar "WORLDVIEW" 0)
  151.       (if (< (getvar "EXPERT") 4)
  152.         (princ "\n▓─ñG░╧╝╞ª∞¬OÑ\»αñw╛▄┤½íC ")
  153.       )
  154.       (menucmd "T2=TABLET2ALT")
  155.       (if (< (getvar "EXPERT") 1)
  156.         (princ "\nZoomñ╬¿ΣѪ½ⁿÑOѲ╕gíuCtrl-Cív┤í┬_ªA░⌡ªµ; VPOINT╗P DVIEW½ⁿÑO▒─Ñ╪½e UCS╞[┬IíC\n")
  157.       )
  158.     )
  159.   )
  160.   (menucmd (strcat "s=HEADER" (itoa T_MENU)))
  161.   (princ)
  162. )
  163.  
  164. (defun ai_tab3 ()
  165.   (if (null T_MENU)
  166.     (setq T_MENU 0)
  167.   )
  168.   (if (= (logand 4 T_MENU) 4)
  169.     (progn
  170.       (setq T_MENU (- T_MENU 4))
  171.       (if (< (getvar "EXPERT") 4)
  172.         (princ "\n╛▄┤½Ñ╬¬║íu▓─ñT░╧╝╞ª∞¬OÑ\»αívñw─└⌐±íC ")
  173.       )
  174.       (menucmd "T3=TABLET3")
  175.       (if (< (getvar "EXPERT") 1)
  176.         (princ "\n╜╨Ñ╤íu╝╞¡╚Ñ\»α¬φívñW┐∩¿·íu¼ⁿ¿ε│µª∞ívíC\n")
  177.       )
  178.     )
  179.     (progn
  180.       (setq T_MENU (+ T_MENU 4))
  181.       (if (< (getvar "EXPERT") 4)
  182.         (princ "\níu▓─ñT░╧╝╞ª∞¬OÑ\»αívñw╛▄┤½íC ")
  183.       )
  184.       (menucmd "T3=TABLET3ALT")
  185.       (if (< (getvar "EXPERT") 1)
  186.         (princ "\n╜╨Ñ╤íu╝╞¡╚Ñ\»α¬φívñW┐∩¿·íuñ╜¿ε│µª∞ívíC\n")
  187.       )
  188.     )
  189.   )
  190.   (menucmd (strcat "s=HEADER" (itoa T_MENU)))
  191.   (princ)
  192. )
  193.  
  194. (defun ai_tab4 ()
  195.   (if (null T_MENU)
  196.     (setq T_MENU 0)
  197.   )
  198.   (if (= (logand 8 T_MENU) 8)
  199.     (progn
  200.       (setq T_MENU (- T_MENU 8))
  201.       (if (< (getvar "EXPERT") 4)
  202.         (princ "\n╛▄┤½Ñ╬¬║íu▓─Ñ|░╧╝╞ª∞¬OÑ\»αívñw─└⌐±íC ")
  203.       )
  204.       (menucmd "T4=TABLET4")
  205.       (if (< (getvar "EXPERT") 1)
  206.         (princ "\nÑHíu╢VÑNív╝╥ªí░⌡ªµíu¬½┼Θ┬Ω┬Iív; ½ⁿÑOñú¡½╜╞íC\n")
  207.       )
  208.     )
  209.     (progn
  210.       (setq T_MENU (+ T_MENU 8))
  211.       (if (< (getvar "EXPERT") 4)
  212.         (princ "\níu▓─Ñ|░╧╝╞ª∞¬OÑ\ív»αñw╛▄┤½íC ")
  213.       )
  214.       (menucmd "T4=TABLET4ALT")
  215.       (if (< (getvar "EXPERT") 1)
  216.         (princ "\nÑHíu╣B┬αív╝╥ªí░⌡ªµíu¬½┼Θ┬Ω┬Iív; ½ⁿÑO¡½╜╞íC\n")
  217.       )
  218.     )
  219.   )
  220.   (menucmd (strcat "s=HEADER" (itoa T_MENU)))
  221.   (princ)
  222. )
  223.  
  224. ;;;=== ñ@»δñ╜Ñ╬¿τªí ===
  225.  
  226. (defun *merr* (msg)
  227.   (setq *error* m:err m:err nil)
  228.   (princ)
  229. )
  230.  
  231. (defun *merrmsg* (msg)
  232.   (princ msg)
  233.   (setq *error* m:err m:err nil)
  234.   (princ)
  235. )
  236.  
  237. (defun c:rectang ( / cmde pt1 pt2)
  238.   (setq m:err *error* *error* *merr*
  239.         cmde (getvar "CMDECHO")
  240.   )
  241.   (setvar "CMDECHO" 0)
  242.   (setq pt1 (getpoint "\n▓─ñ@¿ñ┬I: ")
  243.         pt2 (getcorner pt1 "\n╣∩¿ñ┬I: ")
  244.   )
  245.   (command "_.PLINE" pt1 (list (car pt1) (cadr pt2))
  246.                    pt2 (list (car pt2) (cadr pt1))
  247.            "_C"
  248.   )
  249.   (setvar "CMDECHO" cmde)
  250.   (setq *error* m:err m:err nil)
  251.   (princ)
  252. )
  253.  
  254. (defun c:ai_peditm (/ m:p0 m:p1)
  255.   (setq m:err *error* *error* *merr*)
  256.   (defun m:p0 (/ m:s1 m:e1 m:e2 m:e3)
  257.     (menucmd"S=X")
  258.     (menucmd"S=PSEL")
  259.     (while (not m:s1)
  260.       (if (setq m:s1 (ssget))
  261.         (progn
  262.           (setq m:e1 (ssname m:s1 0)
  263.                 m:e2 (entget m:e1)
  264.                 m:e3 (cdr (assoc 0 m:e2))
  265.           )
  266.           (if (= m:e3 "POLYLINE")
  267.             (m:p1)
  268.             (if (member m:e3 '("LINE" "ARC"))
  269.               (progn
  270.                 (command "_.PEDIT" m:e1 pause)
  271.                 (menucmd "S=X")
  272.                 (menucmd "S=P0")
  273.               )
  274.               (progn
  275.                 (terpri)
  276.                 (princ "┐∩⌐w¬║╣╧ñ╕ñú¼░íu╗EªX╜uívíC")
  277.                 (terpri)
  278.                 (setq m:s1 nil)
  279.               )
  280.             )
  281.           )
  282.         )
  283.       )
  284.     )
  285.   )
  286.   (defun m:p1 (/ m:a)
  287.     (menucmd"S=X")
  288.     (if (= (setq m:a (cdr (assoc 70 m:e2))) nil)
  289.       (menucmd"S=P0")
  290.       (progn
  291.         (setq m:a (/ m:a 2))
  292.         (if (>= m:a 8)
  293.           (menucmd"S=P16")
  294.           (if (< m:a 4)
  295.             (menucmd"S=P0")
  296.             (menucmd"S=P8")
  297.           )
  298.         )
  299.       )
  300.     )
  301.     (command "_.PEDIT" m:e1)
  302.   )
  303.   (m:p0)
  304.   (setq *error* m:err m:err nil)
  305.   (princ)
  306. )
  307.  
  308. ;;;=== Ñ\»α¬φ¿τ╝╞ ===
  309.  
  310. (defun ai_rootmenus ()
  311.   (setq T_MENU 0)
  312.   (menucmd "S=X")
  313.   (menucmd "S=S")
  314.   (menucmd "T2=TABLET2")
  315.   (menucmd "T3=TABLET3")
  316.   (menucmd "T4=TABLET4")
  317.   (princ)
  318. )
  319.  
  320. (if (not (load "acadr12.lsp" nil))
  321.   (progn
  322.     (princ "╕ⁿñJ┐∙╗~íC")
  323.     (princ "\nºΣñú¿∞íuacadr12.lspív; íuAutoLoaderív╡L¬k¿╧Ñ╬íC")
  324.     (princ "¿ΣѪñ╜Ñ╬╡{ªí ")
  325.   )
  326.   (progn
  327.     (ai_loadaverendr)
  328.     (ai_aloadame)
  329.     (ai_asegrey "~")
  330.   )
  331. )
  332.  
  333. (setvar "MENUCTL" 1)
  334.  
  335. (princ "í╨ ñw╕ⁿñJíC")
  336. (princ)
  337.