[求助]求助这样的功能用 VBA 怎么实现

spring · 发表于 2004-5-27 19:46:00

这样的功能用 VBA 怎么实现
(defun c:as (/ ss ss1 ss2)
   (command "_.LINE" "0,0" "0,10" "") ;画第一条线
   (setq ss (ssget "l")) ;取得最后一个对象
   (command "_.LINE" "0,10" "10,10" "") ;画第二条线
   (setq ss1 (ssget "l")) ;取得最后一个对象
   (command "_.LINE" "10,10" "0,0" "") ;画第三条线
   (setq ss2 (ssget "l")) ;取得最后一个对象
   (command "_.PEDIT" ss "Y" "J" ss ss1 ss2 "" "") ;串接
)

雪山飞狐_lzh · 发表于 2004-5-27 19:53:00

由顶点列表创建优化多段线。
参阅 | 示例
语法
RetVal = object.AddLightweightPolyline(VerticesList)
Object
ModelSpace 集合, PaperSpace 集合, Block
使用该方法的对象。
VerticesList
Variant[变体] (双精度数组)
指定多段线顶点的二维 OCS 坐标数组。至少需要两点(四个元素)以构成优化多段线。数组大小必须为2的倍数。
RetVal
LightweightPolyline 对象
新创建的 LightweightPolyline 对象。
说明
顶点是生成多段线的线段端点。要添加弧段，首先创建全部为直线段的多段线，然后为个别需要变为弧段的线段添加凸度。要为线段添加凸度值，可使用 SetBulge 方法。
多段线的标高将被设置为布局的当前标高。使用 ElevationModelspace 或 ElevationPaperspace 属性可确定多段线的标高。
坐标可使用 TranslateCoordinates 方法在OCS坐标与其它坐标系统相互转换。

spring · 发表于 2004-5-27 21:05:00

可是我对 VBA 一点都不懂,我现在需要一个这样的 VBA 程序,可以帮忙写一个吗

雪山飞狐_lzh · 发表于 2004-5-27 21:09:00

&ltRE class=Code>Sub Example_AddLightWeightPolyline()
' This example creates a lightweight polyline in model space.

Dim plineObj As AcadLWPolyline
Dim points(0 To 9) As Double

' Define the 2D polyline points
points(0) = 1: points(1) = 1
points(2) = 1: points(3) = 2
points(4) = 2: points(5) = 2
points(6) = 3: points(7) = 2
points(8) = 4: points(9) = 4

' Create a lightweight Polyline object in model space
Set plineObj = ThisDrawing.ModelSpace.AddLightWeightPolyline(points)
ZoomAll

End Sub

spring · 发表于 2004-5-27 21:46:00

谢谢!!!我看了一下,你的程序是用多义线画的吗?
我要用 pedit 串接起来的

雪山飞狐_lzh · 发表于 2004-5-27 21:51:00

有什么区别么？

spring · 发表于 2004-5-27 22:45:00

有区别
我的思路是这样的,每画好一根线将线的实体名保存在一个变量里。供以后的程序调用，除了 PEDIT 外还有起它的

雪山飞狐_lzh · 发表于 2004-5-27 22:51:00

但是你的直线已经被串接了，还有保存的必要么？

spring · 发表于 2004-5-27 23:02:00

我在串接之前可以用啊

雪山飞狐_lzh · 发表于 2004-5-27 23:19:00

Sub Test()
   Dim pnt(2) As Double, dot(2) As Double
   Dim pobj(2) As AcadLine
   Dim CmdStr As String
   dot(1) = 10
   Set pobj(0) = ThisDrawing.ModelSpace.AddLine(pnt, dot)
   pnt(0) = 10: pnt(1) = 10
   Set pobj(1) = ThisDrawing.ModelSpace.AddLine(dot, pnt)
   dot(1) = 0
   Set pobj(2) = ThisDrawing.ModelSpace.AddLine(pnt, dot)
   CmdStr = _
   "_.Pedit" & vbCr & _
   "(handent " & Chr(34) & pobj(0).Handle & Chr(34) & ")" & vbCr & _
   "Y" & vbCr & "J" & vbCr & _
   "(handent " & Chr(34) & pobj(0).Handle & Chr(34) & ")" & vbCr & _
   "(handent " & Chr(34) & pobj(1).Handle & Chr(34) & ")" & vbCr & _
   "(handent " & Chr(34) & pobj(2).Handle & Chr(34) & ")" & vbCr & _
   vbCr & vbCr

   ThisDrawing.SendCommand CmdStr
End Sub

[求助]求助这样的功能用 VBA 怎么实现

发表回复

精选推荐