[Scmold]在Lisp中设置AtouCAD标题

chpmould

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

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

1. 
   
2. (defun c:test ()
   
3.   (setq CurTitleName "设置你的AtouCAD标题")
   
4.   (vl-cmdf "TitleName")
   
5.   (princ)
   
6. )
   

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

smartstar

有创意！是源码吗？

CTC

楼主，求弄一个2004，2008的

自贡黄明儒

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

Gu_xl

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

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

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

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

yjr111

好奇害死猫！

CTC

CTC 发表于 2012-7-1 14:09
楼主，求弄一个2004，2008的

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

chpmould

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

朽木大师

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

rdhhb

与64位2012不兼容。