如何把line线组成的图形转换成闭合曲线并标注型心

szx025

2. (defun C:xingxin()
   
3. (setq en (car(entsel "\n选取闭合曲线:")))
   
4. ;(setvar "DELOBJ" 1)
   
5. (if ( /= (get-dxf 0 en) "REGION")
   
6. (progn
   
7. (command "region" en "")
   
8. (setq en (entlast))
   
9. ));if
   
10. 
    
11. (setq   
    
12. ENT (vlax-ename->vla-object en)
    
13. CEN (vlax-get ENT "centroid")
    
14. AREA (vlax-get ENT "AREA"))
    
15. (princ (strcat "\narea: " (rtos area 2 3)))
    
16. (princ (strcat "\ncentroid: " (vl-princ-to-string cen )))
    
17. (command "point" CEN )
    
18. (princ)
    
19.   )
    
20.   ;;get-DXF 实体dxf数据 (get-DXF code ename)
    
21. ;;get-dxf code ename， Designed by 林霄云。精简自e派。进行判断的，ename必须ename。
    
22. (defun get-DXF (code ename )
    
23. (cond ((= (type ename) 'ENAME)
    
24.       (if        (= code -3)
    
25.       (cdr (assoc code (entget ename '("*"))))
    
26.       (cdr (assoc code (entget ename)))
    
27.     ))
    
28.   );COND
    
29. )

(defun C:xingxin()<br /> (setq en (car(entsel "\n选取闭合曲线:")))<br /> ;(setvar "DELOBJ" 1)<br /> (if ( /= (get-dxf 0 en) "REGION")<br /> (progn<br /> (command "region" en "")<br /> (setq en (entlast))<br /> ));if<br /> <br /> (setq   <br /> ENT (vlax-ename->vla-object en)<br /> CEN (vlax-get ENT "centroid")<br /> AREA (vlax-get ENT "AREA"))<br /> (princ (strcat "\narea: " (rtos area 2 3)))<br /> (princ (strcat "\ncentroid: " (vl-princ-to-string cen )))<br /> (command "point" CEN )<br /> (princ)<br />   )<br />   ;;get-DXF 实体dxf数据 (get-DXF code ename)<br /> ;;get-dxf code ename， Designed by 林霄云。精简自e派。进行判断的，ename必须ename。<br /> (defun get-DXF (code ename )<br /> (cond ((= (type ename) 'ENAME)<br />       (if        (= code -3)<br />       (cdr (assoc code (entget ename '("*"))))<br />       (cdr (assoc code (entget ename)))<br />     ))<br />   );COND<br /> )

这是一标注闭合曲线型心的程序，有个需要完善的地方，能否先增加一个判断，如果图形是line线组成，就把这些线改为闭合的多义线，再执行这个程序

2. (defun c:bdx( / ss i ename endata entype)
   
3. (princ "\n选择线段 <右键选择集>: ")
   
4. (setq ss (ssget '((0 . "LINE,LWPOLYLINE,ARC"))))
   
5.       (command "PEDITACCEPT" "1")
   
6. (if ss
   
7.       (command ".pedit" "m" ss "" "j" "0" "w" "0" "" "PEDITACCEPT" "0")
   
8.       (command ".pedit" "m" "p" "" "j" "0" "w" "0" "" "PEDITACCEPT" "0")
   
9. ))

(defun c:bdx( / ss i ename endata entype)<br /> (princ "\n选择线段 <右键选择集>: ")<br /> (setq ss (ssget '((0 . "LINE,LWPOLYLINE,ARC"))))<br />       (command "PEDITACCEPT" "1")<br /> (if ss<br />       (command ".pedit" "m" ss "" "j" "0" "w" "0" "" "PEDITACCEPT" "0")<br />       (command ".pedit" "m" "p" "" "j" "0" "w" "0" "" "PEDITACCEPT" "0")<br /> ))

能否把这两个程序合并为一

yshf

(defun c:xingxin()
    (setq osmode (getvar "osmode"))
    (setvar "osmode" 0)
    (setvar "PEDITACCEPT" 1)
    (princ "\n选择线段 <右键选择集>: ")
    (if (setq ss (ssget '((0 . "LINE,LWPOLYLINE,ARC"))))
        (progn
            (command ".pedit" "m" ss "" "j" "" "")
            (setq ent0 (entlast))
            (command "region" ent0 "")
            (setq ent (entlast))
            (If (not (equal ent0 ent))
                (progn
                    (setq Obj (vlax-ename->vla-object ent)
                          CEN (vlax-get Obj "centroid")
                          AREA (vlax-get Obj "AREA")
                    )
                    (command "undo" "")
                    (princ (strcat "\narea: " (rtos area 2 3)))
                    (princ (strcat "\ncentroid: " (vl-princ-to-string cen )))
                    (command "point" CEN )
                )
           )
        )
    )
    (setvar "osmode" 0)
    (setvar "PEDITACCEPT" 0)
    (princ)
)

yoyoho

谢谢! yshf 分享程序!!!!!!

szx025

perfect
谢谢