将dwg文件打包进自己的VLX(测试与实战)

自贡黄明儒

将dwg文件打包进自己的VLX(测试与实战)
highflybird曰：DynamicWrapperX 是一个ActiveX部件，它可以极大程度地扩展LISP的编程范围，赋予DCL和VLISP更多功能
压缩包内Drawing2.dwg、Drawing2.txt、TEST1.VLX三个文件
1        Drawing2.dwg
2        Drawing2.txt是根据highflybird程序(http://bbs.mjtd.com/thread-85724-1-1.html),将Drawing2.dwg转成的二进制文件。
3        TEST1.VLX是将自写的lsp、Drawing2.txt编译的文件。

第一步 注册DynamicWrapperX
第二步 将Drawing2.dwg转成Drawing2.txt
第三步 编写自己的lisp文件，保存为w1.lsp
第四步 将w1.lsp、EditElv.txt编译成自己的vlx文件，test1.VLX
第五步 加载test1.VLX
第六步 执行命令w1.lsp内部自定义命令MyOpen，成功！！！


编写自己的lisp文件
(vl-load-com)
;;;Write Binary file from  strings
(defun WriteBinary (FileName buffer / wsObj str)
  (if (setq wsObj (vlax-create-object "ScriptControl"))
    (progn
      (vlax-put wsObj "language" "VBS")
      (setq str
       "Sub WriteBinary(FileName, Buf)
        Const adTypeBinary = 1
        Const adSaveCreateOverWrite = 2
        Dim stream, xmldom, node
        Set xmldom = CreateObject(\"Microsoft.XMLDOM\")
        Set node = xmldom.CreateElement(\"binary\")
        node.DataType = \"bin.hex\"
        node.Text = Buf
        Set stream = CreateObject(\"ADODB.Stream\")
        stream.Type = adTypeBinary
        stream.Open
        stream.write node.NodeTypedValue
        stream.saveToFile FileName, adSaveCreateOverWrite
        stream.Close
        Set stream = Nothing
        Set node = Nothing
        Set xmldom = Nothing
        End Sub"
      )
      (vlax-invoke wsObj 'ExecuteStatement str)
      (vlax-invoke wsObj 'run "WriteBinary" Filename buffer)
      (vlax-release-object wsObj)
      (princ)
    )
  )
)

(defun C:MyOpen (/ NAME)
  (or *ACAD* (setq *ACAD* (vlax-get-acad-object)))
  (setq name (vl-filename-mktemp "Drawing2.dwg"))
  (WriteBinary name (vl-get-resource "Drawing2"))
  (vla-Activate (vla-open (vla-get-Documents *ACAD*) name))
  (VL-file-delete name)  
  (princ)
)

时见申

感觉用高飞鸟大神的将dwg转化为二进制文件比较的费劲。可以还是喜欢古版主的转变二进制，简单、暴力、听话

时见申

hpy 发表于 2015-4-9 19:26
dwg打包进VLX不用其他插件也可以实现。

应该说的是古版主的打包方法，简单暴力

春鸽带你飞

hpy 发表于 2015-4-9 19:26
dwg打包进VLX不用其他插件也可以实现。

请问下怎么打包进vlx

自贡黄明儒

好象什么东西都可以打包

lucas_3333

哈哈，谢谢大师分享心得

qyming

回复看帖了

3dbuluo

这个是好东西……

伪书虫86

我去，这也可以

ymcui

这个是好东西

USER2128

黄大侠出新课题了！

hpy

dwg打包进VLX不用其他插件也可以实现。

434939575

万能打包机吗。学习哈！