jiajun_16888 发表于 2010-5-9 13:31:00

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

<p>帮忙写个新建图层命令 </p><p>什么都不用输入，名称自动从已有数字图层名往后累加，要是没有数字名就从1开始，每新建一次图层往后加一</p><p>线形 颜色都是BYLAYER</p>

小毛草 发表于 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)
)

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

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

学习了学习了学习了

vladimirputin 发表于 2023-3-21 14:27:15

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

ZZXXQQ 发表于 2010-5-11 20:07:00


;新建数字图层加一 明经 ZZXXQQ 2010.5.11
(defun tt ()
(setvar "CMDECHO" 0)
(setq tbl (tblnext "LAYER" T))
(while (setq tbb (tblnext "LAYER")) (setq tbl tbb))
(setq ln (itoa(1+ (atoi(cdr(assoc 2 tbl))))))
(command "-layer" "m" ln "")
(setvar "CMDECHO" 1)
(princ)
)

jiajun_16888 发表于 2010-5-11 21:54:00

谢谢 很好用

blueshake 发表于 2010-9-16 19:22:00

看看到底是怎么用的。

xutaohb 发表于 2010-9-24 16:22:00

<p>好东西 收藏着</p>

ghl_729 发表于 2010-9-26 09:24:00

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

461045462 发表于 2010-9-30 06:15:00

<p>我也是采用6楼的方法，简单方便。</p>
<p>斑竹的方法学习了。</p>
<p>谢谢</p>

天弦 发表于 2010-10-27 11:21:00

<p>自动定义的方法行少行?</p>

669423907 发表于 2011-6-7 16:26:17

谢谢ZZXXQQ版主！

sw1169 发表于 2012-2-28 11:31:49

看下，学习下
页: [1] 2 3
查看完整版本: [求助] 帮忙写个新建图层命令