Jump to content

Leaderboard

Popular Content

Showing content with the highest reputation on 02/03/2025 in all areas

  1. Just a comment if you want to read Excel direct can open the correct Excel file. Just edit filename & sheetname (setq myBook (vl-catch-all-apply 'vla-open (list (vlax-get-property myXL "WorkBooks") fileName))) (setq mySheet (vl-catch-all-apply 'vlax-get-property (list (vlax-get-property myBook "Sheets") "Item" sheetName))) (vlax-invoke-method mySheet "Activate") You can add...
    1 point
  2. Had to watch a video to see it. I'm good now. Thanks a million
    1 point
  3. I think I misunderstood your explanation of what you needed. Anyway, the code can be easily adapted to what you asked for. I've corrected the small oversight in the 'grvecs' functions, which I included at the last minute and didn't check. Here is the modified code, in case anyone finds it useful... (defun c:ptoZmin? (/ ent lstent punto lstpts zMin ptoZmin conj n) (setq n 0) (if (setq conj...
    1 point
  4. Easy for lines or plines you pick an end when selecting this implies the start point. You compare the distance to the two ends and flip the pts if necessary. Minimal testing with arcs. (defun swapends (ent / obj) (setq pt3 (cadr ent)) (setq obj (vlax-ename->vla-object (car ent))) (setq start (vlax-curve-getstartPoint obj)) (setq end (vlax-curve-getEndPoint obj)) (setq d1 (distance pt3 end)) ...
    1 point
  5. Try changing this line : (setq gap (getvar "dimtxt")) To this line : (setq gap (* 2.0 (getvar "dimtxt")))
    1 point
×
×
  • Create New...