我需要一个Lisp程序的程序

Marcoe85 · 发表于 2022-7-5 17:11:01

所以我已经做了一段时间的测量员了，我能看到这个过程加快的唯一方法就是开始研究lisp例程。

我还没有嘴唇方面的经验，但我正在努力学习如何自己做

我想做的第一件事是做一个圆，修剪里面的线，然后可能会减小圆的半径

详情
我们当前的过程是在两个单独的层上使用圆1是0.7半径，另一个0.86修剪半径为0.86的圆中的所有线，然后关闭该层
该过程可以适用于每个计划10-50分之间的任何地方
最后剩下0.7个圆，线条之间留有间隙，以允许打印时的线条粗细

我想写的例程应该能够在里面放置一条0.86的圆修剪线，然后将圆的半径减小到0.7，同时使圆环为黄色也是一个额外的优点。

这样的例行公事可能吗？如果可能的话，有人能给我指出正确的方向吗。

BIGAL · 发表于 2022-7-5 17:20:06

所有完成张贴在这里只需要再次找到它。所以简单的pick pt可以找到底层对象pline或line，放置圆可以修剪它，删除“最后一个”绘制新的圆。非常确定使用WP来确保获得至少2条线v是一条单pline。

Marcoe85 · 发表于 2022-7-5 17:29:11

我一直在浏览论坛，但还没有发现任何东西

yathishkumar · 发表于 2022-7-5 17:43:36

这要归功于艾伦H先生。

试试这个。

copy


; trim via a circle 
; by Alan H
(defun c:clickit ( / pt oldsnap)
(setq oldsnap (getvar "osmode"))
(setvar "osmode" 512)
(alert "Pick - press ESC or pick nothing to exit")
(while (setq pt (getpoint "pick line or pline etc"))
(command "circle" pt 0.5)
(setq obj (entlast))
(command "trim" obj "" pt "")
(command "erase" obj "")
(setvar "osmode" oldsnap)
)
)

Marcoe85 · 发表于 2022-7-5 17:45:47

不完全是我想要的，在一个幻影圆圈内进行常规修剪
我需要修剪成一个大圆，只留下一个小圆

yathishkumar · 发表于 2022-7-5 17:58:44

我很抱歉。我对lisp写作不熟悉。
试试这个。或者有人可以帮你。

copy


; trim via a circle 
; by Alan H
(defun c:clickit ( / pt oldsnap)
(setq oldsnap (getvar "osmode"))
(setvar "osmode" 512)
(setq pt (getpoint "pick line or pline etc"))
(command "circle" pt 0.7)
(setq obj (entLAST))
(command "circle" pt 0.86)
(command "trim" obj "" pt "")
(setvar "osmode" oldsnap)
)