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 firstname.lastname@example.org . 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 email@example.com ,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
- 2d drawing
- using cad to work out area of a shape
- import dwg into sketchup
- sketchup import dwg
- how to open sid file in autocad
- free cad software
- what is .dwg
- Free 3d house design software
- How to convert Mtext to Text
- how to open dwg on iphone
- buy solidworks 2010
- text to mtext
- advanced mechanical designing softwares
- how to draw dotted line in autocad
- Elevation drawing in autocad