ninja37 发表于 2024-1-3 18:39:18

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

本帖最后由 ninja37 于 2024-1-3 21:22 编辑

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

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

ssyfeng 发表于 2024-1-3 18:39:19

试试这个：


vitalgg 发表于 2024-1-3 21:16:38

本帖最后由 vitalgg 于 2024-1-3 21:19 编辑

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

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

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

(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))))
(setq ss (pickset:to-list (ssget '((0 . "text")(1 . "合计*")))))
(mapcar '(lambda(x)
   (entity:putdxf x 1
       (strcat "%%U"
      (entity:getdxf x 1))))
ss)

ninja37 发表于 2024-1-3 21:19:06

本帖最后由 ninja37 于 2024-1-4 12:32 编辑

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

(setq ss (ssget '((0 . "text")(1 . "合 ...
大师说得对，脑子笨没想到，确实是前缀有%%u 就不是合计开头了
大师，这几个代码太高级了，不会使用，好像是云代码。

vitalgg 发表于 2024-1-5 16:48:44

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

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

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

ninja37 发表于 2024-1-6 14:54:15

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

谢谢大师，已经在用了
页: [1]
查看完整版本: 【悬赏5明经币求程序】求"加指定前缀"的lisp