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

Lisp help (trans)

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
 

(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:

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

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

Thanks Gile,
 
it work
 
Cheers:)
页: [1]
查看完整版本: Lisp help (trans)