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

gamemaster

(comand "layer""1"……)

是这么理解的么？

gamemaster

(setvar "CMDECHO" 0)
为什么的CAD2010不能接受这个参数呢？

缘份呐

学习下，谢谢ZZXXQQ版主

日以继夜

学习6楼的方法……

步行黔南

blueshake 发表于 2010-9-16 19:22
看看到底是怎么用的。

该程序简单实用

灬北方狼灬

学习学习.

TPG辉

看看想学习。

bjzxdvip

好像不规范！

tomonkey239

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

学习了学习了学习了

小毛草

;;;自动创建常用图层
(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)
)