xskfq 发表于 2014-2-11 12:49:12

苦求CAD表格拆分

本帖最后由 xskfq 于 2014-2-12 19:43 编辑



源码中部分代码：

;;;在当前图层、当前空间插入块
;;;调用形式 ( InsertBlock块名插入点旋转角度 )
;;;成功时，返回dxf组码，否则返回nil
(defun InsertBlock ( strBlockName listInsertPoint floatRotateAngle )
(entmake (list '(0 . "INSERT")
'(100 . "AcDbEntity")
'(100 . "AcDbBlockReference")
(cons 2 strBlockName)
(cons 10 listInsertPoint)属性块
(cons 50 floatRotateAngle)))
)


源码里的这种调用属性块 好像只能得到普通块，怎么才能调用到属性块呢？？























----------------------------------------------------------------------------------------------------------------------------




图纸中的图块为属性块




统计表调用结果却为普通块


junkegg 发表于 2014-2-11 12:49:13

本帖最后由 junkegg 于 2014-2-12 21:40 编辑





哈哈,只卖给楼主啊.我说他没有币了,他非说还有20.

xskfq 发表于 2014-2-11 15:17:40

(defun zcfenge(str / a)
(setq str(vl-string->list str)a"")
(while(>(car str)128)(setq a(strcat a(chr(car str)))str(cdr str)))
(list a(vl-list->string str))
)

这样行不

cable2004 发表于 2014-2-11 16:57:45

把测试文件发上来！

xskfq 发表于 2014-2-11 21:33:47

测试图已上。谢谢，

cable2004 发表于 2014-2-11 22:39:30

块的文字是全这种，还是有可能有拼音

xskfq 发表于 2014-2-12 11:35:32

cable2004 发表于 2014-2-11 22:39 static/image/common/back.gif
块的文字是全这种，还是有可能有拼音

全是这种，前面四个汉字+后面若干数字

xskfq 发表于 2014-2-12 19:41:33

拆分问题自己解决了 ，新问题又来了

junkegg 发表于 2014-2-12 21:45:25

junkegg 发表于 2014-2-11 12:49 static/image/common/back.gif
哈哈,只卖给楼主啊.我说他没有币了,他非说还有20.

程序里要学的东西不少.只了解个大概.勉强为楼主解决.请为我的收币行为不要感慨

junkegg 发表于 2014-2-12 21:49:57

楼主真的慷慨，惭愧了
页: [1]
查看完整版本: 苦求CAD表格拆分