Jump to content


Can you transform you-lisp- to debug-version?


3 replies to this topic

#1 Dragne Adrian

    Newbie

  • Members
  • Pip
  • 8 posts

Posted 17 November 2021 - 09:56 AM

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?
:huh:
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
B)
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"


#2 lidia.antipina.ru

    Newbie

  • Members
  • Pip
  • 3 posts

Posted 17 November 2021 - 12:35 PM

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

#3 lidia.antipina.ru

    Newbie

  • Members
  • Pip
  • 3 posts

Posted 18 November 2021 - 10:47 AM

What version and build of nanoCAD do you have?

#4 lidia.antipina.ru

    Newbie

  • Members
  • Pip
  • 3 posts

Posted 23 November 2021 - 02:09 PM

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





1 user(s) are reading this topic

0 members, 1 guests, 0 anonymous users