(DEFUN C:VGJ()
(SETQ
OBJ(CAR(ENTSEL))
VOBJ(VLAX-ENAME->VLA-OBJECT OBJ)
LA(VLA-GET-TEXTSTRING VOBJ)
TE "ST 64P"
WC "WC 45"
)
(IF(= LA TE)
(PROGN
(vla-put-TextString VOBJ "Smeralda calacutta marble polished finish 140mm high with 10mm shadow gap")
)
(IF(= LA WC)
(PROGN
(vla-put-TextString VOBJ "Fabric wrapped wall panels")
)
(alert "PLSE SEARCH THE FILE")
)
))
i create the program for BOQ . I WANT I ENTER THE STRING (GETSTRING :"\n ENTER NAME OF MATERIAL:" ST 64P) ITS WILL BE SEARCH IN EXCEL FILE AND TAKE THE MATERIAL NAME IN EXCEL AND CHANGE THE TEXT IN AUTOCAD FROM NAME OF MATERIAL IN EXCEL.
Hi Dinguboy,
I have some expiriens with communication to excel from AutoCAD.
I use activeX.
See a code example in attach.