循环通过多段线

Jozi68 · 发表于 2022-7-6 07:25:59

命令：（vlax dump object pl T）
; IACADLWWPolyline2:AutoCAD轻型多段线界面
; 属性值：
; 应用（RO）=#
; 面积（RO）=1811.32
; 关闭=0
; 康斯坦特宽度=0.0
; 坐标=。。。未显示索引内容。。。
; 坐标=（-24729.8-2.87722e+006-24742.3-2.87722e+006-24761.3
-2.87722e+006…）
; 文件（RO）=#
; 标高=0.0
; EntityTransparency=“ByLayer”
; 手柄（RO）=“18BB8”
; HasExtensionDictionary（RO）=-1
; 超链接（RO）=#
; Layer=“2628\u RELIEF10\u LINE\u 2007\u 1”
; 长度（RO）=245.725
; 线型=“ByLayer”
; 线型生成=0
; 线型比例=1.0
; 线宽=-1
; 材料=“ByLayer”
; 正常=（0.0 0.0 1.0）
; 目标ID（RO）=136
; 目标32（RO）=136
; ObjectName（RO）=“AcDbPolyline”
; 所有者ID（RO）=137
; 所有者32（RO）=137
; PlotStyleName=“ByLayer”
; 厚度=0.0
; 真彩色=#
; 可见=-1
; 支持的方法：
; 添加顶点（2）
; ArrayPolar（3）
; 阵列直角（6）
; 复制（）
; 删除（）
; 分解（）
; GetBoundingBox（2）
; GetBulge（1）
; GetExtensionDictionary（）
; GetWidth（3）
; 获取扩展数据（3）
; 突出显示（1）
; 与（2）相交
; 镜子（2）
; 镜像3D（3）
; 移动（2）
; 偏移（1）
; 旋转（2）
; 旋转3d（3）
; 标度（2）
; SetBulge（2）
; 设置宽度（3）
; 设置扩展数据（2）
; TransformBy（1）
; 更新（）
T

marko_ribar · 发表于 2022-7-6 07:27:49

这里也没有，我们看不到“高度”属性。。。那么，您知道如何检索多段线“高度”值吗？似乎这个新属性隐藏在普通实体数据中。。。我们帮不了你，如果我们不能获得这个新的财产价值。。。

marko_ribar · 发表于 2022-7-6 07:31:09

现在试试这个：

copy


