等分选中的直线或者多段线直线段

marting

1. (defun c:xdtb_divln (/ e pt pts v)
   
2.   (if
   
3.     (and (setq e (xdrx-entsel
   
4.                    "\n拾取直线或多段线直线段<退出>:"
   
5.                    '((0 . "line,*polyline"))
   
6.                  )
   
7.          )
   
8.          (setq pt (cadr e)
   
9.                e  (car e)
   
10.          )
    
11.          (cond
    
12.            ((xdrx-object-iskindof e "*polyline")
    
13.             (if        (not (setq e (xdrx-getpropertyvalue e "LineSegAt" pt)))
    
14.               (progn
    
15.                 (xdrx-prompt "\n没有选中直线段.")
    
16. 
    
17.               )
    
18.             )
    
19.             e
    
20.            )
    
21.            (t e)
    
22.          )
    
23.          (setq div (getint "\n输入等分数<退出>:"))
    
24.     )
    
25.      (progn
    
26.        (xdrx-begin)
    
27.        (setq pts (xdrx-getpropertyvalue e "divide" div)
    
28.              v         (xdrx-vector-normalize (mapcar '- (last pts) (car pts)))
    
29.              v         (xdrx-vector-perpvector v)
    
30.        )
    
31.        (mapcar '(lambda        (x)
    
32.                   (xdrx-xline-make x (mapcar '+ x v))
    
33.                   (xdrx-setpropertyvalue (entlast) "color" 252 "layer" "0")
    
34.                 )
    
35.                (cdr (xd::list:removetail pts))
    
36.        )
    
37.        (xdrx-free e)
    
38.        (xdrx-end)
    
39.      )
    
40.   )
    
41.   (princ)
    
42. )
    
43. 
    

(defun c:xdtb_divln (/ e pt pts v)<br />   (if<br />     (and (setq e (xdrx-entsel<br />                    "\n拾取直线或多段线直线段<退出>:"<br />                    '((0 . "line,*polyline"))<br />                  )<br />          )<br />          (setq pt (cadr e)<br />                e  (car e)<br />          )<br />          (cond<br />            ((xdrx-object-iskindof e "*polyline")<br />             (if        (not (setq e (xdrx-getpropertyvalue e "LineSegAt" pt)))<br />               (progn<br />                 (xdrx-prompt "\n没有选中直线段.")<br /> <br />               )<br />             )<br />             e<br />            )<br />            (t e)<br />          )<br />          (setq div (getint "\n输入等分数<退出>:"))<br />     )<br />      (progn<br />        (xdrx-begin)<br />        (setq pts (xdrx-getpropertyvalue e "divide" div)<br />              v         (xdrx-vector-normalize (mapcar '- (last pts) (car pts)))<br />              v         (xdrx-vector-perpvector v)<br />        )<br />        (mapcar '(lambda        (x)<br />                   (xdrx-xline-make x (mapcar '+ x v))<br />                   (xdrx-setpropertyvalue (entlast) "color" 252 "layer" "0")<br />                 )<br />                (cdr (xd::list:removetail pts))<br />        )<br />        (xdrx-free e)<br />        (xdrx-end)<br />      )<br />   )<br />   (princ)<br /> )<br /> <br />

lxs.cmy

谢谢分享。。。。。

chaozi5756

能按照长度等分么？或者按照长度加点，比如我想把一段圆弧变成直线，每隔一米加一个点。

yuren008

做个对论坛有益的人。

marting

chaozi5756 发表于 2021-1-9 08:31
能按照长度等分么？或者按照长度加点，比如我想把一段圆弧变成直线，每隔一米加一个点。

可以去编程申请论坛，贴图详细说明下

aisong220