中华钢结构论坛 China Structure Forum                                              XinY structural consultants ltd

 
Vlisp中如何自动建立新图层
普通钢






积分 79
帖子 70
2011-6-22 12:15    顶部
0 分


VLA-ADD命令建立新图层时,图层名称必须为输入。
哪位有办法利用预设变量建立新的图层?
哪位有办法利用预设变量建立新的图层?
普通钢






积分 79
帖子 70
2011-6-23 13:18    顶部


Vlsp还没有找到办法。倒是发现LSP里可以不用专门建立图层,直接用变量修改对象属性就可以。
00nan






积分 305
帖子 164
2017-5-3 11:39    顶部
创建图层当然可以用lisp的方法,直接entmake就可以。如下:
;;;-------------------------------------------------------------------------------
;;; 创建图层
;;; 用法:(MK:LA layername color linetype printflag linewidth)
;;;     layername ---- 图层名称
;;;     color     ---- 图层颜色
;;;     linetype  ---- 图层线型
;;;     printflag ---- 图层打印标志 1 打印 0 不打印
;;;     linewidth ---- 图层打印线宽 0.01mm
;;;-------------------------------------------------------------------------------
(defun MK:LA (layername color linetype printflag linewidth)
    (entmake
            (list
                    (cons 0   "LAYER")
                (cons 100 "AcDbSymbolTableRecord")
                    (cons 100 "AcDbLayerTableRecord")
                (cons 2   layername)
                        (cons 70  0)
                        (cons 62  color)
                        (cons 6   linetype )
                        (cons 290 printflag)
                        (cons 370 linewidth))))



http://bbs.mjtd.com/?fromuid=398403
 


上海市通信管理局
沪ICP备020910
联系我们 版权声明 发帖规则 论坛制度 关于我们
版权所有.中华钢结构论坛.永久保留所有权利

[Processing Time] User:0.28, System:0.03, Children of user:0, Children of system:0