Entmake不能生成三维多段线

dnbcgrass

各们行家，请问为什么下面程序不能生成三维多段线

2. (setq p1 '(53105.009264 31156.163071 492.936000)
   
3.        p2 '(53132.534551 31115.615604 496.937000)
   
4.        p3 '(53149.862181 31106.088325 497.500000)
   
5. )
   
6. (entmake (list '(0 . "POLYLINE") '(100 . "AcDbEntity") '(100 . "AcDb3dPolyline")
   
7.                 '(66 . 1)
   
8.   '(70 . 1)
   
9.           )
   
10. )
    
11. (entmake (list '(0 . "vertex")  (cons 10 p1)))
    
12. (entmake (list '(0 . "vertex")  (cons 10 p2)))
    
13. (entmake (list '(0 . "vertex")  (cons 10 p3)))
    
14. (entmake '((0 . "seqend")))

(setq p1 '(53105.009264 31156.163071 492.936000)<br />        p2 '(53132.534551 31115.615604 496.937000)<br />        p3 '(53149.862181 31106.088325 497.500000)<br /> )<br /> (entmake (list '(0 . "POLYLINE") '(100 . "AcDbEntity") '(100 . "AcDb3dPolyline")<br />                 '(66 . 1)<br />   '(70 . 1)<br />           )<br /> )<br /> (entmake (list '(0 . "vertex")  (cons 10 p1)))<br /> (entmake (list '(0 . "vertex")  (cons 10 p2)))<br /> (entmake (list '(0 . "vertex")  (cons 10 p3)))<br /> (entmake '((0 . "seqend")))

st788796

用vla吧，这些东西用entmake太啰嗦

牢固

缺少组码70，请自行查阅组码70的具体含义！

1. (entmake (list '(0 . "POLYLINE")
   
2.          '(100
   
3.      .
   
4.      "AcDbEntity"
   
5.     )
   
6.          '(100
   
7.      .
   
8.      "AcDb3dPolyline"
   
9.     )
   
10.          '(66 . 1)
    
11.          '(70 . 8)
    
12.    )
    
13. )
    
14. (entmake (list '(0 . "vertex")
    
15.          (cons 10 p1)
    
16.          '(70 . 32)
    
17.    )
    
18. )
    
19. (entmake (list '(0 . "vertex")
    
20.          (cons 10 p2)
    
21.          '(70 . 32)
    
22.    )
    
23. )
    
24. (entmake (list '(0 . "vertex")
    
25.          (cons 10 p3)
    
26.          '(70 . 32)
    
27.    )
    
28. )
    
29. (entmake '((0 . "seqend")))

(entmake (list '(0 . "POLYLINE")<br />          '(100<br />      .<br />      "AcDbEntity"<br />     )<br />          '(100<br />      .<br />      "AcDb3dPolyline"<br />     )<br />          '(66 . 1)<br />          '(70 . 8)<br />    )<br /> )<br /> (entmake (list '(0 . "vertex")<br />          (cons 10 p1)<br />          '(70 . 32)<br />    )<br /> )<br /> (entmake (list '(0 . "vertex")<br />          (cons 10 p2)<br />          '(70 . 32)<br />    )<br /> )<br /> (entmake (list '(0 . "vertex")<br />          (cons 10 p3)<br />          '(70 . 32)<br />    )<br /> )<br /> (entmake '((0 . "seqend")))

dnbcgrass

谢谢牢固版主！

Free-Lancer

vla 方式

1. (vla-add3dpoly
   
2.   (vla-get-modelspace
   
3.     (vla-get-activedocument (vlax-get-acad-object))
   
4.   )
   
5.   (vlax-make-variant
   
6.     (vlax-safearray-fill
   
7.       (vlax-make-safearray
   
8.         vlax-vbdouble
   
9.         (cons 0 (1- (* (length pts) 3)))
   
10.       )
    
11.       (apply 'append pts)
    
12.     )
    
13.   )
    
14. )
    

(vla-add3dpoly<br />   (vla-get-modelspace<br />     (vla-get-activedocument (vlax-get-acad-object))<br />   )<br />   (vlax-make-variant<br />     (vlax-safearray-fill<br />       (vlax-make-safearray<br />         vlax-vbdouble<br />         (cons 0 (1- (* (length pts) 3)))<br />       )<br />       (apply 'append pts)<br />     )<br />   )<br /> )<br />

用两个函数

1. (vla-add3dpoly (fy:acms) (list->variantarray pts vlax-vbdouble))
   

(vla-add3dpoly (fy:acms) (list->variantarray pts vlax-vbdouble))<br />

waitinhope

建议用vla吧，可以解决！！