苦求CAD表格拆分

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

本帖最后由 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
块的文字是全这种，还是有可能有拼音

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

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

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

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

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

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

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

楼主真的慷慨，惭愧了

账号		自动登录	找回密码
密码			注册

[已解答] 苦求CAD表格拆分

最佳答案

相关帖子

本帖子中包含更多资源

点评

本帖子中包含更多资源