wchsunshine 发表于 2013-10-16 21:20:19

全部明经币求两个lisp

本帖最后由 wchsunshine 于 2021-1-31 22:02 编辑

fl202 发表于 2013-10-16 21:20:20

本帖最后由 fl202 于 2013-10-22 17:58 编辑

sicky111 发表于 2013-10-22 09:41 static/image/common/back.gif
fl202大侠出手吧。
做完了，但没有做gif图，我希望楼主测试后，把gif图做上来，否则以后不帮忙了啊。

有问题再反馈给我。

那个谁？给我30个明经币，谢谢！穷死了。。。(defun c:bb1( /dat_file dcl_id dd ff path)
;主程序
(vl-load-com)
(if (null bb1n1) (setq bb1n1 2)); 小数位数dimzin 控制消零
(if (null bb1n2) (setq bb1n2 10)); 选择集排序的容差，或者称为表格的标高。
(setq path (getvar "dwgprefix"))(setq dat_file path)
(if (> (setq dcl_id (load_dialog "dbb1")) 0)
(progn
    (setq dd 8)   
   (while (> dd 4)
   (if (new_dialog "dbb1" dcl_id)
       (progn      
       (bb1_sub1)   
   (action_tile "d11" "(setq bb1n1 (atoi $value))")
   (action_tile "d12" "(setq bb1n2 (atoi $value))")   
   (action_tile "d21" "(set_tile \"t11\" dat_file)(done_dialog 5)")
   (action_tile "d22" "(done_dialog 6)")
   (action_tile "d23" "(done_dialog 7)")
   (action_tile "accept" "(bb1_get1)(done_dialog 2)")
   (action_tile "cancel" "(done_dialog 1)")
      (setq dd (start_dialog))
   );end progn 2
       (princ "\n Unable to display dialog box!")
             );end (if (new_dialog "ddn1" dcl_id)
   (cond

   ((= dd 5)         (bb1_sub2)         )
   ((= dd 6)         (bb1_sub3)         )
   ((= dd 7)   
       (progn
          (princ "\n Have a nice day!")
          (setq ff (findfile "重量计算模板.csv"))         
            (startapp "notepad.exe" ff)
         ));end dd 7
         ((= dd 2)
       (progn
          ;(princ (list bb1n1 bb1k1 bb1_b1 bb1_b2))      
          (if bb1_b1   
            (bb1_sub4)
            (progn (setq dd 6)(bb1_sub3))
            )
         ));end if
         (t (princ dd)) )
   );end while (> dd 4)
(UNLOAD_DIALOG DCL_ID)
    );end progn 1
    (princ "\n Unable to load dialog box!")
);end if

)

xyp1964 发表于 2013-10-16 22:36:53

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

wchsunshine 发表于 2013-10-17 07:29:40

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

fl202 发表于 2013-10-17 10:14:37

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

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

楼主可以自己尝试编写。

革天明 发表于 2013-10-17 10:24:33

fl202 发表于 2013-10-17 10:14 static/image/common/back.gif
我可以做，但从0编起，要10个明经币。

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

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

wchsunshine 发表于 2013-10-17 12:04:52

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

fl202 发表于 2013-10-17 17:26:52

本帖最后由 fl202 于 2013-10-17 17:38 编辑

革天明 发表于 2013-10-17 10:24 static/image/common/back.gif
你编吧，我出30个币给你。
真的假的？！
楼主还有什么要求？
[12.6L=8000 重量96.5，怎么算的？
L50*50*5L=500018.9 ？这个重量怎么算出来的？
重量表可否设置成对话框形式，方便更改参数 ？？？
详述下（qq：307104010），我来编一个。下周上传。

wchsunshine 发表于 2013-10-17 19:06:21

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

期待中。。。。。

wchsunshine 发表于 2013-10-17 19:09:02

希望版主 大哥帮忙      写下这两个程序。。
页: [1] 2
查看完整版本: 全部明经币求两个lisp