三角网三维多段线转三维面

树櫴希德

2. (defun vxs (e / i v lst)
   
3.   (setq i 0)
   
4.   (while
   
5.     (setq v (vlax-curve-getpointatparam e (setq i (1+ i))))
   
6.      (setq lst (cons v lst))
   
7.   )
   
8.   (reverse lst))
   
9. ;;;;;;;;;;;;;;;
   
10. 
    
11. (setq ssa (ssget '((0 . "POLYLINE") (8 . "sjw"))))
    
12.                 (setq ii   0
    
13.                       no  0
    
14.                   )
    
15.                   (repeat (sslength ssa)
    
16.                        (setq en (ssname ssa ii)
    
17.                             ptb (vxs en)
    
18.           pzx (append pzx (list ptb))
    
19.            ii  (1+ ii)               )
    
20.        ; (setq pzx (list (car pt) (cadr pt) (caddr pt)))
    
21.                        
    
22.                   )
    
23.   ;(write-line (strcat pzx) fff)
    
24.                  ; (close fff)
    
25.                   ;(princ (strcat "\n坐标已存入"" wjm ""中"))
    
26.    
    
27.     ;(setvar "cmdecho" cm)
    
28.     (princ)
    
29. 
    
30. 
    
31. (foreach n pzx
    
32. 
    
33. (entmake  (list '(0 . "3dface") (cons 10 (nth 0 n))
    
34.     (cons 11 (nth 1 n))
    
35.                 (cons 12 (nth 2 n))
    
36.                 (cons 13 (nth 0 n))
    
37.                 '(8 . "0")
    
38.     '(62 . 3)
    
39.     )  )
    
40. 
    
41. 
    
42.   )
    

(defun vxs (e / i v lst)<br />   (setq i 0)<br />   (while<br />     (setq v (vlax-curve-getpointatparam e (setq i (1+ i))))<br />      (setq lst (cons v lst))<br />   )<br />   (reverse lst))<br /> ;;;;;;;;;;;;;;;<br /> <br /> (setq ssa (ssget '((0 . "POLYLINE") (8 . "sjw"))))<br />                 (setq ii   0<br />                       no  0<br />                   )<br />                   (repeat (sslength ssa)<br />                        (setq en (ssname ssa ii)<br />                             ptb (vxs en)<br />           pzx (append pzx (list ptb))<br />            ii  (1+ ii)               )<br />        ; (setq pzx (list (car pt) (cadr pt) (caddr pt)))<br />                        <br />                   )<br />   ;(write-line (strcat pzx) fff) <br />                  ; (close fff)<br />                   ;(princ (strcat "\n坐标已存入"" wjm ""中"))<br />    <br />     ;(setvar "cmdecho" cm)<br />     (princ)<br /> <br /> <br /> (foreach n pzx<br /> <br /> (entmake  (list '(0 . "3dface") (cons 10 (nth 0 n))<br />     (cons 11 (nth 1 n))<br />                 (cons 12 (nth 2 n))<br />                 (cons 13 (nth 0 n))<br />                 '(8 . "0")<br />     '(62 . 3)<br />     )  )<br /> <br /> <br />   )<br />

yshf

转后有何用途？

树櫴希德

yshf 发表于 2015-12-2 09:01
转后有何用途？

可以三维动态观察

树櫴希德

2. (defun c:3dface-polyline (  / pzx ii no ssa en ptb  )
   
3. (defun vxs (e / i v lst)
   
4.   (setq i (entget e))
   
5.   (setq lst  (append (list(cdr(assoc 10 i)))  (list(cdr(assoc 11 i))) (list(cdr(assoc 12 i))) )  )
   
6.   
   
7.   )
   
8. ;;;;;;;;;;;;;;;
   
9. 
   
10. (setq ssa (ssget '((0 . "3dface") (8 . "sjw"))))
    
11.                 (setq ii   0
    
12.                       no  0
    
13.                   )
    
14.                   (repeat (sslength ssa)
    
15.                        (setq en (ssname ssa ii)
    
16.                             ptb (vxs en)
    
17.           pzx (append pzx (list ptb))
    
18.            ii  (1+ ii)               )
    
19.        ; (setq pzx (list (car pt) (cadr pt) (caddr pt)))
    
20.                        
    
21.                   )
    
22.   ;(write-line (strcat pzx) fff)
    
23.                  ; (close fff)
    
24.                   ;(princ (strcat "\n坐标已存入"" wjm ""中"))
    
25.    
    
26.     ;(setvar "cmdecho" cm)
    
27.     (princ)
    
28. 
    
29. 
    
30. (foreach n pzx
    
31. 
    
32. (command "3dpoly" (car n) (cadr n) (caddr n) "c")
    
33. 
    
34. 
    
35.   )
    
36. 
    
37. )

(defun c:3dface-polyline (  / pzx ii no ssa en ptb  )<br /> (defun vxs (e / i v lst)<br />   (setq i (entget e))<br />   (setq lst  (append (list(cdr(assoc 10 i)))  (list(cdr(assoc 11 i))) (list(cdr(assoc 12 i))) )  )<br />   <br />   )<br /> ;;;;;;;;;;;;;;;<br /> <br /> (setq ssa (ssget '((0 . "3dface") (8 . "sjw"))))<br />                 (setq ii   0<br />                       no  0<br />                   )<br />                   (repeat (sslength ssa)<br />                        (setq en (ssname ssa ii)<br />                             ptb (vxs en)<br />           pzx (append pzx (list ptb))<br />            ii  (1+ ii)               )<br />        ; (setq pzx (list (car pt) (cadr pt) (caddr pt)))<br />                        <br />                   )<br />   ;(write-line (strcat pzx) fff) <br />                  ; (close fff)<br />                   ;(princ (strcat "\n坐标已存入"" wjm ""中"))<br />    <br />     ;(setvar "cmdecho" cm)<br />     (princ)<br /> <br /> <br /> (foreach n pzx<br /> <br /> (command "3dpoly" (car n) (cadr n) (caddr n) "c")<br /> <br /> <br />   )<br /> <br /> )

三角网三维面转POLYLINE

zzyong00

能不能来个cad文件例子，试试

skg123

给个动画图

freehand8008

命令: 3DFACE-POLYLINE
选择对象: 找到 0 个
选择对象: 找到 0 个，总计 0 个
选择对象: 指定对角点: 找到 0 个，总计 0 个
选择对象:  ; 错误: 参数类型错误: lselsetp nil

skg123

freehand8008 发表于 2015-12-8 12:53
命令: 3DFACE-POLYLINE
选择对象: 找到 0 个
选择对象: 找到 0 个，总计 0 个

我测试的也是

willing0

yyds   yysd yyds

技术工作室

顶一个，支持一下