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
- mechanical softwares free download
- dgn to dwg converter free
- cad for iphone
- mechanical engineering autocad software free download
- autocad block does not explode
- cad design software
- DXF converter
- how to recover dwg files after crash
- buy solidworks 2010
- drawing a parabola in autocad
- autocad area calculation
- How to Extend Objects in AUTOCAD
- How to convert Mtext to Text
- why can't i explode a block in autocad
- How to open an autocad file