1. (defun c:tt()
    2.     (setvar "CMDECHO" 0)
    3.     (command "OPENDCL")
    4.     (dcl_project_import 
    5.         '("YWt6A+IGAACPDOsDBuL76rU0Yj9q+IHgshbXXfI0CCd2ZJw4jkydG1daJwb393d6/S8FnPO6dcYu"
    6.              "D+0GfT+pxE7x3jg/7cMaH777cZ59dk+3sPPpsNedMomK8RxrQw3ARNmARAPU1G2gy/mybQX9UELt"
    7.              "gGRw/p0C3q5knNQyXftYqt1/C2Y8TdTvOHMiy+wcqdWrWshVnasW6jYphN7yq1anp5CzLOAr0uum"
    8.              "cax5Khs+mcbc4Cy76rJiatUnymWqJVl086yTNAhK1+BaXPYV7Kz+OU7w8hrkA9mZ5r5auC51Dfas"
    9.              "0lltHMRus3Anb40ngcrj9N6P7ukLpbKzUo8pnFWcV5x9uu6tMhfOoO8mmPqc2fdhRp8CAXqNKxHh"
    10.              "hkWPYI9Ul9FtIW6xbplHH8DaBCiix2f4GIB0O7wqe+c4u/RZulYsEp9D8OryosDFb2aBM6EtmK8e"
    11.              "WUqtMNQyUbtpbblWgUaHCfw01qBQK5hluxFtEW8RbFHvAF+XiaMNjLg9W/IJtttR6Rk6EKPWigxC"
    12.              "66Ef5jus41mAls2osTJu8YcLC7CT84Q6gC+c4mUPFhE6Z3SCQkNNaQY1EopkG52sJYltwVsgWDBt"
    13.              "Qdotj0wCVLN804HwmAltEW7RbsHci2yakV+APNmeWY8LLiOzkVErhfEBdBCKAK1TgmmS4LjhX0G6"
    14.              "60qBDzAD0oF7kxhlwyFFD3kPVU8BW+Aug5fVH6UBY7eMYA==")
    15.     )
    16.     (if (dcl-Form-IsActive TREES/Form1)
    17.         ()
    18.         (progn
    19.             ;(dcl_project_load "C:\\Users\\Administrator\\Desktop\\hanfengbianhao.odcl" T)
    20.             (dcl_form_show TREES/Form1)
    21.         )
    22.     )
    23.     (setq lst (list 
    24.                             (list 
    25.                                 '("PN系列" "pnstyle")
    26.                                 (list
    27.                                     "pnstyle"
    28.                                     '("PN2.5" "pn2.5") 
    29.                                     (list 
    30.                                         "pn2.5"
    31.                                         '("1" "1")
    32.                                         (list 
    33.                                             "1"
    34.                                             '("1" "11")
    35.                                             (list 
    36.                                                 "11"
    37.                                                 '("1" "111")
    38.                                                 '("2" "211")
    39.                                                 '("3" "311") 
    40.                                                 '("4" "411") 
    41.                                                 '("5" "511")
    42.                                                 '("6" "611")
    43.                                             )
    44.                                             '("2" "21")
    45.                                             '("3" "31") 
    46.                                             '("4" "41")
    47.                                             '("5" "51")
    48.                                             '("6" "61")
    49.                                         )    
    50.                                         '("2" "2")
    51.                                         '("3" "3") 
    52.                                         '("4" "4") 
    53.                                         (list 
    54.                                             "4"
    55.                                             '("1" "14")
    56.                                             '("2" "24")
    57.                                             '("3" "34") 
    58.                                             '("4" "44") 
    59.                                             '("5" "54")
    60.                                             '("6" "64")
    61.                                         )
    62.                                         '("5" "5")
    63.                                         '("6" "6")
    64.                                     )
    65.                                     '("PN4.0" "pn4.0")
    66.                                     '("PN16" "pn16") 
    67.                                     '("PN25" "pn25") 
    68.                                     '("PN45" "pn45")
    69.                                 )
    70.                             )
    71.                             (list 
    72.                                 '("class系列" "classstyle")
    73.                                 (list
    74.                                     "classstyle"
    75.                                     '("class2.5" "class2.5") 
    76.                                     (list 
    77.                                         "class2.5"
    78.                                         '("class1" "class1")
    79.                                         (list 
    80.                                             "class1"
    81.                                             '("class1" "class11")
    82.                                             (list 
    83.                                                 "class11"
    84.                                                 '("class1" "class111")
    85.                                                 '("class2" "class211")
    86.                                                 '("class3" "class311") 
    87.                                                 '("class4" "class411") 
    88.                                                 '("class5" "class511")
    89.                                                 '("class6" "class611")
    90.                                             )
    91.                                             '("class2" "class21")
    92.                                             '("class3" "class31") 
    93.                                             '("class4" "class41")
    94.                                             '("class5" "class51")
    95.                                             '("class6" "class61")
    96.                                         )    
    97.                                         '("class2" "class2")
    98.                                         '("class3" "class3") 
    99.                                         '("class4" "class4") 
    100.                                         (list 
    101.                                             "class4"
    102.                                             '("class1" "class14")
    103.                                             '("class2" "class24")
    104.                                             '("class3" "class34") 
    105.                                             '("class4" "class44") 
    106.                                             '("class5" "class54")
    107.                                             '("class6" "class64")
    108.                                         )
    109.                                         '("class5" "class5")
    110.                                         '("class6" "class6")
    111.                                     )
    112.                                     '("class4.0" "class4.0")
    113.                                     '("class16" "class16") 
    114.                                     '("class25" "class25") 
    115.                                     '("class45" "class45")
    116.                                 )
    117.                             )
    118.                         )
    119.     )
    120.     (odcl-add_items lst TREES/Form1/树1)
    121.     (princ "\n加载完成！")
    122.     (prin1)
    123. )
    126. (defun odcl-add_items(lst TreeControl / addlist lstchild parentkey)
    127.     (foreach lstParent lst
    128.         (dcl_Tree_AddParent TreeControl (list (car lstParent)))
    129.         (setq parentkey (cadar lstParent) lstChild (cadr lstParent))
    130.         (defun addlist(lst key / key1 kl x)
    131.             (setq lstt (cdr lst)) 
    132.             (foreach x lstt
    133.                 (if (listp (cadr x))
    134.                     (progn (setq key1 (car x)) (addlist x key1))
    135.                     (dcl_Tree_AddChild TreeControl (list (append (list key) x)))
    136.                 )
    137.             )
    138.         )
    139.         (addlist lstChild parentkey)
    140.     )
    141. )
    1. (defun c:tt()
    2.     (setvar "CMDECHO" 0)
    3.     (command "OPENDCL")
    4.     (dcl_project_load "C:\\Users\\Administrator\\Desktop\\flagetools.odcl" T)
    5.     ;(dcl_project_import 
    6.     ;    '
    7.     ;)
    8.     ;(loadodcllst)
    9.     (if (dcl-Form-IsActive flagetools/MainFrm)
    10.         ()
    11.         (dcl_form_show flagetools/MainFrm)
    12.     )
    13.     (setq flangelst
    14.         (list 
    15.             (list 
    16.                 '("PN系列(欧洲体系)" "pnstyle")
    17.                 (list
    18.                     "pnstyle"
    19.                     '("<PL> ————— 板式平焊———法兰" "PL_pnfalge")
    20.                     (list
    21.                         "PL_pnfalge"
    22.                         '("PN2.5———DN10" "PL-PN2.5-DN10")
    23.                         '("PN2.5———DN15" "PL-PN2.5-DN15")
    24.                         '("PN2.5———DN20" "PL-PN2.5-DN20")
    25.                         '("PN2.5———DN25" "PL-PN2.5-DN25")
    26.                         '("PN2.5———DN32" "PL-PN2.5-DN32")
    27.                         '("PN2.5———DN40" "PL-PN2.5-DN40")
    28.                         '("PN2.5———DN50" "PL-PN2.5-DN50")
    29.                         '("PN2.5———DN65" "PL-PN2.5-DN65")
    30.                         '("PN2.5———DN80" "PL-PN2.5-DN80")
    31.                         '("PN2.5———DN100" "PL-PN2.5-DN100")
    32.                         '("PN2.5———DN125" "PL-PN2.5-DN125")
    33.                         '("PN2.5———DN150" "PL-PN2.5-DN150")
    34.                         '("PN2.5———DN200" "PL-PN2.5-DN200")
    35.                         '("PN2.5———DN250" "PL-PN2.5-DN250")
    36.                         '("PN2.5———DN300" "PL-PN2.5-DN300")
    37.                         '("PN2.5———DN350" "PL-PN2.5-DN350")
    38.                         '("PN2.5———DN400" "PL-PN2.5-DN400")
    39.                         '("PN2.5———DN450" "PL-PN2.5-DN450")
    40.                         '("PN2.5———DN500" "PL-PN2.5-DN500")
    41.                         '("PN2.5———DN600" "PL-PN2.5-DN600")
    42.                         '("PN2.5———DN700" "PL-PN2.5-DN700")
    43.                         '("PN2.5———DN800" "PL-PN2.5-DN800")
    44.                         '("PN2.5———DN900" "PL-PN2.5-DN900")
    45.                         '("PN2.5———DN1000" "PL-PN2.5-DN1000")
    46.                         '("PN2.5———DN1200" "PL-PN2.5-DN1200")
    47.                         '("PN2.5———DN1400" "PL-PN2.5-DN1400")
    48.                         '("PN2.5———DN1600" "PL-PN2.5-DN1600")
    49.                         '("PN2.5———DN1800" "PL-PN2.5-DN1800")
    50.                         '("PN2.5———DN2000" "PL-PN2.5-DN2000")
    51.                         '("PN6.0———DN10" "PL-PN6.0-DN10")
    52.                         '("PN6.0———DN15" "PL-PN6.0-DN15")
    53.                         '("PN6.0———DN20" "PL-PN6.0-DN20")
    54.                         '("PN6.0———DN25" "PL-PN6.0-DN25")
    55.                         '("PN6.0———DN32" "PL-PN6.0-DN32")
    56.                         '("PN6.0———DN40" "PL-PN6.0-DN40")
    57.                         '("PN6.0———DN50" "PL-PN6.0-DN50")
    58.                         '("PN6.0———DN65" "PL-PN6.0-DN65")
    59.                         '("PN6.0———DN80" "PL-PN6.0-DN80")
    60.                         '("PN6.0———DN100" "PL-PN6.0-DN100")
    61.                         '("PN6.0———DN125" "PL-PN6.0-DN125")
    62.                         '("PN6.0———DN150" "PL-PN6.0-DN150")
    63.                         '("PN6.0———DN200" "PL-PN6.0-DN200")
    64.                         '("PN6.0———DN250" "PL-PN6.0-DN250")
    65.                         '("PN6.0———DN300" "PL-PN6.0-DN300")
    66.                         '("PN6.0———DN350" "PL-PN6.0-DN350")
    67.                         '("PN6.0———DN400" "PL-PN6.0-DN400")
    68.                         '("PN6.0———DN450" "PL-PN6.0-DN450")
    69.                         '("PN6.0———DN500" "PL-PN6.0-DN500")
    70.                         '("PN6.0———DN600" "PL-PN6.0-DN600")
    71.                         '("PN10.0———DN10" "PL-PN10.0-DN10")
    72.                         '("PN10.0———DN15" "PL-PN10.0-DN15")
    73.                         '("PN10.0———DN20" "PL-PN10.0-DN20")
    74.                         '("PN10.0———DN25" "PL-PN10.0-DN25")
    75.                         '("PN10.0———DN32" "PL-PN10.0-DN32")
    76.                         '("PN10.0———DN40" "PL-PN10.0-DN40")
    77.                         '("PN10.0———DN50" "PL-PN10.0-DN50")
    78.                         '("PN10.0———DN65" "PL-PN10.0-DN65")
    79.                         '("PN10.0———DN80" "PL-PN10.0-DN80")
    80.                         '("PN10.0———DN100" "PL-PN10.0-DN100")
    81.                         '("PN10.0———DN125" "PL-PN10.0-DN125")
    82.                         '("PN10.0———DN150" "PL-PN10.0-DN150")
    83.                         '("PN10.0———DN200" "PL-PN10.0-DN200")
    84.                         '("PN10.0———DN250" "PL-PN10.0-DN250")
    85.                         '("PN10.0———DN300" "PL-PN10.0-DN300")
    86.                         '("PN10.0———DN350" "PL-PN10.0-DN350")
    87.                         '("PN10.0———DN400" "PL-PN10.0-DN400")
    88.                         '("PN10.0———DN450" "PL-PN10.0-DN450")
    89.                         '("PN10.0———DN500" "PL-PN10.0-DN500")
    90.                         '("PN10.0———DN600" "PL-PN10.0-DN600")
    91.                         '("PN16.0———DN10" "PL-PN16.0-DN10")
    92.                         '("PN16.0———DN15" "PL-PN16.0-DN15")
    93.                         '("PN16.0———DN20" "PL-PN16.0-DN20")
    94.                         '("PN16.0———DN25" "PL-PN16.0-DN25")
    95.                         '("PN16.0———DN32" "PL-PN16.0-DN32")
    96.                         '("PN16.0———DN40" "PL-PN16.0-DN40")
    97.                         '("PN16.0———DN50" "PL-PN16.0-DN50")
    98.                         '("PN16.0———DN65" "PL-PN16.0-DN65")
    99.                         '("PN16.0———DN80" "PL-PN16.0-DN80")
    100.                         '("PN16.0———DN100" "PL-PN16.0-DN100")
    101.                         '("PN16.0———DN125" "PL-PN16.0-DN125")
    102.                         '("PN16.0———DN150" "PL-PN16.0-DN150")
    103.                         '("PN16.0———DN200" "PL-PN16.0-DN200")
    104.                         '("PN16.0———DN250" "PL-PN16.0-DN250")
    105.                         '("PN16.0———DN300" "PL-PN16.0-DN300")
    106.                         '("PN16.0———DN350" "PL-PN16.0-DN350")
    107.                         '("PN16.0———DN400" "PL-PN16.0-DN400")
    108.                         '("PN16.0———DN450" "PL-PN16.0-DN450")
    109.                         '("PN16.0———DN500" "PL-PN16.0-DN500")
    110.                         '("PN16.0———DN600" "PL-PN16.0-DN600")
    111.                         '("PN25.0———DN10" "PL-PN25.0-DN10")
    112.                         '("PN25.0———DN15" "PL-PN25.0-DN15")
    113.                         '("PN25.0———DN20" "PL-PN25.0-DN20")
    114.                         '("PN25.0———DN25" "PL-PN25.0-DN25")
    115.                         '("PN25.0———DN32" "PL-PN25.0-DN32")
    116.                         '("PN25.0———DN40" "PL-PN25.0-DN40")
    117.                         '("PN25.0———DN50" "PL-PN25.0-DN50")
    118.                         '("PN25.0———DN65" "PL-PN25.0-DN65")
    119.                         '("PN25.0———DN80" "PL-PN25.0-DN80")
    120.                         '("PN25.0———DN100" "PL-PN25.0-DN100")
    121.                         '("PN25.0———DN125" "PL-PN25.0-DN125")
    122.                         '("PN25.0———DN150" "PL-PN25.0-DN150")
    123.                         '("PN25.0———DN200" "PL-PN25.0-DN200")
    124.                         '("PN25.0———DN250" "PL-PN25.0-DN250")
    125.                         '("PN25.0———DN300" "PL-PN25.0-DN300")
    126.                         '("PN25.0———DN350" "PL-PN25.0-DN350")
    127.                         '("PN25.0———DN400" "PL-PN25.0-DN400")
    128.                         '("PN25.0———DN450" "PL-PN25.0-DN450")
    129.                         '("PN25.0———DN500" "PL-PN25.0-DN500")
    130.                         '("PN25.0———DN600" "PL-PN25.0-DN600")
    131.                         '("PN40.0———DN10" "PL-PN40.0-DN10")
    132.                         '("PN40.0———DN15" "PL-PN40.0-DN15")
    133.                         '("PN40.0———DN20" "PL-PN40.0-DN20")
    134.                         '("PN40.0———DN25" "PL-PN40.0-DN25")
    135.                         '("PN40.0———DN32" "PL-PN40.0-DN32")
    136.                         '("PN40.0———DN40" "PL-PN40.0-DN40")
    137.                         '("PN40.0———DN50" "PL-PN40.0-DN50")
    138.                         '("PN40.0———DN65" "PL-PN40.0-DN65")
    139.                         '("PN40.0———DN80" "PL-PN40.0-DN80")
    140.                         '("PN40.0———DN100" "PL-PN40.0-DN100")
    141.                         '("PN40.0———DN125" "PL-PN40.0-DN125")
    142.                         '("PN40.0———DN150" "PL-PN40.0-DN150")
    143.                         '("PN40.0———DN200" "PL-PN40.0-DN200")
    144.                         '("PN40.0———DN250" "PL-PN40.0-DN250")
    145.                         '("PN40.0———DN300" "PL-PN40.0-DN300")
    146.                         '("PN40.0———DN350" "PL-PN40.0-DN350")
    147.                         '("PN40.0———DN400" "PL-PN40.0-DN400")
    148.                         '("PN40.0———DN450" "PL-PN40.0-DN450")
    149.                         '("PN40.0———DN500" "PL-PN40.0-DN500")
    150.                         '("PN40.0———DN600" "PL-PN40.0-DN600")
    151.                     )
    152.                     '("<SO> —————带颈平焊———法兰" "SO_pnfalge")
    153.                     (list
    154.                         "SO_pnfalge"
    155.                         '("PN6.0———DN10" "SO-PN6.0-DN10")
    156.                         '("PN6.0———DN15" "SO-PN6.0-DN15")
    157.                         '("PN6.0———DN20" "SO-PN6.0-DN20")
    158.                         '("PN6.0———DN25" "SO-PN6.0-DN25")
    159.                         '("PN6.0———DN32" "SO-PN6.0-DN32")
    160.                         '("PN6.0———DN40" "SO-PN6.0-DN40")
    161.                         '("PN6.0———DN50" "SO-PN6.0-DN50")
    162.                         '("PN6.0———DN65" "SO-PN6.0-DN65")
    163.                         '("PN6.0———DN80" "SO-PN6.0-DN80")
    164.                         '("PN6.0———DN100" "SO-PN6.0-DN100")
    165.                         '("PN6.0———DN125" "SO-PN6.0-DN125")
    166.                         '("PN6.0———DN150" "SO-PN6.0-DN150")
    167.                         '("PN6.0———DN200" "SO-PN6.0-DN200")
    168.                         '("PN6.0———DN250" "SO-PN6.0-DN250")
    169.                         '("PN6.0———DN300" "SO-PN6.0-DN300")
    170.                         '("PN6.0———DN350" "SO-PN6.0-DN350")
    171.                         '("PN10.0———DN10" "SO-PN10.0-DN10")
    172.                         '("PN10.0———DN15" "SO-PN10.0-DN15")
    173.                         '("PN10.0———DN20" "SO-PN10.0-DN20")
    174.                         '("PN10.0———DN25" "SO-PN10.0-DN25")
    175.                         '("PN10.0———DN32" "SO-PN10.0-DN32")
    176.                         '("PN10.0———DN40" "SO-PN10.0-DN40")
    177.                         '("PN10.0———DN50" "SO-PN10.0-DN50")
    178.                         '("PN10.0———DN65" "SO-PN10.0-DN65")
    179.                         '("PN10.0———DN80" "SO-PN10.0-DN80")
    180.                         '("PN10.0———DN100" "SO-PN10.0-DN100")
    181.                         '("PN10.0———DN125" "SO-PN10.0-DN125")
    182.                         '("PN10.0———DN150" "SO-PN10.0-DN150")
    183.                         '("PN10.0———DN200" "SO-PN10.0-DN200")
    184.                         '("PN10.0———DN250" "SO-PN10.0-DN250")
    185.                         '("PN10.0———DN300" "SO-PN10.0-DN300")
    186.                         '("PN10.0———DN350" "SO-PN10.0-DN350")
    187.                         '("PN10.0———DN400" "SO-PN10.0-DN400")
    188.                         '("PN10.0———DN450" "SO-PN10.0-DN450")
    189.                         '("PN10.0———DN500" "SO-PN10.0-DN500")
    190.                         '("PN10.0———DN600" "SO-PN10.0-DN600")
    191.                         '("PN16.0———DN10" "SO-PN16.0-DN10")
    192.                         '("PN16.0———DN15" "SO-PN16.0-DN15")
    193.                         '("PN16.0———DN20" "SO-PN16.0-DN20")
    194.                         '("PN16.0———DN25" "SO-PN16.0-DN25")
    195.                         '("PN16.0———DN32" "SO-PN16.0-DN32")
    196.                         '("PN16.0———DN40" "SO-PN16.0-DN40")
    197.                         '("PN16.0———DN50" "SO-PN16.0-DN50")
    198.                         '("PN16.0———DN65" "SO-PN16.0-DN65")
    199.                         '("PN16.0———DN80" "SO-PN16.0-DN80")
    200.                         '("PN16.0———DN100" "SO-PN16.0-DN100")
    201.                         '("PN16.0———DN125" "SO-PN16.0-DN125")
    202.                         '("PN16.0———DN150" "SO-PN16.0-DN150")
    203.                         '("PN16.0———DN200" "SO-PN16.0-DN200")
    204.                         '("PN16.0———DN250" "SO-PN16.0-DN250")
    205.                         '("PN16.0———DN300" "SO-PN16.0-DN300")
    206.                         '("PN16.0———DN350" "SO-PN16.0-DN350")
    207.                         '("PN16.0———DN400" "SO-PN16.0-DN400")
    208.                         '("PN16.0———DN450" "SO-PN16.0-DN450")
    209.                         '("PN16.0———DN500" "SO-PN16.0-DN500")
    210.                         '("PN16.0———DN600" "SO-PN16.0-DN600")
    211.                         '("PN25.0———DN10" "SO-PN25.0-DN10")
    212.                         '("PN25.0———DN15" "SO-PN25.0-DN15")
    213.                         '("PN25.0———DN20" "SO-PN25.0-DN20")
    214.                         '("PN25.0———DN25" "SO-PN25.0-DN25")
    215.                         '("PN25.0———DN32" "SO-PN25.0-DN32")
    216.                         '("PN25.0———DN40" "SO-PN25.0-DN40")
    217.                         '("PN25.0———DN50" "SO-PN25.0-DN50")
    218.                         '("PN25.0———DN65" "SO-PN25.0-DN65")
    219.                         '("PN25.0———DN80" "SO-PN25.0-DN80")
    220.                         '("PN25.0———DN100" "SO-PN25.0-DN100")
    221.                         '("PN25.0———DN125" "SO-PN25.0-DN125")
    222.                         '("PN25.0———DN150" "SO-PN25.0-DN150")
    223.                         '("PN25.0———DN200" "SO-PN25.0-DN200")
    224.                         '("PN25.0———DN250" "SO-PN25.0-DN250")
    225.                         '("PN25.0———DN300" "SO-PN25.0-DN300")
    226.                         '("PN25.0———DN350" "SO-PN25.0-DN350")
    227.                         '("PN25.0———DN400" "SO-PN25.0-DN400")
    228.                         '("PN25.0———DN450" "SO-PN25.0-DN450")
    229.                         '("PN25.0———DN500" "SO-PN25.0-DN500")
    230.                         '("PN25.0———DN600" "SO-PN25.0-DN600")
    231.                         '("PN40.0———DN10" "SO-PN40.0-DN10")
    232.                         '("PN40.0———DN15" "SO-PN40.0-DN15")
    233.                         '("PN40.0———DN20" "SO-PN40.0-DN20")
    234.                         '("PN40.0———DN25" "SO-PN40.0-DN25")
    235.                         '("PN40.0———DN32" "SO-PN40.0-DN32")
    236.                         '("PN40.0———DN40" "SO-PN40.0-DN40")
    237.                         '("PN40.0———DN50" "SO-PN40.0-DN50")
    238.                         '("PN40.0———DN65" "SO-PN40.0-DN65")
    239.                         '("PN40.0———DN80" "SO-PN40.0-DN80")
    240.                         '("PN40.0———DN100" "SO-PN40.0-DN100")
    241.                         '("PN40.0———DN125" "SO-PN40.0-DN125")
    242.                         '("PN40.0———DN150" "SO-PN40.0-DN150")
    243.                         '("PN40.0———DN200" "SO-PN40.0-DN200")
    244.                         '("PN40.0———DN250" "SO-PN40.0-DN250")
    245.                         '("PN40.0———DN300" "SO-PN40.0-DN300")
    246.                         '("PN40.0———DN350" "SO-PN40.0-DN350")
    247.                         '("PN40.0———DN400" "SO-PN40.0-DN400")
    248.                         '("PN40.0———DN450" "SO-PN40.0-DN450")
    249.                         '("PN40.0———DN500" "SO-PN40.0-DN500")
    250.                         '("PN40.0———DN600" "SO-PN40.0-DN600")
    251.                     )
    252.                     '("<WN>—————带颈对焊———法兰" "WN_pnfalge")
    253.                     (list
    254.                         "WN_pnfalge"
    255.                         '("PN10.0———DN10" "WN-PN10.0-DN10")
    256.                         '("PN10.0———DN15" "WN-PN10.0-DN15")
    257.                         '("PN10.0———DN20" "WN-PN10.0-DN20")
    258.                         '("PN10.0———DN25" "WN-PN10.0-DN25")
    259.                         '("PN10.0———DN32" "WN-PN10.0-DN32")
    260.                         '("PN10.0———DN40" "WN-PN10.0-DN40")
    261.                         '("PN10.0———DN50" "WN-PN10.0-DN50")
    262.                         '("PN10.0———DN65" "WN-PN10.0-DN65")
    263.                         '("PN10.0———DN80" "WN-PN10.0-DN80")
    264.                         '("PN10.0———DN100" "WN-PN10.0-DN100")
    265.                         '("PN10.0———DN125" "WN-PN10.0-DN125")
    266.                         '("PN10.0———DN150" "WN-PN10.0-DN150")
    267.                         '("PN10.0———DN200" "WN-PN10.0-DN200")
    268.                         '("PN10.0———DN250" "WN-PN10.0-DN250")
    269.                         '("PN10.0———DN300" "WN-PN10.0-DN300")
    270.                         '("PN10.0———DN350" "WN-PN10.0-DN350")
    271.                         '("PN10.0———DN400" "WN-PN10.0-DN400")
    272.                         '("PN10.0———DN450" "WN-PN10.0-DN450")
    273.                         '("PN10.0———DN500" "WN-PN10.0-DN500")
    274.                         '("PN10.0———DN600" "WN-PN10.0-DN600")
    275.                         '("PN10.0———DN700" "WN-PN10.0-DN700")
    276.                         '("PN10.0———DN800" "WN-PN10.0-DN800")
    277.                         '("PN10.0———DN900" "WN-PN10.0-DN900")
    278.                         '("PN10.0———DN1000" "WN-PN10.0-DN1000")
    279.                         '("PN10.0———DN1200" "WN-PN10.0-DN1200")
    280.                         '("PN10.0———DN1400" "WN-PN10.0-DN1400")
    281.                         '("PN10.0———DN1600" "WN-PN10.0-DN1600")
    282.                         '("PN10.0———DN1800" "WN-PN10.0-DN1800")
    283.                         '("PN10.0———DN2000" "WN-PN10.0-DN2000")
    284.                         '("PN16.0———DN10" "WN-PN16.0-DN10")
    285.                         '("PN16.0———DN15" "WN-PN16.0-DN15")
    286.                         '("PN16.0———DN20" "WN-PN16.0-DN20")
    287.                         '("PN16.0———DN25" "WN-PN16.0-DN25")
    288.                         '("PN16.0———DN32" "WN-PN16.0-DN32")
    289.                         '("PN16.0———DN40" "WN-PN16.0-DN40")
    290.                         '("PN16.0———DN50" "WN-PN16.0-DN50")
    291.                         '("PN16.0———DN65" "WN-PN16.0-DN65")
    292.                         '("PN16.0———DN80" "WN-PN16.0-DN80")
    293.                         '("PN16.0———DN100" "WN-PN16.0-DN100")
    294.                         '("PN16.0———DN125" "WN-PN16.0-DN125")
    295.                         '("PN16.0———DN150" "WN-PN16.0-DN150")
    296.                         '("PN16.0———DN200" "WN-PN16.0-DN200")
    297.                         '("PN16.0———DN250" "WN-PN16.0-DN250")
    298.                         '("PN16.0———DN300" "WN-PN16.0-DN300")
    299.                         '("PN16.0———DN350" "WN-PN16.0-DN350")
    300.                         '("PN16.0———DN400" "WN-PN16.0-DN400")
    301.                         '("PN16.0———DN450" "WN-PN16.0-DN450")
    302.                         '("PN16.0———DN500" "WN-PN16.0-DN500")
    303.                         '("PN16.0———DN600" "WN-PN16.0-DN600")
    304.                         '("PN16.0———DN700" "WN-PN16.0-DN700")
    305.                         '("PN16.0———DN800" "WN-PN16.0-DN800")
    306.                         '("PN16.0———DN900" "WN-PN16.0-DN900")
    307.                         '("PN16.0———DN1000" "WN-PN16.0-DN1000")
    308.                         '("PN16.0———DN1200" "WN-PN16.0-DN1200")
    309.                         '("PN16.0———DN1400" "WN-PN16.0-DN1400")
    310.                         '("PN16.0———DN1600" "WN-PN16.0-DN1600")
    311.                         '("PN16.0———DN1800" "WN-PN16.0-DN1800")
    312.                         '("PN16.0———DN2000" "WN-PN16.0-DN2000")
    313.                         '("PN25.0———DN10" "WN-PN25.0-DN10")
    314.                         '("PN25.0———DN15" "WN-PN25.0-DN15")
    315.                         '("PN25.0———DN20" "WN-PN25.0-DN20")
    316.                         '("PN25.0———DN25" "WN-PN25.0-DN25")
    317.                         '("PN25.0———DN32" "WN-PN25.0-DN32")
    318.                         '("PN25.0———DN40" "WN-PN25.0-DN40")
    319.                         '("PN25.0———DN50" "WN-PN25.0-DN50")
    320.                         '("PN25.0———DN65" "WN-PN25.0-DN65")
    321.                         '("PN25.0———DN80" "WN-PN25.0-DN80")
    322.                         '("PN25.0———DN100" "WN-PN25.0-DN100")
    323.                         '("PN25.0———DN125" "WN-PN25.0-DN125")
    324.                         '("PN25.0———DN150" "WN-PN25.0-DN150")
    325.                         '("PN25.0———DN200" "WN-PN25.0-DN200")
    326.                         '("PN25.0———DN250" "WN-PN25.0-DN250")
    327.                         '("PN25.0———DN300" "WN-PN25.0-DN300")
    328.                         '("PN25.0———DN350" "WN-PN25.0-DN350")
    329.                         '("PN25.0———DN400" "WN-PN25.0-DN400")
    330.                         '("PN25.0———DN450" "WN-PN25.0-DN450")
    331.                         '("PN25.0———DN500" "WN-PN25.0-DN500")
    332.                         '("PN25.0———DN600" "WN-PN25.0-DN600")
    333.                         '("PN40.0———DN10" "WN-PN40.0-DN10")
    334.                         '("PN40.0———DN15" "WN-PN40.0-DN15")
    335.                         '("PN40.0———DN20" "WN-PN40.0-DN20")
    336.                         '("PN40.0———DN25" "WN-PN40.0-DN25")
    337.                         '("PN40.0———DN32" "WN-PN40.0-DN32")
    338.                         '("PN40.0———DN40" "WN-PN40.0-DN40")
    339.                         '("PN40.0———DN50" "WN-PN40.0-DN50")
    340.                         '("PN40.0———DN65" "WN-PN40.0-DN65")
    341.                         '("PN40.0———DN80" "WN-PN40.0-DN80")
    342.                         '("PN40.0———DN100" "WN-PN40.0-DN100")
    343.                         '("PN40.0———DN125" "WN-PN40.0-DN125")
    344.                         '("PN40.0———DN150" "WN-PN40.0-DN150")
    345.                         '("PN40.0———DN200" "WN-PN40.0-DN200")
    346.                         '("PN40.0———DN250" "WN-PN40.0-DN250")
    347.                         '("PN40.0———DN300" "WN-PN40.0-DN300")
    348.                         '("PN40.0———DN350" "WN-PN40.0-DN350")
    349.                         '("PN40.0———DN400" "WN-PN40.0-DN400")
    350.                         '("PN40.0———DN450" "WN-PN40.0-DN450")
    351.                         '("PN40.0———DN500" "WN-PN40.0-DN500")
    352.                         '("PN40.0———DN600" "WN-PN40.0-DN600")
    353.                         '("PN63.0———DN10" "WN-PN63.0-DN10")
    354.                         '("PN63.0———DN15" "WN-PN63.0-DN15")
    355.                         '("PN63.0———DN20" "WN-PN63.0-DN20")
    356.                         '("PN63.0———DN25" "WN-PN63.0-DN25")
    357.                         '("PN63.0———DN32" "WN-PN63.0-DN32")
    358.                         '("PN63.0———DN40" "WN-PN63.0-DN40")
    359.                         '("PN63.0———DN50" "WN-PN63.0-DN50")
    360.                         '("PN63.0———DN65" "WN-PN63.0-DN65")
    361.                         '("PN63.0———DN80" "WN-PN63.0-DN80")
    362.                         '("PN63.0———DN100" "WN-PN63.0-DN100")
    363.                         '("PN63.0———DN125" "WN-PN63.0-DN125")
    364.                         '("PN63.0———DN150" "WN-PN63.0-DN150")
    365.                         '("PN63.0———DN200" "WN-PN63.0-DN200")
    366.                         '("PN63.0———DN250" "WN-PN63.0-DN250")
    367.                         '("PN63.0———DN300" "WN-PN63.0-DN300")
    368.                         '("PN63.0———DN350" "WN-PN63.0-DN350")
    369.                         '("PN63.0———DN400" "WN-PN63.0-DN400")
    370.                         '("PN100.0———DN10" "WN-PN100.0-DN10")
    371.                         '("PN100.0———DN15" "WN-PN100.0-DN15")
    372.                         '("PN100.0———DN20" "WN-PN100.0-DN20")
    373.                         '("PN100.0———DN25" "WN-PN100.0-DN25")
    374.                         '("PN100.0———DN32" "WN-PN100.0-DN32")
    375.                         '("PN100.0———DN40" "WN-PN100.0-DN40")
    376.                         '("PN100.0———DN50" "WN-PN100.0-DN50")
    377.                         '("PN100.0———DN65" "WN-PN100.0-DN65")
    378.                         '("PN100.0———DN80" "WN-PN100.0-DN80")
    379.                         '("PN100.0———DN100" "WN-PN100.0-DN100")
    380.                         '("PN100.0———DN125" "WN-PN100.0-DN125")
    381.                         '("PN100.0———DN150" "WN-PN100.0-DN150")
    382.                         '("PN100.0———DN200" "WN-PN100.0-DN200")
    383.                         '("PN100.0———DN250" "WN-PN100.0-DN250")
    384.                         '("PN100.0———DN300" "WN-PN100.0-DN300")
    385.                         '("PN100.0———DN350" "WN-PN100.0-DN350")
    386.                         '("PN160.0———DN10" "WN-PN160.0-DN10")
    387.                         '("PN160.0———DN15" "WN-PN160.0-DN15")
    388.                         '("PN160.0———DN20" "WN-PN160.0-DN20")
    389.                         '("PN160.0———DN25" "WN-PN160.0-DN25")
    390.                         '("PN160.0———DN32" "WN-PN160.0-DN32")
    391.                         '("PN160.0———DN40" "WN-PN160.0-DN40")
    392.                         '("PN160.0———DN50" "WN-PN160.0-DN50")
    393.                         '("PN160.0———DN65" "WN-PN160.0-DN65")
    394.                         '("PN160.0———DN80" "WN-PN160.0-DN80")
    395.                         '("PN160.0———DN100" "WN-PN160.0-DN100")
    396.                         '("PN160.0———DN125" "WN-PN160.0-DN125")
    397.                         '("PN160.0———DN150" "WN-PN160.0-DN150")
    398.                         '("PN160.0———DN200" "WN-PN160.0-DN200")
    399.                         '("PN160.0———DN250" "WN-PN160.0-DN250")
    400.                         '("PN160.0———DN300" "WN-PN160.0-DN300")
    401.                     )
    402.                     '("<IF> ————————整体—————法兰" "IF_pnfalge")
    403.                     '("<SW>——————承插焊————法兰" "SW_pnfalge")
    404.                     '("<TJ>————————螺纹—————法兰" "TJ_pnfalge")
    405.                     '("<PJ/SE>——对焊环松套——法兰" "PJ/SE_pnfalge")
    406.                     '("<PJ/RJ>——平焊环松套——法兰" "PJ/RJ_pnfalge")
    407.                     '("<BL>——————法兰盖————————" "BL_pnfalge")
    408.                     '("<BL(S)>——衬里法兰盖——————" "BL(S)_pnfalge")
    409.                 )
    410.             )
    411.             (list 
    412.                 '("Class系列(美洲体系)" "classstyle")
    413.                 (list 
    414.                     "classstyle"
    415.                     '("<SO> —————带颈平焊———法兰" "SO_classsfalge")
    416.                     '("<WN>—————带颈对焊———法兰" "WN_classsfalge")
    417.                     '("<LMN>—————长高颈————法兰" "LMN_classsfalge")
    418.                     '("<IF> ————————整体—————法兰" "IF_classsfalge")
    419.                     '("<SW>——————承插焊————法兰" "SW_classsfalge")
    420.                     '("<Th>————————螺纹—————法兰" "Th_classsfalge")
    421.                     '("<LF/SE>——对焊环松套——法兰" "LF/SEE_classsfalge")
    422.                     '("<BL>—————— 法兰盖————————" "BL_classsfalge")
    423.                 )
    424.             )
    425.         )
    426.     )
    427.     (odcl-add_items flangelst flagetools/MainFrm/flangetree)
    428.     (dcl-Tree-ExpandItem flagetools/MainFrm/flangetree "pnstyle" 1)
    429.     (dcl-Tree-ExpandItem flagetools/MainFrm/flangetree "classstyle" 1)
    430.     (dcl-Tree-SelectItem flagetools/MainFrm/flangetree "PL-PN2.5-DN10")
    431.     (dcl-ListBox-Clear flagetools/MainFrm/flseasur)
    432.     (dcl-ListBox-AddList flagetools/MainFrm/flseasur '("<RF>突面" "<FM>凹面" "< M >凸面" "< T >榫面" "< G >槽面" "<FF>全平面" "<RJ>环链接面"))
    433.     (dcl-ListBox-SetCurSel flagetools/MainFrm/flseasur 0)
    434.     (dcl-Control-SetPicture flagetools/MainFrm/PictureBox11 100)
    435.     (setq valuelst (BF-str->lst (dcl-Tree-GetSelectedItem flagetools/MainFrm/flangetree) "-"))
    436.     (if (= (car valuelst) "PL")(SetTextStr (list (list flagetools/MainFrm/TextBox24 (nth 0 valuelst)) (list flagetools/MainFrm/TextBox12 (substr (nth 1 valuelst) 3)) (list flagetools/MainFrm/TextBox25 (substr (nth 2 valuelst) 3)))))
    437.     (princ "\n加载完成！")
    438.     (prin1)
    439. )
    441. (defun c:flagetools/MainFrm/flseasur#OnSelChanged (ItemIndexOrCount Value /)
    442.   (dcl-Control-SetPicture flagetools/MainFrm/PictureBox11 (+ 100 ItemIndexOrCount))
    443. )
    445. (defun c:flagetools/MainFrm/flangetree#OnClicked (/)
    446.     (setq
    447.         FLstyle1 (dcl-Tree-GetSelectedItem flagetools/MainFrm/flangetree) 
    448.         FLstyle2 (dcl-Tree-GetParentItem flagetools/MainFrm/flangetree FLstyle1)
    449.         FLstyle3 (dcl-Tree-GetParentItem flagetools/MainFrm/flangetree FLstyle2)
    450.         valuelst (BF-str->lst (dcl-Tree-GetSelectedItem flagetools/MainFrm/flangetree) "-")
    451.         deftabnum (dcl-TabStrip-GetCurSel flagetools/MainFrm/TabStrip1)
    452.     )
    453.     (cond
    454.         ((= FLstyle2 "pnstyle") (setq num 3))
    455.         ((= FLstyle2 "classstyle") (setq num 6))
    456.         (T (setq num nil))
    457.     )
    458.     (if (and num (= 2 (length valuelst)))
    459.         (SetTextStr (list
    460.                                     (list flagetools/MainFrm/TextBox24 (nth 0 valuelst))
    461.                                     (list flagetools/MainFrm/TextBox12 (substr (nth 1 valuelst) num))
    462.                                     (list flagetools/MainFrm/TextBox25 (substr (nth 2 valuelst) 3))
    463.                                 )
    464.         )
    465.     )
    466.     (cond 
    467.         ((or (= FLstyle1 "PL_pnfalge") (= FLstyle2 "PL_pnfalge")) (if (/= deftabnum 0) (dcl-TabStrip-SetCurSel flagetools/MainFrm/TabStrip1 0)))
    468.         ((or (= FLstyle1 "SO_pnfalge") (= FLstyle2 "SO_pnfalge")) (if (/= deftabnum 1) (dcl-TabStrip-SetCurSel flagetools/MainFrm/TabStrip1 1)))
    469.         ((or (= FLstyle1 "WN_pnfalge") (= FLstyle2 "WN_pnfalge")) (if (/= deftabnum 2) (dcl-TabStrip-SetCurSel flagetools/MainFrm/TabStrip1 2)))
    470.         ((or (= FLstyle1 "IF_pnfalge") (= FLstyle2 "IF_pnfalge")) (if (/= deftabnum 6) (dcl-TabStrip-SetCurSel flagetools/MainFrm/TabStrip1 3)))
    471.         ((or (= FLstyle1 "SW_pnfalge") (= FLstyle2 "SW_pnfalge")) (if (/= deftabnum 4) (dcl-TabStrip-SetCurSel flagetools/MainFrm/TabStrip1 4)))
    472.         ((or (= FLstyle1 "TJ_pnfalge") (= FLstyle2 "TJ_pnfalge")) (if (/= deftabnum 5) (dcl-TabStrip-SetCurSel flagetools/MainFrm/TabStrip1 5)))
    473.         ((or (= FLstyle1 "PJ/SE_pnfalge") (= FLstyle2 "PJ/SE_pnfalge")) (if (/= deftabnum 6) (dcl-TabStrip-SetCurSel flagetools/MainFrm/TabStrip1 6)))
    474.         ((or (= FLstyle1 "PJ/RJ_pnfalge") (= FLstyle2 "PJ/RJ_pnfalge")) (if (/= deftabnum 7) (dcl-TabStrip-SetCurSel flagetools/MainFrm/TabStrip1 7)))
    475.         ((or (= FLstyle1 "BL_pnfalge") (= FLstyle2 "BL_pnfalge")) (if (/= deftabnum 8) (dcl-TabStrip-SetCurSel flagetools/MainFrm/TabStrip1 8)))
    476.         ((or (= FLstyle1 "BL(S)_pnfalge") (= FLstyle2 "BL(S)_pnfalge")) (if (/= deftabnum 9) (dcl-TabStrip-SetCurSel flagetools/MainFrm/TabStrip1 9)))
    477.         ((or (= FLstyle1 "SO_classsfalge") (= FLstyle2 "SO_classsfalge")) (if (/= deftabnum 10) (dcl-TabStrip-SetCurSel flagetools/MainFrm/TabStrip1 10)))
    478.         ((or (= FLstyle1 "WN_classsfalge") (= FLstyle2 "WN_classsfalge")) (if (/= deftabnum 11) (dcl-TabStrip-SetCurSel flagetools/MainFrm/TabStrip1 11)))
    479.         ((or (= FLstyle1 "LMN_classsfalge") (= FLstyle2 "LMN_classsfalge")) (if (/= deftabnum 12) (dcl-TabStrip-SetCurSel flagetools/MainFrm/TabStrip1 12)))
    480.         ((or (= FLstyle1 "IF_classsfalge") (= FLstyle2 "IF_classsfalge")) (if (/= deftabnum 13) (dcl-TabStrip-SetCurSel flagetools/MainFrm/TabStrip1 13)))
    481.         ((or (= FLstyle1 "SW_classsfalge") (= FLstyle2 "SW_classsfalge")) (if (/= deftabnum 14) (dcl-TabStrip-SetCurSel flagetools/MainFrm/TabStrip1 14)))
    482.         ((or (= FLstyle1 "Th_classsfalge") (= FLstyle2 "Th_classsfalge")) (if (/= deftabnum 15) (dcl-TabStrip-SetCurSel flagetools/MainFrm/TabStrip1 15)))
    483.         ((or (= FLstyle1 "LF/SEE_classsfalge") (= FLstyle2 "LF/SEE_classsfalge")) (if (/= deftabnum 16) (dcl-TabStrip-SetCurSel flagetools/MainFrm/TabStrip1 16)))
    484.         ((or (= FLstyle1 "BL_classsfalge") (= FLstyle2 "BL_classsfalge")) (if (/= deftabnum 17) (dcl-TabStrip-SetCurSel flagetools/MainFrm/TabStrip1 17)))
    486.     )
    487. )
    488. ;;;name:BF-str->lst
    489. ;;;desc:字符串转成列表--leemac
    490. ;;;arg:str:字符串
    491. ;;;arg:del:分隔符
    492. ;;;return:字符串列表
    493. ;;;example:(BF-str->lst "a-b-c" "-")=>("a" "b" "c)
    494. (defun BF-str->lst (str del / pos)
    495.     (if    (setq pos (vl-string-search del str))
    496.         (cons (substr str 1 pos)
    497.             (BF-str->lst (substr str (+ pos 1 (strlen del))) del)
    498.         )
    499.         (list str)
    500.     )
    501. )
    504. ;;;name:BF-str->lst
    505. ;;;desc:批量设置odcl中TextBox的值
    506. ;;;arg:lsts:TextBox的名称和值表
    507. ;;;example:(SetTextStr (list (list flagetools/MainFrm/TextBox24 "1") (list flagetools/MainFrm/TextBox25 "2") (list flagetools/MainFrm/TextBox12 "3")))
    508. (defun SetTextStr(lst)
    509.     (foreach x lst (dcl-Control-SetText (car x) (cadr x)))
    510. )
    511. ;;;
    512. (defun odcl-add_items(lst TreeControl / addlist lstchild parentkey)
    513.     (foreach lstParent lst
    514.         (dcl_Tree_AddParent TreeControl (list (car lstParent)))
    515.         (setq parentkey (cadar lstParent) lstChild (cadr lstParent))
    516.         (defun addlist(lst key / key1 kl x)
    517.             (setq lstt (cdr lst)) 
    518.             (foreach x lstt
    519.                 (if (listp (cadr x))
    520.                     (progn (setq key1 (car x)) (addlist x key1))
    521.                     (dcl_Tree_AddChild TreeControl (list (append (list key) x)))
    522.                 )
    523.             )
    524.         )
    525.         (addlist lstChild parentkey)
    526.     )
    527. )
    528. ;多层表添加到tree控件
    529. ;(defun odcl_tree_addlist(LST TreeControl / KEY addlist)
    530. ;  (SETQ KEY (dcl_Tree_AddParent TreeControl (list (list (car lst)))))
    531. ;  (defun addlist(lst key / x key1 kl)
    532. ;    (foreach x lst
    533. ;      (if (listp x)
    534. ;                (setq key1 (dcl_Tree_AddChild TreeControl (list (list key (car x))))
    535. ;                    kl (addlist (cdr x) key1)
    536. ;        )
    537. ;                (setq key1 (dcl_Tree_AddChild TreeControl (LIST (list key x))))
    538. ;            )
    539. ;        )
    540. ;    );defun addlist
    541. ;  (addlist (cdr lst) key)
    542. ;  (PRINC)
    543. ;)
    544. ;
    545. ;(setq lst 
    546. ;    (LIST "总分类"
    547. ;         "A没有子分类"
    548. ;         "B没有子分类"
    549. ;         POP1
    550. ;         (LIST "分类1"
    551. ;             "分类11"
    552. ;             (LIST "分类12"
    553. ;                 "分类121"
    554. ;                 (LIST "分类122"
    555. ;                     "分类1221"
    556. ;                     "分类1222"
    557. ;                     "分类1223"
    558. ;                 )
    559. ;                 "分类123"
    560. ;                 "分类124"
    561. ;                 "分类125"
    562. ;                 "分类126"
    563. ;                 "分类127"
    564. ;             )
    565. ;             "分类13"
    566. ;         )
    567. ;         POP2
    568. ;         (LIST "分类2"
    569. ;             "分类21"
    570. ;             "分类22"
    571. ;             "分类23"
    572. ;             "分类24"
    573. ;             "分类25"
    574. ;             "分类26"
    575. ;         )
    576. ;         POP3
    577. ;         (LIST "分类3"
    578. ;             "分类31"
    579. ;             "分类32"
    580. ;             "分类33"
    581. ;             "分类34"
    582. ;             "分类35"
    583. ;             "分类36"
    584. ;             "分类37"
    585. ;             "分类38"
    586. ;             "分类39"
    587. ;         )
    588. ;     )
    589. ;)