将别的VLX打包进自己的VLX(测试与实战)

自贡黄明儒 · 发表于 2015-4-9 11:06:03

本帖最后由自贡黄明儒于 2015-4-9 11:07 编辑

将别的VLX打包进自己的VLX(测试与实战)
highflybird曰：DynamicWrapperX 是一个ActiveX部件，它可以极大程度地扩展LISP的编程范围，赋予DCL

和VLISP更多功能
压缩包内EditElv.VLX、EditElv.txt、TEST.VLX三个文件
1       EditElv.VLX是G版发布的拉线赋等高线高程程序
2       EditElv.txt是根据highflybird程序(http://bbs.mjtd.com/thread-85724-1-1.html),将

EditElv.VLX转成的二进制文件。
3       TEST.VLX是将EditElv.lsp、EditElv.txt编译的文件。

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

自己的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:EditElv (/ NAME)
  (setq name (vl-filename-mktemp "EditElv.vlx"))
  (WriteBinary name (vl-get-resource "EditElv"))
  (load name)
  (VL-file-delete name)
  (C:EditElv)
)

de158168 · 发表于 2023-5-6 19:39:38

狂顶
用力顶
我用力顶
我很用力顶
再加上千斤顶
总之把它顶到顶
接着使出葵花宝顶
就算顶到史前也要顶
老子看了会用道德经顶
孔子亲自拜你为师天天顶
秦始皇站在阿房宫上使劲顶
汉高祖挥师杀向东罗马为你顶
吕布抛弃了貂禅而选择了帮你顶
张三丰见了后用太极拳九式全力顶
左冷禅召开武林盟主大会商讨如何顶
西门吹雪从此学会了最强一招剑神一顶

yaojing38 · 发表于 2022-12-19 12:20:28

令: (WriteBinary name (vl-get-resource "XK"))
声明失败: 文件 ..\KERN\FNS\VRTLIB.CPP，行 366:
st_readablep(istm)
LPP: 上个错误可能是致命错误; 错误: 声明失败: 文件 ..\KERN\FNS\VRTLIB.CPP，行 366:
st_readablep(istm)

yaojing38 · 发表于 2022-12-20 11:52:54

新手不太懂，CAD2014无法运行，，，找了找，请转http://bbs.mjtd.com/forum.php?mo ... ight=DynamicWrapper，用这里的转就可以了。。感谢大神们的分享！1

rjtiantian · 发表于 2015-4-9 11:26:06

感谢楼主分享。。。。

lucas_3333 · 发表于 2015-4-9 11:28:55

本帖最后由 lucas_3333 于 2015-4-9 11:31 编辑

感谢分享，学习学习

话说这样打包进去有什么用？

yfywk · 发表于 2015-4-9 11:30:31

看起来很不错！

革天明 · 发表于 2015-4-9 11:42:32

没啥说的先顶在下!!!!!!!!!!

434939575 · 发表于 2015-4-9 12:29:49

黄工好久不见

.感谢分享！

donghuidong2003 · 发表于 2015-4-9 12:33:17

这个东西好，纯支持！

瀛州流水 · 发表于 2015-4-9 12:42:35

感谢楼主分享。。。。

zkq1212 · 发表于 2015-4-9 12:54:10

这个东西好，必须支持！

小师傅 · 发表于 2015-4-9 13:07:46

学习黄大师

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

[讨论] 将别的VLX打包进自己的VLX(测试与实战)

本帖子中包含更多资源

点评

评分

本帖被以下淘专辑推荐:

相关帖子

点评

点评