大家好。我在构造字符串时有点麻烦。我的代码运行得很好，除了一件小事。我希望字符串的中间部分是一个变量，由用户在代码的前面设置，或者读取另一个用户变量。
以下是我目前的代码：
-
- (defun C:titld (/ strRevv )
- ;' (vl-load-com)
- (SETQ RV (GETVAR "USERI5"))
- (IF (= RV 0)(setVAR "USERI5" (getint "\nEnter Current Revision Number: ")))
- (setq pt (getpoint "\Select Insertion Point: "))
- (setq strRevv (getvar "useri5"))
- (setq date (strcat "%<[url="file://acsm/"]\\AcSm[/url] SheetSet.REV " "04" " DATE [url="file://f/"]\\f[/url] "%tc1">%"))
- (setq desc (strcat "%<[url="file://acsm/"]\\AcSm[/url] SheetSet.REV " "04" " DESCRIPTION [url="file://f/"]\\f[/url] "%tc1">%"))
- (setq initial (strcat "%<[url="file://acsm/"]\\AcSm[/url] SheetSet.REV " "04" " INITIALS [url="file://f/"]\\f[/url] "%tc1">%"))
- ;(setq date (strcat "rev " strrevv " INITIALS"))
- (COMMAND "-insert" "rev1t40-d" pt "" "" "" strrevv date desc initial)()
- )
请注意，在每个日期、描述、初始行中都有“04”。我希望能够使用存储在strRevv变量中的值，并从该数字中生成字符串。这可能吗？
提前感谢您的时间！ | 
置顶卡