(entget (car (entsel)) '("HEIGHT"))

同时拾取多段线并在此处复制并粘贴输出。。。

BIGAL · 发表于 2022-7-6 07:35:34

由于其来自shp文件，因此可能在扩展数据中具有高度值，因此不会像aecc对象那样显示“曲面”及其“名称”，但还有更多信息。

不确定不要玩shp，把它留给那些知道怎么做的人，但作为导入的一部分，你不能使标高=高度，因此才是真正的三维柱脚。

这个问题是不是要在这个基准线上绘制更多的对象？

Jozi68 · 发表于 2022-7-6 07:37:41

命令：（entget（car（entsel））'（“HEIGHT”））
选择对象：（-1。）（0.“LW多段线”）（5。
“18BB8”）（102(102 .
"}") (330 . ) （100.“AcDbEntity”）（67.0）（410。
“模型”）（8.2628_浮雕10_LINE_2007_1”）（100。“AcDbPolyline”）（90.14）（70
. 0）（43.0.0）（38.0.0）（39.0.0）（10-24729.8-2.87722e+006）（40.0.0）
（41.0.0）（42.0.0）（91.0）（10-24742.3-2.87722e+006）（40.0.0）（41。
0.0）（42.0.0）（91.0）（10-24761.3-2.87722e+006）（40.0.0）（41.0.0）（42
. 0.0）（91.0）（10-24782.0-2.87722e+006）（40.0.0）（41.0.0）（42.0.0）
（91.0）（10-24813.4-2.87722e+006）（40.0.0）（41.0.0）（42.0.0）（91.0）
（10-24834.7-2.87722e+006）（40.0.0）（41.0.0）（42.0.0）（91.0）（10）
-24850.2-2.87722e+006）（40.0.0）（41.0.0）（42.0.0）（91.0）（10-24872.3）
-2.87723e+006）（40.0.0）（41.0.0）（42.0.0）（91.0）（10-24889.9）
-2.87723e+006）（40.0.0）（41.0.0）（42.0.0）（91.0）（10-24896.1）
-2.87723e+006）（40.0.0）（41.0.0）（42.0.0）（91.0）（10-24906.2）
-2.87723e+006）（40.0.0）（41.0.0）（42.0.0）（91.0）（10-24928.2）
-2.87723e+006）（40.0.0）（41.0.0）（42.0.0）（91.0）（10-24939.9）
-2.87723e+006）（40.0.0）（41.0.0）（42.0.0）（91.0）（10-24970.9）
-2.87722e+006）（40.0.0）（41.0.0）（42.0.0）（91.0）（210.0.0.0 1.0））

marko_ribar · 发表于 2022-7-6 07:41:48

正如我所见，这个实体没有注册应用程序“高度”。。。尽管如此，请尝试在DWG中检查所有注册的AppID，因此请执行此代码并在此处复制并粘贴结果：

copy


(defun c:appids ( / app )
 (setq app (tblnext "APPID" T))
 (princ app)
 (while (setq app (tblnext "APPID"))
   (terpri)
   (princ app)
 )
 (princ)
)

Jozi68 · 发表于 2022-7-6 07:43:36

你好，Marko，我运行了这个，但没有结果。也许我做错了。

marko_ribar · 发表于 2022-7-6 07:46:23

加载后，将代码复制并粘贴到CAD界面，或将代码另存为*。lsp文件并用APPLOAD加载它，您会注意到图片中最后一个提示是提示C:APPIDS。。。这意味着代码作为C：（命令函数）加载到内存中。。。您必须在提示符处键入命令：APPIDS并按ENTER键。。。然后，你的文本屏幕（这是你用图片显示的）将显示我希望你复制并粘贴在这里的信息，就像你之前在回复中所做的那样。。。

Jozi68 · 发表于 2022-7-6 07:51:12

知道了。
以下是我的结果：
命令：APPIDS
（（0.APPID）（2.ACAD）（70.0））
（（0.APPID）（2.ACAD\u PSEXT）（70.0））
（（0.APPID）（2.AcadAnnoPO）（70.0））
（（0.APPID）（2.acadanotative）（70.0））
（（0.APPID）（2.ACAD\u DSTYLE\u DIMJAG）（70.0））
（（0.APPID）（2.ACAD\u DSTYLE\u DIMTALN）（70.0））
（（0.APPID）（2.ACAD_MLEADERVER）（70.0））
（（0.APPID）（2.ACAD_豁免_遵守_CAD_标准）（70.0））
（（0.APPID）（2.acmapdmsDisplayStyleRegapp）（70.0））
（（0.APPID）（2.AeccLand70）（70.0））
（（0.APPID）（2.AeccUiQTO）（70.0））
（（0.APPID）（2.AeccUiQTOEntityPayItemData）（70.0））
（（0.APPID）（2.AeccUiQTOPayItemFilePath）（70.0））
（（0.APPID）（2.AeccUiQTOPayItemCategoryFilePath）（70.0））
（（0.APPID）（2.AeccuiqtofRequisedPayItemsList）（70.0））
（（0.APPID）（2.AeccUiQTOPayItemFormulaFilePath）（70.0））
（（0.APPID）（2.AeccUiQTOPayItemSpecBookVersionFloridaDOT）（70.0））
（（0.APPID）（2.AeccUiQTOPayItemFormulaParameters）（70.0））
（（0.APPID）（2.AeccUiQTOPayItemFormulaExpression）（70.0））
（（0.APPID）（2.AeccUiQTOTransportDesignerFileFloridaDOT）（70.0））
（（0.APPID）（2.AeccUiModel）（70.0））
（（0.APPID）（2.ADE）（70.0））
（（0.APPID）（2.MapGWS）（70.0））
（（0.APPID）（2.DCO15）（70.0））
（（0.APPID）（2.AcAecLayerStandard）（70.0））
（（0.APPID）（2.AcDbBlockRepETag）（70.0））
（（0.APPID）（2.AcDbDynamicBlockGUID）（70.0））
（（0.APPID）（2.acauthnenviron）（70.0））
（（0.APPID）（2.AcDbDynamicBlockTrueName）（70.0））
（（0.APPID）（2.AeccLand80）（70.0））
（（0.APPID）（2.AeccUiMgr）（70.0））
（（0.APPID）（2.AeccLand90）（70.0））
（（0.APPID）（2.ACAD\u NAV\u VCDISPLAY）（70.0））
（（0.APPID）（2.AcMap_E615D161-C9D7-11d3-839F-0060B0FB6B57）（70.0））
（（0.APPID）（2.IRD）（70.0））
（（0.APPID）（2.ADE_投影）（70.0））
（（0.APPID）（2.AcPublishKml）（70.0））
（（0.APPID）（2.AcCmTransparency）（70.0））

BIGAL · 发表于 2022-7-6 07:54:14

也许可以试试看扩展数据是否存在

copy

(setq adict (dictsearch (namedobjdict) "ACAD_XDICTIONARY")))
then maybe entity Entity name: 7ffff2f59f0

你能发布一个带有一个pline wblock的dwg吗。

[编程交流] 循环通过多段线

发表回复

精选推荐

浏览过的版块