2013-05-21 QQ群：ALISP＆VLISP(143438137) 聊天记录：说说怎么画，想要什么

CCarch · 发表于 2013-5-21 19:07:34

271682673(271682673)于2013-05-21 19-07-34：
输出线1+线2，而不是输出他们的总和

CCarch · 发表于 2013-5-21 19:07:52

小蜜蜂(9034598)于2013-05-21 19-07-52：
得是 line 线

CCarch · 发表于 2013-5-21 19:07:59

271682673(271682673)于2013-05-21 19-07-59：
有没有哪个好心的能帮我弄个啊，万分感激

CCarch · 发表于 2013-5-21 19:08:03

小蜜蜂(9034598)于2013-05-21 19-08-03：
那也太简单了。

CCarch · 发表于 2013-5-21 19:08:04

271682673(271682673)于2013-05-21 19-08-04：
恩？

CCarch · 发表于 2013-5-21 19:08:13

271682673(271682673)于2013-05-21 19-08-13：
对你们是简单的哇

CCarch · 发表于 2013-5-21 19:08:20

271682673(271682673)于2013-05-21 19-08-20：
就看你们肯帮我不了哇

CCarch · 发表于 2013-5-21 19:08:25

271682673(271682673)于2013-05-21 19-08-25：
[face111.gif]

CCarch · 发表于 2013-5-21 19:10:11

271682673(271682673)于2013-05-21 19-10-11：
求调教，万分感激

eachy · 发表于 2013-5-21 19:10:38

eachy(124471899)于2013-05-21 19-10-38：
输出这个干什么

CCarch · 发表于 2013-5-21 19:10:50

271682673(271682673)于2013-05-21 19-10-50：
我工作要用哇

eachy · 发表于 2013-5-21 19:13:03

eachy(124471899)于2013-05-21 19-13-03：
你会写什么

CCarch · 发表于 2013-5-21 19:13:19

271682673(271682673)于2013-05-21 19-13-19：
啊

CCarch · 发表于 2013-5-21 19:14:22

271682673(271682673)于2013-05-21 19-14-22：
网上不是很多求总和的命令么，我觉得只要稍加修改就可以了，可以帮我改改么

CCarch · 发表于 2013-5-21 19:17:45

小蜜蜂(9034598)于2013-05-21 19-17-45：
(defun c:sxl()
(setq ss1 (ssget '((0 . "line"))))
  (setq n 0 sum 0 LL "")
  (if (> (sslength ss1) 1)(progn
  (repeat (sslength ss1)
   (setq ssn (ssname ss1 n)
         pt1 (cdr (assoc 10 (entget ssn)))
         pt2 (cdr (assoc 11 (entget ssn)))
         L (distance pt1 pt2)
         Sum (+ sum L)
         LL (strcat LL (rtos L 2) " + ")
         n (1+ n))
)
(setq ss (strcat (vl-string-trim  " + " LL) " = " (rtos Sum 2)))
))
(princ ss)
(princ)
)

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