[编程申请]：多义线字段长度按DX的部分程序写了一个，可惜有错！请DX看看。

bluesky1000

代码如下：
(defun c:pljl (/ ll)
  (setvar "cmdecho" 0)
  (setq ffn (getfiled "选取文件" "" "doc" 1))
  (setq ff (open ffn "w"))
  (close ff)
  (setq a (car (entsel "\nSelect Polyline:")))
  (setq num (cdr (assoc 90 (entget a))) n 1)
  (while (< n num)
    (setq l (- (vlax-curve-getDistAtParam a n)
               (vlax-curve-getDistAtParam a (1- n))))
    (setq ff (open ffn "a"))
    (princ l ff)
    (princ "     " ff)  
  )
    (princ "\n" ff)  
    (close ff)
)

LUCAS

2. 
   
3. 注意:n值
   
4. (defun C:PLJL (/ LL)
   
5.   (setvar "cmdecho" 0)
   
6.   (setq FFN (getfiled "選取文件" "" "txt" 1))
   
7.   (setq FF (open FFN "w"))
   
8.   (close FF)
   
9.   (setq A (car (entsel "\nSelect Polyline:")))
   
10.   (setq        NUM (cdr (assoc 90 (entget A)))
    
11.         N   1
    
12.   )
    
13.   (setq FF (open FFN "a"))
    
14.   (while (< N NUM)
    
15.     (setq L (- (vlax-curve-getdistatparam A N)
    
16.                (vlax-curve-getdistatparam A (1- N))
    
17.             )
    
18.           N (1+ N)
    
19.     )
    
20.     (princ L FF)
    
21.     (princ " " FF)
    
22.   )
    
23.   (princ "\n" FF)
    
24.   (close FF)
    
25. )
    

<br /> 注意:n值<br /> (defun C:PLJL (/ LL)<br />   (setvar "cmdecho" 0)<br />   (setq FFN (getfiled "選取文件" "" "txt" 1))<br />   (setq FF (open FFN "w"))<br />   (close FF)<br />   (setq A (car (entsel "\nSelect Polyline:")))<br />   (setq        NUM (cdr (assoc 90 (entget A)))<br />         N   1<br />   )<br />   (setq FF (open FFN "a"))<br />   (while (< N NUM)<br />     (setq L (- (vlax-curve-getdistatparam A N)<br />                (vlax-curve-getdistatparam A (1- N))<br />             )<br />           N (1+ N)<br />     )<br />     (princ L FF)<br />     (princ " " FF)<br />   )<br />   (princ "\n" FF)<br />   (close FF)<br /> )<br />

bluesky1000

多谢斑竹帮助，可以用了。不过我的水平实在很差，怎么样才能实现一次选择多条PL线并提取它们的子段长度呢？现在只是一条。