gamemaster 发表于 2012-3-5 14:44:55

(comand "layer""1"……)

是这么理解的么？

gamemaster 发表于 2012-3-5 14:48:01

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

缘份呐 发表于 2012-4-9 21:07:42

学习下，谢谢ZZXXQQ版主

日以继夜 发表于 2012-4-13 15:25:13

学习6楼的方法……

步行黔南 发表于 2013-7-5 20:51:16

blueshake 发表于 2010-9-16 19:22 static/image/common/back.gif
看看到底是怎么用的。

该程序简单实用

灬北方狼灬 发表于 2013-10-26 16:35:02

学习学习.

TPG辉 发表于 2013-10-31 11:38:54

看看想学习。

bjzxdvip 发表于 2013-12-18 14:13:38

好像不规范！

tomonkey239 发表于 2022-11-26 09:45:41

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

学习了学习了学习了

小毛草 发表于 2022-12-1 16:35:58

;;;自动创建常用图层
(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)
)
页: 1 [2] 3
查看完整版本: [求助] 帮忙写个新建图层命令