Nested Rectangle block corner points coordinates

[Jonathan Handojo]

34 minutes ago, BIGAL said:

"please give me codes." Sometimes if you keep adding then you may have to pay for service.

 

I was kinda thinking about that too. Partly the reason I wasn't participating in the first place.

 

@Praveen p, things don't just come for free. Learn for yourself and understand how AutoLISP works first before giving us orders. If you actually know how to do a few things for yourself, you might actually get what you're after before even posting here. If you're really stuck, only then seek for help. From what I've seen, it doesn't seem like you're putting effort into what you actually want to achieve and just "want codes for free"... Did you already try what @hanhphuc suggested...

 

7 hours ago, hanhphuc said:

as i already mentioned :
STRCAT

have you tried it?

 

once you understand the usage of the function, then you won't ask for help for the next 3rd , 4th etc. different block anymore ..

learning is the key!!

 

If you really want codes written specifically for you "in one program", feel free to hire someone to do it for you.

[Jonathan Handojo]

13 hours ago, hanhphuc said:

 

perhaps something LM:alpha++  ?

(LM:alpha++ "AZ") ; BA

(LM:num->col 1); A
(LM:num->col 26); Z
(LM:num->col 27); AA

 

 

Well, that would fail if the number is too big... It's not practical, will most likely never get there but who knows.

 

(LM:num->col 44781359266574102) where then the number is considered a real.

;; Number to Column  -  Lee Mac
;; Converts an integer into a column reference, e.g. 27 -> AA
;; n - [int] positive non-zero integer

(defun LM:num->col ( n )
    (if (< n 27)
        (chr (fix (+ 64 n)))	; <--- Just a slight touch there
        (strcat (LM:num->col (/ (1- n) 26)) (LM:num->col (1+ (rem (1- n) 26))))
    )
)

 

Edited May 3, 2020 by Jonathan Handojo

[hanhphuc]

7 hours ago, BIGAL said:

"please give me codes." Sometimes if you keep adding then you may have to pay for service.

 

6 hours ago, Jonathan Handojo said:

If you really want codes written specifically for you "in one program", feel free to hire someone to do it for you.

 

 

4 hours ago, Jonathan Handojo said:

 

Well, that would fail if the number is too big... It's not practical, will most likely never get there but who knows.

IMO In most cases indexing never hits that big number

eg: a worker manually 1"sec per point non stop, 60" x 60' x 8Hr = 28,800 points/day. ie: 1 year about 10mil points, the dwg also gets bloated 

 

4 hours ago, Jonathan Handojo said:

(LM:num->col 44781359266574102) where then the number is considered a real.

 

 

nice! a REAL 44781359266574102 

(LM:NUM->COL 44781359266574102)

  1
 LM:NUM->COL
 -> (LM:NUM->COL
 44781359266574102
)
    2
 LM:NUM->COL
 -> (LM:NUM->COL
 1722359971791311
)
      3
 LM:NUM->COL
 -> (LM:NUM->COL
 66244614299665
)
        4
 LM:NUM->COL
 -> (LM:NUM->COL
 2547869780756
)
          5
 LM:NUM->COL
 -> (LM:NUM->COL
 97994991567
)
            6
 LM:NUM->COL
 -> (LM:NUM->COL
 3769038137
)
              7
 LM:NUM->COL
 -> (LM:NUM->COL
 144963005
)
                8
 LM:NUM->COL
 -> (LM:NUM->COL
 5575500
)
                  9
 LM:NUM->COL
 -> (LM:NUM->COL
 214442
)
                    10
 LM:NUM->COL
 -> (LM:NUM->COL
 8247
)
                      11
 LM:NUM->COL
 -> (LM:NUM->COL
 317
)
                        12
 LM:NUM->COL
 -> (LM:NUM->COL
 12
)
                        12
 LM:NUM->COL
 <- "L"
                        12
 LM:NUM->COL
 -> (LM:NUM->COL
 5
)
                        12
 LM:NUM->COL
 <- "E"
                      11
 LM:NUM->COL
 <- "LE"
                      11
 LM:NUM->COL
 -> (LM:NUM->COL
 5
)
                      11
 LM:NUM->COL
 <- "E"
                    10
 LM:NUM->COL
 <- "LEE"
                    10
 LM:NUM->COL
 -> (LM:NUM->COL
 20
)
                    10
 LM:NUM->COL
 <- "T"
                  9
 LM:NUM->COL
 <- "LEET"
                  9
 LM:NUM->COL
 -> (LM:NUM->COL
 8
)
                  9
 LM:NUM->COL
 <- "H"
                8
 LM:NUM->COL
 <- "LEETH"
                8
 LM:NUM->COL
 -> (LM:NUM->COL
 5
)
                8
 LM:NUM->COL
 <- "E"
              7
 LM:NUM->COL
 <- "LEETHE"
              7
 LM:NUM->COL
 -> (LM:NUM->COL
 7
)
              7
 LM:NUM->COL
 <- "G"
            6
 LM:NUM->COL
 <- "LEETHEG"
            6
 LM:NUM->COL
 -> (LM:NUM->COL
 5
)
            6
 LM:NUM->COL
 <- "E"
          5
 LM:NUM->COL
 <- "LEETHEGE"
          5
 LM:NUM->COL
 -> (LM:NUM->COL
 14
)
          5
 LM:NUM->COL
 <- "N"
        4
 LM:NUM->COL
 <- "LEETHEGEN"
        4
 LM:NUM->COL
 -> (LM:NUM->COL
 9
)
        4
 LM:NUM->COL
 <- "I"
      3
 LM:NUM->COL
 <- "LEETHEGENI"
      3
 LM:NUM->COL
 -> (LM:NUM->COL
 21
)
      3
 LM:NUM->COL
 <- "U"
    2
 LM:NUM->COL
 <- "LEETHEGENIU"
    2
 LM:NUM->COL
 -> (LM:NUM->COL
 19
)
    2
 LM:NUM->COL
 <- "S"
  1
 LM:NUM->COL
 <- "LEETHEGENIUS"
"LEETHEGENIUS"