Jump to content

Leaderboard

Popular Content

Showing content with the highest reputation on 05/23/2019 in all areas

  1. Searching for this stuff online doesn't yield a lot of results, especially when it comes to AutoCAN'T. However, if you've wanted to have Dimetric and Trimetric projection views, here you go. This requires using DDVPOINT to set your angles and also saving it as a model view. The format below is [View Direction] - [From X Axis] - [From XY Plane] Dimetric Views NE - 45 - 15.5 NW - 135 - 15.5 SW - 225 - 15.5 SE - 315 - 15.5 Trimetric Views NE - 62.5 - 31.5 NW - 117.5 - 31.5 SW - 242.5 - 31.5 SE - 297.5 - 31.5 If anyone else has a different way of doing this, please share your methods.
    1 point
  2. tried your change style routine on 2017 and 2020 (both on the same machine) and 2020 was the fasted. About 7 seconds for 229 blocks in 2017 and 5 or 6 seconds in 2020. Maybe low on memory? Faster laptop may be no guarantee if AutoCAD is low on resources?
    1 point
  3. Weird, I tried it on your dwg attachment, it works on my pc. Did you try it on that dwg? Maybe there's something different with the dwg you really want to use it on
    1 point
  4. Command PCTT (print_out can be adapted, for example more decimal precision, I'm not sure what you want with the result) (defun print_out (lst / a) (foreach a lst (princ "\n") (princ a) ) ) ;; Point Closest To Text (defun c:pctt ( / points texts i j pt ind dst d result) (setq points (ssget "_X" (list (cons 0 "POINT")))) (setq texts (ssget "_X" (list (cons 0 "MTEXT,TEXT")))) (setq i 0) (setq result (list)) (repeat (sslength points) (setq j 0) (setq dst nil) ;; this will hold the closest distance. If a new closer distance is found we replace dst by that new value (setq ind nil) (repeat (sslength texts) (setq d (distance (setq pt (cdr (assoc 10 (entget (ssname points i))))) ;; insert point of the point (cdr (assoc 10 (entget (ssname texts j)))) ;; insert point of the text )) (if (or (= dst nil) (< d dst)) (progn (setq dst d) (setq ind j) )) (setq j (+ j 1)) ) (setq result (append result (list (list (nth 0 pt) ;; x value of point (nth 1 pt) ;; y value of point (cdr (assoc 1 (entget (ssname texts ind)))) ;; text ) ))) (setq i (+ i 1)) ) (print_out result) (princ ) )
    1 point
  5. A print, whether physical or digital, is never going to be as accurate as the original vector drawing. I think you are reaching the limits of how accurate a print can be. You have to zoom way into the PDF to see what your blown up screenshot shows. It looks like it's about 0.008" off, unmeasurable on paper. You can crank up the vector DPI settings in the driver to get it closer, the downside is a larger PDF. This image is from a PDF created with 4800 DPI set.
    1 point
  6. I always use the plot with DWG to PDF.
    1 point
×
×
  • Create New...