[求助]将所选线条的长度自动导入文件，为何不能自动更新？

斗谷

为了得到有很多线条的长度，我就编了一个Lisp小程序（如附件所示），可是执行以后却不能自动更新。要想更新就必须要先把CAD关闭。感觉这样操作太麻烦，所以想问一下大家，对此有没有什么好办法啊？谢谢啊！

oyxx1023

(defun
			c:get_length()
(setvar
			"cmdecho"
			0)
(setq ffn (getfiled
			"打开文件"
			"e:/data"
			"txt"
			1))
(setq ff (open ffn "a"))

(prompt
			"\n<<选择欲输入长度的线段>>")
(setq ss (ssget))
(setq n 1 k 0)
(repeat
			(sslength ss)
  (setq en (ssname ss (-
			(sslength ss) n)))
  (command
			"lengthen" en "")
  (setq l (getvar
			"perimeter"))
  (princ l ff)
  (princ
			"\n" ff)
  (setq n (1+ n) k (1+ k))
  )
(princ
			(strcat
			"\n共有<"
			(itoa k)
			">条曲线被选中"))
(prin1)
)
(close ff)
(prompt
			"\n<c:get_length>\n自动将选中线条长度输入文件")
(prin1)

文件打开后没关闭.

斗谷

谢谢回复，果然解决问题！

只是还有一个小问题想请教，那就是我选了很多线条以后，我想让程序按某一顺序将它们的长度显示出来，例如在图面上从左到右，那该怎么操作呢？

我搞不清楚默认情况下，Lisp是按什么顺序显示这些线条的，所以处理这个问题还是有些麻烦。

caoyin

排列也不难，只是你想按照什么逻辑排序？

排序后得到的结果只怕你仍然不能够直观的根据对象的位置来看出他们的顺序！！...

思路如下：

;;---------------------------------------------------------------

(defun c:test (/ ss enlst xlst)
  (if (setq ss (ssget))
    (progn
      (setq enlst (vl-remove-if-not
                    '(lambda (x) (= (type x) 'ename))
                    (mapcar 'cadr (ssnamex ss))
                  )
            lelst (mapcar 'vlax-curve-getStartPoint enlst) ;;这里以起点为例
            xlst  (mapcar 'car lelst)                      ;;这里以 X 轴为例
      )
      (mapcar '(lambda (x / en)
                 (list (setq en (nth n enlst))
                       (vlax-curve-getdistatparam en (vlax-curve-getendparam en))
                 )
               )
              (vl-sort-i xlst '<)                          ;;这里根据x轴值从小到大的顺序
      )
    )
  )
)

;;----------------------------------------------------------------------

返回表根据曲线起点x轴值从小到大的顺序

((曲线1 长度1) (曲线2 长度2) (曲线3 长度3) ... (曲线n 长度n))