封闭的多段线

自贡黄明儒

最后非C or CL封闭的多段线,使用(vla-put-closed obj :vlax-true)封闭后，同最后C or CL封闭的多段线相比，使用entget（或者(vlax-get obj 'coordinates)）会发现，前者要多一个点（组码10）。我试图用(vla-SetBulge obj x y)(vla-put-coordinates obj p)来更新失败了，不知道是什么原因？下面使用entmod来更新，则是成功的。供大家参考

1. ;;最后非C or CL封闭的多段线，使其真封闭。但用vla方法失败(vla-SetBulge obj x y)(vla-put-coordinates obj p)
   
2. (defun HH-LPClosed (e / EN OBJ)
   
3.   (setq obj (vlax-ename->vla-object e))
   
4.   (if (and (equal (vla-get-closed obj) :vlax-false)
   
5.            (equal (vlax-curve-getStartPoint e) (vlax-curve-getEndPoint e) 1e-7)
   
6.       )
   
7.     (progn
   
8.       (vla-put-closed obj :vlax-true)
   
9.       (setq en (reverse (entget e)))
   
10.       (setq en (cdr (member (assoc 42 en) en)))
    
11.       (setq en (cdr (member (assoc 10 en) en)))
    
12.       (setq en (subst (cons 90 (1- (cdr (assoc 90 en)))) (assoc 90 en) en))
    
13.       (entmod (reverse en))
    
14.     )
    
15.   )
    
16. )
    
17. (defun c:a2 (/ E)
    
18.   (setq e (car (entsel)))
    
19.   (HH-LPClosed e)
    
20.   (princ)
    
21. )

;;最后非C or CL封闭的多段线，使其真封闭。但用vla方法失败(vla-SetBulge obj x y)(vla-put-coordinates obj p) <br /> (defun HH-LPClosed (e / EN OBJ)<br />   (setq obj (vlax-ename->vla-object e))<br />   (if (and (equal (vla-get-closed obj) :vlax-false)<br />            (equal (vlax-curve-getStartPoint e) (vlax-curve-getEndPoint e) 1e-7)<br />       )<br />     (progn<br />       (vla-put-closed obj :vlax-true)<br />       (setq en (reverse (entget e)))<br />       (setq en (cdr (member (assoc 42 en) en)))<br />       (setq en (cdr (member (assoc 10 en) en)))<br />       (setq en (subst (cons 90 (1- (cdr (assoc 90 en)))) (assoc 90 en) en))<br />       (entmod (reverse en))<br />     )<br />   )<br /> )<br /> (defun c:a2 (/ E)<br />   (setq e (car (entsel)))<br />   (HH-LPClosed e)<br />   (princ)<br /> )

czb203

哦哦，谢谢，你这分享还挺别致的

LYC688

错误: 参数类型错误: lentityp nil

xujinhua

黄总出的都是精品

Bdj

czb203 发表于 2022-2-25 21:43
哦哦，谢谢，你这分享还挺别致的

这也太别致了，哈哈哈，掐头直接进入