What is the code to add for the INTERSECT snap & revert to previous when done?

[vernonlee]

What is the code that I can add to allow the snap to be automatically INT & revert back to previous snap profile?

 

This is a LISP concern. It is to break lines & it does so continuously breaking lines until the command is canceled.

 

Thanks

 

(defun c:BB ( / oldos ent1 p1)
 (setq oldos (getvar "osmode"))
 (while (setq ent1 (entsel "\nSelect object to break...    "))
        (initget 1)
        (setq p1 (getpoint "\nPoint at which to break...    "))
        (setvar "osmode" 0)
        (command "_.BREAK" ent1 "_f" p1 "@" "")
        (setvar "osmode" oldos))
 (princ "\nBreak at Done")
 (princ))

[BIGAL]

If you set via osnaps what you want then type osmode a number will appear that is current snap setting osmode 32 is INT

[vernonlee]

If you set via osnaps what you want then type osmode a number will appear that is current snap setting osmode 32 is INT

 

 

Ok. But Which part of the code do i insert in 32?

 

I tried

 

(defun c:BB ( / oldos ent1 p1)
 (setq oldos (getvar "osmode" [color=red][b]32[/b][/color]))
 (while (setq ent1 (entsel "\nSelect object to break...    "))
        (initget 1)
        (setq p1 (getpoint "\nPoint at which to break...    "))
        (setvar "osmode" 0)
        (command "_.BREAK" ent1 "_f" p1 "@" "")
        (setvar "osmode" oldos))
 (princ "\nBreak at Done")
 (princ))

 

But got this error

 

Command: bb ; error: too many arguments

 

I tried

 

(defun c:BB ( / oldos ent1 p1)
 (setq oldos (getvar "osmode"[color=red][/color]))
 (while (setq ent1 (entsel "\nSelect object to break...    "))
        (initget 1)
        (setq p1 (getpoint "\nPoint at which to break...    "))
        (setvar "osmode" [color=red][b]32[/b][/color])
        (command "_.BREAK" ent1 "_f" p1 "@" "")
        (setvar "osmode" oldos))
 (princ "\nBreak at Done")
 (princ))

 

The command can continue but INT snap do not appear.

[Tharwat]

Try this .

 

(defun c:bb (/ oldos ent1 p1)
 (setq oldos (getvar "osmode"))
 (setvar "osmode" 32)
 (while (and (setq ent1 (entsel "\nSelect object to break...    "))
             (not (initget 1))
             (setq p1 (getpoint "\nPoint at which to break...    "))
             )
   (command "_.BREAK" ent1 "_f" p1 "@" "")
   )
 (setvar "osmode" oldos)
 (princ "\nBreak at Done")
 (princ)
 )

[tombu]

As an alternative you could use the macro

*^C^C_break \_f _int \@ 

or

*^C^C_break \_f _appint \@ 

and use Esc when you're done.

[tombu]

Even better with

*^C^Cbreak _appint \@

all you need is a single pick on the line you want to break near an intersection.

[vernonlee]

Try this

[/code]

 

Thanks Tharwat. It worked.

[vernonlee]

Even better with

*^C^Cbreak _appint \@

all you need is a single pick on the line you want to break near an intersection.

 

Interesting. I did not think macro could do this. I would use it but when i tested it,carn't really explain it well, but on breaking multiple line seems not smooth, in particular selecting the line that was previously selected as a breaking line reference.

[BIGAL]

Vernonlee read the GET as a retrieve a value and the Set as to replace a value, look at Vlisp vla-get-layer, vla-put-layer

[Tharwat]

Thanks Tharwat. It worked.

 

You're welcome .