FORMAT函数

langke52 · 发表于 2017-6-25 21:57:20

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

;#str;02;调用VBA format函数
(DEFUN Format (str_fmt strtype_fmt / str01Code_fmt str02Code_fmt )
(SETQ cadapp_fmt (VLAX-GET-ACAD-OBJECT))
(SETQ str01Code_fmt
(STRCAT "str01_fmt = FORMAT(" (RTOS str_fmt 2 8) " , " "\"" strtype_fmt "\")") ;_ 结束strcat
) ;_ 结束setq
(SETQ str02Code_fmt "ThisDrawing.SetVariable \"USERS3\", str01_fmt")
(VLAX-INVOKE cadapp_fmt 'EVAL str01Code_fmt)
(VLAX-INVOKE cadapp_fmt 'EVAL str02Code_fmt)
; (gcclear cadapp_fmt)
(setq Format (GETVAR "USERS3"))
(SETVAR "USERS3" "")
Format
) ;f
;例子
; (format 12345.155 "k0+000.0")
; 返回 "K12+345.2"

Lisphk · 发表于 2017-6-25 22:03:29

12替代第一个0，是固定这样的吗，如果我想前三个数替代0昵？

qyming1996 · 发表于 2017-6-26 10:46:09

为什么我用不了？？

langke52 · 发表于 2017-6-26 14:06:11

qyming1996 发表于 2017-6-26 10:46

中午修改了下，看看还会不会出错
(DEFUN Format (str_fmt strtype_fmt / strCode_fmt Format_fmt)
(SETQ cadapp_fmt (VLAX-GET-ACAD-OBJECT))
(SETQ str01_fmt
(STRCAT " FORMAT(" (RTOS str_fmt 2 8) " , " "\"" strtype_fmt "\")") ;_ 结束strcat
) ;_ 结束setq
(SETQ strCode_fmt (STRCAT "GetObject(, \"Autocad.Application\").ActiveDocument.SetVariable \"USERS3\" , " str01_fmt))
(VLA-EVAL cadapp_fmt strCode_fmt)
(SETQ Format_fmt (GETVAR "USERS3"))
(SETVAR "USERS3" "")
Format_fmt
) ;f

yjch · 发表于 2017-6-27 08:28:10

好好学习天天向上

喊你吃饭 · 发表于 2017-6-27 14:12:34

好好学习，早日能自己写点小东西

qyming1996 · 发表于 2017-6-28 09:43:34

能用了。。。。。。

376394482 · 发表于 2017-6-28 16:40:12

天天学习

VBAVBAA · 发表于 2017-10-2 02:25:15

学习学习，是上个

sicky111 · 发表于 2017-11-16 00:02:44

谢谢分享。

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

[字符串] FORMAT函数

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。