日志
73make
|
(entmakex(cons 0 8 7 1 10 11 40 41 50 72 73)
(cons"TEXT"(cond((and(TBLSEARCH"layer"(vl-princ-to-string(car Arguments)))(TBLSEARCH"style"(vl-princ-to-string(cadr Arguments))))
Arguments)
((TBLSEARCH"layer"(vl-princ-to-string(car Arguments)))
(cons"Standard"Arguments))
((TBLSEARCH"layer"(vl-princ-to-string(car Arguments)))
(cons"0"Arguments))))))
(defun makelin(Arguments);("图层"p1 p2 颜色 线宽)"图层"可省略,颜色和线宽可依次省略
(entmakex(mapcar'cons'(0 8 10 11 62 370)(cons"LINE"(if(TBLSEARCH"layer"(vl-princ-to-string(car Arguments)))Arguments(cons"0"Arguments))))))
全部作者的其他最新日志
- • .Net 实现Zoom
- • 无聊发个四舍五入的函数
- • 黑板
- • sleep
- • C#代码笔记.
- • 一个路径转换的代码.