Topic: Create a Lisp help for Grading site plans

[Keith™]

you know what... I had completely forgotten about it...

Here is the anonymous part...

Code: [Select]


;|----------------------------------------------------------------------------

     ANON.LSP   Version 1.0

     Copyright (C) 2001-2004 by Keith Blackie

     THIS PROGRAM IS PROVIDED "AS IS" AND WITH ALL FAULTS.
     ANY AND ALL IMPLIED WARRANTY OF MERCHANTABILITY OR FITNESS FOR
     A PARTICULAR PURPOSE ARE HEREBY DISCLAIMED. THIS CODE IS NOT
     WARRANTED THAT THE OPERATION OF THE PROGRAM WILL BE UNINTERRUPTED
     OR ERROR FREE. YOU UTILIZE THIS CODE AT YOUR OWN RISK.

     Please visit us at http://www.resourcecad.com

|;

(defun C:ANON()
 (SETQ SSST (SSGET))
 (SETQ ST (GETPOINT "\nInsertion point: "))
 (ENTMAKE
   (LIST
     (CONS 0 "BLOCK")
     (CONS 2 "*U")
     (CONS 10 ST)
     (CONS 70 67)
   )
 )
 (SETQ NDX 0)
 (REPEAT (SSLENGTH SSST)
  (ENTMAKE
    (CDR (ENTGET (SSNAME SSST NDX)))
  )
  (SETQ NDX (+ 1 NDX))
 )
 (SETQ BKN(entmake (list (cons 0 "ENDBLK"))))
 (SETQ EEE
   (LIST
     (CONS 0 "INSERT")
     (CONS 2 BKN)
     (CONS 6 (GETVAR "CELTYPE"))
     (CONS 8 (GETVAR "CLAYER"))
     (CONS 66 0)
     (CONS 10 ST)
     (CONS 41 1)
     (CONS 42 1)
     (CONS 43 1)
     (CONS 50 (GETANGLE ST "\nRotation angle: "))
     (CONS 71 0)
     (CONS 44 0)
     (CONS 45 0)
   )
  )
 (ENTMAKE EEE
 )
 (COMMAND "_.ERASE" SSST "")
)
(PRINC)


I'll have to look and see if I can find the textbox portion.