Getdist - What is wrong?

teknomatika · 发表于 2022-7-6 08:07:26

What is wrong with this code?

(setq pnt1 (getpoint "\nPoint 1"))(setq pnt2 (getpoint "\nPoint 2"))(setq disth (getdist '(pnt1 pnt2)))(setq ncol (getint "\nNº Columns"))(setq disth (/ disth ncol))

MSasu · 发表于 2022-7-6 08:22:32

The GETDIST function allows you to get a distance dynamically on screen:

copy

(if (setq pnt1 (getpoint "\nPoint 1"))(setq disth (getdist pnt1 "\nPoint 2")))

To calcute distance between two point use DISTANCE:

copy

(if (and (setq pnt1 (getpoint "\nPoint 1"))        (setq pnt2 (getpoint "\nPoint 2")))(setq disth (distance pnt1 pnt2)))

Regards,
Mircea

teknomatika · 发表于 2022-7-6 08:42:49

Tanks Mircea,
However in the AutoCad Help these examples are presented:

copy

(setq dist (getdist)) (setq dist (getdist '(1.0 3.5))) (setq dist (getdist "How far ")) (setq dist (getdist '(1.0 3.5) "How far? "))

Lee Mac · 发表于 2022-7-6 08:45:45

getdist will prompt the user to pick one or two points and return the distance between them, it requires a string argument (prompt message) and optional base point for the distance - you are supplying it with a quoted list of two symbols.

Essentially, there are two ways you can approach this:

1) getpoint - getpoint - distance:

copy

(setq p1 (getpoint "\nPoint 1: "))(setq p2 (getpoint "\nPoint 2: "))(setq di (distance p1 p2))

2) getpoint - getdist:

copy

(setq p1 (getpoint "\nPoint 1: "))(setq di (getdist p1 "\nDistance: "))

Note that both of the above solutions do not account for null user input and will require some error trapping in this respect.

teknomatika · 发表于 2022-7-6 09:00:36

Tanks, Lee.
In fact what I want is to use distance value as the value set by the input of points 1 and 2. I understand.

MSasu · 发表于 2022-7-6 09:08:51

To match the help example you may write it like this:

copy

(setq coordX (getreal "\nCoordinate X of point 1: ")     coordY (getreal "\nCoordinate Y of point 1: "))(setq disth (getdist (list coordX coordY) "\nInput second point:"))

For sure this isn't practical at all, is just to help you understand.

Regards,
Mircea

[编程交流] Getdist - What is wrong?

发表回复

精选推荐