社区 › Auto Lisp › 在a的两端输入一个油炸圈饼

tmelancon 发表于 2022-7-5 17:11:26

在a的两端输入一个油炸圈饼

我真的需要一个lisp来找到线的端点，然后从这些端点偏移，并在一行或多行的端点插入一个实心的“甜甜圈”。我有我们目前正在使用的甜甜圈lisp，以及我在网上找到的另一个lisp，它非常接近我所需要的。请参阅下面的lisp和图片，了解当前代码的作用以及我正在寻找的内容。提前感谢论坛中的每一个人，非常感谢你们的帮助！
 
这是我使用的Solid Donut命令。我们称之为bb's。
 
这是我发现的有点接近的lisp。KENT1COOPER通过AutoDesk论坛提供：
 
当前例行程序：
https://www.cadtutor.net/forum/attachment.php?attachmentid=54451&cid=1&stc=1
 
新的常规：（我想尝试并让它做什么）
https://www.cadtutor.net/forum/attachment.php?attachmentid=54454&cid=1&stc=1

Lee Mac 发表于 2022-7-5 17:20:10

尝试以下操作：
(defun c:dlines ( / e i p q s )
   (if (setq s (ssget '((0 . "LINE"))))
       (repeat (setq i (sslength s))
         (setq e (entget (ssname s (setq i (1- i))))
               p (cdr (assoc 10 e))
               q (cdr (assoc 11 e))
         )
         (LM:donut (polar p (angle p q) 0.25) 0.0 0.0335)
         (LM:donut (polar q (angle q p) 0.25) 0.0 0.0335)
       )
   )
   (princ)
)

;; Donut-Lee Mac
;; cen - Donut center
;; rd1 - Inside radius
;; rd2 - Outside radius

(defun LM:donut ( cen rd1 rd2 / ocs thk )
   (setq thk (abs (- rd2 rd1))
         ocs (trans '(0 0 1) 1 0 t)
   )
   (entmakex
       (list
          '(000 . "LWPOLYLINE")
          '(100 . "AcDbEntity")
          '(100 . "AcDbPolyline")
          '(090 . 2)
          '(070 . 1)
         (cons 43 thk)
         (cons 10 (polar (trans cen 0 ocs) pi (+ rd1 (/ thk 2.0))))
          '(042 . 1)
         (cons 10 (polar (trans cen 0 ocs) 0(+ rd1 (/ thk 2.0))))
          '(042 . 1)
         (cons 210 ocs)
       )
   )
)

tmelancon 发表于 2022-7-5 17:28:31

再一次，又是一件精彩的作品。非常感谢李。祝福！工作得很有魅力！

Lee Mac 发表于 2022-7-5 17:33:13

不客气

BIGAL 发表于 2022-7-5 17:37:09

你也可以用样条线通过顶点计算出新的圆环点。李？

Lee Mac 发表于 2022-7-5 17:45:38

 
当然，比如：
(defun c:dlines ( / e i l s )
   (if (setq s (ssget '((0 . "LINE,LWPOLYLINE"))))
       (repeat (setq i (sslength s))
         (setq e (entget (ssname s (setq i (1- i)))))
         (if (= "LINE" (cdr (assoc 0 e)))
               (setq l (list (cdr (assoc 10 e)) (cdr (assoc 11 e))))
               (setq l (mapcar 'cdr (vl-remove-if-not '(lambda ( x ) (= 10 (car x))) e)))
         )
         (while (cadr l)
               (LM:donut (polar (carl) (angle (carl) (cadr l)) 0.25) 0.0 0.0335)
               (LM:donut (polar (cadr l) (angle (cadr l) (carl)) 0.25) 0.0 0.0335)
               (setq l (cdr l))
         )
       )
   )
   (princ)
)

;; Donut-Lee Mac
;; cen - Donut center
;; rd1 - Inside radius
;; rd2 - Outside radius

(defun LM:donut ( cen rd1 rd2 / ocs thk )
   (setq thk (abs (- rd2 rd1))
         ocs (trans '(0 0 1) 1 0 t)
   )
   (entmakex
       (list
          '(000 . "LWPOLYLINE")
          '(100 . "AcDbEntity")
          '(100 . "AcDbPolyline")
          '(090 . 2)
          '(070 . 1)
         (cons 43 thk)
         (cons 10 (polar (trans cen 0 ocs) pi (+ rd1 (/ thk 2.0))))
          '(042 . 1)
         (cons 10 (polar (trans cen 0 ocs) 0(+ rd1 (/ thk 2.0))))
          '(042 . 1)
         (cons 210 ocs)
       )
   )
)

tmelancon 发表于 2022-7-5 17:52:40

干得好。顺便说一句，李，我用你的层控制器抛出我们在不同层上运行的各种不同命令。有没有办法操纵这个程序，把那些甜甜圈（bbs）扔到我们目前使用的一个叫做“焊接”的层上。。非常感谢大艾尔的来电！你这个男人！

BIGAL 发表于 2022-7-5 17:56:23

李的功劳是显而易见的，下一个问题将是普林斯。

Lee Mac 发表于 2022-7-5 18:02:07

 
谢谢
 
 
当然，改变：
4
收件人：
5
 
李

deepanrajrv 发表于 2022-7-5 18:06:09

这是lisp这是接近我需要的，有人可以帮助和修改我的要求这一点。

查看完整版本: 在a的两端输入一个油炸圈饼