lisp函数 怎么用 vl-string-subst 把 "\t"和"," 替换 为" "

在Lisp中，vl-string-subst函数可以用于在字符串中替换子字符串。要将"\t"和","替换为" "，可以使用以下代码：

(vl-string-subst "  " "\t," your-string)

其中，your-string是要进行替换的字符串。这个函数会将your-string中所有出现的"\t"和","都替换为" "，并返回新的字符串。如果你想直接修改原始字符串，则可以将该函数与setf一起使用，如下所示：

(setf your-string (vl-string-subst "  " "\t," your-string))

这样就能将your-string中所有出现的"\t"和","都替换为" "了。

相关问题

(DEFUN YXJC( DAYS0921 ABSOLUTETIME0921 / *ERROR* ADRRESREGESTER DD ) (DEFUN *ERROR*( MSG ) (if (FINDFILE DCLPATH ) (PROGN (VL-FILE-DELETE DCLPATH ) )) (PRINC MSG ) (PRINC "\n请联系淘宝店铺【画图神器】！" ) ) (vlax-ldata-put "czl" "t09" DAYS0921 ) (vlax-ldata-put "czl" "t092" ABSOLUTETIME0921 ) (if (NULL PRODUCTMARK ) (PROGN (setq PRODUCTMARK "ceshi") )) (setq ADRRESREGESTER (STRCAT "HKEY_CURRENT_USER\\HTSQ\\" PRODUCTMARK )) (if (NULL (VL-REGISTRY-READ ADRRESREGESTER "key" ) ) (PROGN (VL-REGISTRY-WRITE ADRRESREGESTER "key" "函数出错" ) )) (if (/= (VL-REGISTRY-READ ADRRESREGESTER "key" ) (vlax-ldata-get "CZL" "KEY" ) ) (PROGN (if (= "iq27p0j" (VL-REGISTRY-READ ADRRESREGESTER "key" ) ) (PROGN (if (NULL (TIMECHECK DAYS0921 ABSOLUTETIME0921 ) ) (PROGN (VL-REGISTRY-WRITE ADRRESREGESTER "key" "函数出错" ) (ALERT "\n试用时间到，如果插件满足您的需求，请联系淘宝【店铺】画图神器购买正版支持一下，谢谢。" ) (PRINC "\n试用时间到，如果插件满足您的需求，请联系淘宝【店铺】画图神器购买正版支持一下，谢谢。" ) (setq DD (POPUP_INTERFACE )) (RESPONSE_ACTION DD DAYS0921 ABSOLUTETIME0921 ) )(PROGN (PRINC "\n当前在试用期，激活插件输入命令 CCJH ,然后再运行本插件的命令" ) )) )(PROGN (setq DD (POPUP_INTERFACE )) (RESPONSE_ACTION DD DAYS0921 ABSOLUTETIME0921 ) )) )(PROGN (PRINC "\n密码正确2\n" ) )) (PRINC ) )

这段代码是一个LISP函数，名为YXJC。它接受两个参数：DAYS0921和ABSOLUTETIME0921。该函数的主要功能是进行一系列操作来验证插件的激活状态和试用时间。

首先，函数定义了一个内部函数*ERROR*，用于处理错误消息。如果找到了DCLPATH文件，函数会删除该文件。然后，函数会打印出错误消息，并显示一条提示信息，请联系淘宝店铺【画图神器】。

接下来，函数将DAYS0921和ABSOLUTETIME0921存储到LISP数据区中的"czl"变量中。

如果PRODUCTMARK为空，函数会将其设为"ceshi"。

然后，函数会构建一个注册表地址寄存器的路径，并赋值给ADRRESREGESTER变量。

如果在ADRRESREGESTER对应的注册表键中没有找到"key"值，函数会将"key"值设为"函数出错"。

接下来，函数会比较ADRRESREGESTER对应的注册表键中的"key"值和LISP数据区中"CZL"变量的"KEY"值是否相等。如果不相等，会进行进一步的判断。

如果ADRRESREGESTER对应的注册表键中的"key"值等于"iq27p0j"，并且试用时间已经过期（通过调用TIMECHECK函数判断），函数会将ADRRESREGESTER对应的注册表键中的"key"值设为"函数出错"，弹出一条警告消息，并重新弹出一个用户界面以获取新的DD值。然后，调用RESPONSE_ACTION函数来执行相应的操作。

如果ADRRESREGESTER对应的注册表键中的"key"值不等于"iq27p0j"，函数会打印一条消息表示当前在试用期，需要输入命令CCJH来激活插件。

如果ADRRESREGESTER对应的注册表键中的"key"值和LISP数据区中"CZL"变量的"KEY"值相等，函数会打印一条消息表示密码正确。

以上就是YXJC函数的主要流程。

AutoLISP拆分逗号分割的字符串，不使用split-string

要拆分逗号分割的字符串，可以使用 AutoLISP 中的字符串函数和循环语句来实现。

以下是一个示例函数，它将接受一个逗号分隔的字符串作为输入，并将其拆分成一个字符串列表：

(defun split-string (str / result temp)
  (setq result '())
  (setq temp "")
  (foreach char (vl-string->list str)
    (if (= char ",")
      (progn
        (setq result (append result (list temp)))
        (setq temp ""))
      (setq temp (strcat temp (char))))
  )
  (setq result (append result (list temp)))
  result
)

该函数首先定义了两个变量：`result` 和 `temp`。`result` 用于存储拆分后的字符串列表，`temp` 用于存储正在构建的当前字符串。

然后，使用 `vl-string->list` 函数将输入字符串转换为字符列表。然后，使用 `foreach` 循环遍历字符列表中的每个字符。

如果当前字符是逗号，则将 `temp` 添加到 `result` 列表中，并将 `temp` 重置为空字符串。否则，将当前字符附加到 `temp` 中。

最后，将 `temp` 添加到 `result` 列表中，并返回结果列表。