AI generated lisp not working

[venturini.anthony]

I asked chatgpt to make this lisp. can anyone help why its giving me an error?

(vl-load-com)
(defun c:altp ( / ent label align)
(setq ent (car (entsel "Select polyline to align label to: ")))
(setq label (car (entsel "Select label to align: ")))
(setq align (vlax-invoke ent 'GetAlignmentPoint))
(vlax-put-property label 'AlignmentPoint align)
(princ)
)

[marko_ribar]

Change this :

(setq align (vlax-invoke ent 'GetAlignmentPoint))

To :

(setq align (vlax-invoke (vlax-ename->vla-object ent) 'GetAlignmentPoint))

And this :

(vlax-put-property label 'AlignmentPoint align)

To :

(vlax-put-property (vlax-ename->vla-object label) 'AlignmentPoint align)

[venturini.anthony]

i did that and i got this message 

[marko_ribar]

Polylines don't have alignment point property - they have vertices and segments (straight or arced-if lwpolyline)...

You have to decide where you want to put label (I suppose some "*TEXT" entity...)

[Kent1Cooper]

Once you've determined how to specify the where, there's the question of how to put the label there.  What kind of object is the "label"?  If it's Mtext or plain Text, there's a VLA property called InsertionPoint -- is that what you need instead of AlignmentPoint?

[marko_ribar]

I was going to suggest you these 2 links :

http://www.lee-mac.com/curvealignedtext.html 

http://www.lee-mac.com/dtcurve.html 

HTH.

M.R.

[Kent1Cooper]

---

@venturini.anthony wrote:

I asked chatgpt to make this lisp.....

---

Maybe that's the problem.  The >Wikipedia article about ChatGPT< includes this:

'Its uneven factual accuracy was identified as a significant drawback.'

and

'ChatGPT suffers from multiple limitations. OpenAI acknowledged that ChatGPT "sometimes writes plausible-sounding but incorrect or nonsensical answers".'

[greg_battin]

The only thing that I found helpful with chatgpt is to have it explain a portion of code to me.

If I want to understand some code, I enter 'autolisp and then the code'. For example, I would enter:
"autolisp (or (wcmatch AVER "*17*") (wcmatch AVER "*18*"))"

and the response from chatgpt is:

"The ssget function in AutoLISP is used to select sets of objects in AutoCAD based on certain criteria. The first argument "x" is the selection set name, and the second argument is a list of filter criteria. In this example, the filter criteria is set to select objects with a layer property of "0". The number 8 represents the layer property in the AutoCAD database, and the string "0" represents the desired value for that property. The function will return a list of object handles for all objects in the drawing that meet the specified criteria."

For now, I will use it for that purpose and not have it write code for me.

I think that is pretty cool. I don't have to make a post on the forums asking someone to explain some basic code to me.

[Kent1Cooper]

---

@greg_battin wrote:

....If I want to understand some code, I enter 'autolisp and then the code'. For example, I would enter:

"autolisp (or (wcmatch AVER "*17*") (wcmatch AVER "*18*"))"

and the response from chatgpt is:

"The ssget function ....

---

Does it really tell you about (ssget) when your entry involves (wcmatch)?  That doesn't seem so cool to me.

And does the >AutoLisp Functions Reference< not explain things well enough?