lisp2arx
Visual Programming for AutoLisp
Mathématiques en programmation Lisp..
doc2cpp,doc2lsp, sld2lsp, bmp2dcl,
free__GifCcapture for all-CAD'platforms..
|
Nou pe simpatie:
karina22 la Simpatie.ro
 | Femeie
25 ani
Bucuresti
cauta Barbat
25 - 54 ani |
|
|
lisp2arxReguliInregistrareLoginPozeNu sunteti logat. Lista Forumurilor Pe Tematici
|
| #1 |
|
|
#region
dfn_getx_pointxy
;;Lnk: http://www.theswamp.org/index.php?topic=46966.0
;;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..
|
|
| |
|
| #2 |
adminAdministratorDin: Bucharest
Postari: 523
|
|
|
| |
|
