llc1968 发表于 2012-5-28 15:57:04

有办法用lsp 修改天正标注的标高吗，批量的

有办法用lsp 修改天正标注的标高吗，批量的,多谢

print1985 发表于 2012-5-28 18:45:19

当然可以 问题是你想咋改

hf423 发表于 2012-5-28 19:43:02

print1985 发表于 2012-5-28 18:45 static/image/common/back.gif
当然可以 问题是你想咋改

批量减去某个数字（比如0.300或者0.500或者自定义）后得到新标高数值。

brainstorm 发表于 2012-5-28 20:30:40

本帖最后由 brainstorm 于 2012-5-28 21:00 编辑

用天正的标高检查就可以了 确认一个基准标高 然后检查一下 就都自动更正了
或者按下面

(defun c:test (/ ss->vlalst ss ele newele)
(defun ss->vlalst (ss / l i)
    (repeat (setq i (sslength ss))
      (setq
l (cons(vlax-ename->vla-object (ssname ss (setq i (1- i))))
    l
    )
      )
    )
)
(setq ele (getreal "\n输入增减的数值:"))
(setq ss (ssget '((0 . "TCH_ELEVATION"))))
(setq sslst (ss->vlalst ss))
(foreach n sslst
    (progn
      (if (equal
      (setq
      newele
         (rtos (+ ele (atof (vlax-get-property n 'text))) 2 3)
      )
      "0.000"
    )
(setq newele "%%p0.000")
      )
      (vlax-put-property
n
'text
newele
      )
    )
)
(princ)
)

print1985 发表于 2012-5-28 21:36:00

楼上出手真快 赞一个
建筑高手+lisp高手啊
向你学习

llc1968 发表于 2012-7-6 21:38:24

费非常感谢

黑洞—杜明智 发表于 2013-1-6 21:40:49

留下来学习……

满山松叶 发表于 2016-4-5 17:21:11

厉害，谢谢

chenyizhen28 发表于 2018-1-17 00:54:50

留个底
页: [1]
查看完整版本: 有办法用lsp 修改天正标注的标高吗，批量的