AutoCAD Forums - AutoLISP, Visual LISP & DCL

Why AutoCAD command POLARARRAY doesn't take my number?

Pzi — Wed, 16 May 2012 19:06:02 GMT

Hi.

I'm extremely new to this. I created a .lsp file and I'm doing polar array.
(COMMAND "ARRAYPOLAR" "LAST" "" center "12" "360" "eXit" )

Command: ARRAYPOLAR
Select objects: LAST 1 found
Select objects:
Type = Polar Associative = Yes
Specify center point of array or [Base point/Axis of rotation]:
Enter number of items or [Angle between/Expression] <4>: 12
Point or option keyword required.
; error: Function cancelled

It seems last object is found, center point is defined in the beginning. It doesn't take number of items? :o
I've also unsuccessfully tried
(COMMAND "ARRAYPOLAR" "LAST" "" center 12 "360" "eXit" )
and some other silly workarounds but none worked.

zero suppress in Mtext

SELFCAD — Tue, 15 May 2012 10:38:57 GMT

Using a lisp, i insert mtexts, with (rtos mtext 2 2); how to supress 0 when my mtext is... 2.00? - to be 2 ?

I Need some help, Creating Table with Layer Name from Specific Section

Michalis — Tue, 15 May 2012 10:35:46 GMT

Hello everyone,
im a new guy here and i need some help,
I want to draw a line, (its kind of Section) and then should generate a table with polylines or lines Layer with Count, that pass through, i've done that with Mechanical using Section and with dx, but i need it faster with lisp, i could use table, or block so when i insert it should need first point, then 2nd point and would give me all layer names in a box with count,
forgive me for my english,
please see image belowAttachment 34826

Attached Images

Capture.jpg‎ (41.4 KB)

Trim Command Issue in ACAD 2010 Vs ACAD 2005

ksbhadekar — Tue, 15 May 2012 08:49:20 GMT

All,
I am facing issue with LISP code which runs fine with ACAD 2005. LISP stmt is (command "trim" e1 "" p30 "")

If i run same code on ACAD 2010 then while selecting objects for trimming if ACAD couldn't find objects at specified point (p30) then it will start forming a window and will stuck there since opposite corner is not specified.
We have used trim at multiple places in overall code.
I tried with PICKAUTO abd PICKADD variable but still while selecting object to trim it will form a crossing window.
Is there any other method thru which I can avoid this crossing window?

Regards,
Kaustubh

Help with LISP

rajrehman — Tue, 15 May 2012 05:40:23 GMT

Here I attached "CHNO" attribute block & lsp Programme for that block use
But I want to similar lsp for another "Juno" attribute block to use i also attached that lsp
please help me

Attached Files

chno.dwg‎ (36.3 KB)
Junno.dwg‎ (36.0 KB)
chaltano.lsp‎ (1.4 KB)

Convert string into a routine

svorgodne — Mon, 14 May 2012 17:23:16 GMT

Is there any way to make this work as a routine? It is just a simple command "line" from 0,0 to 3,5.

I cannot figure it out

Code:

(defun c:tss ()

  (princ (strcat

       (chr 40)

       (chr 99)

       (chr 111)

       (chr 109)

       (chr 109)

       (chr 97)

       (chr 110)

       (chr 100)

       (chr 32)

       (chr 34)

       (chr 108)

       (chr 105)

       (chr 110)

       (chr 101)

       (chr 34)

       (chr 32)

       (chr 34)

       (chr 48)

       (chr 44)

       (chr 48)

       (chr 34)

       (chr 32)

       (chr 34)

       (chr 51)

       (chr 44)

       (chr 53)

       (chr 34)

       (chr 32)

       (chr 34)

       (chr 34)

       (chr 41)

     )

  )

)

Thanks a lot in advance

UCS lisp routines?

nathanaelbfw — Mon, 14 May 2012 15:49:47 GMT

Hi all!

I have been learning lisp routines and am struggling to work out the one I need to rotate my model space.

