Lisp help (trans)

VisDak · 发表于 2022-7-6 11:05:29

Hi all

Good day, could any one help me regarding with wcs trans in this lsp
im trying to add the trans but its not working on propered direction

[code](defun c:ql (/ oldorth pt grdat cAng cDis pt1) (setq oldorth (getvar "ORTHOMODE")) (if (setq pt (getpoint "\nSelect First Point: ")) (progn (while (eq 5 (car (setq grdat (grread t 5 0)))) (redraw) (setq cAng (angle pt (setq cPt (cadr grdat))) cDis (distance pt cPt)) (cond ((

gile · 发表于 2022-7-6 11:51:41

Hi,

You do not transform the last point.
Try:

copy

(cons 10 (trans (getpoint pt1 "\nSpecify Next Point") 1 0))

VisDak · 发表于 2022-7-6 12:26:08

Thanks Gile,

it work

Cheers:)

[编程交流] Lisp help (trans)

发表回复

精选推荐