Topic: Dynamic Intelligent Leader !

[ROBBO]

ROBBO, I think Andrea is asking for what do you get after typing : !Dil_installdir at command prompt...

Thanks ribarm - post modified to suit.

[Andrea]

Andrea,

Command: (setq cfgo (open (strcat Dil_installdir "\\dlconfig.cfg") "w"))
nil
Command: !Dil_installdir
"c:\\Program files\\DuctiSoft\\DiLeader"

All the best, Robbo.

weird thing...:/

do you have write acces on this folder ?
what is your Operating System ? win 8 ?

[ROBBO]

Ahh! I agree, I am a weird thing.

I only had write access when logged in as an administrator. Now changed folder location to have write access for normal login. Admin login is required to install exe and msi files.

Command: (LOAD "C:/Program Files/DuctiSoft/DiLeader/DiLeader.LSP")
DiLEADER version v.14.331 par: Andrea Andreetti - DuctiSoft inc.#<VLR-Command-Reactor>
Command: DILC
ODCL_LM version 14.285 by DuctiSoft inc. - Enabled done.
T

All is Good now - thank you.

[Andrea]

ok thank you..

I'll provide un ZIP file instead an EXE.
thank again for all your Help.

Cheers. !

[ROBBO]

ok thank you..

I'll provide un ZIP file instead an EXE.
thank again for all your Help.

Cheers. !

Not a problem. Thanks for sharing.

[Andrea]

There we go..

last version updated.
DiLeader v.14.355

enjoy !

need to make the Zip file..

[ribarm]

Hi Andrea, when I change values in DILC for Geometry parameters of Dileader, no changes are made to .cfg file (variables cfgo_10, cfgo_11 and cfgo_12 have 0 values after reading cfg file that is used in DIL command)... Is this possible to fix, or we have to use DILFSL, DILGAPX, DILGAPY commands to make those changes... To bad it won't work through dialog box... Anyway, else is fine and works brilliantly...

Thanks for this tool...
M.R.

[ROBBO]

Hello Andrea,

All Good!

I have a question for you: I have installed ObjectDCL ARX, and DILC works for me. But what I would like to do, is copy the ObjectDCL ARX folder to other users PC with Shell, which I have done and load in the ARX with a lisp. But the DiLC will not work and users get the error message to download ObjectDCL from website and install, although states arx is loaded. Is there a way to bypass this and register the arx?

Many thanks, Robbo.

[ribarm]

Robbo, I think you have to install ObjectDCL from setup file that is packed into zip after you download correct version 32 bit or 64 bit from the link Andrea provided... Then if ACAD is 32 bit you'll probably miss this files that are installed when you setup 64 bit version... So I suggest that you copy them into c:\Program Files\DuctiSoft\ObjectDCL ARX\ :

01/21/2012  04:16 PM             8,111 ArxHelpers.lsp
10/20/2007  04:18 AM           349,226 Cli_LP.dll
07/03/2008  01:41 PM           102,400 EmailActivation.exe
04/18/2012  09:34 PM           259,584 LicenseManager.exe
10/25/2012  10:09 AM            83,502 ObjectDCL-7.5.0.1-ARX-ZRX64-Uninstall.exe
08/12/2014  11:18 PM            82,776 ObjectDCL_DK_uninstall.exe
04/07/2013  07:15 PM                14 ODCLlicS.chk
10/17/2014  02:53 AM           151,108 ODCL_LM.des
10/29/2013  01:44 AM               384 ODCL_LM.kds
10/28/2013  01:34 AM             3,436 ODCL_LM.ods
10/17/2014  02:53 AM           125,348 ODCL_LM.VLX

After you deployed mentioned files, you should make following paths in your SFSP of ACAD :

c:\Program Files\DuctiSoft\DiLeader
c:\Program Files\DuctiSoft\ObjectDCL ARX

I've also put (arxload "ObjectDCL.XX.arx") (XX is number of ACADVER you're deploying ARX) in acaddoc.lsp and also loaded (load "DiLeader.lsp") also in acaddoc.lsp, so that dileader is automatically loaded when I start CAD... You can also do this manually through "APPLOAD" command... And that's it... It should work... As far as I know only A2009 32 bit can't be properly setup... But on all my other CADs its working well, and I mean A2008 32 bit, A2009 64 bit, A2012 64 bit, A2014 64 bit...

[EDIT : Attached is ZIP that contains those mentioned additional files...]
HTH, M.R.

[ROBBO]

Thanks ribarm.

Appreciate your time and response. Will give it a go!

