[求助]ELEVATION值加常数!

wei209 · 发表于 2005-9-25 22:45:00

(defun c:qq1()
(setq li(entsel"\n(wei209:2004-11-05)请选择你要改的PL线:"))
(setq x(getreal"\n(wei209:2004-11-05)请输入新的值:"))
(command"change" li "" "p" "e" x "c" 1 "t" "8110000" "")
(command "pedit" li "w" "0" "")
)

我用此命令把ELEVATION值都改好了,再次打开时发现自己有张图里的PL所有ELEVATION值整体高了20,晕~~~~~!!!谁给个方法,对所在图层的线形的ELEVATION值整体减去或加上一个你输入的常数呢?谢谢!

wei209 · 发表于 2005-9-26 22:14:00

我的问题太简单了?没人搭理我!!

wmz · 发表于 2005-9-27 14:43:00

要给PL线整体加(减)常数是不能用CHANGE命令的吧,可能要用ENTMOD才能实现.

wei209 · 发表于 2005-9-27 19:21:00

给个例子来呦!

无痕 · 发表于 2005-9-28 12:53:00

ｍｏｖｅ　ｚ　－２０

wei209 · 发表于 2005-9-28 18:57:00

行吗?我试试!

wei209 · 发表于 2005-10-7 22:27:00

还是自己写吧

Dim acadDoc As AcadDocument
Set acadDoc = acadApp.ActiveDocument
On Error Resume Next

Dim entity As AcadObject
Dim i As Integer
Dim j As Integer
Dim rr As Integer
rr = Text1.Text
If acadDoc.ModelSpace.Count <> 0 Then
i = acadDoc.ModelSpace.Count
For j = 0 To i - 1
    Set entity = acadDoc.ModelSpace.Item(j)
    If entity.Layer = "DGX" Or entity.Layer = "dgx" Then
      entity.Elevation = entity.Elevation + rr
      entity.Update
    End If
Next j
Else
MsgBox "在模型空间中没有对象存在。"
End If
MsgBox "完成"
End Sub

问题：１．反映太慢没有ＬＩＳＰ快

　　　２．不知道处理到第几根线了

想法：请高手加上点，让处理线时有个进度条显示！

wmz · 发表于 2005-10-8 18:26:00

5楼的办法挺好的嘛,为什么不试一试呢?你参考一下下面这段代码:

(defun c:TEST(/ E H)
   (setq H 20 E nil)
   (setq E (ssget "X" (list (cons 8 "DGX") (cons 0 "*POLYLINE"))))
   (command "_.move" E "" '(0 0 0) "")
   (command "_.move" E "" (list 0 0 H) "")
)

wei209 · 发表于 2005-10-8 20:12:00

不错，比ＶＢ快多了！

明经网友 *发表于 2010-5-25 10:06:00* · 发表于 2010-5-25 10:06:00

ELEVATION是把图纸里整体标高统一降低或者增加 CAD专业技术博客：www.co120.com

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

[求助]ELEVATION值加常数!

[原创]