求高手帮忙写个代码（高手在民间）

86023383

在CAD上面选择例如 HK500X350X10X16/280 或者多个这种格式的文本读取，及[600-10-14X100或者多个这样格式读取 ，生成 LIS 文件  。在此小弟谢谢大家了！

PROFILE DATABASE EXPORT VERSION = 3  (这行是固定的)
PROFILE_NAME = "HK500X350X10X16/280";
{
    TYPE = 11; SUB_TYPE = 11001; COORDINATE = 0.000;
    {
        "HEIGHT"                            5.000000000E+002   (高)对应的500
        "WEB_THICKNESS"                     1.000000000E+001   (腹板厚度)对应的10
        "FLANGE_THICKNESS"                  1.600000000E+001   (翼缘厚度)对应的16
        "WIDTH"                             3.500000000E+002   (翼缘宽度)对应的350
        "CANTILEVER"                        3.500000000E+001   ((宽度-280)/2) 对应的是 （350-280）/2
        "ROUNDING_RADIUS"                   1.500000000E+001   (固定)
        "CROSS_SECTION_AREA"                0.000000000E+000
        "COVER_AREA"                        0.000000000E+000
        "WEIGHT_PER_UNIT_LENGTH"            0.000000000E+000
        "MOMENT_OF_INERTIA_X"               0.000000000E+000
        "MOMENT_OF_INERTIA_Y"               0.000000000E+000
        "SECTION_MODULUS_X"                 0.000000000E+000
        "SECTION_MODULUS_Y"                 0.000000000E+000
        "RADIUS_OF_GYRATION_X"              0.000000000E+000
        "RADIUS_OF_GYRATION_Y"              0.000000000E+000
        "NEUTRAL_AXIS_LOCATION_ELASTIC_X"   0.000000000E+000
        "NEUTRAL_AXIS_LOCATION_ELASTIC_Y"   0.000000000E+000
        "NEUTRAL_AXIS_LOCATION_PLASTIC_X"   0.000000000E+000
        "NEUTRAL_AXIS_LOCATION_PLASTIC_Y"   0.000000000E+000
        "PLASTIC_MODULUS_X"                 0.000000000E+000
        "PLASTIC_MODULUS_Y"                 0.000000000E+000
        "TANGENT_OF_PRINCIPAL_AXIS_ANGLE"   0.000000000E+000
        "SHEAR_CENTER_LOCATION"             0.000000000E+000
        "TORSIONAL_CONSTANT"                0.000000000E+000
        "WARPING_CONSTANT"                  0.000000000E+000
        "NORMALIZED_WARPING_CONSTANT"       0.000000000E+000
        "WARPING_STATICAL_MOMENT"           0.000000000E+000
        "STATICAL_MOMENT_Qf"                0.000000000E+000
        "STATICAL_MOMENT_Qw"                0.000000000E+000
        "SQRT_OF_E_x_Cw_PER_G_x_J"          0.000000000E+000
        "POLAR_RADIUS_OF_GYRATION"          0.000000000E+000
    }
}

ZZXXQQ

2. (defun c:tt () ;HK500X350X10X16/280,[550-10-14X100
   
3. (setq fnm (if (= (type fnm) 'STR) fnm ""))
   
4. (if (and (setq ss (ssget '((0 . "TEXT") (1 . "HK*X*X*X*/*,`[*`-*`-*X*"))))
   
5.           (setq fnm (getfiled "选择文件" fnm "lis" 1))) (progn
   
6.   (setq fp (open fnm "w"))
   
7.   (setq i -1)
   
8.   (repeat (sslength ss)
   
9.    (setq txt (cdr(assoc 1 (entget(ssname ss (setq i (1+ i)))))))
   
10.    (setq j 1 tmp "" nlst (list))
    
11.    (while (wcmatch (substr txt j 1) "~[0-9]") (setq j (1+ j)))
    
12.    (while (<= j (strlen txt))
    
13.     (if (wcmatch (setq a (substr txt j 1)) "[0-9]")
    
14.      (setq tmp (strcat tmp a))
    
15.      (setq nlst (cons (atof tmp) nlst) tmp "")
    
16.     )
    
17.     (setq j (1+ j))
    
18.    )
    
19.    (if (> (strlen tmp) 1) (setq nlst (cons (atof tmp) nlst)))
    
20.    (setq nlst (reverse nlst))
    
21.    (princ "PROFILE DATABASE EXPORT VERSION = 3\n" fp)
    
22.    (princ "PROFILE_NAME = " fp)
    
23.    (prin1 txt fp)
    
24.    (princ ";\n{\n    TYPE = " fp)
    
25.    (if (= (substr txt 1 1) "[") (progn
    
26.     (princ "999; SUB_TYPE = "CCCC"; SUB_TYPE = 999168; COORDINATE = 0.000;\n    {\n" fp)
    
27.     (princ "\n        "T1"                                " fp)
    
28.     (princ (rtos (caddr nlst) 1 9) fp)
    
29.     (princ "\n        "T2"                                " fp)
    
30.     (princ (rtos (cadr nlst) 1 9) fp)
    
31.     (princ "\n        "B1"                                " fp)
    
32.     (princ (rtos (last nlst) 1 9) fp)
    
33.     (princ "\n        "H"                                 " fp)
    
34.     (princ (rtos (car nlst) 1 9) fp)
    
35.    ) (progn
    
36.     (princ "11; SUB_TYPE = 11001; COORDINATE = 0.000;\n    {\n" fp)
    
37.     (princ "        "HEIGHT"                            " fp)
    
38.     (princ (rtos (car nlst) 1 9) fp);5.000000000E+002   (高)对应的500
    
39.     (princ "\n        "WEB_THICKNESS"                     " fp)
    
40.     (princ (rtos (caddr nlst) 1 9) fp);1.000000000E+001   (腹板厚度)对应的10
    
41.     (princ "\n        "FLANGE_THICKNESS"                  " fp)
    
42.     (princ (rtos (cadddr nlst) 1 9) fp);1.600000000E+001   (翼缘厚度)对应的16
    
43.     (princ "\n        "WIDTH"                             " fp)
    
44.     (princ (rtos (cadr nlst) 1 9) fp);3.500000000E+002   (翼缘宽度)对应的350
    
45.     (princ "\n        "CANTILEVER"                        " fp)
    
46.     (princ (rtos (/ (- (cadr nlst) (last nlst)) 2.0) 1 9) fp);3.500000000E+001   ((宽度-280)/2) 对应的是 （350-280）/2
    
47.     (princ "\n        "ROUNDING_RADIUS"                   1.500000000E+001" fp);   (固定)
    
48.    ))
    
49. ;*****
    
50.    (princ "\n        "CROSS_SECTION_AREA"                0.000000000E+000" fp)
    
51.    (princ "\n        "COVER_AREA"                        0.000000000E+000" fp)
    
52.    (princ "\n        "WEIGHT_PER_UNIT_LENGTH"            0.000000000E+000" fp)
    
53.    (princ "\n        "MOMENT_OF_INERTIA_X"               0.000000000E+000" fp)
    
54.    (princ "\n        "MOMENT_OF_INERTIA_Y"               0.000000000E+000" fp)
    
55.    (princ "\n        "SECTION_MODULUS_X"                 0.000000000E+000" fp)
    
56.    (princ "\n        "SECTION_MODULUS_Y"                 0.000000000E+000" fp)
    
57.    (princ "\n        "RADIUS_OF_GYRATION_X"              0.000000000E+000" fp)
    
58.    (princ "\n        "RADIUS_OF_GYRATION_Y"              0.000000000E+000" fp)
    
59.    (princ "\n        "NEUTRAL_AXIS_LOCATION_ELASTIC_X"   0.000000000E+000" fp)
    
60.    (princ "\n        "NEUTRAL_AXIS_LOCATION_ELASTIC_Y"   0.000000000E+000" fp)
    
61.    (princ "\n        "NEUTRAL_AXIS_LOCATION_PLASTIC_X"   0.000000000E+000" fp)
    
62.    (princ "\n        "NEUTRAL_AXIS_LOCATION_PLASTIC_Y"   0.000000000E+000" fp)
    
63.    (princ "\n        "PLASTIC_MODULUS_X"                 0.000000000E+000" fp)
    
64.    (princ "\n        "PLASTIC_MODULUS_Y"                 0.000000000E+000" fp)
    
65.    (princ "\n        "TANGENT_OF_PRINCIPAL_AXIS_ANGLE"   0.000000000E+000" fp)
    
66.    (princ "\n        "SHEAR_CENTER_LOCATION"             0.000000000E+000" fp)
    
67.    (princ "\n        "TORSIONAL_CONSTANT"                0.000000000E+000" fp)
    
68.    (princ "\n        "WARPING_CONSTANT"                  0.000000000E+000" fp)
    
69.    (princ "\n        "NORMALIZED_WARPING_CONSTANT"       0.000000000E+000" fp)
    
70.    (princ "\n        "WARPING_STATICAL_MOMENT"           0.000000000E+000" fp)
    
71.    (princ "\n        "STATICAL_MOMENT_Qf"                0.000000000E+000" fp)
    
72.    (princ "\n        "STATICAL_MOMENT_Qw"                0.000000000E+000" fp)
    
73.    (princ "\n        "SQRT_OF_E_x_Cw_PER_G_x_J"          0.000000000E+000" fp)
    
74.    (princ "\n        "POLAR_RADIUS_OF_GYRATION"          0.000000000E+000" fp)
    
75.    (princ "\n    }\n}\n" fp)
    
76.   )
    
77.   (close fp)
    
78. (startapp "notepad" fnm)
    
79. ))
    
80. (princ)
    
81. )
    

(defun c:tt () ;HK500X350X10X16/280,[550-10-14X100<br /> (setq fnm (if (= (type fnm) 'STR) fnm ""))<br /> (if (and (setq ss (ssget '((0 . "TEXT") (1 . "HK*X*X*X*/*,`[*`-*`-*X*"))))<br />           (setq fnm (getfiled "选择文件" fnm "lis" 1))) (progn<br />   (setq fp (open fnm "w"))<br />   (setq i -1)<br />   (repeat (sslength ss)<br />    (setq txt (cdr(assoc 1 (entget(ssname ss (setq i (1+ i)))))))<br />    (setq j 1 tmp "" nlst (list))<br />    (while (wcmatch (substr txt j 1) "~[0-9]") (setq j (1+ j)))<br />    (while (<= j (strlen txt))<br />     (if (wcmatch (setq a (substr txt j 1)) "[0-9]")<br />      (setq tmp (strcat tmp a))<br />      (setq nlst (cons (atof tmp) nlst) tmp "")<br />     )<br />     (setq j (1+ j))<br />    )<br />    (if (> (strlen tmp) 1) (setq nlst (cons (atof tmp) nlst)))<br />    (setq nlst (reverse nlst))<br />    (princ "PROFILE DATABASE EXPORT VERSION = 3\n" fp)<br />    (princ "PROFILE_NAME = " fp)<br />    (prin1 txt fp)<br />    (princ ";\n{\n    TYPE = " fp)<br />    (if (= (substr txt 1 1) "[") (progn<br />     (princ "999; SUB_TYPE = "CCCC"; SUB_TYPE = 999168; COORDINATE = 0.000;\n    {\n" fp)<br />     (princ "\n        "T1"                                " fp)<br />     (princ (rtos (caddr nlst) 1 9) fp)<br />     (princ "\n        "T2"                                " fp)<br />     (princ (rtos (cadr nlst) 1 9) fp)<br />     (princ "\n        "B1"                                " fp)<br />     (princ (rtos (last nlst) 1 9) fp)<br />     (princ "\n        "H"                                 " fp)<br />     (princ (rtos (car nlst) 1 9) fp)<br />    ) (progn<br />     (princ "11; SUB_TYPE = 11001; COORDINATE = 0.000;\n    {\n" fp)<br />     (princ "        "HEIGHT"                            " fp)<br />     (princ (rtos (car nlst) 1 9) fp);5.000000000E+002   (高)对应的500<br />     (princ "\n        "WEB_THICKNESS"                     " fp)<br />     (princ (rtos (caddr nlst) 1 9) fp);1.000000000E+001   (腹板厚度)对应的10<br />     (princ "\n        "FLANGE_THICKNESS"                  " fp)<br />     (princ (rtos (cadddr nlst) 1 9) fp);1.600000000E+001   (翼缘厚度)对应的16<br />     (princ "\n        "WIDTH"                             " fp)<br />     (princ (rtos (cadr nlst) 1 9) fp);3.500000000E+002   (翼缘宽度)对应的350<br />     (princ "\n        "CANTILEVER"                        " fp)<br />     (princ (rtos (/ (- (cadr nlst) (last nlst)) 2.0) 1 9) fp);3.500000000E+001   ((宽度-280)/2) 对应的是 （350-280）/2<br />     (princ "\n        "ROUNDING_RADIUS"                   1.500000000E+001" fp);   (固定)<br />    ))<br /> ;*****<br />    (princ "\n        "CROSS_SECTION_AREA"                0.000000000E+000" fp)<br />    (princ "\n        "COVER_AREA"                        0.000000000E+000" fp)<br />    (princ "\n        "WEIGHT_PER_UNIT_LENGTH"            0.000000000E+000" fp)<br />    (princ "\n        "MOMENT_OF_INERTIA_X"               0.000000000E+000" fp)<br />    (princ "\n        "MOMENT_OF_INERTIA_Y"               0.000000000E+000" fp)<br />    (princ "\n        "SECTION_MODULUS_X"                 0.000000000E+000" fp)<br />    (princ "\n        "SECTION_MODULUS_Y"                 0.000000000E+000" fp)<br />    (princ "\n        "RADIUS_OF_GYRATION_X"              0.000000000E+000" fp)<br />    (princ "\n        "RADIUS_OF_GYRATION_Y"              0.000000000E+000" fp)<br />    (princ "\n        "NEUTRAL_AXIS_LOCATION_ELASTIC_X"   0.000000000E+000" fp)<br />    (princ "\n        "NEUTRAL_AXIS_LOCATION_ELASTIC_Y"   0.000000000E+000" fp)<br />    (princ "\n        "NEUTRAL_AXIS_LOCATION_PLASTIC_X"   0.000000000E+000" fp)<br />    (princ "\n        "NEUTRAL_AXIS_LOCATION_PLASTIC_Y"   0.000000000E+000" fp)<br />    (princ "\n        "PLASTIC_MODULUS_X"                 0.000000000E+000" fp)<br />    (princ "\n        "PLASTIC_MODULUS_Y"                 0.000000000E+000" fp)<br />    (princ "\n        "TANGENT_OF_PRINCIPAL_AXIS_ANGLE"   0.000000000E+000" fp)<br />    (princ "\n        "SHEAR_CENTER_LOCATION"             0.000000000E+000" fp)<br />    (princ "\n        "TORSIONAL_CONSTANT"                0.000000000E+000" fp)<br />    (princ "\n        "WARPING_CONSTANT"                  0.000000000E+000" fp)<br />    (princ "\n        "NORMALIZED_WARPING_CONSTANT"       0.000000000E+000" fp)<br />    (princ "\n        "WARPING_STATICAL_MOMENT"           0.000000000E+000" fp)<br />    (princ "\n        "STATICAL_MOMENT_Qf"                0.000000000E+000" fp)<br />    (princ "\n        "STATICAL_MOMENT_Qw"                0.000000000E+000" fp)<br />    (princ "\n        "SQRT_OF_E_x_Cw_PER_G_x_J"          0.000000000E+000" fp)<br />    (princ "\n        "POLAR_RADIUS_OF_GYRATION"          0.000000000E+000" fp)<br />    (princ "\n    }\n}\n" fp)<br />   )<br />   (close fp)<br /> (startapp "notepad" fnm)<br /> ))<br /> (princ)<br /> )<br />

86023383

ZZXXQQ 发表于 2013-7-13 22:45

大哥 为什么运行就退出了呢？ 能帮我把后面那个例子也加上吗？

ZZXXQQ

修正了错误。再试试

86023383

ZZXXQQ 发表于 2013-7-14 08:30
修正了错误。再试试

大哥 这下输出可以了 但是 这行 (princ (rtos (/ (- (cadr nlst) (last nlst)) 2) 5 9) fp);    这行输出的不是 “((宽度-280)/2) 对应的是 （350-280）/2” 有点问题。其它都是对的    还有就是 读取多个文本的时候只能输出一个

ZZXXQQ

这回改好了，去沙发下载吧。

ZZXXQQ

双改了。再试试

86023383

谢谢版主大哥 耐心 细心调试无数次。千言万语 只能说谢谢 和敬佩!!!!!