vla-AutoLispR4-Getx Point Dynamic View

lisp2arx
Visual Programming for AutoLisp Mathématiques en programmation Lisp.. doc2cpp,doc2lsp, sld2lsp, bmp2dcl, free__GifCcapture for all-CAD'platforms..

Lista Forumurilor Pe Tematici

lisp2arx | Reguli | Inregistrare | Login

POZE LISP2ARX

Nu sunteti logat.

Nou pe simpatie:
surender_lady

Femeie
25 ani
Arad
cauta Barbat
26 - 47 ani

lisp2arx / Listof AutoLisp.100 / vla-AutoLispR4-Getx Point Dynamic View

Moderat de zauchan

Autor

Mesaj

Pagini: 1

zauchan
Moderator

Inregistrat: acum 14 ani
Postari: 180

#region
dfn_getx_pointxy

;;Lnk:
;;Mam:dfn_getx_pointxy

(defun dfn_getx_pointxy (/ etxt p prvtext scl str txt txtp xog yof)
(setq xof 30
   yof -30
scl (/ (getvar 'viewsize) (cadr (getvar 'screensize)))
)
(while (= 5 (car (setq p (grread nil 13 0))))
(setq p (cadr p)
   str (mapcar 'rtos p)
   txtp (list (+ (car p) (* xof scl)) (+ (cadr p) (* yof scl)))
   txt (strcat "X= " (car str) "\\PY= " (cadr str))
)
(setq etxt (list (cons 0 "MTEXT"
   (cons 100 "AcDbEntity"
   (cons 62 2)
   (cons 100 "AcDbMText"
   (cons 10 txtp)
   (cons 40 (* 15 scl))
   (cons 1 txt)
   )
)
(if prvtext (entdel prvtext))
(setq prvtext (entmakex etxt))
)
(entdel prvtext)
p)
#endregion

_______________________________________
psw: cea de la wjndowsXP gigabyte..

pus acum 5 ani

admin
Administrator

Din: Bucharest
Inregistrat: acum 14 ani
Postari: 520

Dynamic Movie

19.6KB

_______________________________________

pus acum 5 ani

Pagini: 1

Mergi la