Jump to content

Leaderboard

Popular Content

Showing content with the highest reputation on 09/13/2021 in all areas

  1. Okay i got it. You have to append this file extension to the source file. (vl-file-copy (strcat "\\path1\\" Data ".pdf - Verknüpfung.lnk") Does anyone know if it is possible to make a PDF (without shortcut) from the source file that I move to another folder with vl-file-copy? If I enter the file extension in the destination folder to ".pdf", the file is moved, but Adobe tells me when I open it that the PDF is corrupted. In this case it would have to convert the .lnk file to .pdf.
    1 point
  2. Its hard to put a "Here are some lisps" I have around 5000 lisps, others like me have similar number. Yes some are copies as I have copied old computers hard disks and made modification to lisps to suit end user. My day to day has 1000 lisps the forum answer stuff. If you can write a simple 1 line per request list who knows how many you may get. For electrical I can think of show jump over a line/cable as 1 example, a arc or a chamfer.
    1 point
  3. Just look on the code. Autor just did specjal place for IT: p2 (mapcar '(lambda (x) (/ x 2)) [color=red];;; Change (/ x 2) to (* x 0.3) for 30% of distances ;;;[/color]
    1 point
  4. IT is good for start: https://www.afralisp.net/autolisp/tutorials/quick-start.php
    1 point
  5. What is your line in your code for the vl-file-copy? (obviously if it is a shortcut link, the file extension will be .lnk )
    1 point
  6. Try this (defun c:dimupd ( / sel ) (if (ssget "_:L" '((0 . "DIMENSION"))) (progn (vlax-for obj (setq sel (vla-get-activeselectionset (vla-get-activedocument (vlax-get-acad-object)))) (if (= acunder (vla-get-verticaltextposition obj)) (vla-put-verticaltextposition obj acabove) (vla-put-verticaltextposition obj acunder) ) ) (vla-delete sel) ) ) (princ) ) (vl-load-com) (princ) It is changing above/under, to other. found on: and modded just one line Or just change the one before (BDL.lsp) to (vlax-put eo 'VerticalTextPosition acUnder)
    0 points
×
×
  • Create New...