chpmould 发表于 2012-7-1 13:44:23

[Scmold]在Lisp中设置AtouCAD标题

本帖最后由 chpmould 于 2012-9-9 23:02 编辑

前段时间朋友问我LISP中如何以简单的方式设置AtouCAD标题,所以写了这个简单的程序。

以下是在LISP中的测试代码:

(defun c:test ()
(setq CurTitleName "设置你的AtouCAD标题")
(vl-cmdf "TitleName")
(princ)
)

smartstar 发表于 2012-7-1 14:08:14

有创意！是源码吗？

CTC 发表于 2012-7-1 14:09:37

楼主，求弄一个2004，2008的

自贡黄明儒 发表于 2012-7-1 14:35:10

本程序支持在AutoCAD2010~2012版本上运行；楼主，求弄一个2004，2008的。

Gu_xl 发表于 2012-7-1 15:56:31

自贡黄明儒 发表于 2012-7-1 14:35 static/image/common/back.gif
本程序支持在AutoCAD2010~2012版本上运行；楼主，求弄一个2004，2008的。


(defun SetWindowText (text / hwnd wrap)
(setq hwnd (vla-get-hwnd (vlax-get-acad-object)))
(setq wrap (vlax-create-object "DynamicWrapperX"))
(vlax-invoke
    WRAP 'Register "user32.dll"        "SetWindowTextA" "i=hs"        "r=l")
(vlax-invoke WRAP 'SetWindowTextA hwnd text)
(vlax-release-object wrap)
)

需加载DynamicWrapperX插件，详见高飞鸟的帖子
http://bbs.mjtd.com/thread-85724-1-1.html

yjr111 发表于 2012-7-1 16:25:58

好奇害死猫！

CTC 发表于 2012-7-1 19:23:59

CTC 发表于 2012-7-1 14:09 static/image/common/back.gif
楼主，求弄一个2004，2008的

不知大师方便不，就是想弄一个08的，如果可以，谢谢……。

chpmould 发表于 2012-7-1 19:35:40

Sorry,我的电脑当前只安装了2010版本....以后有时间再考虑折腾...

朽木大师 发表于 2012-7-12 14:03:19

虽然没有什么作用，但花挺多时间

rdhhb 发表于 2016-6-19 09:07:06

与64位2012不兼容。
页: [1]
查看完整版本: [Scmold]在Lisp中设置AtouCAD标题