求高手告知图层说明的组码是什么？没查到

baoyizhu

如题，我查了些资料没查到

Bao_lai

(vlax-get-property (vlax-ename->vla-object(tblobjname "layer" "你的图层名称")) "Description")
这个图层说明的属性是 Description，试试看。

maiko

扩展数据组码的1000

烟盒迷唇

默认组码8就是图层的了。

陈伟

(if (not (tblsearch "layer" layer ))
        (progn   (command "layer" "new" "TC填充图案边界线" "s" "TC填充图案边界线" "C" 231 "" "L" "Continuous" "" "P" "N" "" "LW" 0"" "") )  );新建图层




LW就是线宽

baoyizhu

我的意思是用cons赋值的方式给传递给图层说明
比如下面这样
   (cons 62 7)
62是颜色的组码
图层说明的组码是多少没查到

start4444

沙发楼已经给你答案了，为什么一定要组码，你要干嘛？
提取：(vlax-get-property (vlax-ename->vla-object(tblobjname "layer" "你的图层名称")) "Description")
赋值：(vlax-put-property (vlax-ename->vla-object(tblobjname "layer" "你的图层名称")) "Description" "你的图层说明")

baoyizhu

start4444 发表于 2020-8-19 17:16
沙发楼已经给你答案了，为什么一定要组码，你要干嘛？
提取：(vlax-get-property (vlax-ename->vla-object ...

可能是强迫症，因为我一个程序其它图层变量都是用组码赋值的

cds15980954301

;;图层的组码：0类型，100子类数据标记
((0 . "LAYER")(100 . "AcDbSymbolTableRecord")(100 . "AcDbLayerTableRecord")
(2 . "BOU")(70 . 0)(62 . 7)(6 . "Continuous")(290 . 1)(370 . 50))
;;2图层名，62颜色，6线型，370线宽，290打印标记为0时不打印此图层
;;70标准标记1=冻结图层，2=默认情况下在新视口中冻结图层，4=锁定图层

clinber

命令: (entget (tblobjname "layer" "0S-B-TEXT") (list "*"))
((-1 . <图元名: 7ff4a5906010>) (0 . "LAYER") (5 . "1A1") (102 . "{ACAD_XDICTIONARY") (360 . <图元名: 7ff4a5906020>) (102 . "}") (330 . <图元名: 7ff4a5903990>) (100 . "AcDbSymbolTableRecord") (100 . "AcDbLayerTableRecord") (2 . "0S-B-TEXT") (70 . 0) (62 . 255) (6 . "Continuous") (290 . 1) (370 . -3) (390 . <图元名: 7ff4a5903890>) (347 . <图元名: 7ff4a59038c0>) (348 . <图元名: 0>) (-3 ("_LayerManage" (1070 . 0) (1070 . 0) (1070 . 0)) ("AcAecLayerStandard" (1000 . "") (1000 . "梁的截面标注及标高标注"))))

1000组码，扩展数据