nanoCAD forum

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

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"

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

What version and build of nanoCAD do you have?

"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.

I post my Topic , for serching a Team of DeveloperCAd .
Now=You can debug source.lisp without Vlide

I post my Topic , for serching a Team of DeveloperCAd .
Now=You can debug source.lisp without Vlide

lidia.antipina.ru, on 18 November 2021 - 10:47 AM, said:

Today I tested NanoCad2022.
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