带一个厚e的3点PLINE

coombsie11 · 发表于 2022-7-6 12:10:58

大家好，

暂时没有登录到这里，但希望有人能帮上忙。我的lisp知识非常少。

我必须画很多坡度箭头来测量土地。如下图所示（虚线是河岸，但它是表示我感兴趣的坡度的多段线）。

我很想在堤岸上选择一个起点（使用最近的捕捉），然后在堤岸终点的底部选择一个点。
将生成一条3点多段线，其中起点处的宽度为多段线总长度的六分之一（16.66%）。

如果是Lisp程序，我可以右键单击并执行另一个&另一个等等。

请参见下图。

目前，我做了一个3点线和编辑后使用属性。这需要很长时间。

请帮助一个新手。

亲切的问候
Al。

Lee Mac · 发表于 2022-7-6 12:28:20

这

copy


(defun c:rookie (/ p1 p2 d)
 (while (and (setq p1 (getpoint "\nPick Start Point: "))
             (setq p2 (getpoint p1 "\nPick End Point: ")))
   
   (setq d (distance p1 p2))
   
   (entmake
     (list
       (cons 0 "LWPOLYLINE")
       (cons 100 "AcDbEntity")
       (cons 100 "AcDbPolyline")
       (cons 90 3)
       (cons 10 p1)
       (cons 40 (/ d 6.))
       (cons 41 0.)
       (cons 10 (polar p1 (angle p1 p2) (/ d 2.)))
       (cons 10 p2))))
 (princ))

coombsie11 · 发表于 2022-7-6 12:39:33

天哪，李，太棒了。

它工作得很好。

这不是你第一次帮助我。

我只需要对层进行排序，并默认为最近的OSNAP，但这只是我的能力范围。

Ta mate。

PS：难道你不知道有什么好的LISP教程/学习资源吗？

Lee Mac · 发表于 2022-7-6 12:47:43

嘿库姆西，很高兴这是你想要的

至于LISP学习资源。。。

我一直认为最好的学习方法是看其他人的例子，并对其进行剖析，直到你确切地了解每一行正在做什么以及为什么需要每一行（只要确保你剖析了一些“正确”的代码！）

至于教程，以下是我的链接集：

启动LISP：

http://www.cadtutor.net/forum/showthread.php?t=38760

http://www.cadtutor.net/forum/showthread.php?t=38734

http://www.afralisp.net/

http://www.jefferypsanders.com/autolisptut.html

http://ronleigh.info/autolisp/index.htm

更高级的LISP教程：

http://mitpress.mit.edu/sicp/full-text/book/book-Z-H-4.html

http://www.cs.cmu.edu/afs/cs.cmu.edu/project/ai-repository/ai/html/cltl/clm/node1.html