Can you transform you-lisp- to debug-version?
Dragne Adrian 17 Nov 2021
My solution is good for NanoCad-internal-Lisp(even compiled .FAS or .Des)?
Can you test, this lisp_desktop.lsp have same speed with lisp_jcaro10.lsp?
The debug-version.lsp is nicknamed jc_aro10.lsp
How to calculate the total-speed isinside.Lisp, or benchmark?
http://www.fileshare.ro/e3427392827
All four/s programs are unique-program
11/16/2021 11:53 AM 9,591 pp_areagabora_cws12.lsp
11/16/2021 11:46 AM 8,511 pp_areagabora_desktop.lsp
11/16/2021 11:49 AM 11,013 pp_areagabora_jc10aro.lsp
11/16/2021 11:55 AM 11,953 pp_areagabora_jcpin25.lsp
Can you test, this lisp_desktop.lsp have same speed with lisp_jcaro10.lsp?
The debug-version.lsp is nicknamed jc_aro10.lsp
How to calculate the total-speed isinside.Lisp, or benchmark?
http://www.fileshare.ro/e3427392827
All four/s programs are unique-program
11/16/2021 11:53 AM 9,591 pp_areagabora_cws12.lsp
11/16/2021 11:46 AM 8,511 pp_areagabora_desktop.lsp
11/16/2021 11:49 AM 11,013 pp_areagabora_jc10aro.lsp
11/16/2021 11:55 AM 11,953 pp_areagabora_jcpin25.lsp
appload - Application Load Call-StackError=(C:getB331mypid) Command.com=Q2[enter] command.com: Q2[enter] pp_areagabora_desktop.lsp loaded. Commands: GETB331MYPID,Q2,DESKTOP_APP Command: Q2 Q2 - Q2 Select ClosedPolylines: *cancel* error: Function cancelled OPEN - Open document Command: Q2 Q2 - Q2 Select ClosedPolylines: Select objects or [?]: Specify opposite corner: 26 found Select objects or [?]: AREA Total=7111Perimeter Total=17799 --Area3=7111.194 --Area0=7111 --Area6=7111.194145 --Len toKm=17.79938593m --nLength9=17799.385930344m --nLength3=17799.386mCVUNIT not implemented error: invalid argument type: numberp: nil Command: Q2 - Q2 Select ClosedPolylines: *cancel* error: Function cancelled *cancel* Command: GETB331MYPID GETB331MYPID - GETB331MYPID Pidgen.dll=930 HiStack=(ssget rtos ssget) HiDos=C003ssget"C003ssget"
lidia.antipina.ru 17 Nov 2021
Good afternoon! Unfortunately, the link http://www.fileshare.ro/e3427392827 does not open. I can ask you to send me your lisps by email lidia.antipina@nanoCAD.ru
lidia.antipina.ru 23 Nov 2021
"Can you check this lisp_desktop.lsp also has the same speed with lisp_jcarro10.lsp?"
Visually - yes, the modules were executed almost equally fast.
When starting Q2, you need to download cvunits.lsp to fix the error of missing the cvunit function in nanoCAD and then run your tests:
;;LA (cvunit 2.0 "meter" "dekameter") (cvunit 2.0 "square_metres" "barn")
;;LA (setq value 1)(setq from-unit "square_metres")(setq to-unit "square_yards")
;;LA For nanoCAD added function Cvunit
(defun Cvunit (value from-unit to-unit / Rlena Rarj) ;LA
(setq Rlena (list (cons "hectometer" 100.0)
(cons "centimeter" 0.01)
(cons "dekameter" 10.0)
(cons "survey_foot" 0.3048006096)
(cons "yard" 0.9144)))
(setq Rarj (list (cons "acre" 4046.85642)
(cons "barn" (expt 0.1 28)) ;1.0E-28
(cons "centare" 1.0)
(cons "hectare" 10000.0)
(cons "rood" 1011.7141)
(cons "square_yards" 0.83612736)))
(cond
((eq from-unit "meter") (setq value (* value (cdr (assoc to-unit Rlena))))
)
((eq from-unit "square_metres") (setq value (* value (cdr (assoc to-unit Rarj))))
)
) ;cond
value
) ;defun cvunit
"Can you check this lisp_desktop.lsp also has the same speed with lisp_jcarro10.lsp?"
Visually - yes, the modules were executed almost equally fast.
Visually - yes, the modules were executed almost equally fast.
When starting Q2, you need to download cvunits.lsp to fix the error of missing the cvunit function in nanoCAD and then run your tests:
;;LA (cvunit 2.0 "meter" "dekameter") (cvunit 2.0 "square_metres" "barn")
;;LA (setq value 1)(setq from-unit "square_metres")(setq to-unit "square_yards")
;;LA For nanoCAD added function Cvunit
(defun Cvunit (value from-unit to-unit / Rlena Rarj) ;LA
(setq Rlena (list (cons "hectometer" 100.0)
(cons "centimeter" 0.01)
(cons "dekameter" 10.0)
(cons "survey_foot" 0.3048006096)
(cons "yard" 0.9144)))
(setq Rarj (list (cons "acre" 4046.85642)
(cons "barn" (expt 0.1 28)) ;1.0E-28
(cons "centare" 1.0)
(cons "hectare" 10000.0)
(cons "rood" 1011.7141)
(cons "square_yards" 0.83612736)))
(cond
((eq from-unit "meter") (setq value (* value (cdr (assoc to-unit Rlena))))
)
((eq from-unit "square_metres") (setq value (* value (cdr (assoc to-unit Rarj))))
)
) ;cond
value
) ;defun cvunit
"Can you check this lisp_desktop.lsp also has the same speed with lisp_jcarro10.lsp?"
Visually - yes, the modules were executed almost equally fast.
Dragne Adrian 02 Mar 2022
I post my Topic , for serching a Team of DeveloperCAd .
Now=You can debug source.lisp without Vlide
Now=You can debug source.lisp without Vlide
Dragne Adrian 02 Mar 2022
I post my Topic , for serching a Team of DeveloperCAd .
Now=You can debug source.lisp without Vlide
Now=You can debug source.lisp without Vlide
Dragne Adrian 08 Mar 2022
lidia.antipina.ru, on 18 November 2021 - 10:47 AM, said:
What version and build of nanoCAD do you have?
After I got the error inside "the "NanoCAD x64 en 22.0"
I hope this site work very funny.
https://forums.autod...d2022lisp00.zip
I type the the command Pid4336[enter]
Command: appload pp_ati2dvaa_desktop.lsp successfully loaded. Command: Call-StackError=(C:pid4336) Command.com=Q2[enter] Command: q2 .UNDO Current settings: Auto = On, Control = All, Combine = Yes, Layer = Yes Enter the number of operations to undo or [Auto/Control/BEgin/End/Mark/Back] <1>: _BEGIN Command: [012]-Select LwPolyline(0.Exit/1.Special,2.Anyone):2 Select objects: 1 found Select objects: [0..8]--DrawPredicated[0.exit,1.vlr,2.vlt,3.vrt,4.vrb,5.vcd,6.circle,7.arc,8.arc ]=1 [0..8]--DrawPredicated[0.exit,1.vlr,2.vlt,3.vrt,4.vrb,5.vcd,6.circle,7.arc,8.arc ]=2 [0..8]--DrawPredicated[0.exit,1.vlr,2.vlt,3.vrt,4.vrb,5.vcd,6.circle,7.arc,8.arc ]=6 [0..8]--DrawPredicated[0.exit,1.vlr,2.vlt,3.vrt,4.vrb,5.vcd,6.circle,7.arc,8.arc ]=7