计算人孔坡度

jason tay · 发表于 2022-7-6 02:35:13

我知道总有一个lisp的数字，是任何人都可以帮助对lisp，可以做例子附加。
其中显示了（反转电平减去反转电平）除以长度，得到的结果为1：______

因为当我有很多人孔的时候，我花了很多时间一个一个地计算。

提前感谢
MH梯度。图纸

BIGAL · 发表于 2022-7-6 02:41:27

只需写一个lisp，答案是说pick line=2D length pick Il1 pick il22 pull Il’s out grade=l/（Il1-il2）strcat“1：”进行评分，你就得到了答案。

这是一个开始，它会工作，但你需要一点更多，它不会识别“=26.2”，但将与26.2李mac做了一个从文本字符串拉数字，所以做了一点搜索这里我现在不能。

copy

      (setq en1 (car (entsel "\nSelect text number1:" )))
       (setq el1 (entget en1))
       (setq v1 (atof (cdr (assoc 1 el1))))
    (setq en2 (car (entsel "\nSelect text number2:" )))
       (setq el2 (entget en2))
       (setq v2 (atof (cdr (assoc 1 el2))))
       (setq diff  (- v1 v2))
    (setq en3 (car (entsel "\nSelect line:" )))
       (setq el3 (entget en3))
       (setq Pt1  (cdr (assoc 10 el3)))
(setq Pt2 (cdr (assoc 11 el3)))
(setq dist (distance Pt1 Pt2))
(setq grade (/ dist diff))
(setq ansgrd (strcat "1:" (rtos grade 2 3)))
(princ ansgrd)

jason tay · 发表于 2022-7-6 02:43:42

谢谢，即使它没有从字符串中提取数字也没关系，但是如何将结果输出到我们想要的位置呢？
再次感谢

jason tay · 发表于 2022-7-6 02:48:50

我尝试输入
（princ“\n\nansgrd=”）（princ ansgrd）
（setq pt（getpoint“\n插入点：”）
但因为我Lisp程序，所以不知道该怎么办

Tharwat · 发表于 2022-7-6 02:50:33

将以下内容放在支持的代码末尾。

copy

(entmake (list (cons 0 "TEXT")(cons 10 (getpoint "\n Text Location:"))(cons 40 (getvar 'textsize))(cons 1 ansgrd)))

jason tay · 发表于 2022-7-6 02:54:18

多亏了比格尔和塔瓦，这真的帮了我很大的忙

jason tay · 发表于 2022-7-6 02:59:17

还有一点，如何使命令重复/连续？我不需要每次都重新加载：不确定：
谢谢

Organic · 发表于 2022-7-6 03:02:43

您在那里绘制的管道长度是24.17米，而不是25米。

我个人只会手动计算管道等级，因为它不会花那么长时间，因为你是手动做的，我假设你没有设计系统（如果你做了，看看土木设计包，因为他们会为你做这件事），我个人不相信我得到的任何图纸足够准确（除非我自己做了），可以使用lisp提取值。

出于兴趣，“T=E-5”代表什么，我以前没有见过这个符号/无法计算出来。

jason tay · 发表于 2022-7-6 03:04:50

Dink87522，我在做竣工测量，所以管道长度是基于现场的，当其人孔很多时，人工计算会有一段时间的人为错误。顺便说一句，“T=E-5”实际上是指E-5型（这是我遵循设计图纸的标签（指示））

Organic · 发表于 2022-7-6 03:08:41

是的，但如果是竣工测量，则坡度计算中使用的管道长度（假设您添加的是竣工坡度，而不是应在其上建造的设计坡度）应为实际长度（24.17），而不是计算中显示的25。

[编程交流] 计算人孔坡度

发表回复

精选推荐