全部明经币求两个lisp

wchsunshine

fl202

sicky111 发表于 2013-10-22 09:41
fl202大侠出手吧。

做完了，但没有做gif图，我希望楼主测试后，把gif图做上来，否则以后不帮忙了啊。

有问题再反馈给我。

那个谁？给我30个明经币，谢谢！穷死了。。。

2. (defun c:bb1( /  dat_file dcl_id dd ff path)
   
3. ;主程序
   
4. (vl-load-com)
   
5. (if (null bb1n1) (setq bb1n1 2)); 小数位数  dimzin 控制消零
   
6. (if (null bb1n2) (setq bb1n2 10)); 选择集排序的容差，或者称为表格的标高。
   
7. (setq path (getvar "dwgprefix"))  (setq dat_file path)
   
8. (if (> (setq dcl_id (load_dialog "dbb1")) 0)
   
9.   (progn
   
10.     (setq dd 8)   
    
11.    (while (> dd 4)
    
12.      (if (new_dialog "dbb1" dcl_id)
    
13.        (progn      
    
14.        (bb1_sub1)     
    
15.      (action_tile "d11" "(setq bb1n1 (atoi $value))")  
    
16.      (action_tile "d12" "(setq bb1n2 (atoi $value))")     
    
17.      (action_tile "d21" "(set_tile "t11" dat_file)(done_dialog 5)")
    
18.      (action_tile "d22" "(done_dialog 6)")
    
19.      (action_tile "d23" "(done_dialog 7)")
    
20.      (action_tile "accept" "(bb1_get1)(done_dialog 2)")
    
21.      (action_tile "cancel" "(done_dialog 1)")  
    
22.       (setq dd (start_dialog))
    
23.      );end progn 2
    
24.        (princ "\n Unable to display dialog box!")
    
25.              );end (if (new_dialog "ddn1" dcl_id)
    
26.      (cond
    
27. 
    
28.      ((= dd 5)           (bb1_sub2)         )
    
29.      ((= dd 6)           (bb1_sub3)         )
    
30.      ((= dd 7)   
    
31.        (progn
    
32.           (princ "\n Have a nice day!")
    
33.           (setq ff (findfile "重量计算模板.csv"))           
    
34.               (startapp "notepad.exe" ff)
    
35.          ));end dd 7
    
36.          ((= dd 2)
    
37.        (progn
    
38.           ;(princ (list bb1n1 bb1k1 bb1_b1 bb1_b2))        
    
39.           (if bb1_b1   
    
40.               (bb1_sub4)
    
41.               (progn (setq dd 6)(bb1_sub3))
    
42.               )
    
43.          ));end if
    
44.          (t (princ dd)) )
    
45.      );end while (> dd 4)
    
46.   (UNLOAD_DIALOG DCL_ID)
    
47.     );end progn 1
    
48.     (princ "\n Unable to load dialog box!")
    
49.   );end if
    
50. 
    
51. )
    
52. 
    

(defun c:bb1( /  dat_file dcl_id dd ff path)<br /> ;主程序<br /> (vl-load-com)<br /> (if (null bb1n1) (setq bb1n1 2)); 小数位数  dimzin 控制消零<br /> (if (null bb1n2) (setq bb1n2 10)); 选择集排序的容差，或者称为表格的标高。<br /> (setq path (getvar "dwgprefix"))  (setq dat_file path)<br /> (if (> (setq dcl_id (load_dialog "dbb1")) 0)<br />   (progn<br />     (setq dd 8)   <br />    (while (> dd 4)<br />      (if (new_dialog "dbb1" dcl_id)<br />        (progn      <br />        (bb1_sub1)     <br />      (action_tile "d11" "(setq bb1n1 (atoi $value))")  <br />      (action_tile "d12" "(setq bb1n2 (atoi $value))")     <br />      (action_tile "d21" "(set_tile "t11" dat_file)(done_dialog 5)")<br />      (action_tile "d22" "(done_dialog 6)")<br />      (action_tile "d23" "(done_dialog 7)")<br />      (action_tile "accept" "(bb1_get1)(done_dialog 2)")<br />      (action_tile "cancel" "(done_dialog 1)")  <br />       (setq dd (start_dialog))<br />      );end progn 2<br />        (princ "\n Unable to display dialog box!")<br />              );end (if (new_dialog "ddn1" dcl_id)<br />      (cond <br /> <br />      ((= dd 5)           (bb1_sub2)         )<br />      ((= dd 6)           (bb1_sub3)         )<br />      ((= dd 7)    <br />        (progn<br />           (princ "\n Have a nice day!")<br />           (setq ff (findfile "重量计算模板.csv"))           <br />               (startapp "notepad.exe" ff)<br />          ));end dd 7<br />          ((= dd 2)<br />        (progn<br />           ;(princ (list bb1n1 bb1k1 bb1_b1 bb1_b2))        <br />           (if bb1_b1   <br />               (bb1_sub4)<br />               (progn (setq dd 6)(bb1_sub3))<br />               )<br />          ));end if<br />          (t (princ dd)) )<br />      );end while (> dd 4)<br />   (UNLOAD_DIALOG DCL_ID)<br />     );end progn 1<br />     (princ "\n Unable to load dialog box!")<br />   );end if <br /> <br /> ) <br /> <br />

xyp1964

需要先建立材料单重的数据库
不具有通用性

wchsunshine

是的，希望从文件读取重量表，建立csv数据库，可修改参数。

fl202

我可以做，但从0编起，要10个明经币。

思路：选择集排序，文字处理，计算，赋值。 里面要考虑：前面名称的文字格式都是一致的吗？缺行怎么处理？

楼主可以自己尝试编写。

革天明

fl202 发表于 2013-10-17 10:14
我可以做，但从0编起，要10个明经币。

思路：选择集排序，文字处理，计算，赋值。 里面要考虑：前面名称 ...

你编吧，我出30个币给你。

wchsunshine

计算结果替换图中XXX。 选名称中的明细 （不限个数），再选重量中的XXX，XXX就为该规格重量

fl202

革天明 发表于 2013-10-17 10:24
你编吧，我出30个币给你。

真的假的？！
楼主还有什么要求？
[12.6  L=8000 重量96.5，怎么算的？
L50*50*5  L=5000  18.9 ？这个重量怎么算出来的？
重量表可否设置成对话框形式，方便更改参数 ？？？
详述下（qq：307104010），我来编一个。下周上传。

wchsunshine

附件“求程序.dwg”中有个重量表    规定了每种规格的重量， [12.6  每米重量12.06       计算12.06×8000÷1000=96.49      设置小数点后结果为96.5     。
例：[12.6  L=8000     中[12.6代表规格              8000 代表长度
  L50*50*5  L=5000    中 L50*50*5代表规格      5000 代表长度
希望从文件读取重量表，建csv数据库，参数后期可修改

期待中。。。。。

wchsunshine

希望版主 大哥帮忙      写下这两个程序。。