[求助]：如何同时求多个图形的周长？

yang77 · 发表于 2005-12-29 21:34:13

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

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

×

工作中经常要算图形的周长，每次都得选图形后按ctrl+1来记下它的周长，然后一个个的用笔记下来，最后再相加，才得到整个图形的总周长，好烦，能不能，选好各个要计算的图形后，一次算出它们相加起来的总周长呢？还有面积也是这样子，不能一次性全部算出来，高手能否帮忙解决这个问题，谢谢了

zxq0220 · 发表于 2005-12-30 09:21:27

(DEFUN C:SAA ()
(SETVAR "CMDECHO" 0)
(COMMAND ".UNDO" "BE")
(IF (SETQ SS (SSGET '((0 . "*POLYLINE,CIRCLE,SPLINE")))) (PROGN
(SETQ I -1 SA 0.0 SP 0.0)
(REPEAT (SSLENGTH SS)
(COMMAND "AREA" "E" (SSNAME SS (SETQ I (1+ I))))
(SETQ SA (+ (GETVAR "AREA") SA)
SP (+ (GETVAR "PERIMETER") SP))
)
(COMMAND ".UNDO" "E")
(PRINC "\nArea 面积 = ") (PRINC SA)
(PRINC " Perimeter 周长 = ") (PRINC SP)
))
(SETVAR "CMDECHO" 1)
(PRINC)
)

yang77 · 发表于 2005-12-31 15:59:36

我来试试是不是我想要的功能，谢谢了先！
试过回来了，确实对封闭成面域的图形有效，对只是线条的图形不能计算出周长（长度），还望高手帮忙解决，再次感谢！

taner · 发表于 2006-1-5 14:58:20

[PHP](defun th-getobjlengthOFSS (ss / ss ssv lens)
  (if (= nil ss)(setq ss (ssget '((0 . "*LINE,ARC,CIRCLE,ELLIPSE")))))
  (setq ssv (vla-get-activeselectionset (vla-get-activedocument (vlax-get-acad-object)))
lens 0)
  (vlax-for obj ssv
   (setq lens (+ lens (th-getobjlength OBJ)))
  )
)

(defun th-getobjlength (obj)
  (vlax-curve-getdistatparam obj (vlax-curve-getendparam obj))
)[/PHP]

yang77 · 发表于 2006-1-18 15:26:39

楼上的能给出个完整的代码么，我还不知道是用到什么命令，zxq0220给出的是SAA，这个虽然我菜还是能看出一点来，你的呢我得请教一下了，谢谢

taner · 发表于 2006-1-19 18:42:56

最初由 yang77 发布
[B]楼上的能给出个完整的代码么，我还不知道是用到什么命令，zxq0220给出的是SAA，这个虽然我菜还是能看出一点来，你的呢我得请教一下了，谢谢 [/B]

不知道怎麽才能算完整?

在DEFUN後,將函數名改爲你任何你想要的都行.

yang77 · 发表于 2006-1-19 22:03:39

修改这个“th-getobjlengthOFSS”？请指点thanks

xyp1964 · 发表于 2006-1-19 22:40:23

[FONT=courier new](load "xyp_lib.vlx") ;版本 V.20060116 (1972)
;|下载和加载通用函数(可在签名栏直接下载后放到搜索路径下)
利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序：
★1·在acad.lsp中增加(load"xyp_lib.vlx")
■2·在每个程序内增加(load"xyp_lib.vlx")
■3·在command下，输入(load"xyp_lib.vlx")
■4·在菜单.mnl中增加(load"xyp_lib.vlx")
■5·将xyp_lib.vlx文件直接拽到cad屏幕
[COLOR=red] ★通用函数下载地址：[/COLOR]
[url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]
|;
;;;线长统计
(defun c:test001 ()
(CMDLA0)
(setq ss (ssget '((0 . "CIRCLE,ELLIPSE,*LINE,ARC")))
sum 0
i -1
)
(while (setq s1 (ssname ss (setq i (1+ i))))
(setq l (xyp-get-CurveLength s1)
sum (+ sum l)
)
)
(princ "\n总线数 = ")
(princ i)
(princ "\n总线长 = ")
(princ (rtos sum 2 3))
(CMDLA1)
)[/FONT]

taner · 发表于 2006-1-20 08:22:36

最初由 yang77 发布
[B]修改这个“th-getobjlengthOFSS”？请指点thanks [/B]

(defun c:test ()
(th-getobjlengthOFSS nil)
)

yang77 · 发表于 2006-2-18 21:17:50

谢谢两位元老的帮助,改天要向你们行拜师礼了^-^

taner · 发表于 2006-2-19 01:23:09

[FONT=courier new]
;在xyp版主的基础上改一下,又是一个好函数.
(defun th2-getobjlengthofss (ss / ss s1 sum i l)
(if (= nil ss)
(setq ss (ssget '((0 . "CIRCLE,ELLIPSE,*LINE,ARC"))))
)
(setq sum 0
i -1
)
(while (setq s1 (ssname ss (setq i (1+ i))))
(setq l (th-getobjlength s1)
sum (+ sum l)
)
)
)
[/FONT]

wweng · 发表于 2007-9-12 16:38:27

这个打什么命令呀？

leeooo · 发表于 2008-12-25 23:14:21

(SETQ SA (+ (GETVAR "AREA") SA)
SP (+ (GETVAR "PERIMETER") SP))

用GETVAR比较快些

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

[求助]：如何同时求多个图形的周长？

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

相关帖子

浏览过的版块