更改线条角度

jammie · 发表于 2022-7-5 17:36:13

没有经过严格测试，但有一种替代方法

(defun c:anglefix (/ object lineAngle tmpPoint)
 (setq object (vlax-ename->vla-object (car (entsel))))
 (setq lineAngle
 (angle
   (vlax-curve-getFirstDeriv object 0.0)
   '(0 0 0)
   )
     )
 (if
   (and
     (> lineAngle (* pi 0.5))
     (< lineAngle (* pi 1.5))
     )
   (progn
     (setq tmpPoint (vla-get-StartPoint object))
     (vla-put-StartPoint object (vla-get-EndPoint object))
     (vla-put-EndPoint object tmpPoint)
     )
   )
    )

Lee Mac · 发表于 2022-7-5 17:39:16

我建议如下：
[code]（defunc:fliplines（/ang i p q s x）（setqang（eval（list'lambda'（a b）（list'rem'list+[]-[COLO（list（if（zerop（getvar'angdir））“+'-（角度a b）（getvar'angbase）））)（+pipi））（if（setqs（ssget“_X”'（（0。“LINE”）））（重复[setqi（sslengths））（setqx（entget（ssnames（setqi（1-i）））p（assoc10 x）q（assoc11 x））（[color=BLUE if[