社区 › 源码共享 › 延长线

xj6019 发表于 2022-5-25 13:55:50

延长线

(defun C:NM (/ lst s1 ss)
        (setq ss(ssget ":S" (list '(0 . "*LINE"))))
        (setq lst(vl-remove-if-not '(lambda(x)(= 'ENAME (type x))) (mapcar 'cadr (ssnamex SS))))
        (setq lst (vl-sort lst(function
                                                                                                        (lambda (x1 x2)
                                                                                                                (>(vlax-curve-getDistAtParam   x1 (vlax-curve-getEndParam x1))(vlax-curve-getDistAtParam x2 (vlax-curve-getEndParam x2)))
                                                                                                        )
                                                                                                )
                                                )
        )
        (setq s1(car lst))
        (mapcar '(lambda (x)
                                               (command "extend" s1 "" (list x(vlax-curve-getStartPoint (vlax-ename->vla-object x))) "")
                                               (command "extend" s1 "" (list x(vlax-curve-getendPoint (vlax-ename->vla-object x))) "")
                                       )
                (cdr lst)
        )
        (princ)
)

bai2000 发表于 2022-5-25 19:41:41

出现：“”VVC: Internal Error“”

zixuan203344 发表于 2022-5-26 08:23:32

你这跟EX，空格两下，选中左侧的线，自动延长，有啥区别？

xj6019 发表于 2022-5-26 09:07:17

zixuan203344 发表于 2022-5-26 08:23
你这跟EX，空格两下，选中左侧的线，自动延长，有啥区别？
:lol毫无区别，意义不大，纯属瞎捣鼓着玩

willing0 发表于 2022-6-7 18:11:15

哈哈哈哈哈哈哈哈

999999 发表于 2022-6-17 22:36:30

顶一下

查看完整版本: 延长线