批量生成多个闭合多边形外边界

chbddzx12

批量生成多个闭合多边形的外边界，并偏移一定距离。现在我只能一处一处的提取，太慢了，谁能帮我批量提取啊？谢谢。

Gu_xl

需加载XLRX_API:

1. (defun c:tt ()
   
2.   (if (and
   
3.         (setq d (getdist "\n偏距:"))
   
4.         (setq ss (ssget '((0 . "*line,arc,ellipse,circle"))))
   
5.       )
   
6.     (if        (setq ss (XLRX-Curve-GetOutPoly ss 0.001 nil))
   
7.       (progn
   
8.         (mapcar        '(lambda (x)
   
9.                    (mapcar '(lambda (y) (xlrx-set y "color" 1))
   
10.                            (xlrx-curve-getoffsetcurves
    
11.                              x
    
12.                              (if (XLRX-ClockWiseP x)
    
13.                                (- d)
    
14.                                d
    
15.                              )
    
16.                            )
    
17.                    )
    
18.                    (xlrx-delete x)
    
19.                  )
    
20.                 (XLRX-PickSet->List ss)
    
21.         )
    
22.       )
    
23.     )
    
24.   )
    
25.   (princ)
    
26. )

(defun c:tt ()<br />   (if (and<br />         (setq d (getdist "\n偏距:"))<br />         (setq ss (ssget '((0 . "*line,arc,ellipse,circle"))))<br />       )<br />     (if        (setq ss (XLRX-Curve-GetOutPoly ss 0.001 nil))<br />       (progn<br />         (mapcar        '(lambda (x)<br />                    (mapcar '(lambda (y) (xlrx-set y "color" 1))<br />                            (xlrx-curve-getoffsetcurves<br />                              x<br />                              (if (XLRX-ClockWiseP x)<br />                                (- d)<br />                                d<br />                              )<br />                            )<br />                    )<br />                    (xlrx-delete x)<br />                  )<br />                 (XLRX-PickSet->List ss)<br />         )<br />       )<br />     )<br />   )<br />   (princ)<br /> )

香田里浪人

可根据以下程序再补充。解决偏移问题。
;边界轮廓线 明经 ZZXXQQ 2013.6.5
(defun c:bjlkx ()
(setvar "CMDECHO" 0)
(if (and (setq p1 (getpoint "\n第一角点: "))
               (setq p2 (getcorner p1 "\n另一角点: "))) (progn
  (setq s1 (entlast))
  (command "_.RECTANG" p1 p2)
  (setq p3 (polar p1 (angle p1 p2) 5))
  (command "_.BOUNDARY" p3 "")
  (command "_.ERASE" "C" p1 p1 "")
  (setq ss (ssadd))
  (while (setq s1 (entnext s1)) (ssadd s1 ss))
  (if (> (sslength ss) 0)
   (command "_.ERASE" "W" p1 p2 "R" ss "")
   (princ "\n无法生成边界！")
  )
))
(setvar "CMDECHO" 1)
(princ)
)

xyp1964

鱼与熊掌

chbddzx12

鱼与熊掌 发表于 2015-2-25 18:53

厉害，怎么做的啊？

chbddzx12

xyp1964 发表于 2015-2-25 17:28

斑竹，给放个代码么？

chbddzx12

xyp1964 发表于 2015-2-25 17:28

斑竹，提示no function definition: XYP-START。我加载函数库了怎么没这个函数啊

freehand8008

这个好啊！！！！

翔飞125

freehand8008 发表于 2015-2-27 09:02
这个好啊！！！！

香田的那个解决了每个闭合的外边界，但几个闭合连在一起的内边界也消失了