Jump to content


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


6 replies to this topic

#1 Dragne Adrian

    Member

  • Members
  • PipPip
  • 11 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.

#5 Dragne Adrian

    Member

  • Members
  • PipPip
  • 11 posts

Posted 02 March 2022 - 11:20 AM

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

#6 Dragne Adrian

    Member

  • Members
  • PipPip
  • 11 posts

Posted 02 March 2022 - 11:20 AM

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

#7 Dragne Adrian

    Member

  • Members
  • PipPip
  • 11 posts

Posted 08 March 2022 - 01:15 PM

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

What version and build of nanoCAD do you have?
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]

Posted Image
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






1 user(s) are reading this topic

0 members, 1 guests, 0 anonymous users