[LISP]请问各位大侠我的程序有问题不知道什么改正？

呆呆 · 发表于 2003-12-13 11:26:00

我的程序里面还有个子程序刚才忘记了呵呵
(defun instr (str fnd)
  (setq str (strcase str T)
fnd (strcase fnd T)
  )
  (if (wcmatch str (strcat "*`" fnd "*"))
(progn
   (setq c 1)
   (while (/= (setq s (substr str 1 (strlen fnd))) fnd)
(setq str (substr str 2)
   c  (1+ c)
)
   )
)
(setq c 0)
  )
  c
)

meflying · 发表于 2003-12-13 11:31:00

你还是给一个改前，和改后的图给我，，，吧

呆呆 · 发表于 2003-12-13 11:52:00

如下图现在这是一条直线可能经过旋转和平移但是标注的坐标是对的现在能不能通过程序使坐标系通过移动和旋转是这条直线的坐标和标注的一样？

呆呆 · 发表于 2003-12-13 11:53:00

怎么不能传图呀

呆呆 · 发表于 2003-12-13 11:56:00

meflying · 发表于 2003-12-13 13:06:00

跟你说过好几回了，如果是这样，移回去不就行了？
(command "_.move" "all" b a)

yyyyyy111 · 发表于 2005-12-4 22:31:00

学了很多，谢谢大家

ljcgq · 发表于 2012-12-22 14:45:33

18# 我受益匪浅，谢谢飞哥啊

账号		自动登录	找回密码
密码			注册

[LISP]请问各位大侠我的程序有问题 不知道什么改正？

本帖子中包含更多资源

[LISP]请问各位大侠我的程序有问题不知道什么改正？