LISP调用VBA函数方法举例

999999

谢谢楼主，先收藏，有空学习学习

mokson

简直是太牛了。

shh1980

数字格式12行是不是描述有问题？
12、#：占位格式化，不足位时不补足 0 。
(bb_Format 123 "####")  -> "123"
返回值0123？

1291500406

自贡黄明儒 发表于 2020-8-7 13:52
除了Format,还有哪些可用？

这就要多学vba知识，然后套过来用，有空的时候都搬过来

GSD

感谢！！！增强了lisp功能

baitang36

2. (defun bb_Format (a b)
   
3.   (vla-eval (vlax-get-acad-object)
   
4.             (strcat "ThisDrawing.setVariable "USERS1",Format (""
   
5.                     (vl-princ-to-string a)
   
6.                     "", ""
   
7.                     b
   
8.                     "")"
   
9.             )
   
10.   )
    
11.   (getvar "users1")
    
12. )

(defun bb_Format (a b)<br />   (vla-eval (vlax-get-acad-object)<br />             (strcat "ThisDrawing.setVariable "USERS1",Format (""<br />                     (vl-princ-to-string a)<br />                     "", ""<br />                     b<br />                     "")"<br />             )<br />   )<br />   (getvar "users1")<br /> )

ljxkm

可惜了，新版CAD上都没有VBA了，有点晚了哈

电赛加油

  多谢大神分享，学习一下！

xmq1103

  多谢大神分享，学习一下！

电赛加油

  多谢大神分享，学习一下！