lisp2arx
Visual Programming for AutoLisp
Mathématiques en programmation Lisp..
doc2cpp,doc2lsp, sld2lsp, bmp2dcl,
free__GifCcapture for all-CAD'platforms..
|
Lista Forumurilor Pe Tematici
|
lisp2arx | Reguli | Inregistrare | Login
POZE LISP2ARX
Nu sunteti logat.
|
Nou pe simpatie:
lovely_pink
 | Femeie
24 ani
Bucuresti
cauta Barbat
26 - 49 ani |
|
|
admin
Administrator
Din: Bucharest
Inregistrat: acum 14 ani
Postari: 520
|
|
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)
48.5KB
_______________________________________
|
|
| pus acum 4 ani |
|
|
zauchan
Moderator
Inregistrat: acum 14 ani
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/ |
30.8KB
_______________________________________
psw: cea de la wjndowsXP gigabyte..
|
|
| pus acum 4 ani |
|
