I tried the following code posted in the forum, but i need to know how to break the loop when right click/ Enter Key is pressed.
Following is the code i used:
Dim acDoc As Document = Application.DocumentManager.MdiActiveDocument
Dim acCurEd As Editor = acDoc.Editor
[Code]....
I am just a begineer for auto lisp. I wrote my first program, but got stuck, I am unable to get out from while loop if i Press "enter".
(defun c:arsh ()
(while
(setq p1 (getpoint "
pick point :"))
(setq l 1500)
(setvar "osmode" 0)
(initget 7)
(setq p2 (polar p1 (dtr 0) l))
[code]....
Is it possible to change te Break command permanently in the Break at Point command?I never use break, only break at point.
Changing te macro for break ^C^C_break to the macro for break at point ^C^C_break \_f @ doesn't work.
To do it manualy at the command prompt takes to much keyboard entries and mouse clicking.
I know how to get/set attribute within loop at block's AttributeCollection.But I'm wonder if I can set value for specified attribute without loop. Or I always have to iterate on each attribute in block's AttributeCollection?
View 9 Replies View RelatedHow to loop until user quits picking points (escapes) this works but don't know if there's a better way
Dim bGotPoint As Boolean
bGotPoint = True
Do While bGotPoint = True
[Code] .......
I know I can use the following...
...Polyline3d pl3d = acEnt as Polyline3d;foreach (ObjectId id in pl3d){ PolylineVertex3d plv3d = tr.GetObject(id, OpenMode.ForRead) as PolylineVertex3d; Point3d p3d = plv3d.Position; ...}
But I need to work with "for" loop.It seems "pl3d[i]" does not work.Is there other ways to iterate through Polyline3d vertices?
I have a portion of my routine below. Basically I need the user to continue to loop through the command. They are picking Circles or blocks in the drawing and I get the insertion point, then insert a new block. However, whenever they try and use a transparent zoom or pan to move around the drawing when the promptentityresult is hit, it zooms back to the original location.
Here is a code....
<
CommandMethod("getpnt", CommandFlags.Session)> _
Sub findpnt()
Dim cnt AsInteger = 0
Dim NEWPNT AsPoint3d = GetInsPoint()
While cnt < 3
[Code] .......
I have a sphere body whose material is partly removed by a boolen subtraction with another sphere. When I query the EdgeLoop of sphere for Outer edge loop using function InvEdgeLoopPtr::GetIsOuterEdgeLoop(), I always get a value of VARIANT_TRUE. check for the inner and outer loop of a sphere? use the attached file for reference.
View 3 Replies View RelatedI have AutoCAD 2010. When I start it up, and draw simple lines in the drawing editer and then try to save the drawing,
AutoCAD gets hug up in a loop, and stops working.
I have tryed the repair option and I have reinstalled AutoCAD serveral times, and it still has not repaired the problem.
I need AutoCAD 2010 to do work.
Have sketched the geometry for an 18 tooth circular sawblade. However I have had difficulty applying the close loop function. As a result am not yet able to extrude the saw blade. What to do to implement close loop?
View 4 Replies View RelatedI think my problem should be easy to answer, today out of nowhere I suddenly had to type in the file names for different commands such as "save as" or in the layout options "from template" usually there pops up the standard folder list where you can choose the file you want.
In the pic you can see what happens if I'm clicking on "save as".
I have been working on this framing plan and come to find out - much of the text and some of the lines are being entered off of the 0 - Z plane. get everything down to 0? Flatten does not work and I have searched high and low for a resolution, but I'm not getting anywhere.
I know the lines are mostly at 0, which makes it very confusing that the text would enter off of the 0 - Z plane.
I just installed the educational version of Inventor and when i go to draw a circle in a sketch i cant enter in a specified radius. Any way to enable that?
View 9 Replies View RelatedI've always used the spacebar as Enter, it speeds up the way i work.I've just load 2013 and i'm using the Drafting & Annotation workspace, now when i use the spacebar it jumps to another command, i have to use the enter key to get it to do what i want.For example.
Type H, (spacebar), S, (Spacebar).
This should be - Hatch > Select,
instead i get 'Hatch' then it cancels the hatch commands and jumps to 'Stretch'
I cannot seem to trap the Enter key in a text box.
I tried the following:
Private Sub tbEdit_6_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles tbEdit_6.KeyPress
If Asc(e.KeyChar) = 13 Then
[Code]....
I have a problem and as this has happened the first time I fire up autoCAD I can see that I am not going to have as easy a time as I did with 3D studio Max.
I found a tutorial on line, and it was talking about the command line, so i was entering points like it said, fine. I had to put it down as something came up at work. Go back to it to play some more, now I can no longer specify points in the command line, pressing space or enter just clears everything and asks to specify a point again.
What have I don't to make this happen, or is it a bug in the program. I have tried restarting again but still no.
every time I try to enter / alter text, autocad informs me that it can't find a dictionary for spell checking purposes. I can live with that, but the constant pop-up is getting old.
I tried to reset my Main Dictionary... but it seems to be gone. Is a fresh re-install in order?
See pic attached
text entering error.jpg
Is it possible to enter Excel formulaes eg: =if(a1 = 0; "yes"; "no") into table cells?
I tried doing it, but I only got number symbols as the result (#####).
I know we can do this easily in AutoCAD Electrical, but I could not find any command or feature in AutoCAD to set up this function so that when two lines are intersected, the cross point will become a dot or loop.
View 9 Replies View RelatedAutoCAD 2010 SP2:
Upon setting up a drawing for plotting (the problem is not printer specific) the "Print Preview" gets stuck in a loop where I am unable to exit if I choose to cancel or alter the settings. I am forced to go ahead and send the plot. If iI immediately go back and run the PLOT command again nothing happens... no dialog box, no error nothing. I must then go to any other open dwg, do a save, and then go back to the original dwg. Then the PLOT command will again work, however, still getting stuck in the preview loop.
I am asking the user to select points and insert a block at each of the selected points. On user exit from the point selection I draw a polyline connecting the blocks.
However, I cannot get the already inserted blocks to display until I complete the insertion of all blocks. How do I go about getting them to display as soon as they are inserted? The code segment below is inside a transaction and nothing appears on the screen till this transaction is committed' Pt(0 to 2) is defined as a double and is returned when the user selects a point with function
SelectPoint Do While SelectPoint(Pt) = True Dim MyPoint3D As New Point3d(Pt(0), Pt(1), Pt(2)) InsertBlockAtPoint(MyPoint3D, myTransManager, strBID, _ myBlockTable, CurrentBlockSpace, dwg, True)' strBID is a previously populated structure containing data about the block insertion details and Xdata to be added to the block reference Dim MyPolyPoint3D As New Point3d(Pt(0), Pt(1), 0) myPoints.Add(MyPolyPoint3D)' myPoints is a data set used to plot the polyline
[code]....
I am trying to create a logic rule to replace the model reference in a idw file and then save as using the new file reference name. I am able to do this for individual files or components within an assembly file.
However what I would like is to check through all files of a certain type (for example ipt with filenames beginning "SSUA" ) in a specific folder.
The following code from Curtis Waguespack works well for individual selected files but I would like to take it a stage further with the above parameters.
Dim oDoc as DocumentoDoc = ThisDoc.DocumentDim oRefFile As FileDescriptorDim oOrigRefName As Object For Each oRefFile In oDoc.file.ReferencedFileDescriptors'get the full file path to the original internal referencesoOrigRefName = oRefFile.FullFileName'present a File Selection dialogDim oFileDlg As inventor.FileDialog = NothingInventorVb.Application.CreateFileDialog(oFileDlg)oFileDlg.InitialDirectory
[Code]........
I have VB code that loops through and utilizes Excel data to pick which file(s) to open, update, and close. Then it opens the appropriate .idw file, updates it and saves it as a .pdf.
The line of code I have now is simple:
_invApp.ActiveDocument.SaveAs("C:UsersxxDesktopA60.pdf", True)
and that writes the file to my desktop as a .pdf.
However, as the loop runs over and over, it will find another data set that is the same A60 type, so it will want to save OVER that .pdf it's already created.
How do I go about having a variable filename? Something where it would add a _01 _02 _03 (or similar) to the end of the filename (i.e. A60_01.pdf, A60_02.pdf).
I am trying to put together a loop to enter a number greater than the previous number entered. Below is my mockup and I just cannot get it.
(defun c:22 () (while (setq d (getreal "
Specify diameter: ")) (setq $d d) (while (if (<= d $d) (progn (prompt "
Specify greater diameter.") (setq d (getreal "
Specify diameter: ")) ) ) ) (setq p1 (getpoint "
Specify point: ")) (command "CIRCLE" p1 d) ))
I am currently designing a heat exchanger and want to adjust the number of water channel using iLogic. The number of channels to be active is based on the channel dimensions, and is calculated in my excel spreadsheet, but up to a maximum of 19. This is stored in the parameter "no_channel". Each channel is a seperate feature (extrusion) and named from "Channel 1" though "Channel 19".
My idea of doing this automation was to have iLogic suppress all the features, and then doing a closed loop to unsuppres the features I want active:
Feature.IsActive("Channel 1") = FalseFeature.IsActive("Channel 2") = False...Feature.IsActive("Channel 19") = FalseFor i = 1 To no_channelFeature.IsActive("Channel"(i)) = TrueNext
However, this gives me the following error:
Error in rule: Number of channels, in document: Radiator fin side.ipt
Feature.IsActive: No feature found with the name: "h".
I am have trouble trying to figure a couple of things in the following code.
First - in the IF statement if "SD" is >= ask "Specify LAST strata number". How do I add nil?
Second - After I "Specify the LAST strata number", How do I stop the loop?
(defun C:22 () (setvar 'osmode 0) (or $S (setq $S 10)) (setq S (getdist (strcat "
Specify scale [Inches equal a Foot] <"(rtos $S 2 2)">: "))) (if (= S nil) (setq S $S)) (setq $S S) (or $BD (setq $BD 7)) (setq BD (getdist (strcat "
Specify boring depth in feet <"(rtos $BD 2 2)">: ")))
[Code] ........
I have been using AutoCAD mainly doing shopfitting and construction drawings; occasional 3D presentations. Therefore I am clueless as to how to start drawing something like e.g. the flexi-curvey loop of a flip flop in 3D.
View 9 Replies View RelatedI'm desperate to know how should i heal the errors for loop orientation issues. I had imported the .stp file into inventor so i can do stress analysis. After imported the file and enter into repair environment, after i find the errors shown 9 errors in loop orientation issues.
View 1 Replies View RelatedI wanted to chamfer a poligonal faced part, but had to select the edges one by one.
The Edge Chain buttons were grayed out, why?
I recieved my serial # and product key.
But I can't apply it because the site states my account has not been activated. It places me into a loop to resend to my email to activate my account. I'm in a never ending loop. There seems to be a glitch to the site.
Is it possible to stop an infinite loop when running an iLogic rule?
View 4 Replies View Related