Recent Posts

Pages: [1] 2 3 ... 10
1
AutoLISP (Vanilla / Visual) / Re: Setting up work from home
« Last post by John Kaul (Se7en) on Today at 04:50:16 PM »
I'm set up at home using VPN. Having issues with zoom and pan. Seems to have a life of it's own. Continues to zoom/pan even though I'm done. Randomly zoom way out or even reverses direction on it's own. Any suggestions? Frustrating!

Do you know if your company is using Software or Hardware vpn -i.e. did the have a funny looking box in the server room with a funny name on it like Avast or <I-dont-remember-the-other-goofy-company-name> (well, both are technically software based but that extra box is usually vastly undersized and just makes things slower without something like IPSec setup)? ...They (IT) could have the encryption cranked up too high. You can also try the built in Microsoft VPN client but I think it was depreciated a few years ago so it may not work with some of the newer server-side vpn implementations.
2
Continuing down the rabbit hole...

speaking of matrices, they remind me of safearrays.

Code - Auto/Visual Lisp: [Select]
  1. (vlax-safearray->list (vlax-make-safearray vlax-vbString '(0 . 2) '(0 . 2)))
>(("" "" "") ("" "" "") ("" "" ""))

And that, is the extent of my memory on that subject (that is all you guys get from me on sfearrays).
3
You see here encrypted in Ascii.lsp for Debugger-on.
The Main Reason is Debugger=on inside ZwCad/Cam with VLisp.
: :wink:
(Hint-one " Your sources the "topoglist-ascii.lsp" is more-complex OR more-encrypted") . The entire process-encrypted inside Text.c2s is full-automatic.

Now You can develop debug-mode/release-mode for Big-program.Lsp or .FAS
You can compile debug mode and release mode, even inside AutoLisp-Source
You load the application.
You run this app with the command Q2[enter]
If crash any location, then you enter the command "(princ setmypid)"
Wow! You re-open BrisBlade or Vlide, and You search for this error.
The Original-Source was pp_topoxcad.txt
 
4
AutoLISP (Vanilla / Visual) / Re: Setting up work from home
« Last post by DeeGeeCees_V.2.0 on Today at 04:14:56 PM »
I snagged my work PC, synced up an ext. HD with the entire CAD server HD, and set it all up at home on my dining room table. Using dual HP Pavilions with a Threadripper/RTX2080ti combo has spoiled me a bit. I'm not going back. Man. lol

I had just switched over to the AEC package too, so now I have plenty of time to get to know REVIT a little better.
5
I used sublime text as my Hex Editor, it works great. I tested this and played around and here are my results.

Below is the source code I used to compile this function
Code: [Select]
(DEFUN t1(p1 p2 p3 p4 p5 p6 p7)
  (if p1 (princ p1))
  (if p2 (princ p2))
  (if p3 (princ p3))
  (if p4 (princ p4))
  (if p5 (princ p5))
  (if p6 (princ p6))
  (if p7 (princ p7))
  (princ)
)

