沿多段线绘制点

Bane · 发表于 2022-7-5 22:13:26

我面临的新问题是：我将直线和圆弧连接到一条多段线。

我想沿着多段线创建点，距离第一个多段线顶点有严格定义的距离。

这都是关于2D的。

任何想法都可以。

谢谢

PS_Port · 发表于 2022-7-5 22:18:18

标出所需的点/节点，例如，将其称为“点1”

命令测量，选择“pline”，指定块“Point1”，然后间隔距离。

Lisp应该很容易编写，但我不确定它是否会大大加快上述过程。。

Bane · 发表于 2022-7-5 22:21:56

谢谢，它可以“手动”工作。
然而，我需要lisp代码，因为在创建这些点之后，我需要做更多的事情。

这个折线实际上是水平对齐。剖面线（垂直于路线）应通过所述创建点创建。问题是，如果在圆弧上的某个位置创建点，如何创建轮廓线。。。如何定义作为多段线一部分的圆弧中心？

有什么建议吗？

PS_Port · 发表于 2022-7-5 22:23:44

我想我得到了你想要的，我知道午饭后我能想出什么。

BIGAL · 发表于 2022-7-5 22:29:00

Lisp程序

如果您先拾取点，然后再绘制多段线，则会绘制一条线

好的，现在希望每条线都有一定的长度，因为你们有一条线，你们可以用最后一条线来获得线的角度，然后在两个方向上重新绘制

根据需要重复

PS_Port · 发表于 2022-7-5 22:31:55

看了贝恩的问题后，我仍然认为该措施是可行的。
参见图。
忘记将此添加到图片中。-创建的块具有中点插入点。

这是命令行。

刚意识到你是个有礼貌的人。。也许那个领域的人会有更好的解决方案。。

Bane · 发表于 2022-7-5 22:36:31

干得好，但我的距离并不总是一样的。例如，第一条轮廓线可能距离顶点30.000m，接下来距离第一个顶点42.341m。。。

是的，我是一个文明人。

谢谢你的帮助。

fixo · 发表于 2022-7-5 22:38:18

我没有时间测试它
试一试，但对未使用的部分进行注释
在***，
如果您不想按图片所示插入块

copy


(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)
 )