[求助][LISP]紧急求救

呆呆 · 发表于 2003-10-25 15:37:00

怎么在字符窜里查找规定的字母所在的位置 http://www.mjtd.com/function/list.asp?id=72&ordertype=byletter这个贴字虽然写了但是我看不懂请教哪位高手给指点一下！！谢谢
还有怎么定义错误函数，我的程序在执行中途被取消的时候，剩下未执行的部分会被显示在命令行里！！请教怎么样才能消除这种情况！！我是个新手！！！
谢谢各位大侠的解答

meflying · 发表于 2003-10-25 15:45:00

未执行部分显示在命令行是什么意思？
错误函数就是*error*函数，你直接定义就可以了，程序出错时，系统就自动调用这个错误函数。

呆呆 · 发表于 2003-10-25 15:50:00

我用的是R14 我在执行程序的中途不得已而取消了这时候我编辑的程序内容被显示在命令行里这是怎么回事呀？

meflying · 发表于 2003-10-25 15:57:00

还是不明白，程序执行过程中出错，只会显示出错信息，怎么可能显示程序内容？
提供一个图看看，或者提供一段出错的程序，然后告诉我显示在命令行中的内容。
你说的那个函数，我做了一些注释，你看看，能否看懂

copy


(defun instr (str fnd)
  (setq        str (strcase str T)
        fnd (strcase fnd T)
  );先将两个字符串都改为小写，这样，比较就不分大小写
  (if (wcmatch str (strcat "*`" fnd "*"));判断字符串str中是否包含fnd字符串
    (progn
      (setq c 1)
      (while (/= (setq s (substr str 1 (strlen fnd))) fnd);如果有，则循环，从第一位开始，取出与fnd相同长度的字符串，
        ;与fnd比较，看是否相等，不等，则继续查找，
        (setq str (substr str 2);将比较过不存在的第一位去掉，剩下其余部分
              c          (1+ c)
        )
      );while结束
    );progn结束
    (setq c 0);如果str中不包含fnd字符串，则返回0
  );if结束
  c
)

呆呆 · 发表于 2003-10-25 16:06:00

谢谢斑竹
我用的是R14
(defun C:fe(/ oce dr xf xff f1 f2 f3 f4 n d1 d2 d3 d4 l lx zl
         zz zd zdd m m1 m2 m3 e1 e2 e3  )
  (command "undo" "be")
  (setq oce (getvar "cmdecho"))
  (setvar "cmdecho" 0)
  (initget " 8 10 12 15 16 20 22 25")
  (setq dr(getkword "\n请输入钢筋型号:"))
  (if (= dr nil) (quit))
  (cond
( (= dr "8")  ( setq xf "0.395"))
( (= dr "10") ( setq xf "0.617"))
( (= dr "12") ( setq xf "0.888"))
( (= dr "15") ( setq xf "1.387"))
( (= dr "16") ( setq xf "1.580"))
( (= dr "20") ( setq xf "2.466"))
( (= dr "22") ( setq xf "2.980"))
( (= dr "25") ( setq xf "3.850"))
)
(setq xff (atof xf))
(while
(setq f1 (entsel "\n请选择钢筋跟数:"))
(setq f2 (car f1))
(setq f3 (entget f2))
(setq f4 (cdr (assoc 1 f3)))
(setq n (atof f4))
(setq d1(entsel "\n请选择单根长度:"))
(setq d2 (car d1))
(setq d3 (entget d2))
(setq d4 (cdr (assoc 1 d3)))
(setq l  (atof d4))
(setq lx(* n l 0.01))
(setq zl(* lx xff))
(setq zz(rtos zl  2  2))
(setq ll(rtos lx 2 2))
(setq zd(cons 1 zz))
(setq m(cons 1 ll))
(prompt "\n总长度=")
(princ ll)
(setq m1(entsel "\n选择总长度:"))
(setq m2(car m1))
(setq m3(entget m2))
(setq mm(assoc 1 m3))
(setq m3 (subst m mm m3))
(entmod m3)
(prompt "\n总重量=")
(princ zz)
(setq e1(entsel "\n选择总重量:"))
(setq e2(car e1))
(setq e3(entget e2))
(setq zdd(assoc 1 e3))
(setq e3 (subst zd zdd e3))
(entmod e3)
)
  (setvar "cmdecho" oce)
(princ)
)
您把这个程序加载到 r14上然后在中途取消按下F2看看就知道了谢谢