Leaderboard

This came up the other day: ;;https://www.cadtutor.net/forum/topic/76207-send-a-text-message-by-whatsapp/ (defun open_url_in_chrome (url / sa);by ronjonp (and (setq sa (vlax-get-or-create-object "Shell.Application")) (null (vlax-invoke sa 'shellexecute "chrome.exe" url)) (vlax-release-object sa) ) ) You can put in the 'exe' name ( msedge.exe in this case ), or like MHUPP says will also do _browser for the default browser, a slightly different method to yours and I don't know if the interface will work as you want but it looks like it might

Don't know what your trying to do but if edge is set as your default you can just use the command browser to launch. (command "_.Browser" "www.google.com")

Update formula (all) 2nd lines (see post above) to resolve rounding and text formatting issue, For example: 119.999 when convert and round-off should display 10'-0" instead of 9'-12" Update MROUND() using with SIGN() to correct issue with negative number My apology! Phh

That is a little more involved. (defun C:FOO (/ SS layers lay x lst SS1) (setq SS (ssadd)) ;emty selecton set to add entity's to (setq layers (Table "layer")) (foreach lay layers (setq x (entget (tblobjname "layer" lay))) (if (eq (cdr (assoc 62 x)) 7) (setq lst (cons lay lst)) ;add each layer that has color white to a new list ) ) (foreach lay lst (if (setq SS1 (ssget "_X" (list '(0 . "*POLYLINE") (cons 8 lay) '(62 . 256) (cons 410 (getvar 'ctab))))) ;process that 2nd list of layers to see if any (setq SS (acet-ss-union (list SS SS1))) ;polylines are bylayer and add them to ss ) (setq SS1 nil) ; reset so things arn't added twice ) (if (setq SS1 (ssget "_X" (list '(0 . "LWPOLYLINE") '(62 . 7) (cons 410 (getvar 'ctab))))) ;alos find any polylines that are white (setq SS (acet-ss-union (list SS SS1))) ;and add them to SS ) (sssetfirst nil SS) ) ;Written By Michael Puckett (defun Table (s / d r) (while (setq d (tblnext s (null d))) (setq r (cons (cdr (assoc 2 d)) r)) ) )

This handy reference http://lee-mac.com/ssget.html and look at 'ALL' changing his example (0 . "LINE") to be colour ( 62 . "Colour" ) and colour 256 is 'ByLayer' giving you something like (setq ss (ssget "_A" '((0 . "LWPOLYLINE")(62 . 256))) ) will select all polylines that are 'by layer' colour and create a selection set with them for you to do what you want after