Leaderboard

Change this, the 0 is open 1 is closed. (LWPoly plst 0)

The base commands are the same, AutoCAD was written in English, however might be that you need to translate some parts. For example in your LISPs if you have a line such as (command "LINE" .... ) you might want to translate "Line" to the French language or add an underscore to specify that this is the native English command (command "_line" .... ) or (command "LIGNE" ..... ) Might be you have to work through them one at a time as you use them to do the conversion. Post one on here and we can work through it with you, show you what you need to do A quick internet search brought this up t show he different language commands: https://www.cadforum.cz/en/command.asp?lan=FR and note that this is for what you'd type in the command line. Not sure how it works for vla- commands and so on if there are different languages for them Anyway, post one and see

I was REALLY confused as to why I was suddenly getting notifications about this topic again. Luckily, I haven't RE-hit that button in the last two years... so that's helpful.

that was perfect thanks a lot It worked properly and is what I wanted

Using ssget filters will do what you want. Just wrap the example below with a list of layer names using (foreach la layers (setq ss (ssget '((8 . "*ROADS*)))) (command "chprop" ss "" "LA" "Mynewroads" "")

Here's a modification to @BIGAL's code that let's you specify the maximum error between the true ellipse and the polyline approximation. It uses the fact that the maximum deviation will occur on the ellipse at the peak of the major axis where the angle subtended by a chord is: angle = acos( (semimajor_axis - error) / (semimajor_axis)) This angle is used to determine the number of points arond the ellipse. (defun c:ellpl (/ lwpoly obj oldsnap num inc dist plst pt) (vl-load-com) (setq err (getreal "\nEnter maximum error")) (defun LWPoly (lst cls) (entmakex (append (list (cons 0 "LWPOLYLINE") (cons 100 "AcDbEntity") (cons 100 "AcDbPolyline") (cons 90 (length lst)) (cons 70 cls) ) (mapcar (function (lambda (p) (cons 10 p))) lst) ) ) ) (setq obj (vlax-ename->vla-object (car (entsel "\nPick ellipse ")))) (setq oldsnap (getvar 'osmode)) (setvar 'osmode 0) (setq a (vla-get-MajorRadius obj)) (setq thetr (acos (/ (- a err) a))) (setq num (/ (* 2 pi) thetr)) (setq num (atoi (rtos (- num 0.5) 2 0))) ; round up to integer ;; (setq num 100) (setq inc (/ (vlax-curve-getdistatparam obj (vlax-curve-getendparam obj)) num ) dist 0.0 plst '() ) (repeat (+ num 1) (setq pt (vlax-curve-getpointatdist obj dist)) (setq plst (cons pt plst)) (setq dist (+ dist Inc)) ) (LWPoly plst 1) (setvar 'oldsnap) (princ) ) ;; ArcCosine - Lee Mac ;; Args: -1 <= x <= 1 (defun acos ( x ) (if (<= -1.0 x 1.0) (atan (sqrt (- 1.0 (* x x))) x) ) )

As far as I know, you can't exclude them. I understand the annoyance though and people have been complaining about it for years, but it's just the way Autocad works. The best you can do is open your Options and make sure you have "Combine Zoom and Pan Commands" checked. This will combine consecutive zoom and pan operations into one Undo instead of several.

It's a tolerance value. Tolerance is the total amount a dimension may vary and is the difference between the upper (maximum) and lower (minimum) limits.