[求助]：能不能把多个pline线高度（thickness）

whtiger

能不能把多个pline线高度（thickness）加上一个数值，比如有三根pline线，高度分别为2000,3000,5000,能不能用一个命令把它们的高度变成6000,7000,9000?

自由的鱼

这个必须要用程序来做才行！把你的具体要求说说，我做给你！

whtiger

简单的建筑建模，用pline线给个高度来做，在三维视角中就是一个立体了，但如要将几座建筑的层高统一升降一个数值，如建筑本来高度就一样可以用bonus来做，但若pline线高度本来就不同就没办法了，所以就有了上面的问题。

自由的鱼

你想要进行全选还是窗选？而且高度的变化值是定值吗？

whtiger

想窗选，高度的变化值最好是临时键盘输入

自由的鱼

试试这个程序，对线型我没有做过滤，所以你选择的时候别把别的线也选中了，选中了多段线后就可以输入高度差，要减就加个-

Option Explicit

Sub ch()
On Error Resume Next
Dim sset As AcadSelectionSet
Dim i As Integer
For i = 0 To ThisDrawing.SelectionSets.Count - 1
    ThisDrawing.SelectionSets.Item(i).Clear
    ThisDrawing.SelectionSets.Item(i).Delete
Next
Set sset = ThisDrawing.SelectionSets.Add("PLS")
sset.SelectOnScreen
Dim tkvalue As Double
tkvalue = ThisDrawing.Utility.GetReal("请输入要改变的高度值:")
For i = 0 To sset.Count - 1
sset.Item(i).Thickness = sset.Item(i).Thickness + tkvalue
sset.Item(i).Update
Next
End Sub

whtiger

谢谢自由的鱼,请教怎么用？看起来不像lsp程序啊,存成什么文件?

自由的鱼

是VB程序，我给你做成DVB上来！你下载以后，用APPLOAD命令把ch.dvb加载进去，然后建立一个按钮，在按钮中写^c^C-vbarun "thisdrawing.ch"
点击按钮就可以调用程序了！

whtiger

谢谢自由的鱼,我用R14的，好像不能用啊，能不能麻烦再编个r14下的?

自由的鱼

R14好象不支持VB，14。01版本才行，LISP我不太懂，不好意思！

whtiger

那我就装个2004吧，谢谢你，自由的鱼

自由的鱼

没有关系，你装了2002以后用了如果有问题就告诉我！

lsjjm

(defun c:test ()
  (vl-load-com)
  (setq dlta (getreal "type in increase: "))
  (setq ss (ssget '((0 . "LWPOLYLINE"))))
  (setq n 0)
  (while (< n (sslength ss))
    (setq obj (vlax-ename->vla-object (ssname ss n)))
    (vla-put-thickness obj (+ (vla-get-thickness obj) dlta))
    (setq n (1+ n))
  )
)