[LISP程序]：来个求总长度的LSP

and2008 · 发表于 2005-8-25 16:03:37

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

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

×

加载后执行LLE可以求任意多线段总长度

书巷里的门 · 发表于 2005-8-26 08:21:41

请问你有求面积的lisp吗?
如果有的话,是否可以贴上来?
而且你的这个lsp在本版已经有了.

Jackyzou · 发表于 2005-8-31 11:50:29

对啊，我也想要个求总面积的

and2008 · 发表于 2005-9-2 12:31:01

求面积看一下这个，不知能否解决你的问题。

nt8011 · 发表于 2005-9-2 20:26:53

请问对多义线、样条曲线等有用吗?

YBJY · 发表于 2005-10-9 22:42:42

想下的东东，可是我的分不够，能不能网开一面，下下看看

叫啥呢 · 发表于 2005-10-10 14:48:56

我加载成功了，可是用的时候说没这个命令
请帮帮忙

ccvcc · 发表于 2005-10-15 17:52:54

求总面积（PL线）
;;; AREAM.LSP
;;; Function: Calculates the total area of selected objects

(defun c:aream (/ olderr oldcmdecho errexit undox restore ss1 nr en tot_area)
(defun errexit (s)
(restore)
)

(defun undox ()
(command "._undo" "_E")
(setvar "cmdecho" oldcmdecho)
(setq *error* olderr)
(princ)
)

(setq olderr *error*
restore undox
*error* errexit
)
(setq oldcmdecho (getvar "cmdecho"))
(setvar "cmdecho" 0)
(command "._UNDO" "_BE")
(if (setq ss1 (ssget '((-4 . "<OR")
(0 . "POLYLINE")
(0 . "LWPOLYLINE")
(0 . "CIRCLE")
(0 . "ELLIPSE")
(0 . "SPLINE")
(0 . "REGION")
(-4 . "OR>")
)
)
)
(progn
(setq nr 0)
(setq tot_area 0.0)
(setq en (ssname ss1 nr))
(while en
(command "._area" "_O" en)
(setq tot_area (+ tot_area (getvar "area")))
(setq nr (1+ nr))
(setq en (ssname ss1 nr))
)
(princ "\nTotal Area = ")
(princ tot_area)
)
)
(restore)
)

xueli1983 · 发表于 2005-10-19 15:40:58

求面积总合的CAD里面不是有吗？

lovein2002 · 发表于 2005-11-23 03:24:33

对啊，我也想要个求总面积的

tdsheng · 发表于 2005-11-23 07:34:55

好用吗?

jac312 · 发表于 2009-4-20 09:28:54

55555555555还差4

1028882406@qq.c · 发表于 2017-4-26 00:04:04

谢谢ccvcc楼主分享，支持下

wgyak47 · 发表于 2017-4-27 00:05:26

5555555555555555555555

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

[LISP程序]：来个求总长度的LSP

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

相关帖子