[求助]lisp如何同时改变多段线的两个端点

luyu9635 · 发表于 2009-9-17 00:08:00

如题,可以用subs和entmod吗,如果一多段线只有四个端点分别是p1,p2 p3 ,p4,现在我想p1,p2不变，改p3,p4为p5,p6 ,我是这样做的(setq lst(append (list p1)(list p2)(list p5)(list p6)));

(foreach n lst (setq data(subst (cons 10 n)(assoc 10 data) data))(entmod data));这样只能改变一个端点，要怎么修改呀

caoyin · 发表于 2009-9-17 01:37:00

foreach在这里使用没有道理

直接两次用subst替换两个点，entmod一次更新

明经网友 *发表于 2009-9-17 22:31:00* · 发表于 2009-9-17 22:31:00

caoyin发表于2009-9-17 1:37:00foreach在这里使用没有道理直接两次用subst替换两个点，entmod一次更新

caoyin,你说的方法我试过了，不行呀，也只能更新一个端点，请帮忙调试下，谢谢

明经网友 *发表于 2009-9-17 22:33:00* · 发表于 2009-9-17 22:33:00

caoyin发表于2009-9-17 1:37:00foreach在这里使用没有道理直接两次用subst替换两个点，entmod一次更新

caoyin,你说的方法我试过了，这样也只能更新一个端点，请帮忙调试一下，谢谢了

luyu9635 · 发表于 2009-9-18 23:40:00

caoyin发表于2009-9-17 1:37:00foreach在这里使用没有道理直接两次用subst替换两个点，entmod一次更新

回caoyin,你说的方法我试过了，也不行呀，也只能更新一个端点，请帮忙调试一下，谢谢

luyu9635 · 发表于 2009-9-19 20:02:00

怎么没回音了啊

luyu9635 · 发表于 2009-9-19 22:16:00

各位大侠请帮忙看看好吗

luyu9635 · 发表于 2009-9-20 12:04:00

自己搞定了，应该用nth取要改变的点，这样就可以更新多个了

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