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

贱人

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

wkai

注意把函数中使用的变量定义为局部变量，就能避免发生冲突。

贱人

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

狂刀

自己动手就可以了阿
把setq 后面的变量名写入到 defun c:XXX () 中的括号里面

lsjjm

最初由 wkai 发布
[B]注意把函数中使用的变量定义为局部变量，就能避免发生冲突。 [/B]

不是这样吧？恐怕斑竹没有仔细看清楚，1楼主的问题所在并不是变量冲突！ 除了SS被重新赋值外，没有什么变量冲突呀？（自然养成良好的习惯是应当的）
另1楼：“长度会显示异常数据”？ 怎么个异常？只是显示格式不一样吧？看看是否(setvar "cmdecho" 0) 作怪？

贱人

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

lsjjm

最初由 贱人 发布
[B]5楼：...如果有小数更麻烦，比如:12345.6789，结果是：12345.67912345.7我只会搞C，LIS... [/B]

在CD程序的前面加一行试试：
(setvar "cmdecho" 1)

它山之石

　　LSJJM长老说的也可以，但出现一大堆命令提示看着总不好。
　　其实只是显示的问题。测量长度的程序没有让结果换行显示。至于为什么与关闭图层的程序冲突，我没仔细研究。
　　你可以简单的在最后一行sum前加上 (princ "\n")就行了。
　　高级一点是将SUM替换成下面这两句，还可以自己设定要显示的数值的小数点后位数。0当然就不显示小数位了。
(princ (strcat "\n总长度为："(rtos sum 2 0)))
(princ)

[php]
(defun c:cd (/ os sum i ss en l)
  (setvar "cmdecho" 0)
  (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)
  (princ (strcat "\n总长度为：" (rtos sum 2 0)))
  (princ)
)
[/php]

柔柔

(setvar "osmode" os)
sum
)
此处的sum 改成(princ) 即可

狂刀

最初由 柔柔 发布
[B](setvar "osmode" os)
sum
)
此处的sum 改成(princ) 即可 [/B]

那样就什么显示也没有了。8楼的方法是对的
显示结果前先给个“回车”

(setvar "osmode" os)
(print sum)
(princ) ;;可有可无
)
另外；和 "cmdecho" 没有太大关系

贱人

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

它山之石

最初由 贱人 发布
[B]高手高手，虽然看不大懂，但用了8楼的代码总算正常了 [/B]

看不懂没关系，问题解决了就好。
也许因此你也有了学习LISP语言的兴趣。

lsjjm

最初由 狂刀 发布
[B]... 另外；和 "cmdecho" 没有太大关系... [/B]

我是这样考虑的:  执行Q1程序后改变了CMDECHO的初始状态.(CMDECHO的初始值是1).因此在CD程序中恢复CMDECHO为1较为妥善(或者在Q1程序结尾恢复原值), 实际执行看某些情况下, 例如长度为1.23的线段, 只加(PRINC)会在返回的数值后多尾零.1.230 而加了(SETVAR "CMDECHO" 1)后返回的是1.23