大神发布CAD 装逼想求个CASS 装逼

tangweinbs

原版：南方cass11
修改完打开后：南方cass11 腾飞版
大神发布的网址http://bbs.mjtd.com/thread-176826-1-1.html
试了大神发布的LISP 在低版本cad 上没弄明白

• (defun c:zhB()
  
• (setq hCAD (vla-get-hwnd (vlax-get-acad-object))
  
•         dwx (vlax-create-object "DynamicWrapperX"))
  
• (if dwx (progn
  
• (vlax-invoke dwx 'Register "user32" "SetWindowTextW" "i=hw" "r=m")
  
• (vlax-invoke dwx 'SetWindowTextW hCAD "AutoCAD 装逼犯专供版")
  
• )(princ "\n请注册 DWX 插件")
  
• )(and dwx (vlax-release-object dwx))
  
• (princ)
  
• )