Search the Community

Hello All, I am trying to remove one table from my drawings. Please take a look at the attached sample dwg. I have over 8000 drawings to modify. All drawings contains 3 tables as shown in sample drawing. I want to erase table 3. The location of the table 3 can be anywhere in with in outside border. tried many things. but no luck so far. right now i have an autolisp that works fine if i run it in one drawing. but it doesn't work while running thru script. (defun c:abcd() (setq ss1 (ssget)) (command "erase" "p" "" ) (command "zoom" "e" "") (command "qsave") (princ) ) i have a scrip that loads the autolisp containing the above code. any help would be really appreciated. TEST DWG.dwg

Dear all Well Wishers, Please provide a code for Exporting X coordinates only to Notepad with space separator or comma separator only. and i need Exporting Y coordinates only to Notepad with space separator for selected objects. sorry for my poor English.so kindly suggest and provide Auto lisp as soon as possible. example of X coordinates in note pad is= 0 2 3.5 6 8.2 10 13 14 17 example of Y coordinates in note pad is= 0 1.5 3.2 4 6.3 9 12.5 19 thank you for Supporting.

I have forgotten the syntax to query a setq statement at the command line in autocad. I used to type a setq PT1 at the command line and the value was returned. But I cannot remember the trick to doing this. Can anyone help. Thanks

Hi, brand new to this site and my very first thread! I am trying to write a LISP routine and basically have no experience with it except for opening them up and trying to decode it for my self. I am going over lisp basics right now but thought I would through this out there in hopes of learning something from you fine folks. What I need to do is draw a series of circles and rectangles and label them from values in a .CSV file. As I mentioned I am going over the basics and am having trouble keeping my head above water, so be kind please. Thanks in advance, CADINATOR

A company in Iran employs people with Visual Lisp (Auto Lisp) programming knowledge and abilities. The advantages of this job depends on employee qualifications. Qualified persons please reply to this thread to receive more information. Thanks. Mohammad

Hi, Guys i have 4 views in a drawing, (view the screen shot below) i have to plot these 4 views into a pdf document, (each view into a seperate page in the PDF ) now imagine me doing this for 40+ drawings files, in which each of the drawing file also has 4 or more views (this process is really frusturating ) I know about the layout setting method,(Setting up layouts for 40x4views is hard ) I tried a work around of plotting the full view of the 4 documents into A0 PDF, and then cropping and splitting the PDF pages, (This is also hard ) any ideas, methods or software recommendations are appreciated,

Hi all, I'm using a datalink table insertion utility tbl.lsp from Juan Villareal. It allows me to insert the table for the first time in the drawing without any issues. But when I want to insert the table (different table though) for the second time in the same drawing, AutoCAD crashes giving me unhandled exception error. Few questions related to this, 1) Can the tbl.lsp be fixed (if there is any error) 2) Is there a better known utility that I should be using instead of tbl.lsp (with all due respect to J.Villareal for his great lisp) Please suggest. Thanks all Tbl.lsp

I have few .arx applications for AutoCAD. In these applications few are menu based and others are command line. Now what I am trying to do is, Load the .arx app, run it and then unload it once the .arx application runs through a LISP command. .arx applications run once the user clicks on the tabs that are provided. .arx applications are written in VC++. Now I have a lisp file, which gets loaded once the user starts AutoCAD. In the lisp files I have declared these functions for various .arx applications; (defun c:XYZ_program() (command) (command) (arxload "C:/ABC/XYZ.arx") (command "XYZ_program") (arxunload "XYZ.arx") ) It works fine for Programs which need input data from Menu based forms, but says error unloading xyz.arx for programs which need command line input. I was wondering if there were any commands in LISP that will make sure arxunload "XYZ.arx" will execute only once (command "XYZ_program") is executed. I am not sure on how to approach this problem. Any help with the same would be greatly appreciated. I have also discussed this question with others in the following link, but did not find much of help. http://stackoverflow.com/questions/17602443/loading-and-unloading-the-arx-file-with-lisp You can have a look at it, just to gather some information, in which direction were we heading.

Hi all, I want search a string in list using lisp can any body help me. ex (setq a (list "1" "2" "3")) now i want to search "2" in a list. thank you

I made a very simple lisp to draw a line according to a requested slope ratio like 1:4, 1:10 ect it works fine for "normal" angles, but when it comes to ratio like 1:60 or 1:0.001 the result is inconsistent... I mean sometimes it will be displayed fine, or on the x axis (ie with no inclination at all) or will draw only a point with no length or will snap to another line (sitting very close) And all of that even if the values for the end point are correctly computed... Something else, if I draw a very long line like (1700 m) then it's always displayed correctly... If someone has an idea/ explanation I'll be very thankfull here is the code (defun C:slp( / refpt dirpt x_ratio seglen xref yref dirangle reqangle xend yend) (setq refpt (getpoint "\nPick a reference point")) (setq dirpt (getpoint "\nPick a direction point")) (setq x_ratio (getreal "\nSlope ratio 1:")) (setq seglen (distance refpt dirpt)) (setq xref (car refpt)) (setq yref (car (cdr refpt))) ;zref=0 (setq dirangle (angle refpt dirpt)) (setq reqangle (atan 1 x_ratio)) (princ (strcat "\ndirection angle: " (rtos dirangle) " requested angle: " (rtos reqangle))) (cond ( (and (> dirangle 0) (< dirangle (/ pi 2))) (setq xend (+ xref (* seglen (cos reqangle)))) (setq yend (+ yref (* seglen (sin reqangle)))) (setq endpt (list xend yend 0.00)) (command "pline" refpt endpt "") ) ( (and (> dirangle (/ pi 2)) (< dirangle pi)) (setq xend (- xref (* seglen (cos reqangle)))) (setq yend (+ yref (* seglen (sin reqangle)))) (setq endpt (list xend yend 0.00)) (command "pline" refpt endpt "") ) ( (and (> dirangle pi) (< dirangle (/ (* pi 3) 2))) (setq xend (- xref (* seglen (cos reqangle)))) (setq yend (- yref (* seglen (sin reqangle)))) (setq endpt (list xend yend 0.00)) (command "pline" refpt endpt "") ) ( (and (> dirangle (/ (* pi 3) 2)) (< (* pi 2))) (setq xend (+ xref (* seglen (cos reqangle)))) (setq yend (- yref (* seglen (sin reqangle)))) (setq endpt (list xend yend 0.00)) (command "pline" refpt endpt "") ) ) ) Thank you all

Hello friends, how is it possible to make a shortcut by AutoLISP programming. I mean creating a file with .lnk extension which refers to an executeable file in Windows.