jxy308 发表于 2015-1-16 08:46:35

lzg8877 发表于 2015-1-19 06:11:06

学习下

paulpipi 发表于 2019-9-1 09:44:28

正是要找的，学习一下，谢谢！

f4800 发表于 2022-3-21 10:28:15

多谢多谢多谢。。。

qwsss31 发表于 2024-6-9 19:29:44

很详细很重要的哈。

qwsss31 发表于 2024-6-9 20:14:56

各位大佬求教一下，比如这个代码怎么加需要注册的流程，测试了几次都是乱码跪谢，(princ "\n程序：统计线段长度 命令：zz")
(defun C:zz (/ CURVE TLEN SS N SUMLEN)
(vl-load-com)(setq SUMLEN 0)
(setq SS (ssget '((0 . "CIRCLE,ELLIPSE,LINE,*POLYLINE,SPLINE,ARC"))))
(setq N 0)
(repeat (sslength SS)
(setq CURVE (vlax-ename->vla-object (ssname SS N)))
(setq TLEN (vlax-curve-getdistatparam CURVE (vlax-curve-getendparam CURVE)))
(setq SUMLEN (+ SUMLEN TLEN))
(setq N (1+ N))
)
(princ (strcat "\n共选择 " (itoa (sslength SS)) " 条线段. 线段总长: " (rtos SUMLEN 2 3) ".")) (princ)
)   


qwsss31 发表于 2024-6-10 22:35:30

大佬们知道这个注册成功后怎么删除吗？两次成功已经没办法测试了。。。注册表搜索不到

阿猪蛋 发表于 2024-6-11 09:13:11

正是要找的，学习一下，谢谢！
页: 1 [2]
查看完整版本: 没事弄个注册程序和注册机提提兴趣