如何拍平空间样条线

q3_2006

上图,附件里有条空间样条线,没有11组码,我现在要把这条线Z轴归0..LISP如何实现呢,拜托会的前辈指导一下哈,谢谢哈..

yangjian001

做一个热心并受欢迎的人

/db_自贡黄明儒_

安装ET后，(acet-flatn ss nil)

Lisphk

把10组码Z变为0，entmake下。

newer

(xdrx_entity_project (ssget))

q3_2006

Lisphk 发表于 2018-8-4 12:25
把10组码Z变为0，entmake下。

这个方法试过没用

q3_2006

newer 发表于 2018-8-4 12:41
(xdrx_entity_project (ssget))

斑竹能指导下方法吗..用LISP如何实现,想学呢

st788796

spline 是空间曲线，10 11 都是  WCS 点,直接去掉 Z 就是  X/Y 平面投影曲线

2. 
   
3. (defun c:tt (/ ss sl e el)
   
4.   (if (setq ss (ssget '((0 . "spline"))))
   
5.     (progn
   
6.       (setq sl (sslength ss))
   
7.       (while (setq e (ssname ss (setq sl (1- sl))))
   
8.         (setq el (entget e))
   
9.         (entmake
   
10.           (append (mapcar '(lambda (x)
    
11.                              (if (= (car x) 10)
    
12.                                (list (car x) (cadr x) (caddr x) 0.0)
    
13.                                x
    
14.                              )
    
15.                            )
    
16.                           el
    
17.                   )
    
18.                   '((62 . 1))
    
19.           )
    
20.         )
    
21.       )
    
22.     )
    
23.   )
    
24.   (princ)
    
25. )

<br /> (defun c:tt (/ ss sl e el)<br />   (if (setq ss (ssget '((0 . "spline"))))<br />     (progn<br />       (setq sl (sslength ss))<br />       (while (setq e (ssname ss (setq sl (1- sl))))<br />         (setq el (entget e))<br />         (entmake<br />           (append (mapcar '(lambda (x)<br />                              (if (= (car x) 10)<br />                                (list (car x) (cadr x) (caddr x) 0.0)<br />                                x<br />                              )<br />                            )<br />                           el<br />                   )<br />                   '((62 . 1))<br />           )<br />         )<br />       )<br />     )<br />   )<br />   (princ)<br /> )

q3_2006

st788796 发表于 2018-8-6 15:13
spline 是空间曲线，10 11 都是  WCS 点,直接去掉 Z 就是  X/Y 平面投影曲线

谢谢..我试试

sicky111

Z轴归零 。