topic Re: Code debugging in Visual LISP, AutoLISP and General Customization Forum

Code debugging

support201 — Thu, 19 Mar 2020 08:53:49 GMT

Dear all,
My customer is using add-on AutoLISP for AutoCAD. He made a code of AutoLISP inorder to export the table of Point Coordinates, but the output value after exporting is incorrect. For detail, the problem is that when he run Autolisp, the X coordinates of the output points were negative coordinates instead of positive as they should be . Additionally, the coỏrdinate origin moved to another position. Kindly see the attachment for more details
Please help me to fix the code of AutoLISP
Thanks so much
Duc Tran

Re: Code debugging

ВeekeeCZ — Thu, 19 Mar 2020 09:24:52 GMT

Do I understand you correctly that you are providing some purchased services and the actual work you're using from us?

Re: Code debugging

support201 — Thu, 19 Mar 2020 09:44:03 GMT

My customer. Yes, my customer has purchased AutoCAD, and he use AutoLISP for AutoCAD, and now he need your help to debug his code of AutoLISP

Re: Code debugging

devitg — Thu, 19 Mar 2020 14:50:20 GMT

Why not use DATAEXTRACTION .

Please show the dwg before the lisp was applied

Re: Code debugging

support201 — Fri, 20 Mar 2020 04:37:51 GMT

Hello Devitd,

I would like to provide the drawing before running LISP, pls see the attachment

When I use Dataextraction, there is a problem that when I export the table of coordinates inorder to manufacture there is no coordinate in the table

Re: Code debugging

devitg — Fri, 20 Mar 2020 12:55:40 GMT

Find attached both the dwg with table and Xls , also the CIRCLE DATA.dxe to be used when Data extraction dialog box ask

Re: Code debugging

devitg — Fri, 20 Mar 2020 13:00:54 GMT

attached

Re: Code debugging

support201 — Sat, 21 Mar 2020 09:04:34 GMT

Hello Devitg,

Thank you so much for your help. But I am afraid that the result is not correct. There are 2 points which their X coordinates should be 0. Kindly see the attachment

Re: Code debugging

devitg — Sat, 21 Mar 2020 13:15:04 GMT

~~It seem to be the fact is your UCS. set it to World~~

checking

Re: Code debugging

devitg — Sat, 21 Mar 2020 13:36:58 GMT

I did check it , if I set UCS to world , and move all circles from the left-down-most, to 000 , and a set a new dxe , it work as expected . find attached

Re: Code debugging

devitg — Sat, 21 Mar 2020 13:38:32 GMT

attached

Re: Code debugging

support201 — Mon, 23 Mar 2020 06:21:17 GMT

Hello Devitg. thank you so much. the result is correct. But I need to debug my code in AutoLISP. Because I want to use AutoLISP to do not only exporting coordinates but also the other things. So could you please help me to find the issue in my code?

Re: Code debugging

cadffm — Mon, 23 Mar 2020 07:33:56 GMT

There is no issue, but alle data are stored in the one and only WCS.

If you read the object data -> WCS!

UCS are for the User only, as help for a better workflow with less calculatings for the user (but more for the program).

If you like to know what the coordinate are in UCS system, Press Help [F1] and read about TRANS (LispFunction)

(trans (cdr(assoc 10 (setq el (entget(setq en (car(entsel))))))) en 1)

Re: Code debugging

support201 — Mon, 23 Mar 2020 09:20:13 GMT

Thanks so much. I tried to change the code from 0 to 1 but it failed. What should I do? Kindly see the attachments

Re: Code debugging

cadffm — Mon, 23 Mar 2020 10:14:50 GMT

@support201 schrieb:

Thanks so much. I tried to change the code from 0 to 1 but it failed. What should I do? Kindly see the attachments

I don't understand what your post have to do with my answer!?

You new Table looks good except you changed "my setting" from OCS to ??? perhaps to WCS,

i don't know - you didn't post the used new code here.

The problem is: "We" know how Acad works, also Lispfunctions, but we don't know about your AutoCAD and Lisp knowledge,

so it is difficult to answer in the best way for you.

Sorry, i am out.

It take too many time to teach all stuff from scratch (WorldCoordinateSystem WCS, User(defined)CoordinateSystem UCS, and for programming - Object coordinate system OCS / DXF 210)

If your wanted coordinate system is active, like in your sample file,

you can use me TRANS setting to convert Circle-Center coordinates from OCS to UCS data.

I don't test your code, because you uses commands and didn't internationalized it,

Text prompt are not in english, so it is hard to follow the steps for a successfull input.

(I start CTC, what i have to type in to get the same result like you? CTC,16,2,A1,E(?),PickPoint(?),a Number(?),ObjectSelection(?), H(?) -> not working for example)

Try this to set the PNTS variable:

(setq pnts (append pnts (list (trans (cdr (assoc 10 (entget (ssname rfob n)))) (ssname rfob n) 1))))

Re: Code debugging

devitg — Mon, 23 Mar 2020 13:11:39 GMT

to do not only exporting coordinates but also the other things

Please clear what other thing , and try to translate from VN to EN quoted text at the LSP file

Re: Code debugging

support201 — Tue, 24 Mar 2020 04:28:05 GMT

I attached the code in English, pls see the attachments