lisp2arx
Visual Programming for AutoLisp Mathématiques en programmation Lisp.. doc2cpp,doc2lsp, sld2lsp, bmp2dcl, free__GifCcapture for all-CAD'platforms..

Nou pe simpatie:
glamour35

Femeie
24 ani
Constanta
cauta Barbat
28 - 69 ani

lisp2arx Reguli Inregistrare Login PozeNu sunteti logat. Lista Forumurilor Pe Tematici

lisp2arx / Libc_adslisp defun-s /

VLisp - How to FastDebug without VLIDE in any*CAD?

Pagini: 1

admin
Administrator
Din: Bucharest
Postari: 523

First. You compile C2S to two version/s from a same-program-source
Second. You search the crash with CTRL+F in pp_jc_aro10.lsp(eg. C007getvar)
Third. You repair the source pp_normal.lsp (getvar ..)

a)Normal (CTRL+D)
b)Debug (CTRL+A)
The main problem, is the programe need more-test/s in very short-times.
Please you execute this source, with Q2[enter].
When you got any error, please you enter the command
(getmypid) at line command or CommandLine
you open the source Debug+CTRL+A.lsp,"find.CTRL+F" and
you search the error C133, you compare the function with "Normal+CTRL+D.lsp"

Code:

"Cxxx" or C133 in this source
SetMyPid=C133terpri
CONFIG_STACKTRACE=nilnil

After you got , any error , the you type at line command (getmypid)

VLisp - How to FastDebug without VLIDE in any*CAD? - First. You compile C2S to two - Libc_adslisp defun-s — VLisp - How to FastDebug without VLIDE in any*CAD? – poza de admin, in Libc_adslisp defun-s · 48.5KB

_______________________________________
http://www.puiubrat.3x.ro/lisp2arx/lisp ... O2UTM2.pdf

zauchan
Moderator
Postari: 180

Here You view the sourceNormal (CTRL+D)
You do not remember, you keep and safe the both source/s
(Normal.lsp and Jc_aro10.lsp)
Downloading,the compiler.exe, for test from
https://sourceforge.net/projects/vlaxco ... o/download

Code:

(defun nn_vmload( / $rr fsn cnt dxmsg fna lpt fly izx eg etc tip lyr nLen ent tx8 enx loopw rst tmp nop)
 (setq;|a000|;
     rst "strcat"
     fsn (ssget (list (cons 0 "*LINE")))) (if (=  fsn nil) (progn  (alert (strcat "[*ERROR* eSubSelectionSetEmpty\n]" readme.txt)) (exit))) (setq;|a000|;
     cnt (dfn_ssg_len fsn)) (if (<  cnt 1) (progn  (alert (strcat "[*ERROR* eSomeInputDataLeftUnread\n]" readme.txt)) (exit))) (setq;|a000|;
     tmp (getvar "DWGNAME")
     fna (strcat (getvar "DWGPREFIX") (substr tmp 1 (- (strlen tmp) 4)) "_" (rtos (getvar "CDATE") 2 6) "csv")) (setq;|a000|;
     tmp (strcat "\n[" tmp "]" "\nLabel.exe=" fna "\nDosx.exe=" (itoa cnt) "\nFormat.com=~HANDLE,LENGTH,LAYER,X,Y,Z~\n")) (setq;|a000|;
     fly (open fna "w")) (write-line tmp fly) (close fly) (vl_load_com) (setq;|a000|;
     cnt (- cnt 1)
     $rr (list)) (progn (setq;|a000|;
     izx 0) (while (<= izx cnt) (progn  (setq;|a000|;
     ent (ssname fsn izx)
     eg (entget ent)
     tip (cdr (assoc 0 eg))
     han (cdr (assoc 5 eg))
     lyr (cdr (assoc 8 eg))
     nLen (vlax-curve-getdistatparam ent (vlax-curve-getendparam ent))
     $rr (cons (strcat (itoa izx) ":=" han "," (rtos nLen 2 2) "," lyr ",") $rr)) (if (=  tip "LWPOLYLINE") (while (setq eg (member (assoc 10 eg) eg)) (setq;|a000|;
     pnt (cdr (car eg))
     $rr (cons (dfn_ent_point10 "2,3" pnt) $rr)
     eg (cdr eg)))) (if (=  tip "POLYLINE") (progn (setq;|a000|;
     enx (entnext ent)) (while (/= (dfn_ent_dxf00 enx) "SEQEND") (progn (setq;|a000|;
     eg (entget enx)) (while (setq eg (member (assoc 10 eg) eg)) (setq;|a000|;
     eg (cdr eg)))) (setq;|a000|;
     enx (entnext enx))))) (setq;|a000|;
     r (cons (dfn_ent_point10 "2,3" (cdr (car eg))) $rr)) (if (=  tip "LINE") (setq;|a000|;
     $rr (cons (dfn_ent_point10 "2,3" eg) $rr)
     $rr (cons (dfn_ent_point11 "2,3" eg) $rr))) (if (=  tip "SPLINE") (progn (while (setq eg (member (assoc 11 eg) eg)) (setq;|a000|;
     pnt (cdr (car eg))
     $rr (cons (dfn_ent_point10 "2,3" eg) $rr)) (setq;|a000|;
     eg (cdr eg))))) (if (/= $rr nil) (setq;|a000|;
     tmp (apply (read rst) (reverse $rr))
     fly (open fna "a")
     nop (write-line tmp fly)
     nop (close fly))) (setq;|a000|;
     $rr nil)) (setq;|a000|;
     izx (+ izx 1)))) 
fna)

Code:

https://www.facebook.com/GstarCAD/

VLisp - How to FastDebug without VLIDE in any*CAD? - Here You view the sourceNormal - Libc_adslisp defun-s — VLisp - How to FastDebug without VLIDE in any*CAD? – poza de zauchan, in Libc_adslisp defun-s · 30.8KB

_______________________________________
psw: cea de la wjndowsXP gigabyte..

Topicuri similare

Pagini: 1

Mergi la