Message 1 of 8
this is my first post here.
I'm actually trying to load some of my bunch of program in ZWCAD....
but unfortunatly....none work.
after testing some code, It seem that many LISP and VLISP function
so my question is...
It is better to wait the next release or to spend time modifying all my routines ?
Message 2 of 8
thank you for youy feedback.
ZWCAD can support Vlisp and lisp very well. Especially in ZWCAD 2010 Beta version, this function is very convenient. If you have not downloaded this version, here is the link for you to have a try:
to be frankly ,i do not good at lisp and vlisp,
As to the program you mentioned, please send the Vlisp program with description to email@example.com . Our technical support team will try to find a solution for you ASAP.
BTW,the new version will be released in the end of this month.
Message 3 of 8
Message 4 of 8
i am sorry that the link is broken.
since i do not good at lisp or vlisp, i feel sorry i can not help you .
but you can send your program with description or other problems to firstname.lastname@example.org ,our technical support team will reply you as soon as they receive you email.
Message 5 of 8
Message 6 of 8
i am sorry that you havn't received reponsed email.
since many of our technical support engineers are travelling abroad on bussiness , they may reply you as soon as they come back or see the email.
sorry for any inconvenience.
"But I have better service in french release.." do you mean that you have found the solution ?
Message 7 of 8
Message 8 of 8
(defun GetExcel (ExcelFile$ SheetName$ MaxRange$ / Column# ColumnRow@ Data@ ExcelRange^
ExcelValue ExcelValue ExcelVariant^ MaxColumn# MaxRow# Range$ Row# Worksheet)
(if (= (type ExcelFile$) 'STR)
(if (not (findfile ExcelFile$))
(alert (strcat "Excel file " ExcelFile$ " not found."))
(alert "Excel file not specified.")
(if (setq *ExcelApp% (vlax-get-object "Excel.Application"))
(alert "Close all Excel spreadsheets to continue!")
(setq ExcelFile$ (findfile ExcelFile$))
(setq *ExcelApp% (vlax-get-or-create-object "Excel.Application"))
(vlax-invoke-method (vlax-get-property *ExcelApp% 'WorkBooks) 'Open ExcelFile$)
(vlax-for Worksheet (vlax-get-property *ExcelApp% "Sheets")
(if (= (vlax-get-property Worksheet "Name") SheetName$)
(vlax-invoke-method Worksheet "Activate")
(setq ColumnRow@ (ColumnRow MaxRange$))
(setq MaxColumn# (nth 0 ColumnRow@))
(setq MaxRow# (nth 1 ColumnRow@))
(setq CurRegion (vlax-get-property (vlax-get-property
(vlax-get-property *ExcelApp% "ActiveSheet") "Range" "A1") "CurrentRegion")
(setq MaxRow# (vlax-get-property (vlax-get-property CurRegion "Rows") "Count"))
(setq MaxColumn# (vlax-get-property (vlax-get-property CurRegion "Columns") "Count"))
(setq *ExcelData@ nil)
(setq Row# 1)
(setq Data@ nil)
(setq Column# 1)
(setq Range$ (strcat (Number2Alpha Column#)(itoa Row#)))
(setq ExcelRange^ (vlax-get-property *ExcelApp% "Range" Range$))
(setq ExcelVariant^ (vlax-get-property ExcelRange^ 'Value))
(setq ExcelValue (vlax-variant-value ExcelVariant^))
((= (type ExcelValue) 'INT) (itoa ExcelValue))
((= (type ExcelValue) 'REAL) (rtosr ExcelValue))
((= (type ExcelValue) 'STR) (vl-string-trim " " ExcelValue))
((/= (type ExcelValue) 'STR) "")
(setq Data@ (append Data@ (list ExcelValue)))
(setq Column# (1+ Column#))
(setq *ExcelData@ (append *ExcelData@ (list Data@)))
(setq Row# (1+ Row#))
(vlax-invoke-method (vlax-get-property *ExcelApp% "ActiveWorkbook") 'Close :vlax-False)
(vlax-invoke-method *ExcelApp% 'Quit)
(setq *ExcelApp% nil)
Car Parts | Auto Parts
- zwcad 2011 crack
- 2d convert to 3d free drawing software download
- autocad for mechanical engineering free download
- mechanical design software
- How to print a multi-page PDF from drawings
- autocad license error
- zwcad 2010 crack
- How to open an autocad file
- buy cad software
- how to find area of irregular shapes in autocad
- mechanical design software free download
- how to open dwg on mobile phone
- autocad 2010 serial number
- freecad download
- How to install ZWCAD