多段線z值批量改為正確高程

newbuser

2. (defun Ent:Make_Poly (pts / e)
   
3.   (setq e (Entmake (list '(0 . "POLYLINE") '(70 . 9))))
   
4.   (foreach p pts
   
5.     (entmake (list '(0 . "VERTEX") '(70 . 32) (cons 10 p)))
   
6.   )
   
7.   (entmake '((0 . "SEQEND")))
   
8.   e
   
9. )
   
10. (defun c:3l ()
    
11.   (setq os (getvar 'osmode))
    
12.   (setvar 'osmode 8)
    
13. (setq lst '())
    
14. (while (setq p (getpoint))
    
15.   (setq lst (append lst (list p)))
    
16.   )
    
17.   (Ent:Make_Poly lst)
    
18.   (setq e (entlast))
    
19.   (setq obj (vlax-ename->vla-object e))
    
20.   (if (equal (vlax-get-property obj 'closed) :vlax-true)
    
21.     (progn
    
22.       (vla-put-closed obj :vlax-false)
    
23.     )
    
24.     (progn
    
25.       nil
    
26.       )
    
27.   )
    
28.   (setvar 'osmode os)
    
29.   )

(defun Ent:Make_Poly (pts / e)<br />   (setq e (Entmake (list '(0 . "POLYLINE") '(70 . 9))))<br />   (foreach p pts<br />     (entmake (list '(0 . "VERTEX") '(70 . 32) (cons 10 p)))<br />   )<br />   (entmake '((0 . "SEQEND")))<br />   e<br /> )<br /> (defun c:3l ()<br />   (setq os (getvar 'osmode))<br />   (setvar 'osmode 8)<br /> (setq lst '())<br /> (while (setq p (getpoint))<br />   (setq lst (append lst (list p)))<br />   )<br />   (Ent:Make_Poly lst)<br />   (setq e (entlast))<br />   (setq obj (vlax-ename->vla-object e))<br />   (if (equal (vlax-get-property obj 'closed) :vlax-true)<br />     (progn<br />       (vla-put-closed obj :vlax-false)<br />     )<br />     (progn<br />       nil<br />       )<br />   )<br />   (setvar 'osmode os)<br />   )

newbuser

你的要求是很难实现的啊。弧线都是多段线或者是arc类型的实体，不可能在同一坐标系下令两点高程处于不同高程。你还是不要想弧线了。
关于你说的框选改好有些困难啊，你的三维多段线都不在点上，用程序很难判断的。即便是在点上，对于一个没有节点的三维多段线无论如何都无法让中间点随你的点走。可能是我的理解不太正确，我只能这样解释了。

xyp1964

;; 先合并成整体再处理