用so画线和圆

MastroLube · 发表于 2022-7-5 15:16:21

大家好！

我写这个lisp是为了快速绘制这些圆+线。

正如你所见，垂直边缘为30cm时效果不太好，但如果我放置60cm，效果会很好。。

该程序询问我以下问题：
1、线路数量
2、每条线的圈数
3.2点绘制位置
4、我刚才用2分画的边线

如何处理非垂直/水平线？

我怎么也能在角落里画画？

登录/注册后可看大图

谢谢

丹尼斯

Lee Mac · 发表于 2022-7-5 15:32:33

使用极函数计算点的位置，使用角度函数计算两个给定点之间的角度。

BIGAL · 发表于 2022-7-5 15:43:22

在你的代码中有一个建议，你重复entmake多次，这可能存在两行，圈，因为你可以使用defun传递变量，这是编程中的一种标准类型，不能重复写代码位。

copy


(defun ML:Makeline (lay pt1 pt2 /  )
   (entmake (list (cons 0 "LINE")
      (Cons 8 Lay)
      (cons 10 pt1)
      (cons 11 pt2)
      (cons 62 3)
   )
)
)
; put at start
(setq clay "SCHÖCK_BOLE")
; example
(setq p1 (list  (+ (nth 0 p1) dist1) (+ (nth 1 p1) (* j dist)) (nth 2 p1)))
(setq p2 (list (+ (nth 0 p1) (* j dist)) (+ (nth 1 p1) dist1 (* (- i 1) passo)) (nth 2 p1)))
(ML:Makeline clay p1 p2)

MastroLube · 发表于 2022-7-5 15:47:39

谢谢你们的帮助！
是的，我应该学会更好地编写代码。我的代码看起来总是一团糟。。

我会设法解决它！

期待很快与您见面！
丹尼斯

丹尼斯

MastroLube · 发表于 2022-7-5 16:03:24

大家好！！

今天我有时间继续这个项目！

我完全重写了代码：
我对此感到非常自豪

你能给我一个提示吗？

开头有一个参考点。。我想用这一点来表示我的圆+线的方向，而不是外部总是逆时针，内部总是顺时针。。我怎么检查？INV使用“-1”或“+1”来考虑这一点。

你认为我需要写一个新函数来绘制45°方向的边缘吗？

谢谢你的帮助
丹尼斯

登录/注册后可看大图

编辑：也许是这样，但我不太喜欢。。最初的想法是将90度分成两半（一条线+45°的圆）和三部分（2条线+30°的圆）。有什么建议吗？

copy

(defun legatura_diagonale (a / j k)
 (setq j 1
       k 1)
 (repeat n2 ;direzione Y
  ; J=1;3;5 etc
 
 (setq pnt (polar p1 (+ ang (* inv a)) (* j dist_y) ))
(Entmake (list (cons 0 "CIRCLE")
                     (cons 8 "SCHÖCK_BOLE")
                     (cons 10 pnt)
                     (cons 40 diam)
                     (cons 62 3)
                     )
                   )
 (setq j (+ j 2))
 )
 (ML:Makeline  "SCHÖCK_BOLE"
           (polar p1 (+ ang (* inv a)) (* 1 dist_y))
               (polar p1 (+ ang (* inv a)) (* (- (* n2 2) 1) dist_y))
              )
 )