晕, 没这么复杂吧? 我刚才用个 lsp 片段, 已经创建到 13630 了, ACAD R14. 估计可能有其它因素制约 代码如下, 可用随时按 <Esc> 键终止. 这个代码就是从 1 开始创建名字为序号的图层, 到 32767 止. (setq xi 1 xc 32768 ) (setvar "cmdecho" 0) (while (< xi xc) (command "-Layer" "Make" (itoa xi) nil) (princ (strcat (itoa xi) "\r")) (setq xi (1+ xi)) ) (setvar "cmdecho" 1) (princ)
|