Discussion forum

Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic

   Hello to everybody,I'd like to create a lisp function which waits for the user to specify a point which lies on a straight line passing through a specified point and inclined of a specified angle. It's not difficult to code but the function must show a rubber-line which moves only along the specified angle.
I already coded such a function. Here it is:

(defun getpolar (pt ang msg / r)
  (vl-cmdf "_line" pt (strcat "<" (angtos ang (getvar "AUNITS"))))
  (prompt msg)
  (command pause)
  (command)
  (setq r (getvar "LASTPOINT"))
  (entdel (entlast))
  (polarp pt ang (* (distance r pt) (cos (- (angle pt r) ang))))
)

Try it like this:

(getpolar '(0 0 0) 30 "Specifiy end point: ")

But I want the function not to create a line entity and then delete it.

Is there a simpler way?

For example, if from command-line I enter:

(getpoint '(0 0 0) "Specifiy end point: ")

and then:

<45

a rubber-line which moves only along an angle of 45Â° appears.

But how do I put it in a lisp function?

Thanks to all.

CZ \| EN \| DE
Login or
registration
	Visitors: 8624

Author	Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic
lucasugar Members Profile Find Members Posts Newbie Joined: 22.Feb.2016 Location: Italy Using: AutoCAD Status: Offline Points: 2	Topic: Getpolar function Posted: 22.Feb.2016 at 20:36
	Hello to everybody, I'd like to create a lisp function which waits for the user to specify a point which lies on a straight line passing through a specified point and inclined of a specified angle. It's not difficult to code but the function must show a rubber-line which moves only along the specified angle. I already coded such a function. Here it is: (defun getpolar (pt ang msg / r) (vl-cmdf "_line" pt (strcat "<" (angtos ang (getvar "AUNITS")))) (prompt msg) (command pause) (command) (setq r (getvar "LASTPOINT")) (entdel (entlast)) (polarp pt ang (* (distance r pt) (cos (- (angle pt r) ang)))) ) Try it like this: (getpolar '(0 0 0) 30 "Specifiy end point: ") But I want the function not to create a line entity and then delete it. Is there a simpler way? For example, if from command-line I enter: (getpoint '(0 0 0) "Specifiy end point: ") and then: <45 a rubber-line which moves only along an angle of 45Â° appears. But how do I put it in a lisp function? Thanks to all.

	CAD Forum - tips, tricks, utilities, discussion for AutoCAD, LT, Inventor, Revit, Map, Civil 3D, 3ds Max, Fusion 360 and other Autodesk software (support by Arkance Systems)	Arkance Systems CZ (CAD Studio) - Autodesk Platinum Partner & Training Center & Services Partner	CONTACT: webmaster.cz@arkance-systems.com tel. +420 910 970 111
	Copyright ©2024 \| Advertise with us \| Online privacy

Discussion forum

CAD discussion

Getpolar function