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

llc1968

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

print1985

当然可以 问题是你想咋改

hf423

print1985 发表于 2012-5-28 18:45
当然可以 问题是你想咋改

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

brainstorm

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

2. (defun c:test (/ ss->vlalst ss ele newele)
   
3.   (defun ss->vlalst (ss / l i)
   
4.     (repeat (setq i (sslength ss))
   
5.       (setq
   
6.   l (cons  (vlax-ename->vla-object (ssname ss (setq i (1- i))))
   
7.     l
   
8.     )
   
9.       )
   
10.     )
    
11.   )
    
12.   (setq ele (getreal "\n输入增减的数值:"))
    
13.   (setq ss (ssget '((0 . "TCH_ELEVATION"))))
    
14.   (setq sslst (ss->vlalst ss))
    
15.   (foreach n sslst
    
16.     (progn
    
17.       (if (equal
    
18.       (setq
    
19.         newele
    
20.          (rtos (+ ele (atof (vlax-get-property n 'text))) 2 3)
    
21.       )
    
22.       "0.000"
    
23.     )
    
24.   (setq newele "%%p0.000")
    
25.       )
    
26.       (vlax-put-property
    
27.   n
    
28.   'text
    
29.   newele
    
30.       )
    
31.     )
    
32.   )
    
33.   (princ)
    
34. )

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

print1985

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

llc1968

费非常感谢

黑洞—杜明智

留下来学习……

满山松叶

厉害，谢谢

chenyizhen28

留个底