[编程交流] 喂~，你能看看这个吗

([color=BLUE]defun[/color] c:segoff ( [color=BLUE]/[/color] a b d e i l n p s v x y z )
   ([color=BLUE]initget[/color] 6)
   ([color=BLUE]if[/color] ([color=BLUE]and[/color] ([color=BLUE]setq[/color] d ([color=BLUE]getdist[/color] [color=MAROON]"\nSpecify offset: "[/color]))
            ([color=BLUE]setq[/color] s ([color=BLUE]ssget[/color] '((0 . [color=MAROON]"LWPOLYLINE"[/color]) (-4 . [color=MAROON]"&="[/color]) (70 . 1) (-4 . [color=MAROON]"<NOT"[/color]) (-4 . [color=MAROON]"<>"[/color]) (42 . 0.0) (-4 . [color=MAROON]"NOT>"[/color]))))
       )
       ([color=BLUE]repeat[/color] ([color=BLUE]setq[/color] i ([color=BLUE]sslength[/color] s))
           ([color=BLUE]setq[/color] i ([color=BLUE]1-[/color] i)
                 e ([color=BLUE]ssname[/color] s i)
                 x ([color=BLUE]entget[/color] e)
                 p (LM:defaultprops x)
                 z ([color=BLUE]list[/color] ([color=BLUE]cdr[/color] ([color=BLUE]assoc[/color] 38 x)))
                 l [color=BLUE]nil[/color]
           )
           ([color=BLUE]while[/color] ([color=BLUE]setq[/color] v ([color=BLUE]assoc[/color] 10 x))
               ([color=BLUE]setq[/color] l ([color=BLUE]cons[/color] ([color=BLUE]append[/color] ([color=BLUE]cdr[/color] v) z) l)
                     x ([color=BLUE]cdr[/color] ([color=BLUE]member[/color] v x))
               )
           )
           ([color=BLUE]setq[/color] n ([color=BLUE]/[/color] [color=BLUE]pi[/color] ([color=BLUE]if[/color] (LM:listclockwise-p l) 2 -2)))
           ([color=BLUE]mapcar[/color]
              '([color=BLUE]lambda[/color] ( x y [color=BLUE]/[/color] a b )
                   ([color=BLUE]setq[/color] a ([color=BLUE]+[/color] ([color=BLUE]angle[/color] x y) n)
                         b ([color=BLUE]list[/color] x ([color=BLUE]polar[/color] x a d) ([color=BLUE]polar[/color] y a d) y)
                   )
                   ([color=BLUE]mapcar[/color]
                      '([color=BLUE]lambda[/color] ( a b )
                           ([color=BLUE]entmake[/color] ([color=BLUE]vl-list*[/color] '(0 . [color=MAROON]"LINE"[/color]) ([color=BLUE]cons[/color] 10 ([color=BLUE]trans[/color] a e 0)) ([color=BLUE]cons[/color] 11 ([color=BLUE]trans[/color] b e 0)) p))
                       )
                       b ([color=BLUE]cdr[/color] b)
                  )
               )
               ([color=BLUE]cons[/color] ([color=BLUE]last[/color] l) l) l
           )
       )
   )
   ([color=BLUE]princ[/color])
)
[color=GREEN];; List Clockwise-p - Lee Mac[/color]
[color=GREEN];; Returns T if the point list is clockwise oriented[/color]
([color=BLUE]defun[/color] LM:listclockwise-p ( lst )
   ([color=BLUE]minusp[/color]
       ([color=BLUE]apply[/color] '[color=BLUE]+[/color]
           ([color=BLUE]mapcar[/color]
               ([color=BLUE]function[/color]
                   ([color=BLUE]lambda[/color] ( a b )
                       ([color=BLUE]-[/color] ([color=BLUE]*[/color] ([color=BLUE]car[/color] b) ([color=BLUE]cadr[/color] a)) ([color=BLUE]*[/color] ([color=BLUE]car[/color] a) ([color=BLUE]cadr[/color] b)))
                   )
               )
               lst ([color=BLUE]cons[/color] ([color=BLUE]last[/color] lst) lst)
           )
       )
   )
)
[color=GREEN];; Default Properties  -  Lee Mac[/color]
[color=GREEN];; Returns a list of DXF properties for the supplied DXF data,[/color]
[color=GREEN];; substituting default values for absent DXF groups[/color]
([color=BLUE]defun[/color] LM:defaultprops ( enx )
   ([color=BLUE]mapcar[/color] '([color=BLUE]lambda[/color] ( x ) ([color=BLUE]cond[/color] (([color=BLUE]assoc[/color] ([color=BLUE]car[/color] x) enx)) ( x )))
      '(
           (006 . [color=MAROON]"BYLAYER"[/color])
           (008 . [color=MAROON]"0"[/color])
           (039 . 0.0)
           (048 . 1.0)
           (062 . 256)
           (370 . -1)
       )
   )
)
([color=BLUE]princ[/color])

[color="green"]known bug - sometimes arc offset wrong direction[/color]
(defun c:offs ( / xy ob s d i l )
 (prompt "\nSelect closed polylines ") 
     (and (setq s (ssget '((0 . "LWPOLYLINE") (-4 . "&=") (70 . 1))))
      (progn (initget 7)
          (setq xy '((l)(if l (cons (list (car l)(cadr l)) (xy (cddr l)))))
         d (getdist "\nSpecify offset: "))
 )
 (repeat (setq i (sslength s))
   (setq ob (vlax-ename->vla-object (ssname s (setq i (1- i))))
   l (xy (vlax-get ob 'coordinates))
  )
       (mapcar '(lambda (x / o )
             (mapcar
                ''((f) (setq f (eval (read (strcat "vlax-curve-get" f )))
                             o (vlax-invoke x 'offset
                                ((if ( [color="blue"]LM:listclockwise-p[/color] l )
                                   + - 
                                 )
                                 d
                                )
                              )
                          )
                       (entmakex (list '(0 . "LINE")(cons 10 (f x ))(cons 11 (f (car o)))))
                   )
              '( "startpoint" "Endpoint" )
             )
           (vla-erase x)
          )
      (vlax-invoke ob 'explode)
 ) ;mapcar
     ) ; repeat 
  ) ;and
 (princ)
)