Below is the code I used to test this function. I just copied and pasted these into the command line to test this. I also used a variable range of arguments to test this.
Code: [Select]
(setq error (vl-catch-all-apply 't1 (list 1 2 3 4 5 6 7)))
(vl-catch-all-error-message error)

Below is the compiled FAS file shown in sublime text. I will make a note of the four hexadecimal digits in red. The first two digits control the minimum argument count to the function. The last two digits control the maximum argument count. The OP originally had 0107 for this value. It failed at 0 arguments and anything more than 7 arguments. With the values set to 00 and ff, the function accepts 0 arguments up until 255 arguments.


0d0a 2046 4153 342d 4649 4c45 203b 2044
6f20 6e6f 7420 6368 616e 6765 2069 7421
0d0a 3231 330d 0a39 2024 1407 00ff 0009
0800 5c00 0009 0700 5c01 0009 0600 5c02
0009 0500 5c03 0009 0400 5c04 0009 0300
5c05 0009 0200 5c06 0018 0f00 0308 0067
0e00 0000 0308 0035 0101 0003 0a57 0000
0000 0307 0067 0e00 0000 0307 0035 0101
0003 0a57 0000 0000 0306 0067 0e00 0000
0306 0035 0101 0003 0a57 0000 0000 0305
0067 0e00 0000 0305 0035 0101 0003 0a57
0000 0000 0304 0067 0e00 0000 0304 0035
0101 0003 0a57 0000 0000 0303 0067 0e00
0000 0303 0035 0101 0003 0a57 0000 0000
0302 0067 0e00 0000 0302 0035 0101 0003
0a57 0000 0000 3500 0100 0319 0700 1624
0d0a 3131 3720 3420 2419 d21c 104c 663f
c6e2 1b64 0612 1c40 7211 071a 0c48 6231
c90d d92f 117f 813f f4fa 1b64 0612 1c44
1158 4958 0d5b 5531 9a3b d34d 244c 040b
f4aa 025d 5720 4744 7211 0747 0d0b 2131
ca04 d317 4d4c 540d f4a1 656c 0712 7d15
0012 071a 0d17 7630 ca0d d314 134c 5e68
f4fa 315d 0e11 4712 4211 0e1a 0d1d 18f1
fc2f 3223 6f3b 04f0 0a3b 6661 7334 2063
7275 6e63 680a 3b24 3b41 342f 312f 3230


In another post I have asked around to creating lisp functions of variable argument counts so I can replace original functions to execute the intended code and write out to a file it's execution. This allows me to watch code being executed in real time. I will use this to help me achieve that goal. Thanks sir.
6
AutoLISP (Vanilla / Visual) / Re: Setting up work from home
« Last post by Biscuits on Today at 04:08:01 PM »
Yup VPN!
7
The transformation reminds me a lot of a matrix transposition, e.g.:
Code - Auto/Visual Lisp: [Select]
  1. _$ (setq m '((0 1 2) (3 4 5) (6 7 8)))
  2. (
  3.     (0 1 2)
  4.     (3 4 5)
  5.     (6 7 8)
  6. )
  7. _$ (apply 'mapcar (cons 'list m))
  8. (
  9.     (0 3 6)
  10.     (1 4 7)
  11.     (2 5 8)
  12. )

Except that in this case, we are flattening the resulting list -
Code - Auto/Visual Lisp: [Select]
  1. _$ (setq m '((1 2 3 4) (5 6 7 8)))
  2. (
  3.     (1 2 3 4)
  4.     (5 6 7 8)
  5. )
  6. _$ (apply 'mapcar (cons 'list m))
  7. (
  8.     (1 5)
  9.     (2 6)
  10.     (3 7)
  11.     (4 8)
  12. )
  13. (1 5 2 6 3 7 4 8)


8
AutoLISP (Vanilla / Visual) / Re: Setting up work from home
« Last post by ronjonp on Today at 03:52:47 PM »
I'm set up at home using VPN. Having issues with zoom and pan. Seems to have a life of it's own. Continues to zoom/pan even though I'm done. Randomly zoom way out or even reverses direction on it's own. Any suggestions? Frustrating!
Are you sure that's VPN? Sounds like a remote desktop situation.
9
Nice one John - I miss the old 'challenge' style academic threads which focussed more on fundamental programming technique and your post reminded me of them.  :-)

FWIW, you could omit one level of nesting from your code to achieve the same result, i.e.:
Code - Auto/Visual Lisp: [Select]
  1. _$ (apply 'append (mapcar 'list lst1 lst2))
  2. (1 5 2 6 3 7 4 8)

Yeah, they were a lot of fun and very, very helpful.

Ugh! That's what I was trying to do in the beginning (well, at least that is how I tried to "think out the method" like I used to be able to do). Thanks! :) ...I had a problem and it eventually morphed into that mess (my luck, I probably just misspelled "mapcar" and could have saved a few brain cells).
10
Nice one John - I miss the old 'challenge' style academic threads which focussed more on fundamental programming technique and your post reminded me of them.  :-)

FWIW, you could omit one level of nesting from your code to achieve the same result, i.e.:
Code - Auto/Visual Lisp: [Select]
  1. _$ (apply 'append (mapcar 'list lst1 lst2))
  2. (1 5 2 6 3 7 4 8)

Pages: [1] 2 3 ... 10