图块打包生成lsp程序 ss2lsp

wzg356

这个是http://bbs.mjtd.com/thread-184666-1-1.html的一部分，剥离出来
固版也写有一个


图块打包生成插入图块的lsp程序--------可用于建立管理符号库/块
支持 '((0 . "*LINE,CIRCLE,ARC,ELLIPSE,3DFACE,*TEXT,DIMENSION,INSERT,ATTDEF,HATCH,LEADER,MULTILEADER"))
包含属性块，动态块不支持
复杂填充处理有点缺陷
尽量用常用的自定义线型、填充、字体等
样式bug已修符
DIMENSION对象群码表没有的箭头、尺寸线等属性全部随样式
命令ss2lsp

可以按下面写法改写是否还支持其他图元

下面是启动函数的写法（已在fas里面）
这里只打包一个选择集
生成的插入块程序在C盘根目录
生成的程序函数名按时间序列命名，避免重名
生成的插入图块程序xxx.lsp里面顶部有备注用法
(defun c:ss2lsp( / filters ss strs funstr)
(if        (and(setq ss(ssget
        '((0 . "*LINE,CIRCLE,ARC,ELLIPSE,3DFACE,*TEXT,DIMENSION,INSERT,ATTDEF,HATCH,LEADER,MULTILEADER"))
                ))
                (setq funstr(strcat"X"(substr(rtos(* (getvar "cdate")1e4)2 0)5)))
                (setq strs(sss2lsp(list ss) funstr))
        )(progn        
        (setq funstr(strcat "c:\\"funstr".lsp"))
        (setq f(open funstr "w"))
        (foreach str strs(write-line str f))
        (close f)
        (alert(strcat"\n成功输出文件"funstr))
))
)

需要扩展使用的，(sss2lsp(list ss1 ss2 .....) "函数名");返回ss1 ss2的插入程序字符串

depgfdepgf

;;;===============
(DEFUN X11212102ENTALL (E / ENT SS ENV) (SETQ ENT E) (DEFUN ENV (ENT) (MEMBER (CDR (ASSOC 0 (ENTGET ENT))) (QUOTE ("ATTRIB" "VERTEX" "SEQEND")))) (SETQ SS (SSADD)) (IF (OR ENT (AND (SETQ ENT (ENTNEXT)) (IF (NOT (ENV ENT)) (SSADD ENT SS)))) (WHILE (SETQ ENT (ENTNEXT ENT)) (IF (NOT (ENV ENT)) (SSADD ENT SS)))) SS)
; 错误: 参数类型错误: streamp nil

wzg356

hao3ren 发表于 2023-11-21 15:55
带有文字和标注的样式会丢

文字样式修复了，宋体原因，另外样式名别用standard

标注样式属性有待改建

hao3ren

带有文字和标注的样式会丢

panliang9

这是好东西啊，谢谢楼主分享。

不一样地设计

谢谢楼主分享

hao3ren

谢谢楼主分享

wangsr

谢谢楼主分享

wzg356

样式bug已修符

czb203

谢谢楼主分享