I have solved the routine for getting back to the original ucs setting:
(defun c:EU nil (command "ucs" "w" "plan" "w") (princ))

The one that isn't working I think should look like this:
(defun c:UE nil (command "ucs" "e" "plan" "current") (princ))

However, this routine fails to rotate to the current UCS despite registering the selected ucs.

Thank you

want to change linetype color manually ..

nila_joy — Mon, 14 May 2012 15:37:22 GMT

Hi guys.. I AM BACK ..

I want to change all linetype color manually for printing purpose . Means I want to change all the hidden line of a drawing in red, all continuous in brown ..like this. Now the problem is ..

1. The code for the linetype is 6 , but whenever the line type is dedicated for a layer, the code 6 is not showing, then how I'll get all the hidden line types (may be in different layers) of a drawing ..

2. From table search I can get all the line type available in the drawing, but all those line types are in used? I am in doubt .. I failed to find them visually in my drawing ..

3. I can get the layer name from DXF code 8 , but how can I get the details of the layer, like color, line type etc ..

Plz help guys ... :(

Subho..
KOlkata..
India ..

a series of polyline in between two bounding polyline

souvik — Mon, 14 May 2012 07:48:04 GMT

I need a lisp which will draw a series of polyline in between two bounding polyline. The series of polyline will be perpendicular with two bounding polyline. Please view the image.

Attachment 34808

Attached Images

Drawing1-Model.jpg‎ (20.2 KB)

Edit text inside the window

wimal — Sat, 12 May 2012 10:31:53 GMT

HTML Code:

(defun c:TET ()

(setq pt1 (getpoint"\n First corner "))

(setq pt2 (getcorner pt1"\n 2nd corner"))



  (setq ss3 (ssget "C" pt1 pt2 '((0 . "text"))))

  (setq i 1)

 (while (> i 0)(progn

    (setq i (sslength ss3));NO OF ITEMS SELECTED

         (setq sn (ssname ss3 (setq i (1- i))));GETTING ENTTY NAME OF ONE ITEM

      (command "_ddedit" sn)     

))          

);end txt

What is the wrong in my code
why cant I edit text one by one inside the window.

multiple entry input

anishtain4 — Sat, 12 May 2012 07:29:23 GMT

What would you do if you want to make a function whose input arguments be like setq? I know optional arguments are not allowed in vlisp and I've considered the list input, I was wondering if there is any way to make a function just like setq?

Add blocks to project

anishtain4 — Sat, 12 May 2012 04:42:27 GMT

How can you add some blocks that will be used in a project so when I gave the compiled version to my friends there don't be any need to copy block files by hand?

Parsing out drawing name using LISP - please help

Kevin S — Fri, 11 May 2012 16:25:20 GMT

Please help... I am trying to parse out drawing names and am struggling trying to get the names parsed out. Here's the senerio:

There's a long series of CAD files using a two letter - two number naming convention, like the following example:
AA11.dwg
AA22.dwg
BB11.dwg
BB22.dwg
...etc

Uses layers like:
X-NEW-01
X-EXIST-01
...etc

After some file manipulation using the numbers from the file name (11, 22, etc..), I need to be able to save out varients as:
AA-X-NEW-01.dwg
AA-X-EXIST-01.dwg
BB-X-NEW-01.dwg
BB-X-EXIST-01.dwg
...and so on.

LISP - Invoke Publish command

woodman78 — Fri, 11 May 2012 13:18:51 GMT

Is there a way to invoke the publish command and have it plot only the layouts to a specific page setup?

The reason I ask is that I have a lot of fields on our title block and I want to run fieldupdate before plotting?

Thanks.

Help, In need of lighting circuit lisp (like on Autocad MEP)

Nick-H- — Fri, 11 May 2012 11:03:53 GMT

Im currently doing a lighting design which i now have to circuit up.

on Autocad MEP there is a tool which you pick 2 points and it draws the circuit line with chamfered edges. But ive only got standard autocad at the minute

is there a LISP routine anyone knows about?

Nick