Leaderboard

http://www.theswamp.org/index.php?topic=4814.msg194181#msg194181 LINK : ENTMAKE HATCH THIS WILL HELP YOU

; each matchprop - text to text, ~line to ~line, hatch to hatch. - 2022.03.08 exceed ; command : mma ; Note - If you select multiple original object, the first in the selection set will be selected. (vl-load-com) (defun c:mma ( / *error* ss_o ss_o_t ss_o_l ss_o_h ss_o_t_1 ss_o_l_1 ss_o_h_1 ss_t ss_t_t ss_t_l ss_t_h) (setvar 'cmdecho 0) (LM:startundo (LM:acdoc)) ;error control (defun *error* ( msg ) (LM:endundo (LM:acdoc)) (if (not (wcmatch (strcase msg t) "*break,*cancel*,*exit*")) (princ (strcat "\n Error: " msg)) ) (setvar 'cmdecho 1) (princ) ) (princ "\n each matchprop - text to text, ~line to ~line, hatch to hatch.\n select original object :") (setq ss_o (ssget)) (if (/= ss_o nil) (progn (setq ss_o_t (ssget "P" (list (cons 0 "*TEXT")))) (if (/= ss_o_t nil) (setq ss_o_t_1 (ssname ss_o_t 0)) ) (command "_.select" ss_o "") (setq ss_o_l (ssget "P" (list (cons 0 "*LINE")))) (if (/= ss_o_l nil) (setq ss_o_l_1 (ssname ss_o_l 0)) ) (command "_.select" ss_o "") (setq ss_o_h (ssget "P" (list (cons 0 "HATCH")))) (if (/= ss_o_h nil) (setq ss_o_h_1 (ssname ss_o_h 0)) ) );end of progn );end of if (princ "\n select target object :") (setq ss_t (ssget)) (if (and (/= ss_t nil) (/= ss_o nil)) (progn (setq ss_t_t (ssget "P" (list (cons 0 "*TEXT")))) (if (and (/= ss_t_t nil) (/= ss_o_t nil)) (progn (command "_.matchprop" ss_o_t_1 ss_t_t "") );end of progn );end of if (command "_.select" ss_t "") (setq ss_t_h (ssget "P" (list (cons 0 "HATCH")))) (if (and (/= ss_t_h nil) (/= ss_o_h nil)) (progn (command "_.matchprop" ss_o_h_1 ss_t_h "") );end of progn );end of if (command "_.select" ss_t "") (setq ss_t_l (ssget "P" '( (-4 . "<NOT") (-4 . "<OR") (0 . "*TEXT") (0 . "HATCH") (-4 . "OR>") (-4 . "NOT>")))) (if (and (/= ss_t_l nil) (/= ss_o_l nil)) (progn (command "_.matchprop" ss_o_l_1 ss_t_l "") ) );end of if ;(command "_.select" ss_t "") ;(setq ss_t_l (ssget "P" (list (cons 0 "*LINE,SOLID")))) ; (if (/= ss_t_l nil) ; (command "_.matchprop" ss_o_l_1 ss_t_l "") ; ) );end of progn );end of if (setvar 'cmdecho 1) (LM:endundo (LM:acdoc)) (princ) ) ;; Active Document - Lee Mac ;; Returns the VLA Active Document Object (defun LM:acdoc nil (eval (list 'defun 'LM:acdoc 'nil (vla-get-activedocument (vlax-get-acad-object)))) (LM:acdoc) ) ;; Start Undo - Lee Mac ;; Opens an Undo Group. (defun LM:startundo ( doc ) (LM:endundo doc) (vla-startundomark doc) ) ;; End Undo - Lee Mac ;; Closes an Undo Group. (defun LM:endundo ( doc ) (while (= 8 (logand 8 (getvar 'undoctl))) (vla-endundomark doc) ) ) I made this because I got tired of classifying it with QSELECT and matching it, with layers that are not separated. Layers are very important. And in general, in my work, hatch often has properties different from line. The gif was hatched on the table.. but hatches usually in a tray or pipe. polyines are treated like lines. If there is no text or hatch, the properties of the text or hatch are not changed. The difference between inch and mm unit of hatch pattern file by measurement sysvar could not be resolved. I think that when I bring hatches of different measurement sysvars and paste them into one drawing, the hatch scale seems to be applied properly when the scale is modified once and then restored to the original value. Since there may be cases where the drawings are already mixed in the existing drawings, I could not modify them.

It refers to the stationing which would start at 0+00 then every hundred feet. Thus the next station 100 foot station would be labeled 1+00 and the one after that (if required) would be labeled 2+00 and so on. The stationing may fall short of reaching 4+00 if it does then the last station may be, for example, 3+78.90.

It's powerful, thank you for your efforts, my bro

LISP SHOULD EITHER HATCH OR SELECT THE BOUNDARY (MULTIPLE OFCOURSE) AFTER CLICKING ON THE TEXTS.

"Globally!!!11!!!1!!!one!!!"

Wow, all I did was blink. Just wow.

This site is not associated with Autodesk, take your grievances to the Autodesk site. It has no place here. Your post was removed because YOU, started into a political diatribe. Also, there is not in any way shape or form going to be "AutoCAD will be disabled worldwide" as you claim.

Use the "DWG to PDF" printer to print Set the quality to 600 dpi or less in the printer settings. Turn off transparency when printing.

I did have something half written but got distracted, I think Christmas holidays finished and I had to do work again. I couldn't find anything much out there all ready written to convert XY to Latitude / Longitude that fitted what I wanted accurately. There are conversion websites out there and some have the formulas available so might not be the exact LISP you need but there might be the formulas to use and you can work from there Noting as above each part of the world have different constants to use so you'd need to find your local ones

The E and N coordinates are based on the Universal Transverse Mercator coordinate system. This is a map projection system that allows mapping of a curved surface to be drawn on a flat surface. The world is divided into 60 zones with a designated central meridian and a scale factor at the central meridian. Added to these 'official' zones, there are many local zones which fit the mapping area better. So, for a lisp that covers the whole world, there are a lot of constants that have to be applied to each zone. The likelihood of a philanthropist lisper who would put out all this work as a freebie is vanishingly small. But I wish you the best of luck in discovering this golden pot. For the rest of us, the lisps available generally use the built-in functions in Civil3D, Land Desktop and Map. If you only have basic AutoCAD, then your best way forward is to do the conversions manually form the many sites available for free on the web.

thanks! good explained now let me see if i ca do it in my plate 2 thanks