home *** CD-ROM | disk | FTP | other *** search
/ BUG 15 / BUGCD1998_06.ISO / aplic / felixcad / fcaddata.z / FLX_TABL.LSP < prev    next >
Lisp/Scheme  |  1996-10-01  |  23KB  |  612 lines
  1. ;;; FLX_TABL.LSP  
  2. ;;; ======================================================================
  3. ;;; (C)opyright Felix Computer Aided Technologies GmbH 1995-96
  4. ;;; Created: Dec 10, 1995 / dn
  5. ;;; Changed: Sep 30, 1996 / vp
  6. ;;; ======================================================================
  7. ;;; SYMBOL TABLES
  8. ;;; Start und end routine defined in flx_main.lsp
  9. ;;; ======================================================================
  10. ;;; LBOX_MODE : 1=Selection menu |  0=Table is displayed
  11. ;;; ======================================================================
  12.  
  13. (defun FLX_TABLES ( / POINT2S
  14.                       FIND_OSMODES
  15.                       DISP_VIEWPAR 
  16.                       TABLE_LAYER
  17.                       TABLE_LTYPE
  18.                       TABLE_STYLE
  19.                       HPARAMETER
  20.                       TABLE_DIMSTYLE 
  21.                       TABLE_BLOCK
  22.                       DISP_REFBLOCK
  23.                       TABLE_UCS
  24.                       TABLE_VPORT
  25.                       TABLE_VIEW
  26.                       TABLE_LIST
  27.                       DISP_TABLE
  28.                       FIRST_LIST
  29.                       DlgInit
  30.                       TAB SEPARATOR prt_list s1 lst1 lst
  31.                       LBOX_MODE)
  32.  
  33.  ;;; ----------------------------------------------------------------------
  34.  (defun POINT2S (p_list / p_list retval)
  35.    (setq retval (strcat
  36.       (rtos (nth 0 p_list))
  37.       "," (rtos (nth 1 p_list))
  38.       (if (nth 2 p_list)
  39.          (strcat "," (rtos (nth 2 p_list)))
  40.          ""
  41.       )
  42.    ))
  43.  )
  44.  ;;;---------------------------------------------------------------------------
  45.  ;;; FIND_OSMODES is used in DISP_VIEWPAR
  46.  
  47.  (defun FIND_OSMODES ( / ret SnapSL SnapZL SnapML)
  48.    (setq z 0)
  49.    (setq SnapSL '())
  50.    (setq SnapZL (list 1 2 4 8 16 32 64 128 256 512 1024))
  51.    (setq SnapML (list
  52.      (nth 90 prt_list) (nth 91 prt_list) (nth 92 prt_list)
  53.      (nth 93 prt_list) (nth 94 prt_list) (nth 95 prt_list)
  54.      (nth 96 prt_list) (nth 97 prt_list) (nth 98 prt_list) 
  55.      (nth 99 prt_list) " "
  56.    ))
  57.    (foreach el SnapZL
  58.      (if (= (logand el (getvar "OSMODE")) el)
  59.        (setq SnapSL (append SnapSL (list (strcat "\t\t" (nth z SnapML)))))
  60.      )
  61.      (setq z (+ z 1))
  62.    )
  63.    (if (not SnapSL) 
  64.       (setq ret (list (nth 12 prt_list))) ;;;@\t\t--- None ---
  65.       (setq ret SnapSL)
  66.    )
  67.    (setq ret ret)
  68.  )
  69.  
  70.  ;;;---------------------------------------------------------------------------
  71.  ;;; TABLE Return Lists
  72.  ;;;---------------------------------------------------------------------------
  73.  ;;; TABLE General Settings
  74.  ;;;---------------------------------------------------------------------------
  75.  
  76.  (defun DISP_VIEWPAR ( / ret el OrthoA SnapA GridA GridF SnapM UC_Sym ON OFF z)
  77.    
  78.   (setq SnapM (FIND_OSMODES))
  79.  
  80.   (setq ON  (nth 13 prt_list)) ;;;@ON
  81.   (setq OFF (nth 14 prt_list)) ;;;@OFF
  82.   (setq OrthoA (if (= (getvar "ORTHOMODE") 1) ON OFF))
  83.   (setq SnapA  (if (= (getvar "SNAPMODE")  1) ON OFF))
  84.   (setq GridA  (if (= (getvar "GRIDMODE")  1) ON OFF))
  85.   (setq GridF  (rtos (/ (car (getvar "GRIDUNIT")) (car (getvar "SNAPUNIT")))))
  86.   (setq UC_Sym (if (= (getvar "UCSICON")   1) ON OFF))
  87.   
  88.   (setq ret '()) 
  89.   (setq ret (append ret
  90.     (list
  91.       (strcat (nth 15 prt_list) OrthoA)   ;;@ORTHO MODE:\t 
  92.       (strcat (nth 16 prt_list) SnapA )   ;;@SNAP GRID:\t  
  93.       (strcat (nth 17 prt_list) (rtos (car  (getvar "SNAPUNIT")))) ;;@\tWidth:\t    
  94.       (strcat (nth 18 prt_list) (rtos (cadr (getvar "SNAPUNIT")))) ;;@\tHeight:\t   
  95.       (strcat (nth 19 prt_list) (point2s (getvar "SNAPBASE"))) ;;@\tOrigin:\t   
  96.       (strcat (nth 20 prt_list) GridA)    ;;@REFERENCE GRID:\t 
  97.       (strcat (nth 21 prt_list) GridF)    ;;@\tFactor:    \t
  98.       (strcat (nth 22 prt_list) (point2s (getvar "LIMMIN"))) ;;@\tCorner 1:\t 
  99.       (strcat (nth 23 prt_list) (point2s (getvar "LIMMAX"))) ;;@\tCorner 2:\t 
  100.       SEPARATOR
  101.       (nth 24 prt_list) ;;@OBJECT SNAP MODES:\t
  102.     )
  103.     SNAPM
  104.     (list
  105.       SEPARATOR 
  106.       (strcat (nth 25 prt_list) (rtos (getvar "ZINSCALE" ))) ;;@ZOOMIN FACTOR:\t
  107.       (strcat (nth 26 prt_list) (rtos (getvar "ZOUTSCALE"))) ;;@ZOOMOUT FACTOR:\t
  108.       (strcat (nth 27 prt_list) (rtos (getvar "PANSCALE" ))) ;;@PAN FACTOR:\t
  109.       SEPARATOR 
  110.       (strcat (nth 28 prt_list) UC_Sym)  ;;@COORDINATE SYMBOL:\t
  111.     )
  112.   ))
  113.   (setq ret ret)
  114.  )
  115.  ;;; --------------------------------------------------------------------------
  116.  ;;; TABLE: LAYER (Return List)
  117.  ;;; --------------------------------------------------------------------------
  118.  
  119.  (defun TABLE_LAYER (l / el tstr ret layflag)
  120.    (setq ret '()) 
  121.    (foreach el l 
  122.      (setq layflag "")
  123.      (if (= (logand 1 (cdr (assoc 70 el))) 1)
  124.       (setq layflag (strcat layflag (nth 31 prt_list))) ;;@\t*freezed*
  125.       (setq layflag (strcat layflag "\t"))
  126.      )
  127.      (if (= (logand 4 (cdr (assoc 70 el))) 4)
  128.       (setq layflag (strcat layflag (nth 32 prt_list))) ;;@\t*locked* 
  129.       (setq layflag (strcat layflag "\t"))
  130.      ) 
  131.      (setq ret (append ret (list
  132.         (strcat 
  133.            (cdr (assoc 2 el))
  134.            layflag
  135.            (nth 33 prt_list)           ;;@\tCO: 
  136.            (itoa (cdr (assoc 62 el))) 
  137.            (nth 34 prt_list)           ;;@\tLT: 
  138.            (cdr (assoc 6 el))
  139.        )
  140.     )))
  141.    )
  142.    (setq ret ret)
  143.  )
  144.  ;;; --------------------------------------------------------------------------
  145.  ;;; TABLE: LINETYPES (Return List)
  146.  ;;; --------------------------------------------------------------------------
  147.  (defun TABLE_LTYPE (l / el ret )
  148.    (setq ret '( )) 
  149.    (foreach el l 
  150.      (setq ret (append ret (list (strcat 
  151.         (cdr (assoc 2 el))  
  152.         TAB
  153.         (cdr (assoc 3 el))
  154.      ))))
  155.    )
  156.    (setq ret ret) 
  157.  )
  158.  ;;; --------------------------------------------------------------------------
  159.  ;;; TABLE: FONTS / TEXT STYLES (Return List)
  160.  ;;; --------------------------------------------------------------------------
  161.  
  162.  (defun TABLE_STYLE (l / el tstr ret flag)
  163.   (setq ret '()) 
  164.   (foreach el l 
  165.     (setq flag "\t")
  166.     (if (= (logand 2 (cdr (assoc 71 el))) 2)
  167.         (setq flag (strcat flag (nth 41 prt_list))) ;;;@*backwards* \t 
  168.         (setq flag (strcat flag "\t"))
  169.     ) 
  170.     (if (= (logand 4 (cdr (assoc 71 el))) 4)
  171.         (setq flag (strcat flag (nth 42 prt_list))) ;;;@*upside-down*\t 
  172.         (setq flag (strcat flag "\t"))
  173.     )
  174.     (if (= (logand 4 (cdr (assoc 70 el))) 4) ;;; ###
  175.         (setq flag (strcat flag (nth 43 prt_list))) ;;;@*vertical*
  176.     )
  177.     (setq ret (append ret (list
  178.       (strcat
  179.          (cdr (assoc 2 el))
  180.          TAB
  181.          (cdr (assoc 3 el))
  182.          (nth 44 prt_list)             ;;;@\tH: 
  183.          (rtos (cdr (assoc 40 el))) 
  184.          (nth 45 prt_list)             ;;;@\tWF: 
  185.          (symbtos (cdr (assoc 41 el)))
  186.          (nth 46 prt_list)             ;;;@\tOA: 
  187.          (symbtos (cdr (assoc 50 el)))
  188.       )
  189.       flag 
  190.       SEPARATOR
  191.     )))
  192.   )
  193.   (setq ret ret)
  194.  )
  195.  ;;; --------------------------------------------------------------------------
  196.  ;;; TABLE: HATCH PARAMETERS (Return List)
  197.  ;;; --------------------------------------------------------------------------
  198.  
  199.  (defun HPARAMETER ( / ret)
  200.     (setq ret '()) 
  201.     (setq ret (append ret (list (strcat 
  202.         (nth 51 prt_list)   ;;;@Pattern Name:  
  203.         TAB
  204.         (if (= (getvar "HPNAME") "") 
  205.           (nth 52 prt_list)  ;;;@NOT USED
  206.           (getvar "HPNAME")
  207.         )
  208.     ))))
  209.     (setq ret (append ret (list (strcat 
  210.        (nth 53 prt_list)  ;;@Pattern File: 
  211.        TAB
  212.        (if (= (getvar "HPFILE") "")
  213.            (nth 54 prt_list)  ;;@Not specified 
  214.            (getvar "HPFILE")
  215.        )
  216.     ))))
  217.     (setq ret (append ret (list 
  218.          (strcat 
  219.            (nth 55 prt_list)  ;;@Pattern Scale: 
  220.            TAB (rtos (getvar "HPSCALE"))
  221.          )
  222.          (strcat 
  223.            (nth 56 prt_list)  ;;@Pattern Angle: 
  224.            TAB (rtos (getvar "HPANG"))
  225.          )
  226.          " "
  227.     )))
  228.     (setq ret (append ret (list 
  229.        (strcat 
  230.          (nth 57 prt_list)  ;;@Distance: 
  231.          TAB (rtos (getvar "HPSPACE"))
  232.        )
  233.        (strcat
  234.          (nth 58 prt_list)  ;;@Angle:  
  235.          TAB (rtos (getvar "HPUSRANG"))
  236.        )
  237.        (strcat 
  238.          (nth 59 prt_list)  ;;@Cross Pattern:\t
  239.          (if (= (getvar "HPDOUBLE") 0) 
  240.            (nth 60 prt_list)  ;;@No
  241.            (nth 61 prt_list)  ;;@Yes
  242.          )
  243.        )
  244.     )))
  245.     (setq ret ret) 
  246.   )
  247.   ;;; --------------------------------------------------------------------------
  248.   ;;; TABLE: Dimension Types
  249.   ;;; --------------------------------------------------------------------------
  250.   (defun TABLE_DIMSTYLE (l / el tstr ret flag)
  251.     (setq ret '()) 
  252.     (foreach el l (setq ret (append ret (list (cdr (assoc 2 el))) )))
  253.     (setq ret ret) 
  254.   )
  255.   ;;; ---------------------------------------------------------------------------
  256.   ;;; TABLE: DEFINED BLOCKS (Return List)
  257.   ;;; ---------------------------------------------------------------------------
  258.   (defun TABLE_BLOCK (l / el tstr ret flag xr)
  259.    (setq ret '()) 
  260.    (foreach el l 
  261.      (setq flag "")
  262.      (if (= (logand 4 (cdr (assoc 70 el))) 4)
  263.        (progn (setq flag (strcat flag "**\t"))(setq xr (cdr (assoc 1 el))))
  264.        (progn (setq flag (strcat flag "\t")) (setq xr "" ))
  265.      ) 
  266.      (if (= (logand 16 (cdr (assoc 70 el))) 4)
  267.        (setq flag (strcat flag (nth 65 prt_list))) ;;@*external*\t
  268.        (setq flag (strcat flag "\t"))
  269.      )    
  270.      (if (= (logand 1 (cdr (assoc 70 el))) 1)
  271.        (setq flag (strcat flag (nth 66 prt_list))) ;;@*anonymous*\t
  272.        (setq flag (strcat flag "\t"))
  273.      )
  274.      (if (= (logand 2 (cdr (assoc 70 el))) 2)
  275.        (setq flag (strcat flag (nth 67 prt_list))) ;;@*Attributes*\t
  276.        (setq flag (strcat flag "\t"))
  277.      ) 
  278.      (if (= (logand 64 (cdr (assoc 70 el))) 64)
  279.        (setq flag (strcat flag (nth 68 prt_list))) ;;@*referenced*\t
  280.        (setq flag (strcat flag "\t"))
  281.      )       
  282.      (setq ret (append ret (list 
  283.         (strcat (cdr (assoc 2 el)) xr)
  284.         flag
  285.         SEPARATOR
  286.      )))
  287.    )  
  288.    (setq ret ret) 
  289.   )
  290.   ;;;---------------------------------------------------------------------------
  291.   ;;; TABLE: REFERENCED BLOCKS
  292.   ;;;---------------------------------------------------------------------------
  293.   (defun DISP_REFBLOCK ( / as i inf ret)  
  294.     (setq ret '()) 
  295.     (if (setq as (ssget "X" '((0 . "INSERT"))))
  296.       (progn
  297.         (setq i 0)
  298.         (while (< i (sslength as))
  299.             (setq inf (entget (ssname as i)))
  300.             (setq ret (append ret (list (cdr (assoc 2 inf)))))
  301.             (setq i (+ i 1))
  302.         )
  303.       )
  304.       (setq ret (list (nth 11 prt_list))) ;;@No item in this table!"
  305.    )  
  306.    (setq ret ret)
  307.   )
  308.   ;;;---------------------------------------------------------------------------
  309.   ;;; TABLE: VIEW (Named Views)
  310.   ;;;---------------------------------------------------------------------------
  311.   (defun TABLE_VIEW (l / ret el)
  312.    (setq ret '()) 
  313.    (foreach el l (setq ret (append ret (list
  314.      (strcat (nth 70 prt_list) TAB (cdr (assoc  2 el)))
  315.      (strcat (nth 71 prt_list) TAB (rtos (cdr (assoc 40 el)))) 
  316.      (strcat (nth 72 prt_list) TAB (rtos (cdr (assoc 41 el)))) 
  317.      (strcat (nth 73 prt_list) TAB (point2s (cdr (assoc 10 el)))) 
  318.      (strcat (nth 74 prt_list) TAB (point2s (cdr (assoc 11 el)))) 
  319.      (strcat (nth 75 prt_list) TAB (point2s (cdr (assoc 12 el)))) 
  320.      ;;; 50 ?
  321.      SEPARATOR
  322.    ))))
  323.    (setq ret ret) 
  324.   )
  325.   ;;;---------------------------------------------------------------------------
  326.   ;;; TABLE: Named User Coordinate Systems
  327.   ;;;---------------------------------------------------------------------------
  328.   (defun TABLE_UCS (l / el tstr ret flag)
  329.    (setq ret '())
  330.    (foreach el l (setq ret (append ret (list
  331.      (strcat (nth 70 prt_list) TAB (cdr (assoc 2 el))) ;;@Name: 
  332.      (strcat (nth 81 prt_list) TAB (point2s (cdr (assoc 10 el)))) ;;@Origin: 
  333.      (strcat (nth 82 prt_list) TAB (point2s (cdr (assoc 11 el)))) ;;@X axis direction: 
  334.      (strcat (nth 83 prt_list) TAB (point2s (cdr (assoc 12 el)))) ;;@Y axis direction: 
  335.      SEPARATOR   
  336.    ))))
  337.    (setq ret ret)
  338.   )
  339.   ;;; --------------------------------------------------------------------------
  340.   ;;; TABLE: VPORT
  341.   ;;; --------------------------------------------------------------------------
  342.   (defun TABLE_VPORT (l / ret el) 
  343.    (setq ret '()) 
  344.    (foreach el l (setq ret (append ret (list
  345.     (strcat (nth 70 prt_list) TAB (symbtos (cdr (assoc  2 el)))) ;;@Name: 
  346.     (strcat (nth 80 prt_list) TAB (symbtos (cdr (assoc 69 el)))) ;;@ID: 
  347.     (strcat (nth 73 prt_list) TAB (point2s (cdr (assoc 12 el)))) ;;@Center point: 
  348.     (strcat (nth 74 prt_list) TAB (point2s (cdr (assoc 16 el)))) ;;@View direction: 
  349.     (strcat (nth 75 prt_list) TAB (point2s (cdr (assoc 17 el)))) ;;@Target point: 
  350.     (strcat (nth 71 prt_list) TAB (symbtos (cdr (assoc 40 el)))) ;;@Height: 
  351.     (strcat (nth 76 prt_list) TAB (symbtos (cdr (assoc 41 el)))) ;;@Aspect ratio: 
  352.     (strcat (nth 77 prt_list) TAB (symbtos (cdr (assoc 51 el)))) ;;@Twist angle: 
  353.     SEPARATOR
  354.    ))))
  355.    (setq ret ret)
  356.  )
  357.  
  358.  ;;; **************************************************************************
  359.  
  360.  ;;; --------------------------------------------------------------------------
  361.  ;;; Display selected table
  362.  ;;; --------------------------------------------------------------------------
  363.  
  364.  (defun DISP_TABLE (a /a el)
  365.     (setq lst '())
  366.     (if (setq s1 (tblnext a T))
  367.       (progn
  368.          (setq lst (cons s1 lst))
  369.          (while (setq s1 (tblnext a)) (setq lst (cons s1 lst)) )
  370.          (setq lst (reverse lst))
  371.          (cond 
  372.            ((= a "LAYER") (setq lst (TABLE_LAYER lst)))
  373.            ((= a "LTYPE") (setq lst (TABLE_LTYPE lst)))
  374.            ((= a "STYLE") (setq lst (TABLE_STYLE lst)))
  375.            ((= a "BLOCK") (setq lst (TABLE_BLOCK lst)))
  376.            ((= a "UCS")   (setq lst (TABLE_UCS lst)))
  377.            ((= a "DIMSTYLE") (setq lst (TABLE_DIMSTYLE lst)))
  378.            ((= a "VPORT") (setq lst (TABLE_VPORT lst)))
  379.            ((= a "VIEW")  (setq lst (TABLE_VIEW lst)))
  380.            (T (foreach el lst (setq lst (subst (symbtos el) el lst))))
  381.          )
  382.       ) ;;; progn
  383.       (setq lst (list (nth 11 prt_list))) ;;@No item in this table!
  384.     ) ;;; if
  385.  )
  386.  ;;; ----------------------------------------------------------------------------
  387.  ;;; Selection Menu in List Box
  388.  ;;; ----------------------------------------------------------------------------
  389.  
  390.  (defun TABLE_LIST (a / a)
  391.    (if (= LBOX_MODE 1) (progn
  392.       (Dlg_ListSetTabstops "ListBox1" "8 10 15 20 25 30 35 40 45 50 55 60 65 70")
  393.       (cond 
  394.         ((= a "0") 
  395.          (Dlg_ListSetTabstops "ListBox1" "5 15")
  396.          (setq lst (DISP_VIEWPAR))
  397.         )
  398.         ((= a "1")
  399.          (Dlg_ListSetTabstops "ListBox1" "12 20")
  400.          (setq lst (DISP_TABLE "LAYER"))
  401.         )
  402.         ((= a "2")
  403.          (Dlg_ListSetTabstops "ListBox1" "8 10 15 20 25 30 35 40 45 50 55 60 65 70")
  404.          (setq lst (DISP_TABLE "LTYPE"))
  405.         )
  406.         ((= a "3")
  407.          (setq lst (DISP_TABLE "STYLE"))
  408.         )
  409.         ((= a "4")
  410.          (setq lst (DISP_TABLE "BLOCK"))
  411.         )
  412.         ((= a "5") 
  413.          (setq lst (DISP_REFBLOCK))
  414.         )
  415.         ((= a "6")
  416.          (setq lst (DISP_TABLE "DIMSTYLE"))
  417.         )
  418.         ((= a "7")
  419.          (setq lst (HPARAMETER))
  420.          (Dlg_ListSetTabstops "ListBox1" "10")
  421.         )
  422.         ((= a "8")
  423.          (setq lst (DISP_TABLE "VIEW"))
  424.          (Dlg_ListSetTabstops "ListBox1" "10")
  425.         )
  426.         ((= a "9")
  427.          (setq lst (DISP_TABLE "UCS"))
  428.          (Dlg_ListSetTabstops "ListBox1" "10")
  429.         )
  430.         (T         
  431.          (setq lst '("- - - - -"))
  432.         )
  433.       )
  434.       (Dlg_ListStart "ListBox1")(mapcar 'Dlg_ListAdd lst)(Dlg_ListEnd) 
  435.       (Dlg_TileSet "info" (nth (atoi a) lst1))
  436.       (Dlg_TileMode "selection" 0)
  437.       (setq LBOX_MODE 0)
  438.    ))
  439.  )
  440.  ;;;---------------------------------------------------------------------------
  441.  ;;; Startup List
  442.  ;;;---------------------------------------------------------------------------
  443.  
  444.  (defun FIRST_LIST ()
  445.    (Dlg_ListSetTabstops "ListBox1" "5 10 15 20 25 30 35 40 45 50 55 60 65 70")
  446.    (Dlg_ListStart "ListBox1")(mapcar 'DLG_ListAdd lst1)(DLG_ListEnd)
  447.    (Dlg_TileSet  "info" (nth 10 prt_list)) ;;;@Choose table ...
  448.    (Dlg_TileMode "selection" 1)
  449.    (setq LBOX_MODE 1)
  450.  )
  451.  ;;;---------------------------------------------------------------------------
  452.  ;;; Dialog Initialization Function
  453.  ;;;---------------------------------------------------------------------------
  454.  
  455.  (defun DlgInit ()
  456.     (if FLX$WIN95
  457.       (progn
  458.         (foreach n 
  459.           '("IDCANCEL" "IDOK" "IDHELP" "copyclip" "info" "ListBox1" "selection") 
  460.           (Dlg_TileSetFont n 2)
  461.          )
  462.          (Dlg_ListSetTabstops "ListBox1" "20 25 30")
  463.        )
  464.        ;;; else:
  465.        (Dlg_ListSetTabstops "ListBox1" "15 18 20")
  466.     )
  467.     (Dlg_TileAction "IDOK" "(Dlg_DialogDone)")
  468.     (Dlg_TileAction "selection" "(FIRST_LIST)")
  469.     (Dlg_TileAction "copyclip"  "(COPYCLIPBOARD)")
  470.     (Dlg_TileAction "ListBox1"  "(TABLE_LIST (Dlg_TileGet $key))")
  471.     (FIRST_LIST)
  472.  )
  473.  ;;;---------------------------------------------------------------------------
  474.  ;;; MAIN
  475.  ;;;---------------------------------------------------------------------------
  476.  
  477.  (setq TAB "\t")
  478.  (setq SEPARATOR (strcat 
  479.    "----------------------------------------------------------------------------"
  480.    "----------------------------------------------------------------------------"
  481.  ))
  482.  (setq prt_list (list
  483.      ;;; Selection Menu -----------------
  484.      "Draw and Display Parameters"  ;;  0
  485.      "Layer"                        ;;  1
  486.      "Line Types"                   ;;  2
  487.      "Fonts"                        ;;  3
  488.      "Part Definitions"             ;;  4
  489.      "Referenced Parts"             ;;  5
  490.      "Dimension Types"              ;;  6
  491.      "Hatch Parameters"             ;;  7
  492.      "Named Views"                  ;;  8
  493.      "User Coordinate Systems"      ;;  9
  494.      ;;; Dialog Box Control ----------
  495.      "Choose table ..."          ;; 10
  496.      "No item in this table!"    ;; 11
  497.      ;;; General Settings ------------
  498.      "\t\t--- None ---"          ;; 12
  499.      "ON"                        ;; 13
  500.      "OFF"                       ;; 14
  501.      "ORTHO MODE:\t"             ;; 15
  502.      "SNAP GRID:\t"              ;; 16
  503.      "\tWidth: \t"               ;; 17
  504.      "\tHeight:\t"               ;; 18
  505.      "\tOrigin:\t"               ;; 19
  506.      "REFERENCE GRID:\t"         ;; 20
  507.      "\tFactor:    \t"           ;; 21
  508.      "\tCorner 1:\t"             ;; 22
  509.      "\tCorner 2:\t"             ;; 23
  510.      "OBJECT SNAP MODES:\t"      ;; 24
  511.      "ZOOMIN FACTOR:\t"          ;; 25
  512.      "ZOOMOUT FACTOR:\t"         ;; 26
  513.      "PAN FACTOR:\t"             ;; 27
  514.      "COORDINATE SYMBOL:\t"      ;; 28
  515.      ""                          ;; 29
  516.      ;;; Layer -----------------------
  517.      ""                          ;; 30
  518.      "\t*freezed*"               ;; 31
  519.      "\t*locked*"                ;; 32
  520.      "\tCO: "                    ;; 33
  521.      "\tLT: "                    ;; 34
  522.      ""                          ;; 35
  523.      ;;; Linetypes -------------------
  524.      ""                          ;; 36
  525.      ""                          ;; 37
  526.      ""                          ;; 38
  527.      ""                          ;; 39
  528.      ;;; Fonts -----------------------
  529.      ""                          ;; 40
  530.      "*backwards* \t"            ;; 41
  531.      "*upside-down*\t"           ;; 42
  532.      "*vertical*"                ;; 43
  533.      "\tH:  "                    ;; 44
  534.      "\tWF: "                    ;; 45
  535.      "\tOA: "                    ;; 46
  536.      ""                          ;; 47
  537.      ""                          ;; 48
  538.      ""                          ;; 49
  539.      ;;; Hatch -----------------------
  540.      ""                          ;; 50
  541.      "Pattern Name:"             ;; 51
  542.      "Not used"                  ;; 52
  543.      "Pattern File: "            ;; 53
  544.      "Not specified"             ;; 54
  545.      "Pattern Scale: "           ;; 55
  546.      "Pattern Angle: "           ;; 56
  547.      "Distance: "                ;; 57
  548.      "Angle: "                   ;; 58
  549.      "Cross Pattern:\t"          ;; 59
  550.      "No"                        ;; 60
  551.      "Yes"                       ;; 61
  552.      ""                          ;; 62
  553.      ""                          ;; 63
  554.      ""                          ;; 64
  555.      ;;; Block Definitions -----------
  556.      "*external*\t"              ;; 65
  557.      "*anonymous*\t"             ;; 66
  558.      "*Teil hat Attribute*\t"    ;; 67
  559.      "*referenced*\t"            ;; 68
  560.      ""                          ;; 69
  561.      "Name: "                    ;; 70
  562.      ;;; View Table ------------------
  563.      "Height: "                  ;; 71
  564.      "Width: "                   ;; 72
  565.      "Center point: "            ;; 73
  566.      "View direction: "          ;; 74
  567.      "Target point: "            ;; 75
  568.      "Aspect ratio: "            ;; 76
  569.      "Twist angle: "             ;; 77
  570.      ""                          ;; 78
  571.      ""                          ;; 79
  572.      "ID: "                      ;; 80
  573.      ;;; User Coord. Systems ---------
  574.      "Origin: "                  ;; 81
  575.      "X axis direction: "        ;; 82
  576.      "Y axis direction: "        ;; 83
  577.      ""                          ;; 84
  578.      ""                          ;; 85
  579.      ""                          ;; 86
  580.      ""                          ;; 87
  581.      ""                          ;; 88
  582.      ""                          ;; 89
  583.      ;;; Object Snap Modes -----
  584.      ;;; ...used in SnapML
  585.      "END POINT"           ;; 90
  586.      "MID POINT"           ;; 91
  587.      "CENTER"              ;; 92
  588.      "POINT"               ;; 93
  589.      "QUADRANT"            ;; 94
  590.      "INTERSECTION"        ;; 95
  591.      "INSERTION POINT"     ;; 96
  592.      "PERPENDICULAR"       ;; 97
  593.      "TANGENT"             ;; 98
  594.      "CLOSEST"             ;; 99
  595.  ))
  596.  (if FLX_XLANGUAGE (FLX_XLANGUAGE "_tabl" nil))   
  597.  ;;; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  598.  (FLX_FUNC_INIT)
  599.  (setq lst1 (list
  600.     (nth 0 prt_list) (nth 1 prt_list) (nth 2 prt_list)
  601.     (nth 3 prt_list) (nth 4 prt_list) (nth 5 prt_list)
  602.     (nth 6 prt_list) (nth 7 prt_list) (nth 8 prt_list) 
  603.     (nth 9 prt_list) 
  604.  ))
  605.  (if (FLX_DLGDSP "flx_dlg" "TABLES" "(princ)" "(DlgInit)") (princ)(exit))
  606.  (FLX_FUNC_EXIT)
  607.  (princ)
  608. )
  609. ; ========================================================================
  610.  
  611. (princ)
  612.