TheSwamp

Code Red => AutoLISP (Vanilla / Visual) => Topic started by: Andrea on January 26, 2009, 03:37:35 PM

Title: DHline v.1.0 !! ;-)
Post by: Andrea on January 26, 2009, 03:37:35 PM

tired to trim and cut or erase some line....!!??

there it is..

D H L I N E
Dynamic Hidden Line v.1.0

You can now draw any line without specifying level.
DHLINE auto-detect the entity made on same layer. but you can
filter entity as your need.

Use Shift Key to switch the hidden Line steps.

ENJOY !   :roll:

Title: Re: DHline v.1.0 !! ;-)
Post by: DEVITG on January 26, 2009, 07:05:42 PM

Hi Andrea , I do a burning test to the DHLINE , I got some error .

I made it all in one command

And I can not end drawing line , I had to ESCAPE.
 

See attached the dwg and the text screen shoot

Title: Re: DHline v.1.0 !! ;-)
Post by: Andrea on January 26, 2009, 11:21:17 PM

well....you'r right...

sorry..

it seem that it don't like closed entity.. :|
let me see if i can do something...
 :pissed:

Title: Re: DHline v.1.0 !! ;-)
Post by: DEVITG on January 27, 2009, 03:06:26 AM

Hi Andrea , I did  it so because it was the easiest way , to draw a rectangle .
I  try it with open poly,   lines, circle, and still send a error message when want to exit , it can be only do by Esc.

It make the hidden lines good.




 

Title: Re: DHline v.1.0 !! ;-)
Post by: GDF on January 27, 2009, 09:51:40 AM

Pretty slick...keep up the good work and thanks for sharing.

Title: Re: DHline v.1.0 !! ;-)
Post by: Andrea on January 27, 2009, 12:35:34 PM

ok....
I have found 2 min. to fix that...yeah ! :evil:
it is now fixed. !

D H L I N E
Dynamic Hidden Line v.1.1

but....I've found strange reaction for closed Polyline..
(see animated GIF below)

don't know realy why... :|
if someone can explain that..i'm curious to know..

Thanks again !

Title: Re: DHline v.1.0 !! ;-)
Post by: ronjonp on January 27, 2009, 12:54:21 PM

Maybe try sorting your intersection points from the distance closest to the picked point?

*after actually trying the routine I get this:  Application ERROR: Invalid type sent as command input

and cannot exit without using ESC....and does not draw in dashed lines.

Title: Re: DHline v.1.0 !! ;-)
Post by: Andrea on January 27, 2009, 02:27:31 PM

Quote from: ronjonp on January 27, 2009, 12:54:21 PM

Maybe try sorting your intersection points from the distance closest to the picked point?

that what i did.. :?


the code work with "ACAD_ISO03W100" linetype..
not autoloaded...

I've add this code to load it as default..(see version 1.2)
but you can change for your need...

Code: [Select]

(if (eq (getvar "measurement") 0)
  (setq Linf (findfile "acad.lin"))
  (setq Linf (findfile "acadiso.lin"))
)

(if Linf 
(if (not (member "ACAD_ISO03W100" (mapcar 'strcase (ai_table "LTYPE" 4))))
  (vl-cmdf "._Linetype" "_L" "ACAD_ISO03W100" Linf "") 
)
)

Title: Re: DHline v.1.0 !! ;-)
Post by: Andrea on January 27, 2009, 09:18:37 PM

There it is.....

D H L I N E
Dynamic Hidden Line v.1.3

some FIX:
- RightClick allow to stop the routine.
- Cancel improved
- Some Variables verifications

I've made many tests before posting..
Please let me know if it work !
thanks.

Title: Re: DHline v.1.0 !! ;-)
Post by: ronjonp on January 27, 2009, 10:32:44 PM

Quote from: Andrea on January 27, 2009, 09:18:37 PM

There it is.....

D H L I N E
Dynamic Hidden Line v.1.3

...

I've made many tests before posting..

...

Excellent!  :roll: