[其他]：今天处理一个地形图，写了个标高块转字的程序

eachy · 发表于 2005-6-2 01:29:12

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

地形图上的标高都是属性块，第一次遇到

(defun c:tt (/ ss ssl e att obj ms)
(if (setq ss (ssget '((66 . 1))))
(progn
(setq ssl (sslength ss)
ms (vla-get-modelspace
(vla-get-activedocument (vlax-get-acad-object))
)
)
(while (> ssl 0)
(setq e (ssname ss (setq ssl (1- ssl))))
(setq att (car (vlax-invoke
(setq obj (vlax-ename->vla-object e))
'getattributes
)
)
)
(vla-addtext
ms
(vla-get-textstring att)
(vla-get-insertionpoint obj)
(vla-get-height att)
)
)
(command ".erase" ss "")
)
)
(princ)
)

zuicai · 发表于 2005-6-2 02:41:43

太棒了，正在到处寻找这么一个程序。

coolzhb · 发表于 2005-6-2 09:20:19

eachy版主，这个和burst（bouns附带）命令有什么区别吗？

eachy · 发表于 2005-6-2 12:13:53

最初由 coolzhb 发布
[B]eachy版主，这个和burst（bouns附带）命令有什么区别吗？ [/B]

有区别，ET那个可以处理多个属性块，但文字的位置是外观位置，上面的程序具有针对性，将属性文字的插入点置于块的插入点，然后删除图块并将标高值写上。

huiling6868 · 发表于 2005-6-2 16:50:39

楼主做个预览看看.

小钉子 · 发表于 2005-6-2 18:49:50

我是做公路设计的
经常遇到这种事情
谢谢老斑

kfpl · 发表于 2005-6-2 20:01:08

能否图文并茂？

aeo · 发表于 2005-6-3 23:36:23

最初由 eachy 发布
[B]地形图上的标高都是属性块，第一次遇到[code](defun c:tt (/ ss ssl e att obj ms)
  (if (setq ss (ssget '((66 . 1))))
(progn
   (setq ssl (sslength ss)
      ms (vla-get-modelspace
   (vla-get... [/B]

恐怕写出来的字和原来的不一样（我说是样子)

狂刀 · 发表于 2005-6-3 23:50:15

把属性直接转为text可解决aeo提出的问题。

eachy · 发表于 2005-6-4 09:59:28

这个程序只是为了保留标高数字供其它软件处理，而且数字的插入点认为是高程点，外观不重要。程序的本意不是属性转字，是特殊应用。

gufengyin · 发表于 2005-6-4 10:05:19

能否在文字的前面再增加一个点，这个点可以由用户设定它到文字的距离？

eachy · 发表于 2005-6-4 10:11:37

最初由 gufengyin 发布
[B]能否在文字的前面再增加一个点，这个点可以由用户设定它到文字的距离？ [/B]

有些软件的字转高程需要点，在属性块的情况下，点的位置应该是块的插入点位置，不是随意给的。

账号		自动登录	找回密码
密码			立即注册

[其他]：今天处理一个地形图，写了个标高块转字的程序

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

Re: [其他]：今天处理一个地形图，写了个标高块转字的程序