topic Re: divide with block in Visual LISP, AutoLISP and General Customization Forum

divide with block

shefipmoosa — Mon, 17 Aug 2020 13:03:21 GMT

iam using below mentioned code for divide option.but iam getting the point style only. I need to place "selected block" instead of point style.

(defun c:div () (setq val (getint " no of POINTS")) (setq val (* 2 val)) (command "divide" pause val) (setq ss (ssget "p")) (setq co 1) (setq len (sslength ss)) (repeat len (setq en (ssname ss co)) (setq det (entget en)) (entdel en) (setq co (+ co 2)) ) )

Re: divide with block

3wood — Sun, 16 Aug 2020 20:44:36 GMT

There is a Block option in DIVIDE command. No need lisp.

Re: divide with block

dlanorh — Sun, 16 Aug 2020 20:44:56 GMT

@shefipmoosa wrote:
iam using below mentioned code for divide option.but iam getting the point style only. I need to place "selected block" instead of point style.
(defun c:div ()
(setq val (getint " no of POINTS"))
(setq val (* 2 val))
(command "divide" pause val)
(setq ss (ssget "p"))
(setq co 1)
(setq len (sslength ss))
(repeat len
    (setq en (ssname ss co))
    (setq det (entget en))
    (entdel en)
    (setq co (+ co 2))
)
)

You are not telling it to divide with a block

replace

(command "divide" pause val)

with

(command "divide" pause "_B" "xxx" ("_Y" or "_N") val) replace "xxx" with the name of the block you want to divide the line with delete "_Y" or "_N" depending on whether you want to align the blocks "_Y" or not "_N"

I'm not sure what the rest of you code is trying to do

Re: divide with block

shefipmoosa — Tue, 18 Aug 2020 07:39:32 GMT

autocad divide option are different,This code iam using for placing no.of lights.( if 3 lights lighting placement methord is starting point point to x, next two point are 2x ,and 3rd to end x ) this code already customized as per this requirement. but I gave number of point its coming to point style, I need to add selected block / block name instead of point style.

Re: divide with block

Kent1Cooper — Tue, 18 Aug 2020 11:54:04 GMT

@shefipmoosa wrote:

.... if 3 lights lighting placement methord is starting point point to x, next two point are 2x ,and 3rd to end x .....

You can use the DIV+ command in DivideMeasurePlus.lsp, available >here<. One of its many enhancements over ordinary DIVIDE is that it has an option to place the markers [with Blocks as one of the options] at the midpoints of the divided segments, rather than at the dividing points. You would use the Block option and use that midpoints option with 3 as the number of divisions.

Re: divide with block

Sea-Haven — Tue, 18 Aug 2020 23:56:59 GMT

Sounds like a custom divide take length divide by a spacing, then start 1st block at a distance from start end is same distance. Plenty of code examples provide the required spacing.

Re: divide with block

Kent1Cooper — Wed, 19 Aug 2020 13:26:34 GMT

@Sea-Haven wrote:

... take length divide by a spacing, then start 1st block at a distance from start end is same distance. ....

If I understood the OP's description correctly, this is what they're really looking for:

DIV+ will do that. Here's the command sequence that did the above [dark blue are typed-in entries]:

Command: DIV+

Divide with Points/Blocks/Lines/Selection ? <P>: S
For Selection set with which to Divide,
Select objects: {select the Circle, which can be anywhere} 1 found

Select objects: {Enter to complete selection}
Base point in relation to Selection: CEN of {pick on the Circle to get its center}
Selection rotation, or Aligned with path or Relative angle to path [angle/A/R] <A>: {enter to accept default -- doesn't matter in this case}

Enter number of Segments, or M for Maximum spacing <M>: 3

Place Selection at division points (Standard) or at Midpoints of divisions [S/M]? <S>: M

Select object to Divide: {select the Line}

Select object to Divide: {enter to end command}

Re: divide with block

Kent1Cooper — Wed, 19 Aug 2020 13:35:24 GMT

... and note that in line with the original request, DIV+ offers a Blocks option, also, and if that is chosen, the rotation [which doesn't matter for a Circle] has several options [more than regular Divide offers].

Re: divide with block

Sea-Haven — Thu, 20 Aug 2020 00:33:55 GMT

Your right just need the poster now to respond its nice to know if it matched their needs.

Re: divide with block

shefipmoosa — Tue, 25 Aug 2020 14:03:04 GMT

GREAT SIR, THANKS