Point scaling

[Anonymous]

How can a civil 3d points be scaled in x, y but filter out the z elevation, to keep the same z elevation?

[civilman1957]

By scaling, you mean what, exactly? The size of the node can be changed by altering the point style, and the size of the various text objects - as well as a variety of other things - can be changed by tweaking the point label style.

[Jeff_M]

The easiest and quickest way I know of: ScalePoints

[Anonymous]

I would like to scale around a known northing easting keeping the elevatoin the same.  Basically we want to change the horizontal coordinate system.

[ACADuser]

Export your points to a csv file.  Using the Autocad SCALE command, scale the points as desired.  Export the scaled points to a different csv file.  Open both csv files using MS Excel and sort the points in each by point number.  In the orignal csv copy the values from the elevation colum then paste over the elevation values in the scaled csv.  Save the file and import the points overwriting existing points.

[tcorey · Accepted solution]

Some LISP code so easy even I can do it:

(defun c:go( / p1 ss len sc ctr curpt obtyp vpt curz)


(vl-load-com)


  ;select points to scale
  (prompt "\nSelect points to scale: ")
  (setq ss (ssget))
  (setq len (sslength ss)
 ctr 0)




  ;get basepoint
  (setq p1 (getpoint "\nPick BasePoint: "))




  
  (setq sc (getreal "\nEnter Scale Factor: "))
 




  (while (< ctr len)
    (setq curpt (ssname ss ctr))
    (setq obtyp (cdr (assoc 0 (entget curpt))))
    (if (= obtyp "AECC_COGO_POINT")
      (progn
 (setq vpt (vlax-ename->vla-object curpt))
 (setq curz (vlax-get-property vpt 'Elevation))
 (vl-cmdf "Scale" curpt "" p1 sc)
 (vlax-put-property vpt 'Elevation curz)
 );end progn
      );end if
        
        (setq ctr (1+ ctr))
        
    );end while
  
  (vl-cmdf "REGEN")
(princ)





) ;end GO

[Anonymous]

Ok now I feel stupid.  That will work.  seems Autodesk would make the ability to do this in a dwg file.

Thanks

[Anonymous]

Tim,

Thanks that does the trick.  Makes my life easier.

[mathewkol]

Here is another manual method.

[Anonymous]

I'm trying to do this using this lisp code but it's not working for me. Do I copy the code as it is and paste it all into one .lsp file?

[wfberry]

I'm not Tim but you are answering to a 1.5 year old post.  Just copy all of that into a notepad .txt empty file.  Rename the suffix to .lsp.

You can load it using APPLOAD and the command to run it is:

go

Bill

[Anonymous]

Thanks. I wasn't getting the GO part.