MihaiAnghius Posted March 10, 2017 Share Posted March 10, 2017 Thanks fixo Quote Link to comment Share on other sites More sharing options...
AHMED18 Posted July 25, 2018 Share Posted July 25, 2018 This is very useful lisp, but if you can edit it to show just one dim. "total length" for whole polyline Quote Link to comment Share on other sites More sharing options...
hanhphuc Posted July 25, 2018 Share Posted July 25, 2018 (edited) hi, a polyline is singular (vlax-curve-getdistatparam en (vlax-curve-getendparam en)) few examples : 1. by selections 2. by LineTypes 3. by groups Edited July 25, 2018 by hanhphuc additional link - by line Types Quote Link to comment Share on other sites More sharing options...
pmadhwal7 Posted August 21, 2019 Share Posted August 21, 2019 hello to all i am also searching for the something like this lsp but the differences is ur lsp working placing dimension along the object and i want the perpendicular dimension please see my post please help me for this..... Quote Link to comment Share on other sites More sharing options...
Raju Nimbargi Posted November 1, 2019 Share Posted November 1, 2019 On 10/2/2008 at 11:57 AM, VaKaDi said: ASMI said: I thank you very much to all. We have saved lots of times due to these LIPS. We are Plumbing consultants and we need to add slope level in external drawings is there any available LIPS FOR SLOPE CALCULATION Quote Link to comment Share on other sites More sharing options...
dlanorh Posted November 1, 2019 Share Posted November 1, 2019 4 hours ago, Raju Nimbargi said: I thank you very much to all. We have saved lots of times due to these LIPS. We are Plumbing consultants and we need to add slope level in external drawings is there any available LIPS FOR SLOPE CALCULATION Slope of each segment of the polyline? Overall Slope of Polyline (start of polyline, end of polyline)? Display slope as...? Quote Link to comment Share on other sites More sharing options...
BIGAL Posted November 2, 2019 Share Posted November 2, 2019 Here is a couple of old ones the 1:x needs to have plines added these are like 20 years old. Xfallper needs Multi getvals.lsp. Multi GETVALS.lsp XFALLPER.LSP XFALL.LSP 2 Quote Link to comment Share on other sites More sharing options...
qasir Posted February 27 Share Posted February 27 On 3/20/2009 at 5:07 PM, Lee Mac said: Maybe this? (defun c:dimobj (/ ss vlst ovar obj minpt maxpt crds) (if (setq ss (ssget)) (progn (setq vlst '("CMDECHO" "OSMODE" "DIMASSOC") ovar (mapcar 'getvar vlst)) (mapcar 'setvar vlst '(0 0 2)) (foreach obj (mapcar 'vlax-ename->vla-object (vl-remove-if 'listp (mapcar 'cadr (ssnamex ss)))) (vla-getboundingbox obj 'minpt 'maxpt) (setq crds (mapcar 'vlax-safearray->list (list minpt maxpt))) (command "_dimlinear" (car crds) (polar (car crds) (/ pi 2) (- (cadadr crds) (cadar crds))) (polar (car crds) pi (* 2 (getvar "DIMTXT")))) (command "_dimlinear" (car crds) (polar (car crds) 0 (- (caadr crds) (caar crds))) (polar (car crds) (/ (* 3 pi) 2) (* 2 (getvar "DIMTXT"))))) (mapcar 'setvar vlst ovar)) (princ "\n<!> No Object Selected <!>")) (princ)) What offset would you like? A prompt for an offset? Hi Mr. Lee. can you make a little change to mark dimension on top and left of any rectangle Quote Link to comment Share on other sites More sharing options...
BIGAL Posted February 27 Share Posted February 27 "can you make a little change to mark dimension on top and left of any rectangle " A good task to start learning lisp, some hints, you can get the 4 vertice/points of a rectangle, so its easy to do only 2 Dims as you know points, or can use BoundingBox VL method, but if on an angle this is not the best way to go. Here is a start for you. (setq plent (entsel "\nPick rectang")) (if plent (setq co-ord (mapcar 'cdr (vl-remove-if-not '(lambda (x) (= (car x) 10)) (entget (car plent)))))) (princ co-ord) Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.