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

xyp1964

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

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

Dea25

命令: tt

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

选择对象:

耗时：1.297秒！！！


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

amook147

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

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

1秒多 有这么快吗？

guosheyang

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

guosheyang

(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

其实快不快意义都不大

你有种再说一遍

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

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

xyp1964

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

点云用lsp就是个传说

你有种再说一遍

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

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