Jump to content

Leaderboard

Popular Content

Showing content with the highest reputation on 07/21/2023 in all areas

  1. Using this in a loop plot 88 layouts, the Acrobat pdf opens then gives an error message about 20 pdf's in but keeps going creating all 88 pdf's. (COMMAND "-PLOT" "Y" "" "DWG To PDF" "Iso full bleed A3 (420.00 x 297.00 MM)" "m" "LANDSCAPE" "N" "W" "-6,-6" "807,560" "1=2" "C" "y" "Acad.ctb" "Y" "n" "n" "n" pdfName "N" "y" )
    1 point
  2. Maybe use (command "saveas" .... it will ask for extra details.
    1 point
  3. I have had many issues with command function over the years acting not quite the same way when you type it out manually. Can't remember exactly what (command it was but found out that vla-sendcommand with the same parameters worked like when typing it manually. Also try vl-cmdf tho i don't know if their is a difference between that function and command. (defun c:al-sendcommand () (vl-load-com) (setq thisdrawing (vla-get-activedocument (vlax-get-acad-object))) (vla-SendCommand thisdrawing (strcat "PLOT" "Y" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" (strcat (getvar "DWGPREFIX") "TEST.PDF") "" "Y")) (princ) );defun (vl-cmdf "PLOT" "Y" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" (strcat (getvar "DWGPREFIX") "TEST.PDF") "" "Y") if still not working look into vla-PlotToFile lisp.
    1 point
  4. Hi (strcat "\nx = " (rtos (car p1) 2 3) "\ny = " (rtos (cadr p1)))
    1 point
  5. The above codes don't work for me. I wrote my version. coor_vert.LSP
    1 point
×
×
  • Create New...