计算挖方和填方标高

jason tay · 发表于 2022-7-6 12:21:59

尊敬的各位，请在此附上显示两个级别的样本图纸
层“竣工标高”和“OGL”（原始地面标高）均位于网格线内。我需要得到OGL减去AS的不同值，并将其放置在同一位置，以作为一个单独的图形显示，如果数字不多，那么手动或通过Microsoft excel可以完成，问题是，我面临的是15000点左右及以上。

希望有人能帮助我（我手动使用“转移到Microsoft excel”并转移回autocad似乎不是一个好主意。
希望这里的大师能帮上忙。
提前谢谢。
OGL-AS。图纸

SteveK · 发表于 2022-7-6 12:25:33

像这样的？？我已经把文字放在图层0上，只需指定一个不同的图层，这样你就可以选择它并将其移动到另一个图形。
加载并键入TXTHTS以运行。

史蒂夫

jason tay · 发表于 2022-7-6 12:30:17

亲爱的steve1，感谢您的帮助，但我发现输出的值不如OGL-as正确？是我错过了什么吗？

jason tay · 发表于 2022-7-6 12:33:15

steve1，我发现如果我只取一个点并尝试完美，但如果我尝试两个或多个点，结果就会变得不正确。请帮忙

jason tay · 发表于 2022-7-6 12:37:54

亲爱的steve1，Lisp程序看起来像是取一个OGL减去所有AS，而不是单个OGL减去单个AS。。。

SteveK · 发表于 2022-7-6 12:40:00

啊，对不起，一个小瑕疵。我更新了上面的帖子。试试看，让我知道，

史蒂夫

jason tay · 发表于 2022-7-6 12:42:33

我能说什么steve1哇！它工作得很好！！但是我们可以选择要处理的部分吗？因为我有15000多个点，一次处理需要很长时间。非常感谢Steve1

SteveK · 发表于 2022-7-6 12:47:21

奇怪，应该不会花那么长时间。。。
如果您只想选择一部分，请尝试以下操作：

copy

(defun c:txtHts (/ ss i j en en2 ht1 ht2 ht3 pt1 pt2 flag)
 (princ "\nSelect Text: ")
 (setq ss (ssget '((0 . "TEXT")(8 . "AS,OGL")))
   i -1)
 (while (setq en (ssname ss (setq i (1+ i))))
   (if (eq (cdr (assoc 8 (entget en))) "AS")
     (progn
   (setq ht1 (atof (cdr (assoc 1 (entget en))))
         pt1 (cdr (assoc 10 (entget en)))
         j -1
         flag nil)
   (while (and (not flag)
           (setq en2 (ssname ss (setq j (1+ j)))))
     (if (eq (cdr (assoc 8 (entget en2))) "OGL")
       (progn
         (setq pt2 (cdr (assoc 10 (entget en2))))
         (if (and (equal (car pt1) (car pt2) 0.5)
              (equal (cadr pt1) (cadr pt2) 0.5))
       (setq flag T)
       )
         )
       )
     )
   (if flag
     (progn
       (setq ht2 (atof (cdr (assoc 1 (entget en2)))))
       (setq ht3 (- ht2 ht1))
       (entmake (list (cons 0 "TEXT")
              (cons 1 (rtos ht3 2 2))
              (cons 8 "0")
              (cons 10 pt1)
              (cons 40 0.2)
              (cons 100 "AcDbEntity")
              (cons 100 "AcDbText")
              )
            )
       )(princ "\nOGL Text Not Found.")
     )
   )
     )
   )
 (princ)
 )

jason tay · 发表于 2022-7-6 12:47:27

我不知道该说什么，史蒂夫，多亏了你！！（处理所有数据需要一些时间，因为这真的很多，所以我认为这很正常）

SteveK · 发表于 2022-7-6 12:50:55

不客气。

[编程交流] 计算挖方和填方标高

发表回复

精选推荐