Image frame property

[kemp]

Anyone know how to check the imageframe setting in vlisp using ActiveX?

Thanks,
kemp

 

[Igor Kostiukovitch]

In AutoCAD object model there is an object a raster. He has methods, objects and events. Here they.

[b]Methods[/b] (call by vla-<methodName> functions):
ArrayPolar
ArrayRectangular
ClipBoundary
Copy
Delete
GetBoundingBox
GetExtensionDictionary
GetXData
Highlight
IntersectWith
Mirror
Mirror3D
Move
Rotate
Rotate3D
ScaleEntity
SetXData
TransformBy
Update
[b]Properties[/b] (get by vla-get-<propertiesName> and set by vla-put-<propertiesName> functions):
Application
Brightness
ClippingEnabled
Contrast
Document
Fade
Handle
HasExtensionDictionary
Height
Hyperlinks
ImageFile
ImageHeight
ImageVisibility
ImageWidth
Layer
Linetype
LinetypeScale
Lineweight
Name
ObjectID
ObjectName
Origin
OwnerID
PlotStyleName
Rotation
ScaleFactor
ShowRotation
Transparency
TrueColor
Visible
Width
And [b]Events:[/b]
Modified

For details see help (file acadauto.chm).
Igor Kostiukovitch
e-mail:

 

[John Uhden]

Can't see where ActiveX can directly do it, but here's a regular AutoLisp means... (defun ImageFrame (n / dict) ;; (01-17-04) John Uhden, Cadlantic ;; Where:
;; n = 0 means OFF
;; n = 1 means ON
;; anything else is ignored
;; Returns T if successful or nil if not
(and
(member n '(0 1))
(setq dict (dictsearch (namedobjdict) "ACAD_IMAGE_VARS")) (entmod (subst (cons 70 n)(assoc 70 dict) dict)) ;; You could delete these echos if desired... (if (= n 0) (princ "\nIMAGEFRAME is OFF") (princ "\nIMAGEFRAME is ON") ) )
)

 

[kemp]

Thanks guys, that will do the job.

kemp

Can't see where ActiveX can directly do it, but here's a regular AutoLisp means... (defun ImageFrame (n / dict) ;; (01-17-04) John Uhden, Cadlantic ;; Where:
;; n = 0 means OFF
;; n = 1 means ON
;; anything else is ignored
;; Returns T if successful or nil if not
(and
(member n '(0 1))
(setq dict (dictsearch (namedobjdict) "ACAD_IMAGE_VARS")) (entmod (subst (cons 70 n)(assoc 70 dict) dict)) ;; You could delete these echos if desired... (if (= n 0) (princ "\nIMAGEFRAME is OFF") (princ "\nIMAGEFRAME is ON") ) )
)