All the best Robbo.

[ribarm]

And for "Arrows" DWGs, I suggest that you do the following, (if they are EVALUATION VERSION drawings)... Open DWG in some newer release of ACAD... insert block that is stored in memory of DWG into 0,0,0 with scale 1,1,1 and rotation 0.0... Explode DWG... Use this extension of CP command posted here : http://www.theswamp.org/index.php?topic=47923.msg529342#msg529342 - it's called CPENTM command, and it consists from cpentm.lsp :

Code: [Select]

(defun c:cpentm nil
  (ssget "_:L")
  (command "_.script" (findfile "cpentm.scr"))
  (princ)
)
And from cpentm.scr :

Code: [Select]

(vl-load-com)
(defun makelsp ( ss / i e el lst fn )
(repeat (setq i (sslength ss))
(setq el (entget (setq e (ssname ss (setq i (1- i))))))
(setq el (vl-remove (assoc -1 el) el))
(setq el (vl-remove (assoc 5 el) el))
(setq el (vl-remove (assoc 300 el) el))
(setq el (vl-remove (assoc 310 el) el))
(setq el (vl-remove (assoc 320 el) el))
(setq el (vl-remove (assoc 330 el) el))
(setq el (vl-remove (assoc 340 el) el))
(setq el (vl-remove (assoc 350 el) el))
(setq el (vl-remove (assoc 360 el) el))
(setq el (vl-remove (assoc 370 el) el))
(setq el (vl-remove (assoc 380 el) el))
(setq el (vl-remove (assoc 390 el) el))
(setq el (mapcar '(lambda ( x ) (cons 'quote (list x))) el))
(setq lst (append lst (list (cons 'entmake (list (cons 'list el))))))
(if (eq (cdr (assoc 0 (entget e))) "POLYLINE")
(progn
(while (/= (cdr (assoc 0 (entget (setq e (entnext e))))) "SEQEND")
(setq el (entget e))
(setq el (vl-remove (assoc -1 el) el))
(setq el (vl-remove (assoc 5 el) el))
(setq el (vl-remove (assoc 300 el) el))
(setq el (vl-remove (assoc 310 el) el))
(setq el (vl-remove (assoc 320 el) el))
(setq el (vl-remove (assoc 330 el) el))
(setq el (vl-remove (assoc 340 el) el))
(setq el (vl-remove (assoc 350 el) el))
(setq el (vl-remove (assoc 360 el) el))
(setq el (vl-remove (assoc 370 el) el))
(setq el (vl-remove (assoc 380 el) el))
(setq el (vl-remove (assoc 390 el) el))
(setq el (mapcar '(lambda ( x ) (cons 'quote (list x))) el))
(setq lst (append lst (list (cons 'entmake (list (cons 'list el))))))
)
(setq el (entget e))
(setq el (vl-remove (assoc -2 el) el))
(setq el (vl-remove (assoc -1 el) el))
(setq el (vl-remove (assoc 5 el) el))
(setq el (vl-remove (assoc 300 el) el))
(setq el (vl-remove (assoc 310 el) el))
(setq el (vl-remove (assoc 320 el) el))
(setq el (vl-remove (assoc 330 el) el))
(setq el (vl-remove (assoc 340 el) el))
(setq el (vl-remove (assoc 350 el) el))
(setq el (vl-remove (assoc 360 el) el))
(setq el (vl-remove (assoc 370 el) el))
(setq el (vl-remove (assoc 380 el) el))
(setq el (vl-remove (assoc 390 el) el))
(setq el (mapcar '(lambda ( x ) (cons 'quote (list x))) el))
(setq lst (append lst (list (cons 'entmake (list (cons 'list el))))))
)
)
)
(setq lst (cons 'list lst))
(setq lst (list lst 'e))
(setq lst (cons 'e lst))
(setq lst (cons 'foreach lst))
(setq fn (open "c:/lsp.lsp" "w"))
(print lst fn)
(close fn)
(princ)
)
(setq fn (open "c:/doc.txt" "w"))
(setq k -1)
(while (not (equal (vla-get-activedocument (vlax-get-acad-object)) (vla-item (vla-get-documents (vlax-get-acad-object)) (setq k (1+ k))))))
(princ k fn)
(close fn)
(setq fn nil k nil)
(makelsp (ssget "_P"))
(setq makelsp nil)
_.new

(load "c:/lsp.lsp")
(vl-load-com)
(setq fn (open "c:/doc.txt" "r"))
(setq k (read (read-line fn)))
(close fn)
(vla-activate (vla-item (vla-get-documents (vlax-get-acad-object)) k))
(defun doc nil
(if (findfile "c:\\doc.txt") (vl-file-delete "c:\\doc.txt"))
(if (findfile "c:\\lsp.lsp") (vl-file-delete "c:\\lsp.lsp"))
(setq doc nil fn nil k nil)
(princ)
)
(alert "Type (doc) at command prompt")
(princ)

You should put cpentm.scr in SFSP of ACAD, and load cpentm.lsp... Start cpentm command after you loaded lisp with DWG that has this block exploded and select all entities... Automatically script will execute inside built lisp for creating (entmaking) 2D entities in newly created DWG... (3D SOLIDS can't be entmaked - for them you have to use CP.lsp with CP.scr showed on link above - for those kind of drawings that have 3D SOLIDS and that are EVALUTION versions - I still don't know how to remove EVALUATION mark as with copybase 0,0,0 and pasteclip 0,0,0 nothing is solved EVALUATION stays - only way is to recreate entities through entmake or similar, so for 2D drawings this is possible on this way (cpentm command)... When newly created DWG is made with new entities, you should switch to it (ALT+W) and purge all (don't forget to type (doc) when asked to remove temp lsp and txt file stored on c:\)... Then SAVEAS DWG and use the same name as original DWG and save it to newly created folder... Repeat this procedure for all DWGs in Arrows directory, and move original DWGs from Arrows folder to new folder - keep originals... Then move all newly created DWGs into Arrows folder and that's it... You removed EVALUATION mark and made DWGs operable for TAB option when DIL command is started...

HTH, M.R.

[ROBBO]

Thanks ribarm.

Appreciate your time and response. Will give it a go!

All the best Robbo.

No luck I am afraid. Perhaps a .reg file is required. It works fine on my PC, but not for others. It will be pain to log in as administrator to install on a number of PCs.

BTW I used the path C:\Ductisoft\ObjectDCL ARX. I believe you are not able to make a directory with lisp in Program files.

All the Best, Robbo

[Andrea]

Hi Guys,..

Ok,...ObjectDCL Extension need registry information to work properly.
ex:

Code: [Select]

[HKEY_CURRENT_USER\Software\DuctiSoft\ObjectDCL ARX]
"InstallDir"="c:\\Program files\\DuctiSoft\\ObjectDCL ARX"
"Version"="14.158"
"Platform"="Win64"
"LMver"="14.216"
InstallDir = is necessary for many application telling where the Extension file is located.
Version = is necessary to validate status and Licence if you have one.
PlatForm = is OS information...this can be skipped.
LMver = Installed version of ODCL_LM.vlx, this is necessary cause depending of the version, some function are requested.


you can use the following:

Code: [Select]

(if (setq LM
   (findfile
     (strcat
       (vl-registry-read "HKEY_CURRENT_USER\\Software\\DuctiSoft\\ObjectDCL ARX" "InstallDir")
       "\\ODCL_LM.vlx"
       )
     )
  )
  (load LM)
  )

ODCL_LM.vlx file take care loading the correct ARX,BRZ,ZRX file for you.. 

if you want to install all package...
you can use the silence install package provided...

Version 14.283
64bits Silence Install
32bits Silence Install

but this will automatically use the c:\Program files\DuctiSoft\ folder..

So if you want to use it in a diffrent foder,..
I suggest you to copy the correct ARX,ZRX,BRX + the VLX or DES files in your wanted folder..
than, add registry information if it is not present.

[Andrea]

Hi Andrea, when I change values in DILC for Geometry parameters of Dileader, no changes are made to .cfg file (variables cfgo_10, cfgo_11 and cfgo_12 have 0 values after reading cfg file that is used in DIL command)... Is this possible to fix, or we have to use DILFSL, DILGAPX, DILGAPY commands to make those changes... To bad it won't work through dialog box... Anyway, else is fine and works brilliantly...

Thanks for this tool...
M.R.

Thank you M.R....I'll take a look on that.

[ROBBO]

Code: [Select]

(if (setq LM
   (findfile
     (strcat
       (vl-registry-read "HKEY_CURRENT_USER\\Software\\DuctiSoft\\ObjectDCL ARX" "InstallDir")
       "\\ODCL_LM.vlx"
       )
     )
  )
  (load LM)
  )


Hello Andrea, Sorry to bother you again, but I get this error message when I attempt to run the code suggested in my startup lisp.

; error: bad argument type: stringp nil

Any ideas?

KR. Robbo