在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
尝试以下操作:
(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)
)
)
) 再一次,又是一件精彩的作品。非常感谢李。祝福!工作得很有魅力! 不客气 你也可以用样条线通过顶点计算出新的圆环点。李?
当然,比如:
(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)
)
)
) 干得好。顺便说一句,李,我用你的层控制器抛出我们在不同层上运行的各种不同命令。有没有办法操纵这个程序,把那些甜甜圈(bbs)扔到我们目前使用的一个叫做“焊接”的层上。。非常感谢大艾尔的来电!你这个男人! 李的功劳是显而易见的,下一个问题将是普林斯。
谢谢
当然,改变:
4
收件人:
5
李 这是lisp这是接近我需要的,有人可以帮助和修改我的要求这一点。
页:
[1]
2