Help With Logic Syntax

[CADdancer]

Hello AUGI Members,

I am trying to write some simple code and my mind went brain dead on me....!

I have a lisp routine that counts the number of instances of a specific block (MYblock). Once I have that count I want to do the following:

1) If the count is equal to and less than 9 do "X"
2) If the count is equal to and greater than 10 but less than 100 do "Y"
3) If the count is equal to and greater than 100 do "Z"


Any assistance would be appreciated.....!


Regards,
Vince

[alanjt]

(defun foo (c)
  (cond ((<= c 9) (alert "A"))
        ((< c 100) (alert "B"))
        ((>= c 100) (alert "C"))
  )
)

[CADdancer]

Alan,

Thank you for your response however, I am having difficulty getting it to work properly. Here is the segnemt of the code:

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun DSETCNO ()
  (setvar "cmdecho" 0)
  (SETQ BLOCKSET NIL)

   (setq blockset (ssget "X" (list (cons 2 "Cord-Dot*"))))

   (if (= blockset nil)(CIBN))
   (if (/= blockset nil)(CGBN))
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;
;;;;;ZERO INITIAL BLOCKS SO INPUT COORDINATE NUMBER
;;;;;
(defun CIBN ()
  (SETQ CON 1)

  (SETQ CNx (RTOS CON 2 0))

(foo)

    (setq CN (getstring (strcat "\n...Enter Coordinate ID Number..." "<" CNx2 ">")))
      (if (= CN "") (setq CN CNx2) (setq CN CN) )
        (setq CON CN)   

)


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;
;;;;;OBTAIN TOTAL FROM DRAWING
;;;;;
  (defun CGBN ()
 (setq total (sslength blockset))
 (setq CON (+ total 1))
 
    (SETQ CNx (RTOS CON 2 0))

(foo)

    (Princ "...\n")
    (setq CN (getstring (strcat "\n...Enter Coordinate ID Number..." "<" CNx2 ">")))
      (if (= CN "") (setq CN CNx2) (SETQ CN CN) )
        (setq CON CN)
 )

(defun foo (CON)
  (cond ((<= CON 9) (alert "A"))
        ((< CON 100) (alert "B"))
        ((>= CON 100) (alert "C"))
  )
)

[Opie]

Are you trying to evaluate a string to an integer? They are different.

[alanjt]

You have to evaluate the subroutine as such:

(foo 25)

25 being whatever number you choose.

[CADdancer]

What I am trying to do is basically simple.......count the number of block instances on a drawing and then based on that count add 1 or 2 zero's in front of the number:

For example....

1) If the count was equal to or less than 9................add two zero's = 009
2) If the count was greater than 9 but less than 100.....add one zero = 099
3) If the count was greater than 100..............leave the number as is = 100

This value will then be placed into an attribute block on the drawing.

[alanjt]

Here, use this (just convert the integer to a string first):

(defun AT:NumFix (s n)
  ;; Fix number string with leading zeros
  ;; s - Number string to fix
  ;; n - Number of characters for final string
  ;; Alan J. Thompson, 10.29.09
  (if (< (strlen s) n)
    (AT:NumFix (strcat "0" s) n)
    s
  )
)

Command: (at:numfix "3" 3)
"003"

Command: (at:numfix "3" 2)
"03"

Command: (at:numfix "3" 5)
"00003"