沿多段线绘制点
我面临的新问题是：我将直线和圆弧连接到一条多段线。我想沿着多段线创建点，距离第一个多段线顶点有严格定义的距离。
这都是关于2D的。
任何想法都可以。
谢谢 标出所需的点/节点，例如，将其称为“点1”
命令测量，选择“pline”，指定块“Point1”，然后间隔距离。
Lisp应该很容易编写，但我不确定它是否会大大加快上述过程。。 谢谢，它可以“手动”工作。
然而，我需要lisp代码，因为在创建这些点之后，我需要做更多的事情。
这个折线实际上是水平对齐。剖面线（垂直于路线）应通过所述创建点创建。问题是，如果在圆弧上的某个位置创建点，如何创建轮廓线。。。如何定义作为多段线一部分的圆弧中心？
有什么建议吗？
我想我得到了你想要的，我知道午饭后我能想出什么。 Lisp程序
如果您先拾取点，然后再绘制多段线，则会绘制一条线
好的，现在希望每条线都有一定的长度，因为你们有一条线，你们可以用最后一条线来获得线的角度，然后在两个方向上重新绘制
根据需要重复 看了贝恩的问题后，我仍然认为该措施是可行的。
参见图。
忘记将此添加到图片中。-创建的块具有中点插入点。
这是命令行。
刚意识到你是个有礼貌的人。。也许那个领域的人会有更好的解决方案。。 干得好，但我的距离并不总是一样的。例如，第一条轮廓线可能距离顶点30.000m，接下来距离第一个顶点42.341m。。。
是的，我是一个文明人。
谢谢你的帮助。
我没有时间测试它
试一试，但对未使用的部分进行注释
在***，
如果您不想按图片所示插入块
(defun C:test(/ ang cumm_dist dis dist_list leng obj pt)
(vl-load-com)
;; build master list of the distances, starting from 0.0 - important!
(setq dist_list '(0.0 1000.0 2000.0 3000.0 4000.0 5000.0))
(setq cumm_dist (apply '+ dist_list))
(setq dis 0.0)
(setq obj (vlax-ename->vla-object (car (entsel "\n >> Select profile >>"))))
(setq leng (vlax-curve-getdistatpoint obj (vlax-curve-getendpoint obj)))
;; check if pline length is not less than the cumulative distance
(if (< leng cumm_dist)
(progn
(alert "Pline length is less then summary distance")
(princ)
)
(while (< dis cumm_dist)
(setq dis (+ dis (car dist_list)))
(setq pt (vlax-curve-getpointatdist obj dis))
;;;***
;;to insert block named "tick":
;; get angle:
(setq ang (angle '(0 0 0)
(vlax-curve-getfirstderiv obj
(vlax-curve-getparamatpoint obj pt))))
;;insert block:
(vlax-invoke (vla-get-modelspace (vla-get-activedocument (vlax-get-acad-object)))
'InsertBlock pt "tick" 1 1 1 ang);***
;;or draw point:
(vlax-invoke (vla-get-modelspace (vla-get-activedocument (vlax-get-acad-object)))
'AddPoint pt)
(setq dist_list (cdr dist_list))
)
)
(princ)
)
~'J'~ 我不知道该说什么。。。谢谢你，胖子，干得好。它工作得很好。
我不熟悉visual lisp，但我将尝试使用basic lisp继续下一步。
非常感谢你！！！
另一个类似的问题：
如果我有相同的多段线，并在多段线上的某些位置手动创建轮廓线（作为块或仅仅是线），是否有可能编写代码来查找这些线（或块）在多段线上的位置，并显示它们与第一个顶点的距离（在命令提示符下或写入文件中）？
页:
[1]
2