简单的LISP（我猜）

Peri · 发表于 2022-7-6 10:04:49

我发现自己再次需要像你这样的专家的帮助。

我认为我想要的Lisp程序很简单，如果可以的话。我有一张画，画了几行，每行写一个值。本文显示了管道的直径（绘制的线是管道）。文本是简单的文本，而不是属性。

正如你可能已经猜到的，有数百个不同直径的管子。我需要的LISP如下：我单击文本-它读取的内容总是一个数字-将值除以2-单击行-将最后一个值偏移到每一侧，然后删除中间的行-结束命令。用这个Lisp程序的词，我会像疯子一样到处点击，直到我的所有线条都显示出管子的直径。

提前感谢，
罗德里戈

JPlanera · 发表于 2022-7-6 10:13:55

这会做你想做的，但它不允许你选择文本。您必须手动输入直径。在有人修改代码之前，它应该能让你暂时达到你想要的目的。。。

copy

(defun c:DOF (/ a b b1 p1 d pckbox)
(setq d 20 p1 nil pee (/ pi 2)e 3 pckbox (getvar "pickbox")line "                           
   ")
(princ "\nEnter Pipe Diameter <")
(setq answer(getreal ">: "))
(setq answer2(/ answer 2))
(princ line)
(setvar "pickbox" pckbox)
(setq ent(entsel "\nPick the line: "))
(setvar "pickbox" 2)
(setq point(cadr ent))
(princ line)
       (setq side(getpoint "\nPick an offset side: "))
(setq dist(distance side point))(setq ang(angle side point))
(if(or(or(< ang 0.78)(> ang 5.5))(and(> ang 2.35)(< ang 3.92)))
 (setq ang(- 0 ang))(setq ang(- pi ang))
);end if
(setq other(polar point ang dist))
(command "offset" answer2 ent side ent other "")
       (entdel(car ent))
(setvar "pickbox" pckbox)
(prin1)
)

Peri · 发表于 2022-7-6 10:19:50

感谢您的快速回复！我现在就试试这个！

Cad64 · 发表于 2022-7-6 10:24:41

如果你在lisp部分发布你的问题，你会得到更多的回复。
我已经为你把这条线移到那里了。

alanjt · 发表于 2022-7-6 10:27:35

我喜欢人们说一个常规的写作很简单，但我无法想象自己能学会由谁来写。

David Bethel · 发表于 2022-7-6 10:34:05

我认为我应该更倾向于使用entmake，因为通过OFFSET命令拾取点可能会导致错误

copy


[b][color=BLACK]([/color][/b]defun c:offtxt [b][color=FUCHSIA]([/color][/b]/ tx tv ss en ed p10 p11 p20 p21 p30 p31 fd sd[b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]while [b][color=NAVY]([/color][/b]or [b][color=MAROON]([/color][/b]not tx[b][color=MAROON])[/color][/b]
            [b][color=MAROON]([/color][/b]/= [b][color=GREEN]([/color][/b]sslength tx[b][color=GREEN])[/color][/b] 1[b][color=MAROON])[/color][/b]
            [b][color=MAROON]([/color][/b]<= [b][color=GREEN]([/color][/b]setq tv [b][color=BLUE]([/color][/b]atof [b][color=RED]([/color][/b]cdr [b][color=PURPLE]([/color][/b]assoc 1 [b][color=TEAL]([/color][/b]entget [b][color=OLIVE]([/color][/b]ssname tx 0[b][color=OLIVE])[/color][/b][b][color=TEAL])[/color][/b][b][color=PURPLE])[/color][/b][b][color=RED])[/color][/b][b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b] 0.[b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
        [b][color=NAVY]([/color][/b]princ [color=#2f4f4f]"\nSelect Numeric Text To Read..."[/color][b][color=NAVY])[/color][/b]
        [b][color=NAVY]([/color][/b]setq tx [b][color=MAROON]([/color][/b]ssget '[b][color=GREEN]([/color][/b][b][color=BLUE]([/color][/b]0 . [color=#2f4f4f]"*TEXT"[/color][b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]while [b][color=NAVY]([/color][/b]or [b][color=MAROON]([/color][/b]not ss[b][color=MAROON])[/color][/b]
            [b][color=MAROON]([/color][/b]/= [b][color=GREEN]([/color][/b]sslength ss[b][color=GREEN])[/color][/b] 1[b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
        [b][color=NAVY]([/color][/b]princ [color=#2f4f4f]"\nSelect Line To Offset..."[/color][b][color=NAVY])[/color][/b]
        [b][color=NAVY]([/color][/b]setq ss [b][color=MAROON]([/color][/b]ssget '[b][color=GREEN]([/color][/b][b][color=BLUE]([/color][/b]0 . [color=#2f4f4f]"LINE"[/color][b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]setq en [b][color=NAVY]([/color][/b]ssname ss 0[b][color=NAVY])[/color][/b]
       ed [b][color=NAVY]([/color][/b]entget en[b][color=NAVY])[/color][/b]
      p10 [b][color=NAVY]([/color][/b]cdr [b][color=MAROON]([/color][/b]assoc 10 ed[b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
      p11 [b][color=NAVY]([/color][/b]cdr [b][color=MAROON]([/color][/b]assoc 11 ed[b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
      p20 [b][color=NAVY]([/color][/b]polar p10 [b][color=MAROON]([/color][/b]+ [b][color=GREEN]([/color][/b]angle p10 p11[b][color=GREEN])[/color][/b] [b][color=GREEN]([/color][/b]* pi 0.5[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b] [b][color=MAROON]([/color][/b]* tv 0.5[b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
      p30 [b][color=NAVY]([/color][/b]polar p10 [b][color=MAROON]([/color][/b]- [b][color=GREEN]([/color][/b]angle p10 p11[b][color=GREEN])[/color][/b] [b][color=GREEN]([/color][/b]* pi 0.5[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b] [b][color=MAROON]([/color][/b]* tv 0.5[b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
      p21 [b][color=NAVY]([/color][/b]polar p11 [b][color=MAROON]([/color][/b]+ [b][color=GREEN]([/color][/b]angle p10 p11[b][color=GREEN])[/color][/b] [b][color=GREEN]([/color][/b]* pi 0.5[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b] [b][color=MAROON]([/color][/b]* tv 0.5[b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
      p31 [b][color=NAVY]([/color][/b]polar p11 [b][color=MAROON]([/color][/b]- [b][color=GREEN]([/color][/b]angle p10 p11[b][color=GREEN])[/color][/b] [b][color=GREEN]([/color][/b]* pi 0.5[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b] [b][color=MAROON]([/color][/b]* tv 0.5[b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
       fd [b][color=NAVY]([/color][/b]subst [b][color=MAROON]([/color][/b]cons 10 p20[b][color=MAROON])[/color][/b] [b][color=MAROON]([/color][/b]assoc 10 ed[b][color=MAROON])[/color][/b] ed[b][color=NAVY])[/color][/b]
       fd [b][color=NAVY]([/color][/b]subst [b][color=MAROON]([/color][/b]cons 11 p21[b][color=MAROON])[/color][/b] [b][color=MAROON]([/color][/b]assoc 11 ed[b][color=MAROON])[/color][/b] fd[b][color=NAVY])[/color][/b]
       sd [b][color=NAVY]([/color][/b]subst [b][color=MAROON]([/color][/b]cons 10 p30[b][color=MAROON])[/color][/b] [b][color=MAROON]([/color][/b]assoc 10 ed[b][color=MAROON])[/color][/b] ed[b][color=NAVY])[/color][/b]
       sd [b][color=NAVY]([/color][/b]subst [b][color=MAROON]([/color][/b]cons 11 p31[b][color=MAROON])[/color][/b] [b][color=MAROON]([/color][/b]assoc 11 ed[b][color=MAROON])[/color][/b] sd[b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]entmake fd[b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]entmake sd[b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]entdel en[b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]redraw[b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]prin1[b][color=FUCHSIA])[/color][/b][b][color=BLACK])[/color][/b]