AutoCAD Forums - AutoLISP, Visual LISP & DCL

Add Dimension Then Change It's Color

Bill Tillman — Tue, 18 Jun 2013 17:29:31 GMT

I have a bit of code which adds a dimension to the drawing. Based on some other criteria in the drawing I'd like to change the color of this dimension to red to indicate to the user there are some special considerations to be made. We thought about a note but the users prefer that the color of this dimension object be a different color.

Ok, so I add the dimension and then try to change it's color using "CHPROP" but that's not working. Can anyone offer some advice on how to change the color of a dimension? I'll be able to use (entlast) to select it. Any by doing so I get the properties of the dimension and cheat by copying it into the IDE and formatting it. I end up with this:

Code:



((-1 . )

  (0 . "DIMENSION")

  (5 . "F9867")

  (102 . "{ACAD_XDICTIONARY")

  (360 . )

  (102 . "}")

  (102 . "{ACAD_REACTORS")

  (330 . )

  (102 . "}")

  (330 . )

  (100 . "AcDbEntity")

  (67 . 0)

  (410 . "Model")

  (8 . "Dim1")

  (100 . "AcDbDimension")

  (280 . 0)

  (2 . "*D157")

  (10 -9.48943 -93.5625 0.0)

  (11 -9.48943 -90.5625 0.0)

  (12 0.0 0.0 0.0)

  (70 . 32)

  (1 . "")

  (71 . 5)

  (72 . 1)

  (41 . 1.0)

  (42 . 6.0)

  (73 . 0)

  (74 . 0)

  (75 . 0)

  (52 . 0.0)

  (53 . 0.0)

  (54 . 0.0)

  (51 . 0.0)

  (210 0.0 0.0 1.0)

  (3 . "Standard")

  (100 . "AcDbAlignedDimension")

  (13 -6.0 -87.5625 0.0)

  (14 -4.0 -93.5625 0.0)

  (15 0.0 0.0 0.0)

  (16 0.0 0.0 0.0)

  (40 . 0.0)

  (50 . 1.5708)

  (100 . "AcDbRotatedDimension")

)

I believe the DXF code 67 is the color, but how would I go about setting it to "Red" given that this object will the (entlast) or I will have assigned it to something using (entlast) before moving on. In the end, if certain criteria are true, I want to change this dimension's color to "Red".

Help with a lisp

prodromosm — Tue, 18 Jun 2013 10:01:33 GMT

can anyone convert this lisp !!!

a) To ask (prompt "\n please Select Line : ") ,give the text size .....
b) to write bearing (in grads) add the distanse like the attach photo

Code:

(defun C:BD()



 (princ "Bearing and distance between 2 points ")

 (copyright)

 (setq pnt (getpoint "\n1ο point {(X,Y,Z) or mouse}: "))

 (setq pnt1(getpoint "\n2ο point {(X,Y,Z) or mouse}:")) (terpri)

 (setq sdis (rtos (distance pnt pnt1) 2 3))

 (setq ang1 (angle pnt pnt1))

 (setq ang (angtos ang1 2 4))

 (setq dx (-(car pnt1)(car pnt)))

 (setq dy (-(cadr pnt1)(cadr pnt)))

 (setq dz (-(caddr pnt1)(caddr pnt)))

 (setq pn (list (car pnt) (cadr pnt) 0) )

 (setq pn1 (list (car pnt1) (cadr pnt1) 0))

 (setq dis (rtos (distance pn pn1) 2 3))

 (textscr)

 (princ "\n")



 (princ "\n                Bearing and distance between 2 points P1 P2 ")

                    



(princ "\n")

(princ "\n                  P1  X: ")(princ (car pnt)) (princ "  Y: ")(princ (cadr pnt))

 (princ"  Z: ")(princ (caddr pnt))

 (princ "\n                  P2  X: ")(princ (car pnt1)) (princ "  Y: ")(princ (cadr pnt1))

 (princ "  Z: ")(princ (caddr pnt1))

 (princ "\n               slope distanse: ")(princ  sdis)

 (princ "     distanse.:") (princ dis)

 (princ "\n                       bearing: ")(princ ang)

 (princ"\n               Dx: ")(princ dx)(princ "      Dy: ")(princ dy)

 (princ "      Dz: ")(princ dz) (princ)



)

