Visual LISP, AutoLISP and General Customization

Visual LISP, AutoLISP and General Customization

Reply
Distinguished Contributor
728 Posts
3 Kudos
Registered: ‎03-16-2004
Post 11 of 21

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
Post 12 of 21

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
Post 13 of 21

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"

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
0 Posts
Post 15 of 21

Re: linesum lisp - 1 attachment

05-10-2004 01:02 PM in reply to: *Keith
 
*Jürg Menzi
Post 16 of 21

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
728 Posts
3 Kudos
Registered: ‎03-16-2004
Post 17 of 21

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
Post 18 of 21

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
Post 19 of 21

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
Post 20 of 21

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 interested in helping shape the future of the Autodesk Community? To participate in this brief usability study, please click here. Your time and input is greatly appreciated!