[求助]请教各位好友

wangp100 · 发表于 2008-4-13 11:53

请教各位好友，样条曲线所有的Z轴坐标怎么样改为零？？？？例如:

(defun ABKA (/ i x b c1 c2 px py k)
(setq i 28)
(setq x (ssget))
(setq b (entget (ssname x 0)))
(repeat (length b)
    (setq c1 (nth i b))
    (if (= (car c1) 10)
      (progn
(setq px (cadr c1))
(setq py (caddr c1))
(setq c2 (cons 10 (list px py 0)))
(setq k (subst c2 c1 b))
(entmod k)
      )
    )
    (setq i (1+ i))
)
)

ljttjl · 发表于 2008-4-13 19:32

本帖最后由作者于 2008-4-17 21:23:49 编辑

联系ljttjl @ tom. com 帮您解决

是论坛系统不让留信箱地址啊，

wangp100 · 发表于 2008-4-14 15:28

1jttj1@tom,是谁?

mfans · 发表于 2008-4-14 18:36

ljttjl发表于2008-4-13 19:32:00联系ljttjl@tom.com,帮您解决

有能力也不是这样体现的吧。

论坛是公开的，知识是公开的，如果不愿意公开，在明经通道可能不会受到欢迎!

wangp100 · 发表于 2008-4-14 21:37

是的，有方法大家可以相互切磋。

wangp100 · 发表于 2008-4-23 11:53

请斑主帮忙

danxingpen · 发表于 2008-4-23 12:01

哎,看来百度和google要想真正的深入人心还是很难的,,,
发个我找到的:
(setq ss (ssget))
(command "move" ss "" '(0 0 0) (list 0 0 1e99))
(command "move" ss "" (list 0 0 1e99) '(0 0 0))
这个据说很好用,,,,,

wangp100 · 发表于 2008-4-23 16:59

楼上的这位大哥，你提供的方法只能移动样条曲线，而不能改变由三维位置转为二维？？？？？？

danxingpen · 发表于 2008-4-24 09:26

第一个帖子的要求是:Z轴坐标怎么样改为零?
楼上的帖子的要求:改变由三维位置转为二维
这两个是不同的概念的,,
而且你试过了吗?任何东西不要看表象的,好不好用还是要试过了再说,,,,,,,,

wangp100 · 发表于 2008-4-28 16:20

己经试过，只能移动而不能改变三维的样条曲线转化为二维的样条曲线

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