Jump to content

Leaderboard

Popular Content

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

  1. There is already a default command for that "LAYTHW"
    2 points
  2. I thought to post two herringbone hatches which show that herringbone patterns can be formed from any sized tile and do not have to be limited to simple proportioned dimensions. Tiles with grout spaces are more difficult and I have limited myself to single lines only. The pictures were drawn with a rotation of 45° because it is easier to calculate herringbone hatches orthogonally. I have calculated these patterns manually, but I suppose there are other quicker methods available! *Hb221x65, Herringbone with tile 221x65 0,0,0,1313,-13,286,-1924 90,65,0,1313,13,286,-1924 *eldon January 2023 *Hb221x71, Herringbone with tile 221x71 0,0,0,3977,-1,292,-31090 90,71,0,3977,1,292,-31090 *eldon January 2023
    1 point
  3. I reckon that this is all I need for an internet search...... "autocad lisp thaw viewport layers" https://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/lisp-file-to-thaw-all-layers-frozen-in-the-viewport/td-p/3797286 Ha, look at that 2nd result on the page..... Though MHUPPS link also shows freezing them too
    1 point
  4. This is viewport freeze. so its not the layer that is frozen its the viewport not showing the layer. https://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/vp-freeze-thaw-in-all-viewports-in-all-drawings/m-p/10556247/highlight/true#M418998 --Edit if you only want to do specific layers change the "*" to layer names you want to freeze/thaw "0,Defpoints,layer1"
    1 point
  5. I didn't know that - learn something every day!
    1 point
  6. (0 . "*POLYLINE") ,,,,,,((0 . "*SOLID") )) there are two different codes
    1 point
  7. this? https://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/thaw-all-layers/td-p/1598059 (command "_layer" "t" "*" "")
    1 point
  8. (vl-load-com) (defun c:WBP ( / c_doc o_arr ss o_lst cnt fname) (setq c_doc (vla-get-activedocument (vlax-get-acad-object)) o_arr (vlax-make-safearray vlax-vbobject '(0 . 0)) ss (ssget "_X" '((0 . "*POLYLINE") (-4 . "&=") (70 . 8))) );end_setq (repeat (setq cnt (sslength ss)) (setq o_lst (cons (vlax-ename->vla-object (ssname ss (setq cnt (1- cnt)))) o_lst)) );end_repeat (setq cnt 0) (foreach obj o_lst (setq sso (vla-add (vla-get-selectionsets c_doc) "PLO") fname (strcat (getvar 'dwgprefix) (itoa cnt) ".dwg") );end_setq (vlax-safearray-put-element o_arr 0 obj) (vla-additems sso o_arr) (vla-wblock c_doc fname sso) (vla-delete sso) (setq cnt (1+ cnt)) );end_foreach );end_defun
    1 point
  9. That's OK, some people know a lot and just need an idea what to do, some not a lot and want a full solution - both are OK I'll see if I have time to think up something tomorrow or someone else no doubt will have something too
    1 point
×
×
  • Create New...