Is there any lisp command with the help of which we can write the area of a room by just picking the coordinates or diagonally picking the corners of the room and the area is written in the room itself

Hello,

We have an ongoing project that does what you say. I’m using .NET and C# for this project. I’m noting your comment. Keep reading us. Me or Mr.Kocyigit will try to publish such an utilty.

Mr Toker,

I red this lesson with interest. But it is not exactly what I am looking for. I am a surveyour in Canada and I make technical description (in french); I would like to know how do I put under or above a line in drawing the distance and azimuth that appear at prompt when using the distance command. Is that routine exist or do I have to write it. Unfortunalety I am not familiar with Lisp. Thank you very much. Yves Sice

how rea ascii file or text file then print in the darwing autodesk map2004?

I want to ask for user inputs in AutoCAD by either enter a distance or picking two points.

I know how to do both methods but I don’t know how to put them in the same command

Ask for distance:
(SETQ dis (GETREAL “\nEnter width of parking space:”))

Two points:
(SETQ PT1 (GETPOINT “\nGet First Point”))
(SETQ PT2 (GETPOINT “\nGet Next Point”))
(setq dis (distance pt1 pt2))

I think you mean
(setq dis (getdist (getpoint “\nSpecify first point:”) “\nSecond point:”))

hi.. i have other methode to draw many entiers from excel….easy & good..

Hello Orhan,
Can you please explain to me why I am unable to to assign a \ (backslash) in a SETQ? Is there a way? I have tried to set the code below but I keep on getting an error.

(Setq X “S:\Transfer\Templates\x.dwg”)

Thanks,

Hugo

Hello Hugo,

You should use double ‘\\’ or ‘/’ for directory separator.

Regards

e.g.
(Setq X “S:\\Transfer\\Templates\\x.dwg”)
(Setq X “S:/Transfer/Templates/x.dwg”)

Hello,

Please tell me if it is possible to input the input by way of Excel sheet Or Word into the autolisp?

Best regards

Anil

(vl-load-com)

;;;— Main function

