请教一下高手，是否可以通过LISP编程将提取的线条转化为光滑的线段

imustsun

是否可以通过LISP编程将提取到的特征线条转化为一条光滑的线段，而不是一段段还有些弯曲的折线。附件中是提取到的CAD dxf文件。

sunjun2009

我也许要 不知道楼主找到没有

Gu_xl

1. (defun c:tt (/ CNT D DIST E LEN N PTS)
   
2.   (setq e (car (entsel "\n选择多段线:")))
   
3.   (setq n (cdr (assoc 90 (entget e))))
   
4.   (setq len (vlax-curve-getDistAtParam e (vlax-curve-getEndParam e)))
   
5.   (setq cnt (fix (1+ (/ n 10.))))
   
6.   (princ (strcat "\n总节点数<"
   
7.                  (itoa n)
   
8.                  ">，压缩节点数为<"
   
9.                  (itoa cnt)
   
10.                  ">:"
    
11.          )
    
12.   )
    
13.   (if (> cnt 1)
    
14.     (setq d (/ len (1- cnt)))
    
15.   )
    
16.   (setq pts (cons (vlax-curve-getStartPoint e) pts))
    
17.   (setq dist 0)
    
18.   (if (> cnt 1)
    
19.     (repeat (- cnt 2)
    
20.       (setq dist (+ dist d))
    
21.       (setq pts (cons (vlax-curve-getpointatdist e dist) pts))
    
22.     )
    
23.   )
    
24.   (if (not (vlax-curve-isClosed e))
    
25.     (setq pts (cons (vlax-curve-getEndPoint e) pts))
    
26.   )
    
27.   (command "_pline")
    
28.   (foreach p pts
    
29.     (command "_non" (trans p 0 1))
    
30.   )
    
31.   (if (vlax-curve-isClosed e)
    
32.     (command "_c")
    
33.     (command "")
    
34.   )
    
35.   (entmod (append (entget (entlast)) '((62 . 1))))
    
36.   (princ)
    
37. )

(defun c:tt (/ CNT D DIST E LEN N PTS)<br />   (setq e (car (entsel "\n选择多段线:")))<br />   (setq n (cdr (assoc 90 (entget e))))<br />   (setq len (vlax-curve-getDistAtParam e (vlax-curve-getEndParam e)))<br />   (setq cnt (fix (1+ (/ n 10.))))<br />   (princ (strcat "\n总节点数<"<br />                  (itoa n)<br />                  ">，压缩节点数为<"<br />                  (itoa cnt)<br />                  ">:"<br />          )<br />   )<br />   (if (> cnt 1)<br />     (setq d (/ len (1- cnt)))<br />   )<br />   (setq pts (cons (vlax-curve-getStartPoint e) pts))<br />   (setq dist 0)<br />   (if (> cnt 1)<br />     (repeat (- cnt 2)<br />       (setq dist (+ dist d))<br />       (setq pts (cons (vlax-curve-getpointatdist e dist) pts))<br />     )<br />   )<br />   (if (not (vlax-curve-isClosed e))<br />     (setq pts (cons (vlax-curve-getEndPoint e) pts))<br />   )<br />   (command "_pline")<br />   (foreach p pts<br />     (command "_non" (trans p 0 1))<br />   )<br />   (if (vlax-curve-isClosed e)<br />     (command "_c")<br />     (command "")<br />   )<br />   (entmod (append (entget (entlast)) '((62 . 1))))<br />   (princ)<br /> )

wkq004

固版大神的回复一定好用

l982414603

固版大神的回复一定好用