Question

CAD插件lsp格式，运行错悟。求高手修改一下。

(defun c:XDTB_TEXTSPLITBY ( / i ss str x)
(xdrx_begin)
(xdrx_initssget "\n选取断开的字符串<退出>")
(if (and
(/= "" (setq str (getstring t "\n输入分割字符<退出>:")))
(setq ss (xdrx_ssget '((0 . "text"))))
)
(progn
(setq i 0)
(mapcar
'(lambda (x)
(if (XD::Text:SplitBy x str t)
(setq i (1+ i))
)
)
(xdrx_pickset->ents ss)
)
(xdrx_prompt "\n分割了 " i " 个字符串.")
)
)
(xdrx_end)
(princ)
)

Answer 1

错误提示是什么

追问

no function definition: XDRX_BEGIN

追答

功能未定义，第二行删除再试