Jump to content

Leaderboard

Popular Content

Showing content with the highest reputation on 01/04/2023 in all areas

  1. Not wanting the brain to atrophy over the holiday season. I thought to post a hatch pattern that I have called Trilobe-E. I expect others can make a hatch pattern faster with various tools, but I like to use Autocad and trigonometry (in a spread sheet). It was based on a unit sized hexagon. As the grid is a hexagonal one instead of an orthogonal one, the brain was given good exercise. I am posting the text of the file as well as the pattern file. *Trilobe-E, trilobe pattern 307.589089469,3,3,12.1236363414,0.1320676359,0.15069,-19.521625573 322.410910531,3.0919,2.8806,9.6409374243,-0.2287478555,0.15069,-11.2071266916 337.589089469,3.2113,2.7887,9.6409374243,0.2287478555,0.15069,-11.2071266916 352.410910531,3.3506,2.7312,12.1236363414,-0.1320676359,0.15069,-19.521625573 7.589089469,3.5,2.7113,12.1236363414,0.132067636,0.15069,-19.521625573 22.410910531,3.6494,2.7312,9.6409374243,-0.2287478555,0.15069,-11.2071266916 37.589089469,3.7887,2.7887,9.6409374243,0.2287478555,0.15069,-11.2071266916 52.410910531,3.9081,2.8806,7.5486792315,0.132067636,0.15069,-19.521625573 112.410910531,4,3,12.1236363414,-0.132067636,0.15069,-19.521625573 97.589089469,3.9425,3.1393,-9.6409374243,-0.2287478555,0.15069,-11.2071266916 82.410910531,3.9226,3.2887,9.6409374243,-0.2287478555,0.15069,-11.2071266916 67.589089469,3.9426,3.438,12.1236363414,0.132067636,0.15069,-19.521625573 52.410910531,4,3.5774,7.5486792315,0.132067636,0.15069,-19.521625573 37.589089469,4.0919,3.6968,9.6409374243,0.2287478555,0.15069,-11.2071266916 22.410910531,4.2113,3.7887,9.6409374243,-0.2287478555,0.15069,-11.2071266916 7.589089459,4.3506,3.8461,12.1236363414,0.132067636,0.15069,-19.521625573 67.589089469,4.5,3.866,12.1236363414,0.132067636,0.15069,-19.52162557 82.410910531,4.5575,4.0053,9.6409374243,-0.2287478555,0.15069,-11.2071266916 97.58908946,4.5774,4.1547,9.6409374243,0.2287478555,0.15069,-11.2071266916 112.410910531,4.5574,4.3041,12.1236363414,-0.132067636,0.15069,-19.52162557 127.589089469,4.5,4.4434,7.5486792315,-0.132067636,0.15069,-19.52162557 142.410910531,4.4081,4.5628,9.6409374243,-0.2287478555,0.15069,-11.2071266916 157.589089469,4.2887,4.6547,9.6409374243,0.2287478555,0.15069,-11.2071266916 172.410910531,4.1494,4.7121,7.5486792315,0.132067636,0.15069,-19.52162557 *eldon fecit MMXXIII Trilobe-E.pat
    1 point
  2. Etransmit settings are stored in the registry: Assuming you're all on the same version of CAD you could export these keys and import. ( Untested ) You could also look at all the subkeys and their values and possibly write them using lisp:
    1 point
  3. LAYWALK is another command but don't think it was available back in 2010.
    1 point
  4. I'd use the LAYOFF command to just turn it directly off, you should have a similar command in Express Tools with that 13 year old version. If you upgraded to a more current version it's easy as it displays the object as selected and allow you to modify it's object properties in the Properties Palette. With the "Layer List Combo Box" in the "Quick Access Toolbar" it displays the object's layer when you select it. With it you can turn it off, freeze, change the color, unlock, or freeze it in the current viewport.
    1 point
  5. Sorry, I'm not getting emails to replies on here any more even though my preferences has that enabled. So, the reinstall ended up getting borked too. 2022 is fine. I think I found the issue. Publishing in background. I've toggled this on and off and it working when off and not when on.
    1 point
  6. Hi from another Aussie. If you just want to open the dwg's that should work ok with current software, there is some cheap non Acad software out there, like Bricscad, Intellicad, Drafsight to mention a couple, you can down load a trial version if you just want to resave the dwgs. Obviously on a current pc. There is some software out there that allows you to have like a digitiser screen on say a dual screen setup.
    1 point
  7. You have to use ssnamex to get all the entity names (defun c:Mlabel (/ SS ent obj) (vl-load-com) (if (setq SS (ssget)) ; gets a selection set (foreach ent (vl-remove-if 'listp (mapcar 'cadr (ssnamex ss))) (redraw ent 3) ;Highlight entity that layer name will be pulled from (vl-cmdf "_.mleader" "_non" (vlax-curve-getclosestpointto (setq obj (vlax-ename->vla-object ent)) (getpoint "\nSpecify first point: ")) "\\") ;this will pick a point on the entity (while (eq (logand 1 (getvar 'CMDACTIVE)) 1) (vl-cmdf "")) ;wait for 2nd point for mleader (vla-put-textstring (vlax-ename->vla-object (entlast)) (vlax-get-property obj 'Layer) ) (redraw ent 4) ;un-highlight entity ) ) (princ) ) --Edit Will need to add a bit more code. ill have something later tonight. needed to add redraw so the current entity would be highlighted so user can pick a point closest to it moves the leader point onto the entity waits for 2nd point cmdactive reused from original lisp. un-highlights entity so next loop the current entity will only be highlighted.
    1 point
  8. OK, change it into a while loop then
    1 point
×
×
  • Create New...