关于用VBA在CAD中在窗口中获取点绘制多段线
发布网友
发布时间:2022-08-07 15:45
我来回答
共1个回答
热心网友
时间:2024-07-21 20:17
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
关于用VBA在CAD中在窗口中获取点绘制多段线
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: po...
CAD VBA 获取多段线任意一点到起点的距离
先取得多段线上的点参数;vlax-curve-getDistAtParam函数求得到起点的距离。以autolisp为例:(defun C:tes ();例 (setq ent (car (entsel "\n请选择曲线"))) (setq p1 (getpoint "\n请选择曲线上一点")) (w190330 ent p1);多段线任意点到起点的距离)(defun w190330 (ent p1 / d1 ...
CAD 如何用VBA读取某一根多段线的长度
先定义一个变量为acadpolyline或者AcadLWPolyline,前者是旧的多义线,后面是新版的多义线。然后使用ThisDrawing.Utility.GetEntity 变量名,拾取靶框中心点变量,“描述”。或者建立选择集,只要是name是多段线的全部遍历,适合大批量筛选或者提取。最后使用“多段线.length”获取多段线的长度。当然了,读取...
CAD VBA 获取多段线任意一点到多段线起点的距离
1、找到多段线的起点坐标 2、找到任意点的坐标,3、将两个坐标点用勾股定理算一下距离 ---其中第2条,你说的任意一点,是不是指多段线的任意转折点,方程是列不出来,但如果你能指定某点,比如说是第三点或第四点之类的,VBA是可以解决你的问题的 ...
excelVBA 让Excel里面的坐标自动在AutoCAD绘制多段线。
Set acadApp = CreateObject("AutoCAD.Application")Set acaddoc = acadApp.ActiveDocument acadApp.Visible = True Dim myline As AcadLWPolyline Dim mylist(5) As Double mylist(0) = Cells(1, 1)mylist(1) = Cells(1, 2)mylist(2) = Cells(2, 1)mylist(3) = Cells(2, 2)mylist(...
vba在cad中画直线和圆弧多段线
VBA绘制的话,我只有绘制椭圆的时候才使用,因为椭圆分割后,发现VBA的计算角度才正确,autolisp计算的角度会有问题,查看属性会发现有偏差。autolisp里面的entmake函数绘制速度很快,1、直线 (entmake (list '(0 ."LINE")(cons 10 pt1)(cons 11 pt2)))2、两顶点多段线(多顶点类似)(entmake (...
cad vba 如何获取多段线xyz 的坐标并存在一个txt文档里
Private Sub GetLWPOLYLINECoordinates()Dim ss_dim As AcadSelectionSet, ent As AcadLWPolyline Dim dxf_code() As Integer, dxf_value() As Variant Dim i As Long, j As Long Dim dbCor As Variant, x As Double, y As Double, z As Double Set ss_dim = ThisDrawing.SelectionSets.Add...
怎样利用VBA提取选定的cad中多段线坐标,并将这些坐标写入txt中
1.要改两个部份,第一步,改首行的private 为 public 2.ss_dim.Select acSelectionSetAll, , , dxf_code, dxf_value 改正:ss_dim.SelectOnScreen dxf_code, dxf_value 这样就是输出选中对象了。--- Public Sub GetLWPOLYLINECoordinates()Dim ss_dim As AcadSelectionSet, ent As AcadLWPolyline...
cad vba 如何通过线外一点做多段线的垂线?
计算出点到多段线最近点的延伸点。应该有这个函数。如果要计算出曲线上任何点的垂直线的话就比较简单,提前出任意点的【一阶导数】,然后计算出垂直方向。
怎么从CAD中提取多段线坐标
第一种手工用鼠标选择多段线,然后输入list命令,弹出一个窗口,然后复制那些坐标,粘到excel里面,在exel里面根据空格来分列,最后得到X,Y的数值 第二种就麻烦一些了,建立一个选择集,用lisp或者vba来写一个提取多段线的代码。我这里有网上的一个vba代码,如果你不会vba的话,最好不要用。Option ...