Leaderboard

I've only changed the function name for you. If the order of the dd/mm/yyyy arguments is a problem for you, you'll need to change them.

Hi I haven't been able to get your code to work properly. Also, I don't think it takes leap years into account. Actually, 45,798 days have passed, but not 45,792. I have something pretty simple for this. I hope it helps. ;************************ G L A V C V S ************************* ;************************** F E C I T *************************** (defun daysFrom1900 (dia mes annvs / aa diasHAP diasB diasBs da m-1 n) (defun diasBs (ai af i / a b) (while (<= (setq a (+ ai (setq i (1+ i)))) af) (if (or (= (rem a 400) 0) (and (= (rem a 4) 0) (/= (rem a 100) 0))); (setq a 1900) (or (= (rem a 400) 0) (and (= (rem a 4) 0) (/= (rem a 100) 0))) (setq b (if b (1+ b) 1)) ) ) (if b b 0) ) (setq diasHAP (* (- annvs 1900) 365) diasB (diasBs 1900 (- annvs 1) -1) da (- (* (setq m-1 (- mes 1)) 31) (foreach x '(4 6 9 11) (if (> mes x) (setq n x) (if n n 0))));(vl-some '(lambda (x / n) (if (> m-1 x) (not (setq n (if n (1+ n) 1))) n)) '(4 6 9 11))) da (if (and (> mes 2) (or (= (rem annvs 400) 0) (and (= (rem annvs 4) 0) (/= (rem annvs 100) 0)))) (- da 2) (if (> mes 2) (- da 3) da)) ) (+ diasHAP diasB da dia) )

yeah , if you live in a mirror universe then you are !@#$%^ haha. If I find the time I'll try to tweak it a little more. I believe Lee Mac has done something simular in his grtext routine. By weighing all caracters it is possible to predict more precisely the width for each character. And mayby it can be done even simpeler , using a text_part with a right alignment next to a white image. Gonna be very busy this weekend , dusting of a program I wrote a year ago for my boss but suddenly no budget for the job,. Now there might be a budget and suddenly all has to be done yesterday you know , but I have no more active memories to the program. Must be karma or something...

Study complete topic posted here and maybe you can use my (c:overkill-mr) to remove unwanted polylines-splines... Here is link : https://www.cadtutor.net/forum/topic/49715-i-need-overkill-and-ncopy-please-help-me/

?tfel ot thgir nettirw ylno s'taht egaugnal a kaeps uoy fi tahw tub ,seY Yes, but what if you speak a language that's only written right to left?

We have template files that include the proper layers and blocks with properties for both. The template also includes a legend with blocks at the usual scale. You copy one from the legend and drop it on the plan, and you're done. It helps to have the insertion point for blocks defined at the point where surveyors will locate them. After you have the survey points, you can drag the blocks onto them. Quick and easy. With Civil 3D, you can define structures with blocks. Same principle applies.

You probably dont need at this stage to keep making new posts, you could have added this question to either one of your other 2 posts. My suggestion is in the pop menu in the other post.

Troggarf nice option. Another. ; DRAWS ELLIPSEOID ENDS ON A PIPE (defun c:pend ( / pt1 pt2 pt3 dist ang midpt bulge) (SETQ PT1 (GETPOINT "\n PICK PT1")) (SETQ PT2 (GETPOINT "\n PICK PT2")) (SETQ DIST (DISTANCE PT1 PT2)) (SETQ ANG (ANGLE PT1 PT2)) (SETQ MIDPT (POLAR PT1 ang (/ DIST 2.0))) (SETQ BULGE (GETREAL "\n ENTER BULGE FACTOR <40> ")) (if (= BULGE nil)(setq BULGE 0.4)(setq bulge (/ bulge 100))) (SETQ DIST (/ DIST 4.0)) (SETQ PT3 (POLAR PT1 ANG DIST)) (SETQ ANG (+ ANG 1.5714)) (SETQ DIST (* DIST BULGE)) (SETQ PT3 (POLAR PT3 ANG DIST)) (COMMAND "ARC" PT1 PT3 MIDPT) (COMMAND "COPY" "L" "" PT1 MIDPT) (COMMAND "MIRROR" "L" "" PT1 PT2 "N") (setq bulge nil pt1 nil pt2 nil) (PRINC) ) (c:pend)