Jump to content

Leaderboard

Popular Content

Showing content with the highest reputation on 02/17/2020 in all areas

  1. How many fonts do people really need for CAD? I understand some design instances, I do logos and things to be made on a water jet, laser engraver, etc. but pretty much everything already on a Windows computer and AutoCAD would suffice for all of that. Not seeing anything exceptional with the Amelia.TTF.
    1 point
  2. yes sir! this is the one! i love it! i will use this! if it will automate further i will just join all the yellow polylines
    1 point
  3. You want that line in layer "perps" and color red, yes? Command PFP. In a while loop, you select the start point (intersect of the polyline with the white line), then select the other polyline (where the perpendicular line ends) Repeat. (vl-load-com) (defun drawLine (p1 p2 lay col) (entmakex (list (cons 0 "LINE") (cons 10 p1) (cons 11 p2) (cons 8 lay) (cons 62 col) )) ) ;; PFP for polyline find perpendicular (defun c:pfp ( / pl1 pl2 p1 p2) (while T ;;(setq pl1 (car (entsel "\nSelect Polyline 1 (for startpoint of red line): "))) (setq p1 (getpoint "\nStartpoint of red line")) (setq pl2 (car (entsel "\nSelect Polyline 2 (for perpendicular of red line): "))) (setq p2 (vlax-curve-getClosestPointTo pl2 p1)) (drawLine p1 p2 "perps" 1) ) (princ) ) If those green polylines were 1 polyline * on the left, and 1 on the right, this routine could be further automated. Then you would just select polyline 1 (where the red line starts), select polyline 2, then window select the white lines. the routine finds the intersect points, and automatically draws all the red lines at once. (* this can be done with polyline edit -> join) Is this something you might want as well?
    1 point
  4. I've now updated my Auto Label Attributes program to account for this - please download the new version from my site.
    1 point
  5. The error arises because there is an anonymous AcDbMInsertBlock located at the origin in your drawing with an invisible attribute containing the following text content: TOPOCAD2000 * V14.11 * 12.08.19\nT24000 * MICROCAD\nGRINGO * DESKTOP-5DH9KUS\nAUTOCAD * 2017 * WIN10x64 This trips up my code because an AcDbMInsertBlock block still has entity type (DXF group 0) equal to INSERT but is not an AcDbBlockReference - I'll look to fix this bug.
    1 point
  6. thanks iconeo I already saw that one from Lee Mac´s website, but it isn´t quite what i needed Anyway, i found what i needed and is called "superboundary" If you google it you will see how awesome that add in is making boundaries in an automatic way.
    1 point
×
×
  • Create New...