lsp写的插件，标注1W个10毫米X10毫米的矩形用时1分30秒能不能在快点

xyp1964 · 发表于 4 天前

纯lsp：
命令: tt
选择对象: 指定对角点: 找到 10000 个

选择对象: 10000用时 : 14.0806秒
程序执行完毕!

Dea25 · 发表于 3 天前

本帖最后由 Dea25 于 2025-8-31 09:08 编辑

命令: tt

选择对象: 指定对角点: 找到 10000 个

选择对象:

耗时：1.297秒！！！

使用entmake和大字体（如:tssdeng.shx）；遍历时避免使用nth，建议用lambda；使用ssname比ssnamex快。

amook147 · 发表于 3 天前

Dea25 发表于 2025-8-31 06:17
命令: tt

选择对象: 指定对角点: 找到 10000 个

1秒多有这么快吗？

guosheyang · 发表于 3 天前

entmake 10000个相同的文字，比如10000个 100mm^2， 600毫秒之内就可以了

guosheyang · 发表于 3 天前

(defun c:tt(/ L S SS)
(setq s  (ssget '((0 . "LWPOLYLINE")))
   ss (getvar "millisecs")
   l  (cdr(reverse(mapcar 'cadr (ssnamex s))))
)
(foreach m l
(entmake (list '(0 . "TEXT")  (cons 1 "100mm\\U+00B2" )
   (cons 10 (polar (vlax-curve-getstartpoint m) (* 0.25 pi) 7.0707))
   (cons 40 0.6)) )
)
(princ(strcat"历时: "(itoa(- (getvar "millisecs") ss)) "毫秒") )
)

xyp1964 · 发表于 3 天前

其实快不快意义都不大

你有种再说一遍 · 发表于 3 天前

xyp1964 发表于 2025-8-31 16:50
其实快不快意义都不大

以前我也是这样想的,后来发现别人可以处理点云,点云上面有上亿个点,然后我就不那么想了,发现速度快真的很好玩

xyp1964 · 发表于 3 天前

你有种再说一遍发表于 2025-8-31 17:03
以前我也是这样想的,后来发现别人可以处理点云,点云上面有上亿个点,然后我就不那么想了,发现速度快真的很 ...

点云用lsp就是个传说

nuan1989 · 发表于 3 天前

你有种再说一遍发表于 2025-8-30 17:04
能用就行,在lisp追求速度是痛苦的,map和数组要绕去VBA函数,
要并行没并行,要simd没simd,就连分析瓶颈在哪 ...

要不, 跟精总学c#? 多线程啥啥啥都有

你有种再说一遍 · 发表于 3 天前

nuan1989 发表于 2025-8-31 19:11
要不, 跟精总学c#? 多线程啥啥啥都有

我不会教你的,自己去找DYH学

账号		自动登录	找回密码
密码			注册

[讨论] lsp写的插件 ，标注1W个10毫米X10毫米的矩形 用时1分30秒 能不能在快点

[讨论] lsp写的插件，标注1W个10毫米X10毫米的矩形用时1分30秒能不能在快点