Attached Images

preview.jpg‎ (17.5 KB)

Lisp to create a beadboard pattern

ADSK2007 — Mon, 17 Jun 2013 20:24:20 GMT

Hello

I need to know if it's possible to draw a beadboard pattern with lisp routine (You can quickly Google the name to see what I mean). The large pieces (let's call it "A") are always the same size and the gaps between them (Let's call it "B") are also the same size. What the program should ask for is the total length, then the size for "A" and how many pcs are required, then calculate the "B" size in-between

Could anyone help with this?

Regards

can someone help me in this case,please?

termal007 — Mon, 17 Jun 2013 18:56:26 GMT

hi

please first see attach file !

i want to insert point in crossing white line and red line ?

how can i do that ?

Attached Files

Drawing1.dwg‎ (57.7 KB)

XML DOM Events

ripuz — Mon, 17 Jun 2013 14:41:53 GMT

Hi!

I´m exploring the "MSXML.DOMDocument" and found out that XML DOM has Events:
http://msdn.microsoft.com/en-us/libr...(v=vs.85).aspx

Is it possible to use these events in AutoCAD?
There is one event called: "ondataavailable" - Fires when new data is available.

I don´t know what I should do with it but I think it could be nice...
I have a feeling that this isn´t possible but on this site there is always some big guys that have the answers. (like Lee Mac :))

Is there any Event that reacts on something outside the AutoCAD application, time or filechange maybe?

Text / Dim Style Import

Mohamad — Mon, 17 Jun 2013 11:35:19 GMT

Hello everybody,

Can we create Text styles or Dimension styles from a list (excel example attached)?

Appreciate any idea

Attached Files

Text style.xls‎ (33.5 KB)

How to "match properties" of attribute field formatting

ibach — Mon, 17 Jun 2013 08:17:15 GMT

I need to use same format of a field in the attribute that is in a block.
Thing is that I have an attribute in block that is describing perimeter of an area in a drawing. Problem is that, in the same drawing, sometimes .(dot) and sometime ,(comma) was used as a decimal separator. I need to change all dots to commas of such a field using a quick lisp because there are hundreds of such blocks.

Please help.

I know I could use Lee Mac Areas2AttributeV1-1.lsp with a little modification, but it is still too many clicks.
I'd like to select attribute in one of the blocks, copy it's formatting parameters and translate them to other attributes by clicking on them, like using match properties.
I must leave the object that the attribute is referenced to unchanged.

I am searching for lisps in MEP

asos2000 — Mon, 17 Jun 2013 05:13:48 GMT

Hi all
I am searching for lisps help me in Mechamical, Electrical and Pluming to help me in drafting
Thanks all

Lisp Request

automaticad — Sat, 15 Jun 2013 17:47:04 GMT

I need a lisp of below two functions:

y = a sin t
x = a cos t

I need it for my 3D modeling work.

After the graph of above two functions is created in AutoCAD, I want to extrude it.

Similar as when you create a line, circle, ellipse, spline, polygon, or a box.

grread, Dynamic Drag a Selection set

autolisp — Sat, 15 Jun 2013 08:05:28 GMT

dear sir,
i am trying to archive attched image resulat
insert block with grread not working
gif file not attached
attached zip file
Attachment 42425

Code:

(defun c:tt ()

(vl-load-com)

(setq *error_bak* *error*)

(setq pt (cadr (grread T 8)))

(vl-cmdf "-insert" "add blok name" pt "" "" "0");add block name

(setq ss (entlast))

(setq entdb (entget ss))

(setq ang 0)

(setq loop T)

(setq *error* *error*_non)

(while loop

 (setq code (grread T 8))

 (cond

((or (= (car code) 5) (= (car code) 3))

 (if (= (car code) 3)

(setq loop nil)

 )

(setq sendpt (cadr code))

 (vla-put-Visible (vlax-ename->vla-object ss) :vlax-false)

 (setq endpt (osnap sendpt "endp,center,int,mid"))

(vla-put-Visible (vlax-ename->vla-object ss) :vlax-true)

 (if endpt

(progn

 (vla-put-InsertionPoint

(vlax-ename->vla-object ss)

(vlax-3D-point endpt)

 )

)

(progn



(vla-put-InsertionPoint

(vlax-ename->vla-object ss)

(vlax-3D-point sendpt)

 )

)

 )

)

((or (equal code '(2 65)) (equal code '(2 97)))

(progn

(setq ang (+ ang (* pi 0.5)))

(vla-put-Rotation (vlax-ename->vla-object ss) ang)

 )

)

 )

)

(setq *error* *error_bak*)

)

