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

Nou pe simpatie:
lovely_pink

Femeie
24 ani
Bucuresti
cauta Barbat
26 - 49 ani

lisp2arx Reguli Inregistrare Login PozeNu sunteti logat. Lista Forumurilor Pe Tematici

lisp2arx / Listof AutoLisp.100 /

vla-AutoLispR14 - getpropertyvalue eMissing in My Briscad

Pagini: 1

Moderat de zauchan

admin
Administrator
Din: Bucharest
Postari: 523

The old AutoCad, or NanoCAd do not have
First, What is getpropertyvalue ?

Code:

(setq    ss (ssget "F" vlst '((0 . "INSERT") (66 . 1)))
          );end_setq
          (repeat (setq cnt (sslength ss))
            (setq bent (ssname ss (setq cnt (1- cnt)))
                  tlst (cons (list (getpropertyvalue bent "POINT") 
                                   (rtos (/ (getpropertyvalue bent "POSITION/X") ccf) 2 acc)
                                   (rtos (/ (getpropertyvalue bent "POSITION/Y") ccf) 2 acc)
                             )
                             tlst
                       )
            );end_setq
          );end_repeat

Second.You replace (getpropertyvalue ofBlock) with this function

Code:

(setq bent (car (entsel)))
       (setq atts (vlax-invoke
            (setq blk (vlax-ename->vla-object bent))
            'getattributes
              )
       )

       (foreach att    atts
         (cond
           (
        (eq (vla-get-tagstring att) "POINT")
        (setq elev (vla-get-textstring att))
           )
         )
          )
       (setq pt (vlax-get blk 'insertionpoint))

Thids.vla-AutoLispR14 - getpropertyvalue eMissing in My Briscad

vla-AutoLispR14 - getpropertyvalue eMissing in My Briscad - The old AutoCad, or NanoCAd - Listof AutoLisp.100 — vla-AutoLispR14 - getpropertyvalue eMissing in My Briscad – poza de admin, in Listof AutoLisp.100 · 40.2KB

_______________________________________
http://www.puiubrat.3x.ro/lisp2arx/lisp ... O2UTM2.pdf

Pagini: 1

Mergi la