更新三维多线坐标

dcl1214

1. (DEFUN $gen-xin-3Dpline-zuo-biao$ (ent pts / b g h i)
   
2.           ;更新3Dpl线的坐标，更新直线坐标，不能是多个list，只能是一个list
   
3.   (if (and ent pts)
   
4.     (PROGN
   
5.       (if (and (> (length pts) 1)
   
6.          (= (type (car pts)) 'list)
   
7.          (= (length (car pts)) 3)
   
8.     )
   
9.   (progn
   
10.     (setq b (vlax-ename->vla-object ent))
    
11.     (or (AND (= (vla-get-objectname b) "AcDb3dPolyline")
    
12.        (setq
    
13.          pts
    
14.           (mapcar (function (lambda (a) (list (car a) (cadr a) 0)))
    
15.             pts
    
16.           )
    
17.        )
    
18.         )        ;这里确保是三维点坐标
    
19.         (AND (= (vla-get-objectname b) "AcDbPolyline")
    
20.        (setq
    
21.          pts
    
22.           (mapcar (function (lambda (a) (list (car a) (cadr a))))
    
23.             pts
    
24.           )
    
25.        )
    
26.         )        ;这里确保是二维点坐标
    
27.     )
    
28.     (setq pts (apply 'append pts)) ;拼接成一个list
    
29.   )
    
30.       )
    
31.       (setq b (vlax-ename->vla-object ent)) ;(setq ent(car(entsel)))
    
32.       (setq g pts)
    
33.       (setq h (vl-catch-all-apply
    
34.     'vlax-make-safearray
    
35.     (LIST vlax-vbDouble (cons 0 (1- (length g))))
    
36.         )
    
37.       )
    
38.       (setq
    
39.   i (vl-catch-all-apply 'vlax-safearray-fill (LIST h g))
    
40.       )
    
41.       (vl-catch-all-apply
    
42.   'vla-put-Coordinates
    
43.   (LIST b (vl-catch-all-apply 'vlax-make-variant (list i)))
    
44.       )
    
45.       (vl-catch-all-apply 'vla-update (LIST b))
    
46.     )
    
47.   )
    
48. )

(DEFUN $gen-xin-3Dpline-zuo-biao$ (ent pts / b g h i)<br />           ;更新3Dpl线的坐标，更新直线坐标，不能是多个list，只能是一个list<br />   (if (and ent pts)<br />     (PROGN<br />       (if (and (> (length pts) 1)<br />          (= (type (car pts)) 'list)<br />          (= (length (car pts)) 3)<br />     )<br />   (progn<br />     (setq b (vlax-ename->vla-object ent))<br />     (or (AND (= (vla-get-objectname b) "AcDb3dPolyline")<br />        (setq<br />          pts<br />           (mapcar (function (lambda (a) (list (car a) (cadr a) 0)))<br />             pts<br />           )<br />        )<br />         )        ;这里确保是三维点坐标<br />         (AND (= (vla-get-objectname b) "AcDbPolyline")<br />        (setq<br />          pts<br />           (mapcar (function (lambda (a) (list (car a) (cadr a))))<br />             pts<br />           )<br />        )<br />         )        ;这里确保是二维点坐标<br />     )<br />     (setq pts (apply 'append pts)) ;拼接成一个list<br />   )<br />       )<br />       (setq b (vlax-ename->vla-object ent)) ;(setq ent(car(entsel)))<br />       (setq g pts)<br />       (setq h (vl-catch-all-apply<br />     'vlax-make-safearray<br />     (LIST vlax-vbDouble (cons 0 (1- (length g))))<br />         )<br />       )<br />       (setq<br />   i (vl-catch-all-apply 'vlax-safearray-fill (LIST h g))<br />       )<br />       (vl-catch-all-apply<br />   'vla-put-Coordinates<br />   (LIST b (vl-catch-all-apply 'vlax-make-variant (list i)))<br />       )<br />       (vl-catch-all-apply 'vla-update (LIST b))<br />     )<br />   )<br /> )

w379106181

感谢分享

寒潮大冬瓜

很好→很棒！很好~很棒！！很好……很棒！！！