需要插入圆Lisp

alanjt · 发表于 2022-7-6 10:08:48

正如总会有人想学习，也会有人不想学习一样，总会有至少一个人为一个人编写代码。如果你付出一点学习努力，但请求离开，你会走得更远。你一定会有人为你编码的。我们这里的大多数人要么请求了一些东西，要么编写了一个请求。我知道两者都有罪。

digger · 发表于 2022-7-6 10:13:39

李·麦克，

你会推荐我们哪个论坛使用代码挑战绘图员来发布我们对例程的请求，以帮助减轻我们的日常苦工？

挖掘机

Lee Mac · 发表于 2022-7-6 10:16:17

请参阅前面的回复。

digger · 发表于 2022-7-6 10:18:06

李·麦克，
所以你没有建议？
不愿意和不能是有区别的。
当你还是黄的时候，我正在用BASIC写代码。这是我在任何代码中都能做到的。
不是每个人都有AS的味道。

alanjt · 发表于 2022-7-6 10:21:57

请求离开。有人要么帮助你，要么拒绝，要么无视你。

Lt Dan's l · 发表于 2022-7-6 10:26:19

因为这几乎就是你想要的开始。

copy

(defun c:Bubble (/ *error* p1 p2 nu dia di)
 (setvar "cmdecho" 0)
 (command "undo" "begin")
 (defun *error* (msg)
   (or (wcmatch (strcase msg) "*BREAK,*CANCEL*,*EXIT*")
        (princ (strcat "\n** Error: " msg " **"))
   )
   (command "undo" "end")
   (setvar "cmdecho" 1)
   (princ)
 )
 (if
   (and
     (setq p1 (getpoint "\nSpecify first point: "))
     (setq p2 (getpoint p1 "\nSpecify second point: "))
     (setq di 
       (/ 
         (distance p1 p2)
         (1+ (setq nu (getint "\nNumber of circles: ")))
       )
     )
     (setq dia (getdist "\nDiameter of circles: "))
   )
   (repeat nu
     (entmakex 
       (list 
         (cons 0 "CIRCLE")
         (cons 10 (setq p1 (polar p1 (angle p1 p2) di)))
         (cons 8 "0")
         (cons 40 (* dia 0.5))
       )
     )
   )
 )
 (command "undo" "end")
 (setvar "cmdecho" 1)
 (princ)
)