Modify Endpoint Help
@Jonathan3891Is this what you are looking for?
Function changes picked point of line or 3dpolyline for some delta Z.
(defun c:changeEndpointZ ( / e eo del coords np sp ep vlapt)
(defun take (amount lst / ret) (repeat amount (setq ret (cons (car lst) (take (1- amount) (cdr lst))))))
(cond
((and(setq e (car (entsel "\nSelect linea type object <LINE | 3DPOLYLINE>"))))
(setq eo (vlax-ename->vla-object e))
(cond
((or(= (vlax-get eo 'ObjectName)"AcDbLine")(= (vlax-get eo 'ObjectName)"AcDb3dPolyline"))
(setq pt (getpoint "\nSelect endpoint to change Z coordinate > "))
(setq del (getdist "\nInput endpoint delta Z >"))
(cond
((and del (= (vlax-get eo 'ObjectName) "AcDbLine"))
(if (= (apply '+ (mapcar '- pt (vlax-get eo 'Endpoint))) 0)
(vlax-put eo 'Endpoint (mapcar '+ (vlax-get eo 'Endpoint) (list 0 0 del)))
(vlax-put eo 'StartPoint (mapcar '+ (vlax-get eo 'StartPoint) (list 0 0 del)))
)
(vlax-put eo 'Endpoint (mapcar '+ (vlax-get eo 'Endpoint) (list 0 0 del)))
)
((and del (= (vlax-get eo 'ObjectName) "AcDb3dPolyline"))
(setq
coords (vlax-get eo 'Coordinates) np (/ (length coords) 3)
np (/ (length coords) 3)
ep (reverse(take 3 (reverse coords)))
sp (take 3 coords)
vlapt (vlax-make-safearray vlax-vbdouble '(0 . 2))
)
(if (= (apply '+ (mapcar '- pt ep)) 0)
(progn (vlax-safearray-fill vlapt (mapcar '+ ep (list 0 0 del))) (vla-put-coordinate eo (- np 1) vlapt))
(progn (vlax-safearray-fill vlapt (mapcar '+ sp (list 0 0 del))) (vla-put-coordinate eo 0 vlapt))
)
)
)
)
(T (princ "\nSelected object is not a line or 3dpolyline entity!"))
)
)
)
(princ)
)
Miljenko Hatlak
Did your question get successfully answered? Then click on the ACCEPT SOLUTION button.
@Jonathan3891 wrote:Its actually a Advance Steel element.
I don't use Advance Steel so ad to your next post dumped properties of desired elements?
(vlax-dump-object (vlax-ename->vla-object (car(entsel "\nSelect object"))))
Next time please be more specific with your request, this is not your first request to this forum and you probably know how things work.
Miljenko Hatlak
Did your question get successfully answered? Then click on the ACCEPT SOLUTION button.
@Jonathan3891 wrote:
....
Select Object(s)
Pick endpoint to modify
Enter Distance
Move object(s) endpoint in the z axis only by the distance entered
If you're picking the object, picking the point, and entering the distance, you don't need a routine which won't really save you any steps. Just pick the object, pick the grip at the point in question, and type in @0,0,YourZaxisDistance, and it will move there if eligible to [e.g. not a LWPolyline vertex because you can't take a vertex out of the plane of the rest of it, but it will work on a Line, a 3DPolyline, a Circle center, Text insertion point, etc.]. The distance can be positive or negative. You'll need to have Osnap off if any running mode(s) would "see" the original location of the point and snap back to it.
So that list of VLA properties doesn't seem to include anything about points that could have new values assigned to them. What is its entity data list like? That is, what does this return?
(entget (car (entsel "\nSelect object: ")))
Or, another kind of list of properties, in case it reveals anything a routine could work with:
(dumpallproperties (car (entsel "\nSelect object: ")))
Neither that entity data list nor the dumped properties appears to contain anything about points that could have new values assigned, so an AutoLisp routine, at least, may not be an option. There's an Advance Steel Forum where you could ask.
