CAD Software Free Forum

QuanNguyen

Re: AutoCAD ObjectARX to IRX

Hi dev.al,
Not sure this is what you finding, but IcApDatabaseReactorManager class can be an idea to start.

: IcApDatabaseReactorManager.png (88.83 KiB) Viewed 924 times

Forum: VBA, . NET & IRX
Topic: AutoCAD ObjectARX to IRX
Replies: 2
Views: 982
Mon Jul 06, 2020 8:50 am
Jump to post

QuanNguyen

Re: DCL/LISP to insert block from list

Hi Steve, Please use this one, it does not optimal but works well. The Lisp: ;fredsingle2-152 c/w 2-120.dcl ; COMPANION FILES: ; fredsingle2.LSP HAS A FEW COMPANION FILES THAT ARE REQUIRED TO BE IN THE SAME ; DIRECTORY IN ORDER TO FUNCTION. THESE FILES ARE NAMED AS FOLLOWS: ; fredsingle2.dcl ; freds...

Forum: AutoLisp/SDS
Topic: DCL/LISP to insert block from list
Replies: 19
Views: 4858
Wed Jul 01, 2020 9:37 pm
Jump to post

QuanNguyen

Re: DCL/LISP to insert block from list

Please post the file fredsingle2.dcl and ldct1.dim or ldct2.dim too.

Forum: AutoLisp/SDS
Topic: DCL/LISP to insert block from list
Replies: 19
Views: 4858
Wed Jul 01, 2020 8:28 am
Jump to post

QuanNguyen

Re: DCL/LISP to insert block from list

Hi Steve,

Try load the lisp above and paste two rows to the command line :

Code: Select all

 (setq D "LD-200MM-TRAY-RUN-3000")
(INSERT_BLOCK2)

: InsertBlock.png (14 KiB) Viewed 3131 times

BTW, please upload all the Lisp code here if you don't mind.

Forum: AutoLisp/SDS
Topic: DCL/LISP to insert block from list
Replies: 19
Views: 4858
Wed Jul 01, 2020 1:47 am
Jump to post

QuanNguyen

Re: DCL/LISP to insert block from list

