AutoCAD Visual LISP / AutoLISP :: Draw Rectangle Dimension?
Apr 17, 2013how I would go about writing a function that would calculate the length of a diagonal of a rectangle using SQRT function? I've been trying but so far nothing!
View 4 Replies
ADVERTISEMENT
AutoCAD Visual LISP / AutoLISP :: Continuous Dimension Lisp That Alternate Its Position
Jul 12, 2012Is there a lisp that will allow me to do a continuous dimension, but will alternate the dimension position from low, high, low and high? If there is no lisp already created, how to create one?
See Continuous dimension attachment for example.
I work at a glass and glazing company and this is how we dimension mullion width and DLO. See typical window dimensioning attachment for window elevation with dimensions.
AutoCAD Visual LISP / AutoLISP :: Drawing Rectangle Between Lines
Aug 9, 2013I need lisp that draws rectangle between two lines by window selection. As attached.
View 3 Replies View RelatedAutoCAD Visual LISP / AutoLISP :: Rectangle Co-ordinates Text
Nov 14, 2013When i click rectangle i need a text( vertex order ) but some distance form rectangle. Text must be inside the rectangle. but i don't want exact corner co-ordinates.
View 4 Replies View RelatedAutoCAD Visual LISP / AutoLISP :: Length / Width Output Of Rectangle
Nov 26, 2013I found a lisp in the net to create a rectangle by marking objects in a draw.
But it would nice to get at the end of the lisp after creating the rectangle a output in the command line about the length and with of the created rectangle.
who can add the code for the length/width output?
(defun C:wer (/ AUSWAHL INDEX ELEM XYMIN XYMAX MINX MAXX MINY MAXY DATA A) (vl-load-com) (if(and(or (and (setq AUSWAHL (ssget "I")) (> (sslength AUSWAHL) 0)) (and (setq AUSWAHL (ssget)) (> (sslength AUSWAHL) 0)) ) (or(setq A (getreal "
Randabstand <0> : ")) (setq A 0.0) ) ) (progn (setq INDEX -1) (repeat
[code]........
AutoCAD Visual LISP / AutoLISP :: Creating Solid Rectangle Shape File
Sep 8, 2011I want to create a custom linetype that uses a solid rectangle 0.5wide and 1.0 long. Basically I want to create a shape file from an existing block I have so that I can insert it into the linetype definition. Is there an easy way to do this in ACAD 2009?
View 8 Replies View RelatedAutoCAD Visual LISP / AutoLISP :: Smallest Rectangle Enclosing Selected Set Of Objects
Feb 27, 2013How can I draw a The smallest rectangle enclosing for a selected set of objects in current drawing?
View 9 Replies View RelatedAutoCAD Visual LISP / AutoLISP :: Overriding A Dimension Value?
Jun 11, 2002I am wondering how I can override a dimension value through AutoLISP. Is there a command line that I can use so that the pop up window won't show up?
View 7 Replies View RelatedAutoCAD Visual LISP / AutoLISP :: How To Draw Line In A Layer
Jun 5, 2013How do I select the layer in which I want to draw?
for example i draw two line and Each of them has to be in different layer.
How do I select the layer which I want to draw?
AutoCAD Visual LISP / AutoLISP :: Draw Polyline With Clipping Outside
Mar 7, 2012is there a way to draw a polyline and have autocad clip everything outside of that polyline and discard it so that i end up with a smaller drawing. only the information in that polyline, nothing outside of the polyline
View 3 Replies View RelatedAutoCAD Visual LISP / AutoLISP :: How To Draw Text Entity In 3D
Apr 29, 2012how to draw a text entity in 3d, where I know the 3d ins point, and the plane it should be flat to.
I have not drawn text or inserted blocks programatically before where the plane they lie on is not flat.
I have done it before by setting a ucs and drawing stuff, but now I want no switches of UCS involved.
[URL]
AutoCAD Visual LISP / AutoLISP :: How To Draw Triple Or More Lines
May 8, 2013Lisp code here for draw for example triple parallel line ? each line will be own layer and color..
View 8 Replies View RelatedAutoCAD Visual LISP / AutoLISP :: Draw All Objects At Same Time?
Sep 24, 2012I have made a lisp routine to draw lines on polyline. And here are a lot of lines on it. So using comand
"(command "line" pt1 pt2 " ")"
takes a lot of time. Is here a way to creat lines in memory or similar and only then draw them all on screen?
I have search but coudin't find any info. I do not know how to formulate a query.
AutoCAD Visual LISP / AutoLISP :: Unable To Draw A Line
Sep 18, 2013I've written my first little Lisp function.What it's for is drawing a simple borehole profile that can then be used to draw stylized cross sections on top of it.
Upon start the lisp, pick a point on screen (to get the X coordinate [x1 below]), then enter ground level at the command line [g1 below], then enter as many thicknesses as are present in the borehole log (will vary, but typically between 3-12). These I added to a list, because that seemed to make sense when I did it.
What I want it to do then is draw a pline from x1, g1 down to the next point (x1,g1 minus the 1st thickness), then the next (x1,g1 minus the 2nd thickness) etc., to the bottom of the borehole.
Then my CAD guys can sit there, and using the borehole logs, enter the values of the boreholes and it draws them on the screen, making it easy to join th dots.
It might be good if it placed a Acad point at each point as well, but I'm not overly bothered about that at the minute.
Here's my attempt so far.
(prompt "Type 'e1' to run...")
(defun c:e1 ( / )
(command "graphscr") (setq x1 (getpoint "
Pick insertion point:")) (setq x1a (car x1))
(initget (+ 1 2 4)) (setq g1 (getreal "
Enter ground elevation: "))
(initget (+ 1 2 2)) (setq lvllist nil ) (while (setq lvl (getreal "
Enter layer thickness <Exit>: ")) (setq lvlList (append lvllist (list lvl))) )
(princ) )
AutoCAD Visual LISP / AutoLISP :: Draw Square By Area
Nov 27, 2013I would like to be able to draw squares by the area they should have. So that if I need a square of 50m2 autocad automatically draws a square of sqrt(50) x sqrt(50)
Because right now I have to draw 200 squares with 100 different areas and I have to calculate and manually draw each one of them.
AutoCAD Visual LISP / AutoLISP :: How To Draw Polyline Between Two Blocks Of Same Name
Nov 13, 2013i need a vlisp program to draw polyline between two blocks.
View 3 Replies View RelatedAutoCAD Visual LISP / AutoLISP :: Draw Bounding Box At Current UCS
Oct 16, 2013The first rectangle is drawn from 0,0 at the World Coordinate System. There is never any trouble with the code below when the objects are drawn at the WCS. The problem is when I try to draw a bounding box around an object while in another UCS. It seems that it always draws the bounding box at the WCS instead of my UCS. I have used (trans <pointlist> 0 1) on all combinations it seems and I still cannot get it to draw the bounding box at the current UCS.
(defun c:GetFromBoundingBox (
/
*ACAD_DOCUMENT*
mspace
pSelectedObject
lwLeft
upLeft
lwRight
upRight
[code]...
AutoCAD Visual LISP / AutoLISP :: Changing Text In A Dimension
Oct 15, 2012I want to override the measurement in a dimension with a string of text using a LISP command.
E.g.. "select dimension"
type new text for dimension
replace dimension measurement with new text. I can get the entity and its values, buy not sure which value to change for the "text override".
BTW Acad 2012.
AutoCAD Visual LISP / AutoLISP :: Select Last Created Dimension?
Apr 10, 2012I have the following code, that for some reason the last created dimension is no being selected. That's the first problem. The second (and not as improtant) problem( becasue it does work), is that I'm using the "dimedit" command. I prefer to do a swap within the dxf codes, that I treid but didn't work, so I resorted to the "dimedit" command.
(command "DIMLINEAR" pause pause pause)
(setq last_dim (entsel (entlast)))
(setq oldunits (getvar "lunits")) (setq oldprec (getvar "luprec"))
[Code].....
AutoCAD Visual LISP / AutoLISP :: Dimension Styles Colors
Aug 13, 2012Is there any way to change the colors of the dimensions styles, including dimension lines, extension lines and text to "by layer"
I found a code to change the colors, but only affects the current dimensions in the drawing and the styles do not change.
AutoCAD Visual LISP / AutoLISP :: Get Coordinates For Dimension Arrowheads?
Jul 14, 2012I'm writing function which will facilitate user to offset dimension. After enter command, he select dimension and select point near one of dimension's arrowheads. Then I'm calculating new XLinePoint1 or XLinePoint2 and replacing original.
I have everything done. I thought ... The problem is when user firstly create AlignedDimension and after that he create RotatedDimension by using continous function. After that XLinePoint1 and XLinePoint2 are not parallel to the DimLinePoint (look at image).
How can I get coordinates of points selected in red rectangles?
I know that one is specified as "dimension line defining point" but what about second? How can I get its coordinates? Or maybe there is other way to get this point?
AutoCAD Visual LISP / AutoLISP :: How To Dimension Between Two Points In A Selection Set
Nov 1, 2011Looking to make a selection set of points that are on a specific layer, and then create a dimension between, in this case, two points. I feel like it should be very simple, but I can't get it to work for the life of me. Here is the test code I've been playing around with:
(defun c:test (/ sel1 TC)
(setq sel1 (ssget "X" '((8 . "VPOINTS"))))
(setq TC (polar (entget (assoc 10 (ssname sel1 0))) (dtr 180.0) 9))
(command "DIMLINEAR" (entget (assoc 10 (ssname sel1 0))) (entget (assoc 10 (ssname sel1 1))) "V" (polar TC (dtr 180.0) 9) "")
[code].......
AutoCAD Visual LISP / AutoLISP :: Set Dimension Style To Annotative Off?
Nov 8, 2013I am trying to create a lisp routine, that will check the dimension style "standard" to see if its annotative. If it is, I need it to turn annotative to off.
ITO - Application Management
Factory Design Suite Ultimate 2012
AutoCAD 2012 | Inventor Professional 2012 | Vault Professional 2012
AutoCAD Visual LISP / AutoLISP :: How To Set Dimension Break Size
May 17, 2013I there any way to set the dimension break size in autolisp ?
View 1 Replies View RelatedAutoCAD Visual LISP / AutoLISP :: Dimension Color By Layer
Oct 20, 2011As a consultant we grey out architectural backgrounds for our sheets. We use the SetByLayer command to change the color of the objects in our sheets to gery out. The issue is with dimsensions. Dimension Line Color, Extension Line Color, and Text Color are all set at By Block as default and no one ever bothers to change it unless they are setting it to a specific color which is even more of a problem for us. You can edit the properties of an existing dimension and set Dim Line Color, Ext Line Color, and Text Color to by layer, I am looking for a way to automate this. Something that can search through a drawing, grab all the dimensions (even in blocks) and set everything by layer.
View 9 Replies View RelatedAutoCAD Visual LISP / AutoLISP :: Extract Attribute Tag Value And Draw Polyline
Apr 25, 2012I have a inserted block with 4 tags for Length, Thickness, Elevation and Width.How can extract attributes tag values and draw a closed polyline + 2 internal lines, parallel to the block?
Block Name: ID_DATA
Tags: LEN, THI, ELE and WID.
Each internal line placed in a third width.
AutoCAD Visual LISP / AutoLISP :: Code To Draw Grid Lines
Jan 1, 2014I have this code to draw grid lines within a rectangle:
;Variable settings(defun var_set () (setq *var_lst* '("cmdecho" "osmode" "expert" "plinewid" "dynmode") *var_usr* (mapcar 'getvar *var_lst*)) (mapcar 'setvar *var_lst* '(0 0 2 0 0)) (vl-load-com))(defun var_reset ()(mapcar 'setvar *var_lst* *var_usr*)) (defun *error* (msg) (if (not (member msg '("console break" "Function cancelled" "quit / exit abort" "" nil)) ) (princ (strcat "
Error: " msg)) ) (and ;(vl-bt) (var_reset) ) (princ) ) (defun string-list (data) ;by lee-mac @theswamp (if (vl-string-search "@" [code].........
The above gets me the grid lines; but I have a block inserted at both ends of the grid line; how do I get the selection of those entities (selection set "frame") after each array?
or I would need to map a point list and draw each grid individually how do I go about that?
Attached is the sample of the output I'd like to achieve using LISP.
AutoCAD Visual LISP / AutoLISP :: Draw Insulation Hatch Around A Circle
Jul 23, 2004Routine that will draw a insulation hatch around a circle?
View 9 Replies View RelatedAutoCAD Visual LISP / AutoLISP :: Draw Polyline Which Point From Sub-entities Possible?
Jun 28, 2013I continue learning....
(setq ins (vlax-ename->vla-object ( ssname sele cod)) nombre (vla-get-name ins) ) (setq bloque1 (vla-item (vla-get-Blocks (vla-get-Document ins) ) nombre ) ) (setq s_ent1 (vla-item bloque1 1)) (setq pt1 (vla-get-startpoint s_ent1 ))(setq pt2 (vla-get-endpoint s_ent11 ))(setq s_ent2 (vla-item bloque1 2)) (setq pt3 (vla-get-startpoint s_ent2 ))(setq pt4 (vla-get-endpoint s_ent2 ))(command "_pline" pt1 pt2 pt3 pt4 "c")
Why dont draw de _pline?
AutoCAD Visual LISP / AutoLISP :: Draw Doors And Windows In 3D From Block In 2D
Jul 4, 2013i make a lips that draw doors and window in 3d from block in 2d......the problem..It does not work in all autcad¡¡ the same version but different pc.
View 9 Replies View RelatedAutoCAD Visual LISP / AutoLISP :: Routine To Draw 3D LOFT Object?
Jul 21, 2003Is there a lisp routine to draw 3D object by the LOFT way ? .
View 4 Replies View Related