带一个厚e的3点PLINE
大家好，暂时没有登录到这里，但希望有人能帮上忙。我的lisp知识非常少。
我必须画很多坡度箭头来测量土地。如下图所示（虚线是河岸，但它是表示我感兴趣的坡度的多段线）。
我很想在堤岸上选择一个起点（使用最近的捕捉），然后在堤岸终点的底部选择一个点。
将生成一条3点多段线，其中起点处的宽度为多段线总长度的六分之一（16.66%）。
如果是Lisp程序，我可以右键单击并执行另一个&另一个等等。
请参见下图。
目前，我做了一个3点线和编辑后使用属性。这需要很长时间。
请帮助一个新手。
亲切的问候
Al。 这
(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))
天哪，李，太棒了。
它工作得很好。
这不是你第一次帮助我。
我只需要对层进行排序，并默认为最近的OSNAP，但这只是我的能力范围。
Ta mate。
PS：难道你不知道有什么好的LISP教程/学习资源吗？ 嘿库姆西，很高兴这是你想要的
至于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 再一个：
LISP函数解释（文本替换）：
http://www.cadtutor.net/forum/showpost.php?p=264546&postcount=15 再次感谢。。
我们将查看链接，并希望能登上会员阶梯。。 你的欢迎
如果你对我发布的内容还有任何疑问，尽管问
李
页:
[1]