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

marting · 发表于 2021-1-9 04:07:29

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

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

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

lxs.cmy · 发表于 2021-1-9 08:24:25

谢谢分享。。。。。

chaozi5756 · 发表于 2021-1-9 08:31:58

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

yuren008 · 发表于 2021-1-9 10:21:37

做个对论坛有益的人。

marting · 发表于 2021-1-9 15:19:19

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

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

aisong220 · 发表于 2021-1-11 08:25:41

ilovem · 发表于 2023-4-27 09:41:40

谢谢楼主的分享。

huisguiji · 发表于 2023-5-3 09:47:16

谢谢楼主的分享，

账号		自动登录	找回密码
密码			立即注册

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

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。