Try this: (defun INSERT_BLOCK2 () ;(princ D) ; print the content of D variable to the command line. (if (tblsearch "block" D) (progn (command "_.insert" D pause "" "" "")) (progn (setq dwg (strcat D ".dwg")) (if (setq fullPath (findfile dwg)) (command "_.-insert" fullPath pause "" "" "") (Princ (str...

Forum: AutoLisp/SDS
Topic: DCL/LISP to insert block from list
Replies: 19
Views: 4858
Tue Jun 30, 2020 9:22 pm
Jump to post

QuanNguyen

Re: DCL/LISP to insert block from list

Please remove the double quotes at the D variable.

(princ D) ; print the content of D variable to the command line.
(command "._-insert" D pause 1 1 0 )

Forum: AutoLisp/SDS
Topic: DCL/LISP to insert block from list
Replies: 19
Views: 4858
Mon Jun 29, 2020 2:46 am
Jump to post

QuanNguyen

Re: DCL/LISP to insert block from list

Hi ,

In the defun "INSERT_BLOCK2"
try replace :
(command "._-insert" "D" pause 1 1 0 ) ;_ end of command
with :
(command "._-insert" D pause 1 1 0 ) ;_ end of command

Forum: AutoLisp/SDS
Topic: DCL/LISP to insert block from list
Replies: 19
Views: 4858
Sun Jun 28, 2020 8:48 pm
Jump to post

QuanNguyen

Re: DCL/LISP to insert block from list

Yes, you can replace the blockname and fileName with the value from the listBox in DCL. Suppose the return of dialog is a list : ("LD100mm Straight Run 3mtr" filename) (setq listBoxRetun (list "LD100mm Straight Run 3mtr" filename)) then the blockName and fileName can access as you wrote above. (setq...

Forum: AutoLisp/SDS
Topic: DCL/LISP to insert block from list
Replies: 19
Views: 4858
Tue Jun 23, 2020 2:22 am
Jump to post

QuanNguyen

Re: DCL/LISP to insert block from list

Hi, To insert the block from a file. first insert the block define from the file path then next insert the block name at the specified position. Refer: (defun c:insBlock (/ blockName fileName insertPoint ) (setq blockName "LD75mm Straight Run 3mtr" fileName "C:\\temp\\BlockDrawing.dwg") (if (not(tbl...

Forum: AutoLisp/SDS
Topic: DCL/LISP to insert block from list
Replies: 19
Views: 4858
Mon Jun 22, 2020 8:02 pm
Jump to post

QuanNguyen

Re: Turn on and off ESNAP from .Net

Hi Geza,

To turn on or off the running snap, simply set the SNAPMODE system variable to 1 or 0.

Refer:

Code: Select all

// Turn-off running snap
Application.SetSystemVariable("SNAPMODE", 0); 

// Turn-on running snap
Application.SetSystemVariable("SNAPMODE", 1);

Forum: VBA, . NET & IRX
Topic: Turn on and off ESNAP from .Net
Replies: 2
Views: 1098
Mon Jun 22, 2020 1:39 am
Jump to post

QuanNguyen

Re: Curve.GetGeCurve throws "Operation is not valid due to the current state of the object"

Hi Just checked and I get the same exception if the curve is Line, Spline, Xline, or ray. it works if the curve is Arc, circle, polyline, 3dpolyline, ellipse. var entity = (Entity)transaction.GetObject(id, OpenMode.ForRead); if (entity is Line || entity is Spline || entity is Xline || entity is Ray)...

Forum: VBA, . NET & IRX
Topic: Curve.GetGeCurve throws "Operation is not valid due to the current state of the object"
Replies: 1
Views: 1202
Thu Jun 11, 2020 6:49 pm
Jump to post

QuanNguyen

Re: VBA, can you with code editor show a 3d solid ?

You're welcome!
And here's the code for clearing all texts in model space:

Code: Select all

Public Sub EraseAllText()
    Dim ent As Entity
    For Each ent In IntelliCAD.ActiveDocument.ModelSpace
        If ent.EntityName = "Text" Then ent.Delete
    Next    
End Sub

Forum: VBA, . NET & IRX
Topic: VBA, can you with code editor show a 3d solid ?
Replies: 5
Views: 2035
Sun Jun 07, 2020 4:35 pm
Jump to post

QuanNguyen

Re: VBA, can you with code editor show a 3d solid ?

Hi JB, Maybe you need to zoom extent the drawing to see the objects. Here's the result of your code. Box.png Public Sub AddBoxEx() Dim myDoc As IntelliCAD.Document Dim pt As IntelliCAD.Point Dim t As IntelliCAD.text Dim s As IntelliCAD.Solid3D Dim c As Integer Set myDoc = ActiveDocument Set pt = Lib...

Forum: VBA, . NET & IRX
Topic: VBA, can you with code editor show a 3d solid ?
Replies: 5
Views: 2035
Sun Jun 07, 2020 5:04 am
Jump to post

QuanNguyen

Re: "Windows" is ambiguous in namespace "Intellicad"

.................... Also, line code : Dim fileDia As New IntelliCAD.Windows.SaveFileDialog( "Open an Image file", Nothing, "jpg; gif; tif; bmp", "Image File", IntelliCAD.Windows. OpenFileDialog.OpenFileDialogFlags.NoUrls) Causes this problem. Code line "aView.Thumbnail.Save(fileDia.Filename)" gene...

Forum: VBA, . NET & IRX
Topic: "Windows" is ambiguous in namespace "Intellicad"
Replies: 9
Views: 2360
Mon Jun 01, 2020 6:16 pm
Jump to post

QuanNguyen

Re: DrawLineTypePattern

Hi Denis,
Not sure but it seems that the function DrawLineTypePattern not available.

Forum: General
Topic: DrawLineTypePattern
Replies: 5
Views: 1465
Mon Jun 01, 2020 6:00 pm
Jump to post

Search found 144 matches

Display posts from previous

Sort by