cadamrao Posted April 28, 2011 Share Posted April 28, 2011 I need to cloud number of objects different lengths, can I get any program LISP to convert all objects (rectangles) into cloud in single selection with required arc length. Advance thanks amr Quote Link to comment Share on other sites More sharing options...
Tharwat Posted April 28, 2011 Share Posted April 28, 2011 Here it goes ...... (defun c:Test (/ ss l) ; Tharwat 28. 04. 2011 (if (and (setq ss (ssget "_:L" '((0 . "LWPOLYLINE")))) (setq l (getdist "\n Specify Arc Length :")) ) ( (lambda (i / ss1) (while (setq ss1 (ssname ss (setq i (1+ i)))) (command "_.revcloud" "_a" l "" "" ss1 "_No") ) ) -1 ) (princ "\n No LWPolyline(s) selected") ) (princ) ) TharwaT Quote Link to comment Share on other sites More sharing options...
Tharwat Posted April 28, 2011 Share Posted April 28, 2011 Be careful not specify the Arc Length longer than Rectangles it self . TharwaT 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.