[讨论]征求轮廓线的lisp思路

freshair

好帖子，先顶到前边去看：）

无痕

这篇帖子不错。保存

cy956

贴一个自己的，
(defun c:lkx1 (/ DX DY E E1 IN N P1 P2 P21 P3 P4 S XY)
  (mapcar 'setvar '("cmdecho""blipmode") '(0 0))
  (prompt "\n选择要画外轮廓线的物体:")
  (setq s(ssget)
        p1 (getpoint "\n输入框线左下点:")
        p3 (getcorner p1 "\n输入框线右上点:")
        xy(mapcar '- p3 p1)
        dx (car xy) dy (cadr xy)
        p2 (xd p1 0 dy)                        p4 (xd p1 dx 0)
        p21(xd p2 100 -100))
  (setvar "osmode" 0)
  (#m_pl2 1 0 0 (list p1 p2 p3 p4) (getvar "clayer") -1)
  (setq e1(entlast)s(ssadd e1 s))
  (command "-boundary" "a" "b" "n" s """" p21 ""
           "erase" e1 "")
  (setq s(get-ss e1)n(sslength s)in 0)
  (cond
    ((< n 2))
    ((= n 2)(entdel (ssname s 1)))
    (t
      (repeat (- n 2)
        (setq e(ssname s in) in (1+ in))
        (entdel e)
      )
      (entdel (ssname s (1- n)))
    )
  )
  (mapcar 'setvar '("osmode""cmdecho""blipmode") '(32 1 1))(princ)
)

(defun xd(#pt #x #y)
  (list (+ (car #pt) #x) (+ (cadr #pt) #y))
)
(defun #m_pl2 (d70 plw pla pl_list lay_pl color / pb)
  (setq        d90 (length pl_list)
        pb  '()
  )
  (foreach x pl_list
    (progn
      (setq pb
             (append pb
                     (list (cons 10 x)
                           (cons 40 plw)
                           (cons 41 plw)
                           (cons 42 pla)
                     )
             )
      )
    )
  )
  (setq        en000 (append (list
                        (cons 0 "LWPOLYLINE")
                        (cons 100 "AcDbEntity")
                        (cons 8 lay_pl)
                        (cons 100 "AcDbPolyline")
                        (cons 90 d90)
                        (cons 70 d70)
                      )
                      pb
              )
  )
  (if (/= -1 color) (setq en000 (append en000 (list (cons 62 color)))))
  (if (= nil (entmake en000)) (princ "\n制造 LWPL 制造失败.")  )
)

程序是以前写的，不足有：
没加入过滤。
可能出现多个轮廓线，和bon的算法有关。
现在和育游的相比是手动的了。:)

meflying

还有几个子函数没给出来吧

mmmmmm

一点思路：
用WMFOUT/WMFIN将选择集内的物体处理成临时图块，去掉外边的框后在得到包围盒的焦点坐标，在包围盒和外框之间任意一点作boundary,如果图形吻合，应能找到边界（两个多义线，选面积小的）。

无痕

研究了一下，这样也行？

2. 
   
3. (defun x@outline1 ()
   
4.   (setvar "qaflags" 1)
   
5.   (setq ss0 (ssget "all")
   
6.         ss  (ssget))
   
7.   (vl-cmdf "_.copy" ss "" "0,0" "@")
   
8.   (vl-cmdf "_.region" "all" "r" ss0 ""
   
9.            "_.union" "all" "r" ss0 ""
   
10.            "_.explode" "all" "r" ss0 ""
    
11.            "_.explode" "all" "r" ss0 ""
    
12.            "_.pedit" "m" "all" "r" ss0 "" "y" "j" "1" ""
    
13.            "_.region" "all" "r" ss0 ""
    
14.            "_.union" "all" "r" ss0 ""
    
15.            "_.explode" "all" "r" ss0 ""
    
16.            "_.explode" "all" "r" ss0 ""
    
17.            "_.pedit" "m" "all" "r" ss0 "" "y" "j" "1" ""
    
18.   )
    
19. )
    
20. (defun x@outline2 ()
    
21.   (vl-cmdf ".undo" "be")
    
22.   (setq os (getvar "osmode"))
    
23.   (setvar "osmode" 0)
    
24.   (setvar "qaflags" 1)
    
25.   (setq ss0 (ssget "all")
    
26.         ss  (ssget '((0 . "*POLYLINE,LINE,ARC,CIRCLE,ELLIPSE")))
    
27.         vmin  (getvar "VSMIN")
    
28.         vmax  (getvar "VSMAX")
    
29.         dist  (* 2 (getvar "VIEWSIZE") (/ (getvar "PICKBOX") 100)))
    
30.   (vl-cmdf ".RECTANGLE" (polar vmin (* 1.25 PI) dist) (polar vmax (* 0.25 PI) dist))
    
31.   (setq em (entlast))
    
32.   (vl-cmdf "_.boundary" "a" "o" "P" "i" "y" "b" "n" ss em "" ""  emin "")
    
33.   (setvar "osmode" os)
    
34.   (vl-cmdf ".undo" "e")
    
35. )
    

<br /> (defun x@outline1 ()<br />   (setvar "qaflags" 1)<br />   (setq ss0 (ssget "all")<br />         ss  (ssget))<br />   (vl-cmdf "_.copy" ss "" "0,0" "@")<br />   (vl-cmdf "_.region" "all" "r" ss0 ""<br />            "_.union" "all" "r" ss0 ""<br />            "_.explode" "all" "r" ss0 ""<br />            "_.explode" "all" "r" ss0 ""<br />            "_.pedit" "m" "all" "r" ss0 "" "y" "j" "1" ""<br />            "_.region" "all" "r" ss0 ""<br />            "_.union" "all" "r" ss0 ""<br />            "_.explode" "all" "r" ss0 ""<br />            "_.explode" "all" "r" ss0 ""<br />            "_.pedit" "m" "all" "r" ss0 "" "y" "j" "1" ""<br />   )<br /> )<br /> (defun x@outline2 ()<br />   (vl-cmdf ".undo" "be")<br />   (setq os (getvar "osmode"))<br />   (setvar "osmode" 0)<br />   (setvar "qaflags" 1)<br />   (setq ss0 (ssget "all")<br />         ss  (ssget '((0 . "*POLYLINE,LINE,ARC,CIRCLE,ELLIPSE")))<br />         vmin  (getvar "VSMIN")<br />         vmax  (getvar "VSMAX")<br />         dist  (* 2 (getvar "VIEWSIZE") (/ (getvar "PICKBOX") 100))) <br />   (vl-cmdf ".RECTANGLE" (polar vmin (* 1.25 PI) dist) (polar vmax (* 0.25 PI) dist))<br />   (setq em (entlast))<br />   (vl-cmdf "_.boundary" "a" "o" "P" "i" "y" "b" "n" ss em "" ""  emin "")<br />   (setvar "osmode" os)<br />   (vl-cmdf ".undo" "e")<br /> )<br />

测试了一下，用region只能对封闭实体有效，可惜，可惜。用boundary可以对line，arc等封闭的区域有效，但通用性又没region好。我觉得两者应该结合起来。

无痕

再玩玩

zxzyp

我的思路是：做一个能包含你图的大圆，然后在lisp中command"_boundary""region"生成边界。得到两个封闭的面域。其中一个就是你想要的。

flowerson

各位大侠太厉害了。长见识了。

friendship12c

各位大侠太厉害了。长见识了。非常感谢