延长线

xj6019

(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

出现：“”VVC: Internal Error“”

zixuan203344

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

xj6019

zixuan203344 发表于 2022-5-26 08:23
你这跟EX，空格两下，选中左侧的线，自动延长，有啥区别？

毫无区别，意义不大，纯属瞎捣鼓着玩

willing0

哈哈哈哈哈哈哈哈

999999

顶一下