.....................................

贱人 · 发表于 2004-5-27 23:16:51

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

本帖最后由贱人于 2025-4-18 06:01 编辑

.....................................

maplesu · 发表于 2004-5-27 23:28:17

这里有我做的一个，你可以试试
5楼的

http://www.xdcad.net/forum/showt ... 1004501#post1004501

贱人 · 发表于 2004-5-29 17:40:47

本帖最后由贱人于 2025-4-18 06:01 编辑

.....................................

maplesu · 发表于 2004-5-29 18:07:56

改一下

[PHP]
(defun c:cd()
(setq os (getvar "osmode"))
(setvar "osmode" 0)
(setq sum 0 i 0)
(setq ss (ssget))
(repeat (sslength ss)
(setq en (ssname ss i))
(command "lengthen" en "")
(setq l (getvar "perimeter"))
(setq sum (+ sum l)
i (+ i 1))
)
(setvar "osmode" os)
sum
)
[/PHP]

贱人 · 发表于 2004-5-29 18:21:09

本帖最后由贱人于 2025-4-18 06:02 编辑

.....................................

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

.....................................

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

浏览过的版块