(defun *error*_non (msg)

(setq *error* *error_bak*)

(entdel (entlast))

)

Attached Files

1555.zip‎ (225.2 KB)

ViewPort Handling

fabriciorby — Fri, 14 Jun 2013 18:21:04 GMT

Hello,
I've searched about this issue but I couldn't find anything useful to me.
I'm trying to make something like this:
I have a square inside my Model and a square ViewPort inside my Layout. I need to make the viewport to zoom to a point until the square inside my Model fits the ViewPort.
I have no idea how to work with ViewPorts using lisp :/
I can upload a screenshot if it's too confusing

Thank you (:

Change text LISP routine

denverado — Thu, 13 Jun 2013 22:10:43 GMT

HI all!!
I have written a LISP routine to change certain text. However.... if one of the items that I want to change does not exist in the drawings the lisp routine doesn't work. Can some one tell me where I have gone wrong?

My work computer wont allow me to add the file so this is a portion of the file....

Code:

(defun C:GHJ ; = Text Replace for Complete text/mtext strings, pre-defined content

  (/ tss tdata)

  (setq tss (ssget "X" (list (cons 1 "*0*VERTICAL BEND"))))

  (repeat (sslength tss)

    (setq

      tdata (entget (ssname tss 0))

      tdata (subst (cons 1 "JOINT DEFLECTION") (assoc 1 tdata) tdata)

    ); end setq

    (entmod tdata)

    (ssdel (ssname tss 0) tss)

  ); end repeat

  (setq tss (ssget "X" (list (cons 1 "*4*VERTICAL BEND"))))

  (repeat (sslength tss)

    (setq

      tdata (entget (ssname tss 0))

      tdata (subst (cons 1 "2 JOINT DEFLECTIONs") (assoc 1 tdata) tdata)

    ); end setq

    (entmod tdata)

    (ssdel (ssname tss 0) tss)

  ); end repeat

); end defun

If the first instance isn't met, the second instance wont work.

How do you code in a Cancel function?

daha — Thu, 13 Jun 2013 21:27:59 GMT

I am trying to modify an existing lisp routine to include a function for the user (that's me) to cancel running the routine. When the lisp is running, there seems to be no way to cancel it. (and for a large dwg it can take a long, long time to finish) I wouldn't think you'd have to code an exit or quit function in a program, but apparently for this one I do because the only way to quit is to CTRL+SHFT+ESC and kill the ACAD process. Thx.

filter/separate the letters/numbers

teknomatika — Thu, 13 Jun 2013 16:23:04 GMT

Does anyone know and can indicate some routine that allows, in a selection of text, to filter/separate the letters/numbers?

beginner LISP question about appending code

Marvin7 — Thu, 13 Jun 2013 14:27:42 GMT

EDIT: [SOLVED] See Lee Mac's second post below.

Using these forums, I found some LISP code that creates a copy of a viewport's border and places it in model space, and it works very well.
http://www.jtbworld.com/lisp/vp-outline.htm

But I wanted to take it a step further.

So I appended some new code just before the original code's last parenthesis...but it doesn't work correctly. My goal is to have the LISP finish by selecting that newly created border and then putting it into a newly created group with an auto-assigned name (which is why I don't put a "-" in front of the .group command).

The new code I added at the end just before the original code's last close-parenthesis:

Code:

(command ".select" "L" ; (princ)

)

(command ".group" (princ)

)

(princ)

Running the LISP gives the following error in the command line history:

Command: VP-OUTLINE-ANDGROUP
.select
Select objects: L 1 found
Select objects: .group
*Invalid selection*
Expects a point or Window/Last/Crossing/BOX/ALL/Fence/WPolygon/CPolygon/Group/Add/Remove/Multiple/Previous/Undo/AUto/SIngle/SUbobject/Object
; error: Function cancelled

What am I doing wrong?