使用lisp扩展线

samifox · 发表于 2022-7-6 06:23:12

你好
我有一个交叉点钢筋线，我需要在其中延伸。我痛苦地通过“扩展”所有交点来重复这项任务
如何扩展所有选定的线？我如何限制投影？
我需要我的例行程序来做以下事情

[列表=1]

拾取闭合多段线

向内偏移3个单位

将偏移线移动到名为“CONS”的层

将多段线分解为直线

扩展所有线（仅考虑“CONS”中的线和/或投影不超过x个单位）
[/列表]
在图中，我从右向左走了几步

谢谢
谢伊

pBe · 发表于 2022-7-6 06:28:11

这只是一个简单的数学问题。

可以使用钢筋和混凝土之间的间隙以及混凝土板的宽度来创建线。

samifox · 发表于 2022-7-6 06:32:07

我不确定我是否在跟踪你，

你的意思是用polar（）画图？如果是这样的话，我该如何判断何时延长和何时不延长？

pBe · 发表于 2022-7-6 06:33:04

这就是问题所在。您不需要延伸，而是“绘制”一条线，参考柱脚线的左下角和右上角。

伪代码：
选择外部多段线
选择内部多边形
获取板的宽度
将外部多段线向内偏移3个单位
获取最后一条实体线的坐标
是的。。polar用于确定新线的点。

MSasu · 发表于 2022-7-6 06:37:57

我相信你的素描是从右到左的，对吗？
您可能感兴趣的另一个功能是INTERS。

pBe · 发表于 2022-7-6 06:39:23

不确定inters是如何在这里发挥作用的？你能用这种方法发布一个伪代码吗。

无论如何。。。我要走了，这是一个演示

copy

(Defun c:demo ( / om pl pl2 dist ref mn mx h w a b c d)
(setq om (getvar 'osmode))  
 (if (and
       (setq pl  ([color="blue"]entsel [/color]"\nSelect Outer rim: "))
       (setq pl2 ([color="blue"]entsel[/color] "\nSelect Inner rim: "))
       (setq dist ([color="blue"]distance[/color]
                    (vlax-curve-getClosestPointTo (car pl) (Cadr pl))
                    (vlax-curve-getClosestPointTo (car pl2) (Cadr pl)))
       )
     )
(progn
       (command [color="blue"]"_offset" [/color]3 (Car pl) (Cadr pl2) "")
([color="blue"]vla-getboundingbox[/color] (setq e (vlax-ename->vla-object (entlast))) 'mn 'mx)
       (setq mn  (vlax-safearray->list mn)
             mx  (vlax-safearray->list mx)
             w (- (car mx) (car mn))
             h (- (cadr mx) (cadr mn))
          dist (- dist 6))
(foreach seg (list
                 [color="blue"](list (setq a (polar mn 0 dist)) (polar a (/ pi 2.0) h))
               (list (setq b (polar mn (/ pi 2.0) dist)) (polar b 0 w))
               (list (setq c (polar mx pi dist)) (polar c (* pi 1.5) h))
               (list (setq d (polar mx (* pi 1.5) dist)) (polar d pi w)))[/color]
          (entmakex (list (cons 0 "LINE")
                          (cons 10 (Car seg))
                          (cons 11 (Cadr seg))
                                 '(8 . "CONS")))
         )
       (vla-put-layer e "CONS")
       )
   )(princ)
 )

MSasu · 发表于 2022-7-6 06:44:02

很高兴！
考虑到以下草图中的符号：

copy

(setq point1st (polar pointITL (* 0.5 pi) theGap)
     point3rd (polar pointITR (* 0.5 pi) theGap))
(setq point2nd ([color=blue]inters[/color] point1st point3rd pointETL pointEBL nil)
     point4th ([color=blue]inters[/color] point1st point3rd pointETR pointEBR nil))

pBe · 发表于 2022-7-6 06:48:19

我现在明白了。

copy

(inters point1st point3rd pointETL pointEBL[color="blue"] [b]nil[/b][/color])

好吧，我被说服了。

干杯MSasu

samifox · 发表于 2022-7-6 06:50:53

PbE，您的代码仅适用于矩形，im在结构级解决方案之后

这是一个草图（也包括dwg）

我想在墙壁旁边提取钢筋副本，
如果我想办法收集顶点1和10，我可以提取柱的钢筋，
如果我收集顶点1和6，我可以为这部分墙生成钢筋

黄色圆圈是生成钢筋所需的坐标，这些钢筋无法提取为法线顶点m，如6,7,8,9的钢筋，为了提取它，我需要得到6和9的投影（正如MSasu给我的思考食物）

希望它有意义
有办法编码吗？

谢谢
谢伊
积分。图纸

pBe · 发表于 2022-7-6 06:54:34

我想我很快就知道怎么做了。但这次您将编写代码：

下面是一个伪代码：
选择pline。
创建临时点[点图元]
通过一次选择两个“点”实体来查找点。
示例：基于图表
（同时。。。。。
在点1和10处选择2个点实体，将得到左下角和右上角的点[绘制线]
在点5和2处选择2个点实体将在左上角和右下角为您提供点[绘制线]
17 & 22, 17 & 21, 20 & 22.... [注意，这些数字并不代表实数点，仅用于讨论目的]

现在，第6、7、8和9点需要另一种方法。
如果所选点大于2，则表示全部四个点。。通过使用grread上下拖动指针，例程将“确定”下两个点的投影位置。。。
); while结束

删除创建的所有点图元。

现在，对于一种更“自动化”的方法，我需要就此回复您。我相信我能想出一些办法。。也许不是。

[编程交流] 使用lisp扩展线

发表回复

精选推荐