(defun getCells    (listOfCells fileName     sheetName   /
newCellList cellList     myApp         sysDrive
myWBooks    myWBook     sht         mySheets
sheetList   cnt     shtName     mySht
mySheet     myAddress     myCells
)

;;;— Check for valid cells and split them into separate list < (col row) >

;;;— Create an empty list to hold the cell data
(setq newCellList (list))

;;;— Cycle through each cell location
(foreach a listOfCells

;;;— Set up a counter
(setq cnt 1)

;;;— Get the first character of the cell location
(setq chk (substr a cnt 1))

;;;— While the character is a letter in the alphabet
(while (and (> (ascii chk) 64) (< (ascii chk) 123))

;;;— Increment the counter to get the next character
(setq cnt (+ cnt 1))

;;;— Get the next character
(setq chk (substr a cnt 1))
)

;;;— If the cnt is greater than the length of the cell’s address then
;;;    there must not be a number in the address.  Make sure the address
;;;    had a number in it…
(if    (<= cnt (strlen a))
(progn

;;;— Save the col which should be a letter
(setq col (substr a 1 (- cnt 1)))

;;;— Save the row which should be a number represented as a string
(setq row (substr a cnt))

;;;— Convert the string to a number and make sure it is valid…
(if (> (atoi row) 0)

;;;— If it is valid then add the col and row as a list to the newcell list
(setq newCellList (append newCellList (list (list col row))))

;;;— Else alert the user that the cell’s address is bad
(alert
(strcat “Invalid cell number – ” a ” will be skipped.”)
)
)
)

;;;— Else there must not be a number in the address…alert the user
(alert
(strcat “Invalid cell number – ” a ” will be skipped.”)
)
)
)

;;;— Make sure a valid cell list was created
(if newCellList
(progn

;;;— Make sure the XL file exist
(if (findfile fileName)
(progn

;;;— Get the system drive <We will need this to locate the EXCEL OBJECT LIBRARY>
(setq sysDrive (getenv “systemdrive”))

;;;— If the excel object library is not found…load it
(if (null Library)
(progn

;;;— Find out which version we should use by looking in the default install locations
;;;    for EXCEL’s Object Library.  If it is not found you may need to add the path to
;;;    your location for the excel object library.
(setq Library
(cond
((findfile
(strcat
sysDrive
“\\Program Files\\Microsoft Office\\Office\\Excel8.olb”
)
)
)
((findfile
(strcat
sysDrive
“\\Program Files\\Microsoft Office\\Office\\Excel9.olb”
)
)
)
((findfile
(strcat
sysDrive
“\\Program Files\\Microsoft Office\\Office\\Excel10.olb”
)
)
)
((findfile
(strcat
sysDrive
“\\Program Files\\Microsoft Office\\Office\\Excel.exe”
)
)
)
((findfile
(strcat
sysDrive
“\\Program Files\\Microsoft Office\\Office10\\Excel.exe”
)
)
)
((findfile
(strcat
sysDrive
“\\Program Files\\Microsoft Office\\Office11\\Excel.exe”
)
)
)
((findfile
(strcat
sysDrive
“\\Program Files\\Microsoft Office\\Office11\\XL5EN32.OLB”
)
)
)
)
)

;;;— If the library was found…
(if Library
(progn

;;;— Import the library…
(vlax-import-type-library
:tlb-filename      Library
:methods-prefix    “JXCL-”
:properties-prefix “JXCL-”
:constants-prefix  “JXCL-”
)
)

;;;— Else alert the user of failure…
(alert “Excel Object Library was not found!”)
)
)
)

;;;— If an excel application is not loaded, proceed…
(if (null myApp)
(progn

;;;— If Excel executes correctly…
(if (setq    myapp
(vlax-get-or-create-object “Excel.Application”)
)
(progn

;;;— Open the workbook
(vlax-invoke-method
(vlax-get-property myapp ‘WorkBooks)
‘Open
fileName
)

;;;— Set it to invisible mode
(vla-put-visible myApp 0)

;;;— Get the workbooks object
(setq myWBooks (vlax-get myApp “Workbooks”))

;;;— Open the excel file
(setq myWBook (vla-open myWBooks fileName))

;;;;— Get the sheets object
(setq mySheets (vlax-get myWBook “Sheets”))

;;;— Get a list of the sheet names
(setq shtCnt (vla-get-count mySheets))
(setq sheetList (list))
(setq cnt 1)
(while (<= cnt shtCnt)
(setq sht (JXCL-get-item mySheets cnt))
(setq shtName (vla-get-name sht))
(setq sheetList (append sheetList
(list (strcase shtName))
)
)
(setq cnt (+ cnt 1))
)

;;;— Make sure the sheet name exist…
(if (member (strcase sheetName) sheetList)
(progn

;;;— Get the worksheet…
(setq mySht (vlax-get-property
mySheets
‘Item
sheetName
)
)

;;;— Make the selected worksheet active
(vlax-invoke-method mysht “Activate”)

;;;— Build an empty list to hold the values of the cells
(setq cellList (list))

;;;— Cycle through the list of cells
(foreach a newCellList

;;;— Get the col and row
(setq col (car a))
(setq row (cadr a))

;;;— Add the address and value to the cell list
(setq cellList
(append
cellList

;;;— Build a list containing the cell’s col:row and value
(list
(list

;;;— First add the col and row as a string
(strcat col row)

;;;— Next, Get the value of the cell
(vlax-variant-value
(JXCL-get-value
(vlax-variant-value
(JXCL-get-item
(JXCL-get-cells
(JXCL-get-ActiveSheet myApp)
)
(vlax-make-variant row)
(vlax-make-variant col)
)
)
)
)
)
)
)
)
)
)

;;;— Else the sheet name was not in the workbook…
(alert (strcat “The sheet – ”
sheetName
” could not be found!”
)
)
)

;;;— Shut Excel down
(cond
(
(not (vlax-object-released-p myApp))
(vlax-invoke-method myApp ‘QUIT)
(vlax-release-object myApp)
)
)
)
(alert “Could not start an EXCEL application! Aborting!”
)
)
)
(alert
“An Excel application must be open.  Close it and try again!”
)
)
)
(alert “Could not find the XL file name.”)
)
)
)
;;;— Finally, return the list containing the row,col and values of the cells
cellList
)

This function will help u import data from particular cells of an excel sheet that u mention.