欢迎来找茬

fkyourmather · 发表于 2013-5-20 17:41:01

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

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

×

[pcode=lisp,true]
(defun c:test (/)
  (vl-load-com)
  (vl-catch-all-apply (function (lambda (/ ss ssl i len)
   (princ "\n choose w")
   (while (setq ss (ssget '((0 . line) (8 . "beam"))))
      (setq ssl (sslength ss)
   i -1
   len 0.
      )
      (repeat ssl
      (setq e (ssname ss (setq i (i +1)))
      len (+ len
   (vlax-curve-getdistatparam e
      (vlax-curve-getendparam e)
   )
)
      )
      )
      (princ (strcat "totle length ="
   (vl-princ-to-string len)
   )
      )
   )
)
      )
  )
  (princ)
)
[/pcode]
这段语句错误在哪里

Lispboy · 发表于 2013-5-20 17:44:56

楼主，从你发帖的语气看，好像是没错。

你知道看人家的程序很累的，尤其你还不说程序是做啥的，要是求助的话，你总得告诉大家怎么测试你的程序。你想做什么，而在哪个地方没做到。

XDSoft · 发表于 2013-5-20 17:50:33

楼主在发帖的时候先把代码美化下，看我帮你编辑后，可读性好多了。

zyhandw · 发表于 2013-5-20 17:57:37

正如楼上所说，不知程序是做何用，粗略看了下，发现确有错误：
比如：(setq ss (ssget '((0 . line) (8 ."beam"))))中的点对(0 . line)应为(0 . "LINE")；
(8 ."beam")应为(8 . "beam")等。
建议楼主还是先自己检查、修改下吧

牢固 · 发表于 2013-5-20 18:07:13

计算所有选择直线长度！(setq i (i +1)) 改为 (setq i (1+ i))

fkyourmather · 发表于 2013-5-20 18:13:43

XDSoft 发表于 2013-5-20 17:50
楼主在发帖的时候先把代码美化下，看我帮你编辑后，可读性好多了。

这个是学习大师然后自己在折腾出来的代码～好开心啊

Free-Lancer · 发表于 2013-5-20 18:24:27

你要明白为什么这样写，一个"极致"的例子是秋枫版主的批量打印来自: Android客户端

fkyourmather · 发表于 2013-5-21 09:00:44

Free-Lancer 发表于 2013-5-20 18:24
你要明白为什么这样写，一个"极致"的例子是秋枫版主的批量打印

如何把结果统计出来，比如图层1 长度多少、图层2长度多少.

炫翔 · 发表于 2013-5-21 09:15:32

fkyourmather 发表于 2013-5-21 09:00
如何把结果统计出来，比如图层1 长度多少、图层2长度多少.

(PRINC 层名)（PRINC 长度）

Free-Lancer · 发表于 2013-5-21 09:54:41

fkyourmather 发表于 2013-5-21 09:00
如何把结果统计出来，比如图层1 长度多少、图层2长度多少.

学学 Set 用法，用层名作变量分别统计，可以参考“可自由定制的超级刷子”

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

[求助] 欢迎来找茬

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

评分

评分