多段线曲线设置为零ra

eldon · 发表于 2022-7-5 23:02:20

也许您可以手动完成，但需要使用另一种技术。

首先分解多段线。然后删除所有弧段。然后使用Pedit和适当的模糊距离，重新连接所有直线段以形成多段线。

Stefan BMR · 发表于 2022-7-5 23:04:57

(defun c:test (/ ss r i)
 (if
   (setq ss (ssget ":L" '((0 . "LWPOLYLINE"))))
    (progn
      (if
        (setq r (getdist (strcat "\nFillet radius <" (rtos (getvar 'filletrad)) ">: ")))
         (setvar 'filletrad (abs r))
      )
      (repeat (setq i (sslength ss))
        (command "fillet" "p" (ssname ss (setq i (1- i))))
      )
    )
 )
 (princ)
)

rrulep · 发表于 2022-7-5 23:06:31

你好

这是我写的，但我想修剪重叠在白线上的红线，只显示延伸到曲线外的红线。

copy

(defun c:pol ()
 (if (not (tblsearch "LAYER" "C-ROAD_CURV_TAN"))
   (entmake '((0 . "LAYER")
        (100 . "AcDbSymbolTableRecord")
        (100 . "AcDbLayerTableRecord")
        (2 . "C-ROAD_CURV_TAN")
        (70 . 0)
        (62 . 10)
        (370 . -3)
        (6 . "Continuous")
       )
   )
 )
(setq poly (ssget '((0 . "LWPOLYLINE"))))
(command "copy" poly  "" "0,0" "0,0" "")
(setq poly2 (entlast))
(command "CHANGE" poly2 "" "P" "la" "C-ROAD_CURV_TAN" "")
(setvar "FILLETRAD" 0.0)
(command "fillet" "p" poly2 "")
(princ)
)

Lee Mac · 发表于 2022-7-5 23:11:28

还有一种方法：

copy


([color=BLUE]defun[/color] c:decurve ( [color=BLUE]/[/color] vertexdata b c e i l p q r s x )
   ([color=BLUE]defun[/color] vertexdata ( e )
       ([color=BLUE]if[/color] ([color=BLUE]setq[/color] e ([color=BLUE]member[/color] ([color=BLUE]assoc[/color] 10 e) e))
           ([color=BLUE]cons[/color] ([color=BLUE]list[/color] ([color=BLUE]cdr[/color] ([color=BLUE]assoc[/color] 10 e)) ([color=BLUE]cdr[/color] ([color=BLUE]assoc[/color] 42 e))) (vertexdata ([color=BLUE]cdr[/color] e)))
       )
   )
   ([color=BLUE]if[/color] ([color=BLUE]setq[/color] s ([color=BLUE]ssget[/color] [color=MAROON]"_:L"[/color] '((0 . [color=MAROON]"LWPOLYLINE"[/color]) (-4 . [color=MAROON]"<>"[/color]) (42 . 0.0))))
       ([color=BLUE]repeat[/color] ([color=BLUE]setq[/color] i ([color=BLUE]sslength[/color] s))
           ([color=BLUE]setq[/color] e ([color=BLUE]entget[/color] ([color=BLUE]ssname[/color] s ([color=BLUE]setq[/color] i ([color=BLUE]1-[/color] i))))
                 l (vertexdata e)
                 r [color=BLUE]nil[/color]
           )
           ([color=BLUE]if[/color] ([color=BLUE]setq[/color] c ([color=BLUE]=[/color] 1 ([color=BLUE]logand[/color] 1 ([color=BLUE]cdr[/color] ([color=BLUE]assoc[/color] 70 e)))))
               ([color=BLUE]setq[/color] l ([color=BLUE]append[/color] l ([color=BLUE]list[/color] ([color=BLUE]car[/color] l))))
           )
           ([color=BLUE]while[/color] ([color=BLUE]cadr[/color] l)
               ([color=BLUE]if[/color]
                   ([color=BLUE]and[/color] ([color=BLUE]/=[/color] 0.0 ([color=BLUE]setq[/color] b ([color=BLUE]cadar[/color] l)))                        
                       ([color=BLUE]setq[/color] p
                           ([color=BLUE]polar[/color] ([color=BLUE]caar[/color] l)
                               ([color=BLUE]+[/color] ([color=BLUE]angle[/color] ([color=BLUE]caar[/color] l) ([color=BLUE]caadr[/color] l)) ([color=BLUE]-[/color] ([color=BLUE]/[/color] [color=BLUE]pi[/color] 2) ([color=BLUE]*[/color] 2 ([color=BLUE]atan[/color] b))))
                               ([color=BLUE]/[/color] ([color=BLUE]*[/color] ([color=BLUE]distance[/color] ([color=BLUE]caar[/color] l) ([color=BLUE]caadr[/color] l)) ([color=BLUE]1+[/color] ([color=BLUE]*[/color] b b))) 4 b)
                           )
                       )
                       ([color=BLUE]setq[/color] q
                           ([color=BLUE]inters[/color]
                               ([color=BLUE]caar[/color]  l) ([color=BLUE]polar[/color] ([color=BLUE]caar[/color]  l) ([color=BLUE]+[/color] ([color=BLUE]angle[/color] p ([color=BLUE]caar[/color]  l)) ([color=BLUE]/[/color] [color=BLUE]pi[/color] 2.0)) 1.0)
                               ([color=BLUE]caadr[/color] l) ([color=BLUE]polar[/color] ([color=BLUE]caadr[/color] l) ([color=BLUE]+[/color] ([color=BLUE]angle[/color] p ([color=BLUE]caadr[/color] l)) ([color=BLUE]/[/color] [color=BLUE]pi[/color] 2.0)) 1.0)
                               [color=BLUE]nil[/color]
                           )
                       )
                   )
                   ([color=BLUE]setq[/color] r ([color=BLUE]vl-list*[/color] q ([color=BLUE]caar[/color] l) r))
                   ([color=BLUE]setq[/color] r ([color=BLUE]cons[/color] ([color=BLUE]caar[/color] l) r))
               )
               ([color=BLUE]setq[/color] l ([color=BLUE]cdr[/color] l))
           )
           ([color=BLUE]if[/color] ([color=BLUE]not[/color] c) ([color=BLUE]setq[/color] r ([color=BLUE]cons[/color] ([color=BLUE]caar[/color] l) r)))
           ([color=BLUE]entmake[/color]
               ([color=BLUE]append[/color]
                   ([color=BLUE]subst[/color]
                       ([color=BLUE]cons[/color]  90 ([color=BLUE]length[/color] r))
                       ([color=BLUE]assoc[/color] 90 e)
                       ([color=BLUE]reverse[/color] ([color=BLUE]member[/color] ([color=BLUE]assoc[/color] 39 e) ([color=BLUE]reverse[/color] e)))
                   )
                   ([color=BLUE]mapcar[/color] '([color=BLUE]lambda[/color] ( x ) ([color=BLUE]cons[/color] 10 x)) ([color=BLUE]reverse[/color] r))
                   ([color=BLUE]list[/color] ([color=BLUE]assoc[/color] 210 e))
               )
           )
       )
   )
   ([color=BLUE]princ[/color])
)
([color=BLUE]princ[/color])