请帮帮忙，谢谢

晓雨 · 发表于 2004-3-6 19:10:00

谢谢meflying,你的名字什么意思,这么怪,不懂,什么叫好像接受了,就是接受了嘛问一问,你是学机械的吗?getvar "osmode" oldos 和 setvar "osmode" oldos 是一样的,没区别吧

meflying · 发表于 2004-3-6 19:14:00

一个是读，一个是写，看字面意思都能够明白另，作为LISP编程习惯，不应该写出getvar "osmode" oldos这样的东西的，一个表达式就应该带上括号。。。只有单个函数（没有参数）或命令的情况下可以不要括号来说明它。。。

晓雨 · 发表于 2004-3-6 19:15:00

我还有一个问题,就是能不能把系统自动设置的快捷键替换成我要的命令呢,

meflying · 发表于 2004-3-6 19:31:00

做到菜单里才可以。。。

命令：customize

晓雨 · 发表于 2004-3-10 21:16:00

我又碰到一个问题，要麻烦版主了，我在修改装配图的时候经常要插入一两个零件，这样就出现一个问题，就是图中所有在插入零件后的其它零件序号都要向后推，原来的37号，就变成了38号，原来的89号，就变成了90号，这样每一个序号都要改变，都用DDEDIT挺麻烦的，版主编一个程序给我吧，直接在原来数字上加上1或者2之类，只要点一下数字就行了，万分感谢，

meflying · 发表于 2004-3-10 21:32:00

选中所有需要修改的文字（TEXT类型） (defun c:test( / ss i ents txt)
(setq ss (ssget '((0 . "text"))))
(setq i 0)
(repeat (sslength ss)
(setq ents (entget (ssname ss i)))
(setq txt (cdr (assoc 1 ents)))
(setq txt (rtos (1+ (read txt))))
(setq ents (subst (cons 1 txt) (assoc 1 ents) ents))
(entmod ents)
(setq i (1+ i))
)
(princ)
)

晓雨 · 发表于 2004-3-10 21:44:00

本帖最后由作者于 2004-3-11 12:17:37 编辑

不会吧，你在线啊，我还以为你不在呢，谢了，我先试一下。有一个问题，就是只能加1，我把程序里的1改为2也不行，为什么，有时候我要减1减2，还有你能不能在你的程序后面加上注解。谢谢了

晓雨 · 发表于 2004-3-11 12:19:00

你在吗？mefly

meflying · 发表于 2004-3-11 12:54:00

这又是一个最基本的问题，有函数1+是表示加1，可并没有函数2+表示加2的，要加2

+ x 2)这样才行，减不就一样了吗。。。

晓雨 · 发表于 2004-3-11 15:09:00

defun c:test( / ss i ents txt)
(setq ss (ssget '((0 . "text"))))
(setq i 0)
(repeat (sslength ss)
(setq ents (entget (ssname ss i)))
(setq txt (cdr (assoc 1 ents)))
(setq txt (rtos (1+ (read txt))))
(setq ents (subst (cons 1 txt) (assoc 1 ents) ents))
(entmod ents)
(setq i (1+ i))
)
(princ)
) 谢谢

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