社区 › Auto Lisp › 需要插入圆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

因为这几乎就是你想要的开始。
 
 
(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)
)

LibertyOne 发表于 2022-7-6 10:27:32

由于这是我的第一篇帖子，我想向社区问好，并对mods和论坛发帖人竖起大拇指。此外，没有吹毛求疵或偏袒任何一方，我发现事情从一个CAD论坛到下一个CAD论坛都没有改变，这非常令人惊讶。尤其是在编程AutoCAD时。
 
我完全理解并尊重李的观点。他给你豆子是为了播种，不是为了吃。

alanjt 发表于 2022-7-6 10:33:14

欢迎来到CADTutor，LibertyOne。

digger 发表于 2022-7-6 10:33:47

 
谢谢alanjt。你似乎是这里唯一一个得到它的人。
你和se7en是我最喜欢的书。
 
挖掘机

SLW210 发表于 2022-7-6 10:37:19

 
说明从来都不是浪费时间，也许OP使用了或没有使用您的说明，至少它们是为其他可能需要它们的人提供的。
 
 
 
纠正错误，不要生气。这里有很多人想要挑战和练习，所以不要害羞，只是不要生气，这是一个自愿的安排。
 
 
如果这是紧急和必要的，那么按照建议去做，并聘请一名程序员。

查看完整版本: 需要插入圆Lisp