Change the z coordinate to visible attribute

[BIGAL]

Ok pretty easy,  if plines even easier just need some time. I ahve taken the approach of using text a little easier to test with.

 

 

Edited November 13, 2018 by BIGAL

[Fredricc]

pretty easy ? not for a beginner  and cant find anything of anyone who made this on the google... the z coordinate of all break points have to be in the block text on every break point as the dwg shows if you fix it i ow you one! ^^

Edited November 13, 2018 by Fredricc

[eldon]

28 minutes ago, Fredricc said:

I dont understand what you mean, this is how i want it too look like, i dont got any "first place" this is the one i got, and how i want them to look like ?

 

Your Spatial Manager TP imports an XYZ file using block references in 3D. Those are the blocks I am interested in, because I think that with a bit of tweaking, you might get what you want without starting from the beginning.

[Fredricc]

Sound great, something you can master ?

[eldon]

57 minutes ago, Fredricc said:

Sound great, something you can master ?

 

Who knows?  Without original data to work on, it is impossible for me to surmise.

[Fredricc]

Here you go.dwg

[Fredricc]

Thats a example of a line and some points i want to put attributes on, i made it on 30 second in zwcad just, its a perfect example, without attributes.

[eldon]

OK, that drawing does not contain any attributes that I can see. We may be going around in circles, but I thought that you wanted to use the Spatial Manager to input data, and then to get those attributes to look like you want it to. Obviously not!  You seem to want to merely annotate the Z value of the 3D vertices of a polyline, so why use attributes?

 

 

 

 

[Fredricc]

Thats how i want it too look like, when it comes to insert data, use different programs, but that program does not support this attribute stuff to get the + and the text (z coordinate) in the same layer. thats what im serching for to make those attributes/blocks in dwg format IN zwcad

[Fredricc]

but when i got 500 lines and alot of attribute to pick, i want it to automatic make those attributes on every points on the drawing with some command or someting like that, becouse its no function in my cad who make it easyer to make this for me,

[Fredricc]

And i got dont the  Spatial Manager, this action with blocks/attributes is not everyday i make so its kinda expensive to buy it for 1 function only

[eldon]

Could I suggest that you go to Lee Mac's web site and use the programme Point Manager. It may do what you want.

[SLW210]

I have moved your thread to the AutoLISP, Visual LISP & DCL Forum.

[Fredricc]

Good! it was there i should place it at the beginning.....

[BIGAL]

I have done something but it needs testing using a block would make the + part a bit easier as that would be the insertion point.

 

Need some time to test, should have looked at Lee's point manager 1st though.

 

(defun labelzs ( / x  obj ss)
(defun isline ( /   stpt endpt)
(setq stpt (vlax-curve-getstartpoint obj))
(setq endpt (vlax-curve-getstartpoint obj))
(command "text" stpt "" "" (strcat "+ "(rtos  (caddr stpt) 2 3)))
(command "text" endpt "" "" (strcat "+ " (rtos  (caddr endpt) 2 3)))
)
(defun is3dpline ( /  y co-ords)
(setq co-ords
  (vlax-safearray->list
    (vlax-variant-value
      (vlax-get-property
    obj
    "Coordinates"
      )
    )
  )
)
(if (= objname "AcDbLwpolyline")
( setq  numb  (/ (length co-ords) 2) inc 2)
( setq  numb  (/ (length co-ords) 3) inc 3)
)
(setq y (length co-ords))
(repeat numb
(if (= objname "AcDbLwpolyline")
(command "text" pts "" "" (strcat "+ 0.0"))
(progn
(setq z(nth (setq y (- y 1)) co-ords))
(command "text" pts "" "" (strcat "+ "(rtos z 2 3)))
)
)
(setq y (- y inc))
)
)
(setq ss (ssget ))
(repeat (setq x (sslength ss))
(setq obj (vlax-ename->vla-object (ssname ss (setq x (- x 1)))))
(setq objname (vla-get-objectname obj))
(if (= objname "AcDbLine")(isline))
(if (or (= objname "AcDbLwpolyline")(= objname "AcDb3dPolyline"))
(is3dpline)
)
)
)
(labelzs)

 

 

 

[Fredricc]

make them as block if its easyer! 

[BIGAL]

Go back and look at Lee's point manager should do what you want. Far easier to start with a xyz csv file.

[Fredricc]

reply: havent find anything good yet for this! and ive been serching (ALOT) 

 

anyone ? 

 

From excel its working fine to import but to change them in the dwg drawing its harder to find something as working

[harshad]

if u have x,y,z, in .xls file (Microsoft Excel 97-2003 Worksheet (.xls))

then u try this below file and let me know 

pp.Lsp

[Fredricc]

Bok3.xls

 

Here you got one who looks like without editing it.

 

I didnt get it to work with that lisp try it you and give a reply