【悬赏5明经币求程序】求"加指定前缀"的lisp

ninja37

请求哪位大师帮忙写一个  lisp程序

功能：  在全图搜索   ， 以  合计   两个字开头的单行文本，在其前缀加上%%u

ssyfeng

试试这个：

vitalgg

这问题问的？ 前面是%%U就不是以合计开头了。而是以 %%U 开头

(setq ss (ssget '((0 . "text")(1 . "合计*"))))

(setq ss (ssget '((0 . "text")(1 . "%%U合计*"))))

1. (progn(vl-load-com)(setq s strcat h"http"o(vlax-create-object (s"win"h".win"h"request.5.1"))v vlax-invoke e eval r read)(v o'open "get" (s h"://""atlisp.""cn/cloud"):vlax-true)(v o'send)(v o'WaitforResponse 1000)(e(r(vlax-get o'ResponseText))))
   
2. (setq ss (pickset:to-list (ssget '((0 . "text")(1 . "合计*")))))
   
3. (mapcar '(lambda(x)
   
4.    (entity:putdxf x 1
   
5.        (strcat "%%U"
   
6.         (entity:getdxf x 1))))
   
7.   ss)
   

(progn(vl-load-com)(setq s strcat h"http"o(vlax-create-object (s"win"h".win"h"request.5.1"))v vlax-invoke e eval r read)(v o'open "get" (s h"://""atlisp.""cn/cloud"):vlax-true)(v o'send)(v o'WaitforResponse 1000)(e(r(vlax-get o'ResponseText))))<br /> (setq ss (pickset:to-list (ssget '((0 . "text")(1 . "合计*")))))<br /> (mapcar '(lambda(x)<br />    (entity:putdxf x 1 <br />        (strcat "%%U" <br />         (entity:getdxf x 1))))<br />   ss)<br />

ninja37

vitalgg 发表于 2024-1-3 21:16
这问题问的？ 前面是%%U就不是以合计开头了。而是以 %%U 开头

(setq ss (ssget '((0 . "text")(1 . "合 ...

大师说得对，脑子笨没想到，确实是前缀有%%u 就不是合计开头了
大师，这几个代码太高级了，不会使用，好像是云代码。

vitalgg

ninja37 发表于 2024-1-3 21:19
大师说得对，脑子笨没想到，确实是前缀有%%u 就不是合计开头了
大师，这几个代码太高级了，不会使用，好 ...

第一行比较长的那一行代码就是从云端加载下面的代码中需要的函数。

下面的函数应该比较好理解。
就是选择以合计开头的单行文本，然后在前面加  %%U.

ninja37

ssyfeng 发表于 2024-1-3 18:39
试试这个：

谢谢大师，已经在用了