[求助] 帮忙写个新建图层命令

jiajun_16888

帮忙写个新建图层命令

什么都不用输入，名称自动从已有数字图层名往后累加，要是没有数字名就从1开始，每新建一次图层往后加一

线形 颜色都是BYLAYER

小毛草

;;;自动创建常用图层
(defun c:FFF ()
  (setvar "cmdecho" 0)
  (command "layer" "m" "DOTE"  "c" "1" "" "l" "DOTE" """")
  (command "layer" "m" "WALL" "c" "42" "" "")
  (command "layer" "m" "A-ELEV-LIN1-立面外轮廓线" "c" "42" "" "")
  (command "layer" "m" "A-ELEV-LIN2-立面中轮廓线" "c" "2" "" "")
  (command "layer" "m" "A-ELEV-LIN3-立面细轮廓线" "c" "153" "" "")
  (command "layer" "m" "A-ELEV_OTHER-立面配景" "c" "153" "" "")
  (command "layer" "m" "0-PM-固定家具" "c" "251" "" "")
  (command "layer" "m" "0-PM-建筑面积计算" "c" "6" "" "")
  (command "layer" "m" "0-PM-非设计范围" "c" "2" "" "")
  (command "layer" "m" "DOOR" "c" "4" "" "")
  (command "layer" "m" "DOOR-NAME" "c" "5" "" "")
  (command "layer" "m" "大样剖切线" "c" "4" "" "")
  (command "layer" "m" "WALL" "c" "42" "" "")
  (command "layer" "m" "M-面积全算" "c" "6" "" "")
  (command "layer" "m" "M-面积半算" "c" "92" "" "")
  (command "layer" "m" "M-面积扣除" "c" "181" "" "")
  (command "layer" "m" "PUB_WINDW" "c" "7" "" "")
  (command ".layer" "p" "p" "PUB_WINDW" "")
  (command "style" "ZG" "TXT1.SHX,HZTXT1.SHX" "" "0.7" "0" "N" "N" "")
  (command "style" "SD" "水龙英.SHX,水龙中.SHX" "" "0.7" "0" "N" "N" "")
  (entmake (list '(0 . "STYLE") '(100 . "AcDbSymbolTableRecord") '(100 . "AcDbTextStyleTableRecord") (cons 2 "宋体") '(70 . 0)
   (cons 40 400) (cons 41 0.7) '(3 . "宋体.ttf")
    )
  )
  (entmake (list '(0 . "STYLE") '(100 . "AcDbSymbolTableRecord") '(100 . "AcDbTextStyleTableRecord") (cons 2 "黑体") '(70 . 0)
   (cons 40 400) (cons 41 0.7) '(3 . "黑体.ttf")
    )
  )
  (command "layer" "m" "A-FURN-绘图层" "c" "2" "" "")
  (setvar "cmdecho" 1)
(princ)
)

tomonkey239

ghl_729 发表于 2010-9-26 09:24
（command "layer" "m" ....)

学习了学习了学习了

vladimirputin

非常不错的代码，下载学习了。

ZZXXQQ

游客，本帖隐藏的内容需要发帖数高于 5 才可浏览，你当前发帖数只有 0

jiajun_16888

谢谢 很好用

blueshake

看看到底是怎么用的。

xutaohb

好东西 收藏着

ghl_729

（command "layer" "m" ....)

461045462

我也是采用6楼的方法，简单方便。

斑竹的方法学习了。

谢谢

天弦

自动定义的方法行少行?

669423907

谢谢ZZXXQQ版主！

sw1169

看下，学习下[em0]