muai2010 发表于 2023-10-16 16:38:11

已关闭

本帖最后由 muai2010 于 2023-10-16 21:44 编辑

问题没得到解决，我自己编辑掉了，谢谢
请别再质疑，如果有解决谁不留着备忘？
因为无有价值内容，我自己用别的代替了，所以关闭




llsheng_73 发表于 2023-10-17 09:25:00

本帖最后由 llsheng_73 于 2023-10-17 09:26 编辑

muai2010 发表于 2023-10-16 17:25
是的，我也看到那好像是个排序的，但是没用上，能指点下么
(defun c:tt(/ s e i lst)
(and(setq s(ssget'((0 . "text"))))
      (repeat(setq i(sslength s))
      (setq i(1- i)e(entget(ssname s i))
            lst(cons(list(cdr(assoc 10 e))(cdr(assoc 1 e)))lst)))
      (setq lst(vl-sort lst(function(lambda(a b)(if(=(cadar a)(cadar b))(<(caar a)(caar b))(>(cadar a)(cadar b))))))
            p(getpoint"插入点"))
      (entmakex(list'(0 . "text")(cons 1(apply'strcat(mapcar'cadr lst)))(cons 10 p)(cons 40 1)))))

muai2010 发表于 2023-10-16 17:25:49

llsheng_73 发表于 2023-10-16 17:18
你没有对文字的坐标进行排序，图上两种情况按你说是反的，实际应用它还会是乱的。。。
代码中有一个排序 ...

是的，我也看到那好像是个排序的，但是没用上，能指点下么

llsheng_73 发表于 2023-10-16 17:18:00

你没有对文字的坐标进行排序，图上两种情况按你说是反的，实际应用它还会是乱的。。。
代码中有一个排序语句，不过排序的表lst和选择集ss没有关系，后边也没用到排序结果

jun353835273 发表于 2023-10-16 16:44:55

http://bbs.mjtd.com/thread-188704-1-1.html 和这个排序类似

muai2010 发表于 2023-10-16 17:27:55

jun353835273 发表于 2023-10-16 16:44
http://bbs.mjtd.com/thread-188704-1-1.html 和这个排序类似

我看不明白，不大会搞，很简单的还行

muai2010 发表于 2023-10-16 17:47:06

本帖最后由 muai2010 于 2023-10-16 18:18 编辑

jun353835273 发表于 2023-10-16 16:44
http://bbs.mjtd.com/thread-188704-1-1.html 和这个排序类似
感谢，我还不如用你那个哈哈

664571221 发表于 2023-10-16 21:22:50

你真厉害，以后谁还敢给你解决问题 ，过河就拆桥。

muai2010 发表于 2023-10-16 21:41:16

664571221 发表于 2023-10-16 21:22
你真厉害，以后谁还敢给你解决问题 ，过河就拆桥。
没有哦，没人解决我才编辑掉的，你看到有人解决了么？

gaics 发表于 2023-10-17 07:38:01

问题本身也是一种资源
页: [1] 2
查看完整版本: 已关闭