detect non orthgraphic lines

[samifox]

hi

 

i need a script to detect non orthgraphic lines |(lines that are not drawen with Ortho on) and a script that make them orthgraphic ...is there  such of thing?

 

thanks

s

[dlanorh]

If the line is non orthgraphic, which end gets moved?

[Roy_043]

... And what should happen to elements that connect to a point that is moved?

[samifox]

1 hour ago, Roy_043 said:

... And what should happen to elements that connect to a point that is moved?

MOVE AS WALL

 

[devitg]

Please upload a sample.dwg

[CadJunky]

(defun c:checklines (/ ss)
(vl-load-com)
(setq ss (ssget "X"))(command ".change" ss "" "p" "color" "8" "")
 (if (setq ss (ssget "X" '((0 . "LINE"))))
  (foreach e (mapcar (function vlax-ename->vla-object)
                     (vl-remove-if (function listp) (mapcar (function cadr) (ssnamex ss)))
             ) ;_  mapcar
   (if (not (vl-some (function equal) (vlax-curve-getFirstDeriv e 0.) '(0. 0.) '(1e-8 1e-8)))
    (vla-put-Color e 241)
   ) ;_  if
  ) ;_  foreach
  ;(command "draworder" e "" "front")
 ) ;_  if
 (princ)
)

Something like this?

 

[samifox]

21 minutes ago, CadJunky said:

(defun c:checklines (/ ss)
(vl-load-com)
(setq ss (ssget "X"))(command ".change" ss "" "p" "color" "8" "")
 (if (setq ss (ssget "X" '((0 . "LINE"))))
  (foreach e (mapcar (function vlax-ename->vla-object)
                     (vl-remove-if (function listp) (mapcar (function cadr) (ssnamex ss)))
             ) ;_  mapcar
   (if (not (vl-some (function equal) (vlax-curve-getFirstDeriv e 0.) '(0. 0.) '(1e-8 1e-8)))
    (vla-put-Color e 241)
   ) ;_  if
  ) ;_  foreach
  ;(command "draworder" e "" "front")
 ) ;_  if
 (princ)
)

Something like this?

 

thats a great start...what about fixing them?

[CadJunky]

Well that's a tough sell. As dlanorh eluded to, which end of the lines do you change to make it orthographic? I use this routine only to show which lines are NOT orthographic and then it's up to the user to selectively make the change manually. I hope this helps..

 

 

[devitg]

On 12/12/2019 at 5:26 PM, samifox said:

thats a great start...what about fixing them?

What about if you Please upload a sample.dwg, and show the before and after.

And explain neatly what do you want to do??

 

Or MOVE AS WALL : what do it mean ???