Home Product Purchase Support Testimonials Contact

Sample - How to get the properties of a dynamic block ?

(defun C:DYBLOCK( / dynBlock dynProp)

(setq dynBlock (vlax-ename->vla-object (car (entsel))))

(setq dynProp (vlax-invoke dynBlock 'getDynamicBlockProperties))

(foreach _dynProp dynProp

(print (cons (vla-get-PropertyName _dynProp) (vlax-get _dynProp 'AllowedValues)))

)

(princ)

)

Sample - How to get a remote file ?

(defun GETRFILE( / objUTL)

(setq objUTL (vla-get-utility (vla-get-activedocument (vlax-get-acad-object))))

(vla-getremotefile

objUTL

"http://www.cadsta.com/index.html"

'locfile

:vlax-true

)

(vla-isremotefile objUTL lockfile 'pURL)

locfile

)

Sample - How to create a table ?

(defun GenTable( TblPnt / actDoc modelSP curDIM DIMTXT GTable)

(setq actDoc (vla-get-ActiveDocument (vlax-get-acad-object)))

(setq modelSP (vla-get-ModelSpace actDoc))

(setq curDIM (getvar "DIMSCALE"))

(setq DIMTXT (getvar "DIMTXT"))

(setq GTable (vla-AddTable modelSP TblPnt 3 3 1 1))

(vla-put-StyleName GTable "STANDARD")

(vla-SetAlignment GTable acTitleRow acMiddleCenter)

(vla-SetAlignment GTable acHeaderRow acMiddleCenter)

(vla-SetAlignment GTable acDataRow acMiddleCenter)

(vla-SetTextHeight GTable acTitleRow (* 1.33 (* curDIM DIMTXT)))

(vla-SetTextHeight GTable acHeaderRow (* 1.33 (* curDIM DIMTXT)))

(vla-SetTextHeight GTable acDataRow (* curDIM DIMTXT))

(vla-put-VertCellMargin GTable curDIM)

(vla-put-HorzCellMargin GTable curDIM)

(vla-SetRowHeight GTable 0 (* 3.0 (* curDIM DIMTXT)))

(vla-SetRowHeight GTable 1 (* 3.0 (* curDIM DIMTXT)))

(vla-SetRowHeight GTable 2 (* 3.0 (* curDIM DIMTXT)))

(vla-SetColumnWidth GTable 0 (* 13 (* curDIM DIMTXT)))

(vla-SetColumnWidth GTable 1 (* 13 (* curDIM DIMTXT)))

(vla-SetColumnWidth GTable 2 (* 13 (* curDIM DIMTXT)))

(vla-SetText GTable 0 0 "Title")

(vla-SetText GTable 1 0 "Heading 0")

(vla-SetText GTable 1 1 "Heading 1")

(vla-SetText GTable 1 2 "Heading 2")

)

Try or Buy

Product Information

CADSTA Max

CADSTA Max Features

Loading ARX, DBX & .NET with CADSTA Max

Loading ARX, DBX & .NET via Appload

Loading ARX & DBX via arxload

Loading .NET assembly via Netload

CADSTAMax.rx & ACAD.rx

Using AutoLISP with CADSTA Max

CADSTA Max Startup Suite

SafeArray & Variant

VLA Functions (A), (B-G)

VLA Functions (G cont.1), (G cont. 2)

VLA Functions (G cont.3), (G cont. 4)

VLA Functions (G cont.5), (G cont. 6)

VLA Functions (G cont.7), (G cont. 8)

VLA Functions (G cont.9), (G cont.10)

VLA Functions (P), (P cont.1)

VLA Functions (P cont.2), (P cont.3)

VLA Functions (P cont.4), (P cont.5)

VLA Functions (P cont.6), (P cont.7)

VLA Functions (S)

VLA Functions (VLAX cont.1)

● CADSTA Max Samples

CADSTA Elements Features

CADSTA Tools Features

Search

Enter search words

Sign Up For Newsletter

Click here to sign up for our newsletter.

Follow Us