Visual LISP, AutoLISP and General Customization

Visual LISP, AutoLISP and General Customization

Reply
Distinguished Contributor
bob.at
Posts: 728
Registered: ‎03-16-2004
Message 11 of 21 (289 Views)

Re: linesum lisp - 1 attachment

05-10-2004 12:33 PM in reply to: *Keith
Keith,

i cant see your problem. With my changes you get the following in aour sample dwg:
layer: c-ss-gravity-service Total length is: 4405.27
layer: c-ss-gravity Total length is: 11371.20
(instead of 6647.40 with the old version)

And i have checked this manually, it is correct.

bob.at
*Jürg Menzi
Message 12 of 21 (289 Views)

Re: linesum lisp - 1 attachment

05-10-2004 12:34 PM in reply to: *Keith
Keith Line wrapping... (setq FltLst '((0 . "3DPOLY,ARC,CIRCLE,ELLIPSE,LINE,LWPOLYLINE,POLYLINE,SPLINE") ... Cheers -- Juerg Menzi MENZI ENGINEERING GmbH, Switzerland http://www.menziengineering.ch
*Jürg Menzi
Message 13 of 21 (289 Views)

Re: linesum lisp - 1 attachment

05-10-2004 12:38 PM in reply to: *Keith
Keith To avoid further troubles the file as attachment... Cheers -- Juerg Menzi MENZI ENGINEERING GmbH, Switzerland http://www.menziengineering.ch Attachment not added (content type not allowed): "VxGetAllLength.lsp"
*Keith
Message 14 of 21 (289 Views)

Re: linesum lisp - 1 attachment

05-10-2004 12:52 PM in reply to: *Keith
bob.at typed the following message: > Keith, > > i cant see your problem. With my changes you get the following in aour > sample dwg: layer: c-ss-gravity-service Total length is: > 4405.27 layer: c-ss-gravity Total length > is: 11371.20 (instead of 6647.40 with the old version) > > And i have checked this manually, it is correct. > > bob.at Can you post the LSP you used?? I'm getting an error in the file yet.
Anonymous(anon)
Posts: 0
Message 15 of 21 (289 Views)

Re: linesum lisp - 1 attachment

05-10-2004 01:02 PM in reply to: *Keith
 
*Jürg Menzi
Message 16 of 21 (289 Views)

Re: linesum lisp - 1 attachment

05-10-2004 01:02 PM in reply to: *Keith
Keith schrieb: I told you: 'Maybe you find something usefull in this program...' But to solve your problem check the attachment. Cheers -- Juerg Menzi MENZI ENGINEERING GmbH, Switzerland http://www.menziengineering.ch Attachment not added (content type not allowed): "VxGetAllLength.lsp" Attachment not added (content type not allowed): "VxGetAllLength.lsp" Attachment not added (content type not allowed): "VxGetAllLength.lsp" Attachment not added (content type not allowed): "VxGetAllLength.lsp" Attachment not added (content type not allowed): "VxGetAllLength.lsp" Attachment not added (content type not allowed): "VxGetAllLength.lsp" Attachment not added (content type not allowed): "VxGetAllLength.lsp" Attachment not added (content type not allowed): "VxGetAllLength.lsp" Attachment not added (content type not allowed): "VxGetAllLength.lsp" Attachment not added (content type not allowed): "VxGetAllLength.lsp" Attachment not added (content type not allowed): "VxGetAllLength.lsp" Attachment not added (content type not allowed): "VxGetAllLength.lsp" Attachment not added (content type not allowed): "VxGetAllLength.lsp" Attachment not added (content type not allowed): "VxGetAllLength.lsp" Attachment not added (content type not allowed): "VxGetAllLength.lsp" Attachment not added (content type not allowed): "VxGetAllLength.lsp" Attachment not added (content type not allowed): "VxGetAllLength.lsp" Attachment not added (content type not allowed): "VxGetAllLength.lsp" Attachment not added (content type not allowed): "VxGetAllLength.lsp" Attachment not added (content type not allowed): "VxGetAllLength.lsp" Attachment not added (content type not allowed): "VxGetAllLength.lsp" Attachment not added (content type not allowed): "VxGetAllLength.lsp" Attachment not added (content type not allowed): "VxGetAllLength.lsp" Attachment not added (content type not allowed): "VxGetAllLength.lsp" Attachment not added (content type not allowed): "VxGetAllLength.lsp" Attachment not added (content type not allowed): "VxGetAllLength.lsp" Attachment not added (content type not allowed): "VxGetAllLength.lsp" Attachment not added (content type not allowed): "VxGetAllLength.lsp" Attachment not added (content type not allowed): "VxGetAllLength.lsp" Attachment not added (content type not allowed): "VxGetAllLength.lsp" Attachment not added (content type not allowed): "VxGetAllLength.lsp" Attachment not added (content type not allowed): "VxGetAllLength.lsp" Attachment not added (content type not allowed): "VxGetAllLength.lsp" Attachment not added (content type not allowed): "VxGetAllLength.lsp" Attachment not added (content type not allowed): "VxGetAllLength.lsp" Attachment not added (content type not allowed): "VxGetAllLength.lsp" Attachment not added (content type not allowed): "VxGetAllLength.lsp" Attachment not added (content type not allowed): "VxGetAllLength.lsp" Attachment not added (content type not allowed): "VxGetAllLength.lsp" Attachment not added (content type not allowed): "VxGetAllLength.lsp" Attachment not added (content type not allowed): "VxGetAllLength.lsp" Attachment not added (content type not allowed): "VxGetAllLength.lsp" Attachment not added (content type not allowed): "VxGetAllLength.lsp" Attachment not added (content type not allowed): "VxGetAllLength.lsp" Attachment not added (content type not allowed): "VxGetAllLength.lsp" Attachment not added (content type not allowed): "VxGetAllLength.lsp" Attachment not added (content type not allowed): "VxGetAllLength.lsp" Attachment not added (content type not allowed): "VxGetAllLength.lsp" Attachment not added (content type not allowed): "VxGetAllLength.lsp" Attachment not added (content type not allowed): "VxGetAllLength.lsp" Attachment not added (content type not allowed): "VxGetAllLength.lsp" Attachment not added (content type not allowed): "VxGetAllLength.lsp" Attachment not added (content type not allowed): "VxGetAllLength.lsp" Attachment not added (content type not allowed): "VxGetAllLength.lsp" Attachment not added (content type not allowed): "VxGetAllLength.lsp" Attachment not added (content type not allowed): "VxGetAllLength.lsp" Attachment not added (content type not allowed): "VxGetAllLength.lsp" Attachment not added (content type not allowed): "VxGetAllLength.lsp" Attachment not added (content type not allowed): "VxGetAllLength.lsp" Attachment not added (content type not allowed): "VxGetAllLength.lsp" Attachment not added (content type not allowed): "VxGetAllLength.lsp" Attachment not added (content type not allowed): "VxGetAllLength.lsp" Attachment not added (content type not allowed): "VxGetAllLength.lsp" Attachment not added (content type not allowed): "VxGetAllLength.lsp" Attachment not added (content type not allowed): "VxGetAllLength.lsp" Attachment not added (content type not allowed): "VxGetAllLength.lsp" Attachment not added (content type not allowed): "VxGetAllLength.lsp" Attachment not added (content type not allowed): "VxGetAllLength.lsp" Attachment not added (content type not allowed): "VxGetAllLength.lsp" Attachment not added (content type not allowed): "VxGetAllLength.lsp" Attachment not added (content type not allowed): "VxGetAllLength.lsp" Attachment not added (content type not allowed): "VxGetAllLength.lsp"
Distinguished Contributor
bob.at
Posts: 728
Registered: ‎03-16-2004
Message 17 of 21 (289 Views)

Re: linesum lisp - 1 attachment

05-10-2004 10:28 PM in reply to: *Keith
voila
If its still not working: AutoCAD version, which error message?

bob.at
Message was edited by: bob.at
*Marc'Antonio Alessi
Message 18 of 21 (289 Views)

Re: linesum lisp - 1 attachment

05-11-2004 03:08 AM in reply to: *Keith
Hi Jürg, I like YOUR local variables names, have you a list of them? Cheers. Marco -- EntNam EntDat CrlDat TxtDat InsDat GrpDat EntClr EntDtX LowLft UppRgt LinSrt LinEnd CrcRad SsOrg SsXdat SelSet NumObj SsLngt SSIndx Dxf__0 DxfSrt DxfEnd Deg090 AddRem AppNam ApsLst ApsStr PtsLst TmpLst FlsLst FilNam ImpFil FilPtr OldNam NewNam VlaObj TrueFl FlgSlt Countr BitFlg BitRif debug DclId TilNam DclAct WhtNxt DimLFt AcdVer SttLst PrmLst EnsLst PtnRif AngRif DstRif MisVal AltStr ValStr TotStr TxtHgt TxtAng TxtSty StrLng ReaNum ForElm VLA Acad globals: *AcadApp* = Acad.Application - *ActiveDwg* = ActiveDocument VLA Excel globals: *ExcelApp* = Excel.Application - *ActiveWbk* = ActiveWorkbook *ActiveSht* = ActiveSheet - *ActiveCls* = ActiveCells -- ________________________________________________ Marc'Antonio Alessi http://xoomer.virgilio.it/alessi (strcat "NOT a " (substr (ver) 8 4) " guru.") ________________________________________________
*Jim Claypool
Message 19 of 21 (289 Views)

Re: linesum lisp - 1 attachment - 1 attachment

05-11-2004 08:11 AM in reply to: *Keith
I used your drawing and my code. In the drawing c-ss-gravity-service AutoCAD reports 4405.28 My program reports 4405.27 c-ss-gravity AutoCAD reports 11371.21 My program reports 11371.19 That would be close enough for me. "Keith" wrote in message news:409f9f70_3@newsprd01... > Jim Claypool typed the following message: > > > You also need to change the line > > (setq en (ssname selset 0)) > > to > > (setq en (ssname selset c)) > > > > Here is an alternative and you don't need the added functions ... > > (defun c:lines () > > (setq llst (list (tblnext "LAYER" T))) > > (while (setq lay (tblnext "LAYER")) > > (if (/= lay "") > > > Look at the attached DWG, I used your alterante code and still didn't get > the correct lengths. > >
*Jürg Menzi
Message 20 of 21 (289 Views)

Re: linesum lisp - 1 attachment

05-11-2004 10:55 PM in reply to: *Keith
Marc'Antonio > ... have you a list of them? Unfortunately not, but it's easy to create this 'talking' var names... Cheers -- Juerg Menzi MENZI ENGINEERING GmbH, Switzerland http://www.menziengineering.ch
Post to the Community

Have questions about Autodesk products? Ask the community.

New Post
Announcements
Are You Going To Be @ AU 2014? Feel free to drop by our AU topic post and share your plans, plug a class that you're teaching, or simply check out who else from the community might be in attendance. Ohh and don't forgot to stop by the Autodesk Help | Learn | Collaborate booths in the Exhibit Hall and meet our community team if you get a chance!