Recent Posts

Pages: [1] 2 3 ... 10
I'm not sure you can. I want to say that the interpreter will always substitute "\000" as "".

I want to say something like:
Code - Auto/Visual Lisp: [Select]
  1. (setq strc3
  2.  (cond
  3.   ((not (eq (chr c3) "")) (chr c3))
  4.     ('\000)
  5.   )
  6.  )
but I don't think it will work (if it does, great!).
AutoLISP (Vanilla / Visual) / Re: How to make (Chr 0) return "\000" ?
« Last post by baitang36 on Today at 09:57:47 PM »
So your trying to convert a fas hex dump to a ascii readable format. Is it to decrypt a file ?
Yes, I'm experimenting
AutoLISP (Vanilla / Visual) / Re: How to make (Chr 0) return "\000" ?
« Last post by BIGAL on Today at 09:43:21 PM »
So your trying to convert a fas hex dump to a ascii readable format. Is it to decrypt a file ?
AutoLISP (Vanilla / Visual) / How to make (Chr 0) return "\000" ?
« Last post by baitang36 on Today at 08:33:19 PM »
;The result of this program is wrong because (Chr 0) returns an empty string, resulting in the loss of bytes with a value of 0
Code - Auto/Visual Lisp: [Select]
  1. (defun tran1 (str1)
  2.   (cond
  3.     ((= str1 "0") (setq b1 0))
  4.     ((= str1 "1") (setq b1 1))
  5.     ((= str1 "2") (setq b1 2))
  6.     ((= str1 "3") (setq b1 3))
  7.     ((= str1 "4") (setq b1 4))
  8.     ((= str1 "5") (setq b1 5))
  9.     ((= str1 "6") (setq b1 6))
  10.     ((= str1 "7") (setq b1 7))
  11.     ((= str1 "8") (setq b1 8))
  12.     ((= str1 "9") (setq b1 9))
  13.     ((= str1 "a") (setq b1 10))
  14.     ((= str1 "b") (setq b1 11))
  15.     ((= str1 "c") (setq b1 12))
  16.     ((= str1 "d") (setq b1 13))
  17.     ((= str1 "e") (setq b1 14))
  18.     ((= str1 "f") (setq b1 15))
  19.     (t (setq b1 0))
  20.   ) ;_ cond
  21.   b1
  22. ) ;_ defun
  25. (setq fi (open "d:/t2.txt" "R"))
  26. (setq buffer (READ-LINE fi))
  27. (close fi)
  29. (setq n (/ (strlen buffer) 2))
  30. (setq i 1)
  31. (setq str2 "")
  32.   (setq a1 (substr buffer i 1))
  33.   (setq a2 (substr buffer (+ i 1) 1))
  34.   (setq c1 (tran1 a1))
  35.   (setq c2 (tran1 a2))
  36.   (setq c3 (+ (* 16 c1) c2))
  38.   (setq strc3 (chr c3))         ;error!
  39.   (setq str2 (strcat str2 strc3))
  41.   (setq i (+ i 2))
  42. ) ;_ repeat
  44. (setq fo (open "d:/t2.fas" "w"))
  45. (princ str2 fo)
  46. (close fo)
AutoLISP (Vanilla / Visual) / Re: Erase Outside Title Block
« Last post by ronjonp on Today at 06:52:05 PM »
How can you rely on a layer filter for your titleblocks if users are unruly? Their could be other items on that layer too?
Code: [Select]
(setq SS (ssget "_X" (list '(0 . "INSERT") '(8 . "$TB") (cons 410 tab))))
CAD General / Re: Remote Office VPN
« Last post by tedg on Today at 04:26:55 PM »
We use Dropbox, for Acad and other support files, and BIM360 for Revit.

SSM (sheet set manager) doesn't play well with Dropbox, so we need to request/announce when we're going into SSM to avoid conflicted copies.
(only one person at a time can be in the SSM in dropbox or it creates conflicted copies)
CAD General / Re: Remote Office VPN
« Last post by John Kaul (Se7en) on Today at 03:26:47 PM »
We've been trying out "Dropbox" (-i.e. not necessarily specifically "Dropbox" but any old cloud will do; "sharefile", "dropbox", "nextcloud", "onedrive" etc.) for a while now and it's working out fairly well. A few issues but typically we have only one person working on a task at a time (everyone is just too busy to be mulling around). When we do share a model among several people we have to coordinate sync times but overall it (the duct tape solution) is working really well. In the decentralized spirit of methods I really liked the "Syncthing" method we tried out a while back. Syncthing isn't a cloud, its a Peer-2-Peer thing, that gave us more security (and I could manually control what was and what wasn't sync'd). We do this because VPN is so slow and with the cloud setup we sync files amongst ourselves almost as fast as if we were on the same network. At worst there is a few seconds lag between me and someone across the country.

The problem with Revit and a cloud or P2P solution (and your problem too) is the *.dat files revit needs to sync ("wperms", "eperms", etc). The wperms and eperms.dat files are the workset and element files which tells your revit what is and what isn't locked (revit pings and saves these files every second or so).

You shouldn't necessarily have a problem with worksets and VPN but honestly you need to kill the use of worksets in your projects and rely on filters and visibility graphics (view templates). Worksets really are not needed in your models (unless you're dumb enough to have every discipline--a,s,m,p,e,c...--in one model) and are a really misunderstood aspect of Revit. Worksets are not a "AutoCAD Layer thing" -e.g. they are a method to turn off an entire discipline in a multi discipline shared model (just a vague example). ...If you're a boss (decision maker) I can give you the direction you want to tell your people to go down otherwise we can talk specifics if your up for it.

AutoCAD is a different beast; sheetsets are a royal pain the ass with any solution (other then VPN)!
CAD General / Re: Remote Office VPN
« Last post by Lonnie on Today at 03:20:51 PM »
I will be interested in what others have to say
I am the technical liaison to IT and we've been over this a lot.

Assuming it's an office and not a single user that you want to share a central with.
We use a DFS server. While not officially supported by Autodesk it works well for AutoCAD if you use (setvar "XLOADCTL" 2). Revit has been pretty solid but a bit more problematical at times. When in crunch time we've confused the server and end up with the project in the conflict and deleted folder. This does not happen often but it can.

I have also done the BIM route for both Revit and AutoCAD using desktop connector for AutoCAD.
If you like we can talk a bit about the Revit server. It's was built to do this but personally I don't think it's a real good answer.

We are now over 200 engineers running in 7 offices. We seem to assign people to project without regard to where they are located so we do this a lot.
Code: [Select]
(if (not (findfile (setq path "C:\\Dropbox\\CADD\\Symbols\\Revision")))
  (setq path "Y:\\Symbols\\Revision")
(vl-cmdf "-insert" path)

Thanks mhupp, this helped!
CAD General / Remote Office VPN
« Last post by Jeff H on Today at 02:18:22 PM »
What do you guys use so people can work on AutoCAD files from two separate offices?
Will we have problems using  Revit worksets using VPN from server to revote office?

Pages: [1] 2 3 ... 10