用法
评论
建议
取 消
确 定
(defun vectra:layer-get (name conf / dxf layer) (if (null (setq layer (tblsearch "LAYER" name))) (progn (setq dxf (list (quote (0 . "LAYER")) (quote (100 . "AcDbSymbolTableRecord")) (quote (100 . "AcDbLayerTableRecord")) (quote (70 . 0)) (quote (6 . "Continuous")) (cons 2 name))) (if (car conf) (setq dxf (append dxf (list (cons 62 (atoi (car conf))))))) (if (cadr conf) (progn (vectra:linetype-get (cadr conf)) (setq dxf (append dxf (list (cons 6 (cadr conf))))))) (if (caddr conf) (setq dxf (append dxf (list (cons 370 (atoi (caddr conf))))))) (if (and (not (null (cadddr conf))) (= "FALSE" (strcase (cadddr conf)))) (setq dxf (append dxf (list (cons 290 0))))) (entmake dxf)) layer))
函数库使用说明
应用包
技术支持
统计信息
函数库规模: 767 个
函数库类别: 53 种
上传记录
刷新