等长分曲线

Lispboy

1. (defun c:xdtb_curvedivchord (/ v ss pts)
   
2.   (if (not #xd-var-global-divide)
   
3.     (setq #xd-var-global-divide 10)
   
4.   )
   
5.   (if (and (setq v (getint
   
6.                      (xdrx-prompt "\n等分数<" #xd-var-global-divide ">:" t)
   
7.                    )
   
8.            )
   
9.            (> v 1)
   
10.       )
    
11.     (setq #xd-var-global-divide v)
    
12.   )
    
13.   (if (and (> #xd-var-global-divide 1)
    
14.            (xdrx-initssget "\n选取要处理的曲线<退出>:")
    
15.            (setq ss (xdrx-ssget '((0 . "*LINE,ARC,ELLIPSE,CIRCLE"))))
    
16.       )
    
17.     (progn
    
18.       (mapcar '(lambda (x)
    
19.                  (setq pts (xdrx-getsamplept x #xd-var-global-divide))
    
20.                  (xdrx-polyline-make pts)
    
21.                  (if (equal (car pts) (last pts) 1e-6)
    
22.                    (xdrx-curve-setclosed (entlast) t)
    
23.                  )
    
24.                )
    
25.               (xdrx-pickset->ents ss)
    
26.       )
    
27.     )
    
28.   )
    
29.   (princ)
    
30. )
    
31. 
    

(defun c:xdtb_curvedivchord (/ v ss pts)<br />   (if (not #xd-var-global-divide)<br />     (setq #xd-var-global-divide 10)<br />   )<br />   (if (and (setq v (getint<br />                      (xdrx-prompt "\n等分数<" #xd-var-global-divide ">:" t)<br />                    )<br />            )<br />            (> v 1)<br />       )<br />     (setq #xd-var-global-divide v)<br />   )<br />   (if (and (> #xd-var-global-divide 1)<br />            (xdrx-initssget "\n选取要处理的曲线<退出>:")<br />            (setq ss (xdrx-ssget '((0 . "*LINE,ARC,ELLIPSE,CIRCLE"))))<br />       )<br />     (progn<br />       (mapcar '(lambda (x)<br />                  (setq pts (xdrx-getsamplept x #xd-var-global-divide))<br />                  (xdrx-polyline-make pts)<br />                  (if (equal (car pts) (last pts) 1e-6)<br />                    (xdrx-curve-setclosed (entlast) t)<br />                  )<br />                )<br />               (xdrx-pickset->ents ss)<br />       )<br />     )<br />   )<br />   (princ)<br /> )<br /> <br />

xk15c

学习了，谢谢分享