如何将圆变为don

gvgbabu · 发表于 2022-7-6 09:20:18

大家好

有人能帮我写一个lisp程序吗？在这个程序中，我必须用同样大小的甜甜圈（实心圆）替换图形中的所有圆。

提前感谢

甘尼什

BIGAL · 发表于 2022-7-6 09:27:12

退房http://www.cadtutor.net/forum/showthread.php?59935-LISP作业帮助看起来很多学生都被分配了作业。

我将从（ssget“x”'（（0。“圆”））开始）

Organic · 发表于 2022-7-6 09:34:12

如果是同一个圆反复重复，那么它应该在开始时被做成一个块，然后很容易将块修改为实心圆。

Tharwat · 发表于 2022-7-6 09:37:53

这

copy


(defun c:Test (/ ss in out)
 (if
   (and
     (setq in (getdist "\n Specify Inside Diameter :"))
     (setq out (getdist "\n Specify Outside Diameter :"))
     (setq ss (ssget "_x" '((0 . "CIRCLE"))))
   )
    (
     (lambda (j / sset)
       (while
         (setq sset (ssname ss (setq j (1+ j))))
          (command "_.donut" in out (cdr (assoc 10 (entget sset))) "")
         (entdel sset)
       )
     )
      -1
    )
    (princ "\n Sorry !! Not even a Circle found ")
 )
 (princ)
)

塔瓦特

gvgbabu · 发表于 2022-7-6 09:39:57

谢谢tharwat Dink&Begal

它工作得很好，你让我的工作更轻松

谢谢

甘尼什

Tharwat · 发表于 2022-7-6 09:46:46

很高兴听到这个消息。甘尼什

享受

Lee Mac · 发表于 2022-7-6 09:49:15

另一种方法是在不使用“甜甜圈”命令的情况下创建甜甜圈。以下代码适用于在任何平面上绘制的任何半径的圆，并将进一步保留原始圆的所有属性：

copy


(defun c:Circle2Donut ( / c i l r s ) (vl-load-com)
 ;; © Lee Mac 2011
 (if (setq s (ssget "_:L" '((0 . "CIRCLE"))))
   (repeat (setq i (sslength s))
     (setq l (entget (ssname s (setq i (1- i))))
           r (cdr (assoc 40 l))
           c (cdr (assoc 10 l))
     )
     (if
       (entmakex
         (append
          '(
             (0 . "LWPOLYLINE")
             (100 . "AcDbEntity")
             (100 . "AcDbPolyline")
             (90 . 2)
             (70 . 1)
           )
           (vl-remove-if '(lambda ( x ) (member (car x) '(-1 0 5 10 40 100 330))) l)
           (list
             (cons 43 r)
             (cons 10 (polar c pi (/ r 2.)))
             (cons 42 1)
             (cons 10 (polar c 0. (/ r 2.)))
             (cons 42 1)
             (assoc 210 l)
           )
         )
       )
       (entdel (cdr (assoc -1 l)))
     )
   )
 )
 (princ)
)

Tharwat · 发表于 2022-7-6 09:54:12

李，

我想必须有内部和外部输入，以避免将圆转换为图案填充实体选项。

当做

Lee Mac · 发表于 2022-7-6 09:59:53

我知道OP需要“实心圆”，但如有必要，可以创建任意内外半径的甜甜圈。

David Bethel · 发表于 2022-7-6 10:03:06

或者可能：

copy


[b][color=BLACK]([/color][/b]defun c:cir2dont [b][color=FUCHSIA]([/color][/b]/ ss en ed ce ev ra la lt tk cl[b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]and [b][color=NAVY]([/color][/b]setq ss [b][color=MAROON]([/color][/b]ssget '[b][color=GREEN]([/color][/b][b][color=BLUE]([/color][/b]0 . [color=#2f4f4f]"CIRCLE"[/color][b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
      [b][color=NAVY]([/color][/b]while [b][color=MAROON]([/color][/b]setq en [b][color=GREEN]([/color][/b]ssname ss 0[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]
             [b][color=MAROON]([/color][/b]setq ed [b][color=GREEN]([/color][/b]entget en[b][color=GREEN])[/color][/b]
                   ce [b][color=GREEN]([/color][/b]cdr [b][color=BLUE]([/color][/b]assoc 10 ed[b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b]
                   ev [b][color=GREEN]([/color][/b]caddr ce[b][color=GREEN])[/color][/b]
                   ra [b][color=GREEN]([/color][/b]cdr [b][color=BLUE]([/color][/b]assoc 40 ed[b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b]
                   la [b][color=GREEN]([/color][/b]assoc 8 ed[b][color=GREEN])[/color][/b]
                   lt [b][color=GREEN]([/color][/b]if [b][color=BLUE]([/color][/b]assoc  6 ed[b][color=BLUE])[/color][/b] [b][color=BLUE]([/color][/b]assoc  6 ed[b][color=BLUE])[/color][/b] '[b][color=BLUE]([/color][/b]6  . [color=#2f4f4f]"BYLAYER"[/color][b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b]
                   tk [b][color=GREEN]([/color][/b]if [b][color=BLUE]([/color][/b]assoc 39 ed[b][color=BLUE])[/color][/b] [b][color=BLUE]([/color][/b]assoc 39 ed[b][color=BLUE])[/color][/b] '[b][color=BLUE]([/color][/b]39 . 0[b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b]
                   cl [b][color=GREEN]([/color][/b]if [b][color=BLUE]([/color][/b]assoc 62 ed[b][color=BLUE])[/color][/b] [b][color=BLUE]([/color][/b]assoc 62 ed[b][color=BLUE])[/color][/b] '[b][color=BLUE]([/color][/b]62 . 256[b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]
              [b][color=MAROON]([/color][/b]entmake [b][color=GREEN]([/color][/b]list [b][color=BLUE]([/color][/b]cons 0 [color=#2f4f4f]"POLYLINE"[/color][b][color=BLUE])[/color][/b][b][color=BLUE]([/color][/b]cons 66 1[b][color=BLUE])[/color][/b]
                             [b][color=BLUE]([/color][/b]list 10 0 0 ev[b][color=BLUE])[/color][/b]
                             [b][color=BLUE]([/color][/b]cons 40 ra[b][color=BLUE])[/color][/b][b][color=BLUE]([/color][/b]cons 41 ra[b][color=BLUE])[/color][/b]
                             la lt tk cl
                             [b][color=BLUE]([/color][/b]cons 70 1[b][color=BLUE])[/color][/b]
                             [b][color=BLUE]([/color][/b]assoc 210 ed[b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]
              [b][color=MAROON]([/color][/b]entmake [b][color=GREEN]([/color][/b]list [b][color=BLUE]([/color][/b]cons 0 [color=#2f4f4f]"VERTEX"[/color][b][color=BLUE])[/color][/b]
                             [b][color=BLUE]([/color][/b]list 10 [b][color=RED]([/color][/b]+ [b][color=PURPLE]([/color][/b]car ce[b][color=PURPLE])[/color][/b] [b][color=PURPLE]([/color][/b]* ra 0.5[b][color=PURPLE])[/color][/b][b][color=RED])[/color][/b] [b][color=RED]([/color][/b]cadr ce[b][color=RED])[/color][/b] ev[b][color=BLUE])[/color][/b]
                             [b][color=BLUE]([/color][/b]cons 40 ra[b][color=BLUE])[/color][/b][b][color=BLUE]([/color][/b]cons 41 ra[b][color=BLUE])[/color][/b]
                             la lt tk cl
                             [b][color=BLUE]([/color][/b]cons 42 1[b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]
              [b][color=MAROON]([/color][/b]entmake [b][color=GREEN]([/color][/b]list [b][color=BLUE]([/color][/b]cons 0 [color=#2f4f4f]"VERTEX"[/color][b][color=BLUE])[/color][/b]
                             [b][color=BLUE]([/color][/b]list 10 [b][color=RED]([/color][/b]- [b][color=PURPLE]([/color][/b]car ce[b][color=PURPLE])[/color][/b] [b][color=PURPLE]([/color][/b]* ra 0.5[b][color=PURPLE])[/color][/b][b][color=RED])[/color][/b] [b][color=RED]([/color][/b]cadr ce[b][color=RED])[/color][/b] ev[b][color=BLUE])[/color][/b]
                             [b][color=BLUE]([/color][/b]cons 40 ra[b][color=BLUE])[/color][/b][b][color=BLUE]([/color][/b]cons 41 ra[b][color=BLUE])[/color][/b]
                             la lt tk cl
                             [b][color=BLUE]([/color][/b]cons 42 1[b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]
              [b][color=MAROON]([/color][/b]entmake [b][color=GREEN]([/color][/b]list [b][color=BLUE]([/color][/b]cons 0 [color=#2f4f4f]"SEQEND"[/color][b][color=BLUE])[/color][/b] la lt tk cl[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]
              [b][color=MAROON]([/color][/b]entdel en[b][color=MAROON])[/color][/b]
              [b][color=MAROON]([/color][/b]ssdel en ss[b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]redraw[b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]prin1[b][color=FUCHSIA])[/color][/b][b][color=BLACK])[/color][/b]

-大卫

[编程交流] 如何将圆变为don

发表回复

精选推荐