请问大佬下面的代码只能再CAD2012里面运行，高版本就错误了。要怎么改啊？

hiviki

请问大佬下面的代码只能再CAD2012里面运行，高版本就错误了。要怎么改啊？


(defun c:ss()
  (setq ss (ssget)
n 0
sum 0)
  (repeat (sslength ss)
    (setq en (ssname ss n))
    (command "lengthen" en "")
    (setq sum (+ sum (getvar "perimeter"))
   n (+ n 1))
    )  
  (ALERT (STRCAT "总长度：" (rtos sum 2)))
  )

liuhe

2. (command "lengthen" en "")CAD2024运行不了，需要手动输入参数，尽量不要调用command

(command "lengthen" en "")CAD2024运行不了，需要手动输入参数，尽量不要调用command

vitalgg

求曲线图元的长度

1. (defun curve:length (curve)
   
2.   "参数curve:曲线，直线、圆弧、圆、多段线、优化多段线、样条曲线等图元"
   
3.   "曲线的长度"
   
4.   "(curveength (car (entsel)))"
   
5.   (if (= 'ename (type curve))
   
6.       (setq curve (e2o curve)))
   
7.   (vlax-curve-getdistatparam curve (vlax-curve-getendparam curve)))

(defun curve:length (curve)<br />   "参数curve:曲线，直线、圆弧、圆、多段线、优化多段线、样条曲线等图元"<br />   "曲线的长度"<br />   "(curve<img src="static/image/smiley/default/sweat.gif" smilieid="10" border="0" alt="" />ength (car (entsel)))"<br />   (if (= 'ename (type curve))<br />       (setq curve (e2o curve)))<br />   (vlax-curve-getdistatparam curve (vlax-curve-getendparam curve)))

https://gitee.com/atlisp/atlisp-lib/blob/main/src/curve/length.lsp

@lisp函数库，开源共享，随时可调用(CAD内安装 @lisp,即可享用 上百了持续维护的函数)。

随时可查询: 支持 CAD 内查询 ，公众号查询 ，VSCode 语法提示和悬停提示。




公众号内查询：




CAD命令行查询



VSCode 内查询

mokson

command 改 command-s 看看。

x_s_s_1

应该是command的问题，改vl-cmdf吧
提供另一个方法，对spline，circle，ellipse无效

1. (defun c:ss  (/ en n ss sun)
   
2.   (setq        ss  (ssget)
   
3.         n   0
   
4.         sum 0)
   
5.   (repeat (sslength ss)
   
6.     (setq en (ssname ss n))
   
7.     (setq sum (+ sum (getpropertyvalue en "length"))
   
8.           n   (+ n 1)))
   
9.   (ALERT (STRCAT "总长度：" (rtos sum 2))))

(defun c:ss  (/ en n ss sun)<br />   (setq        ss  (ssget)<br />         n   0<br />         sum 0)<br />   (repeat (sslength ss)<br />     (setq en (ssname ss n))<br />     (setq sum (+ sum (getpropertyvalue en "length"))<br />           n   (+ n 1)))<br />   (ALERT (STRCAT "总长度：" (rtos sum 2))))