Nikon Posted March 27 Posted March 27 (edited) The rectangle is drawn using separate polylines. How can they be combined? Using "_C" does not work... ; A 1000x500 rectangle with horizontal sides with a global width of 40, vertical sides with a global width of 0. (defun c:RectWidth-hor40 (/ pt1 pt2 hWidth vWidth p1 p2 p3 p4) (setq width 1000 ; Rectangle width height 500 ; Rectangle height hWidth 40 ; Global width of horizontal sides vWidth 0) ; Global width of vertical sides (setq pt1 (getpoint "\nSpecify the insertion point: ")) (setq p1 pt1 p2 (list (+ (car pt1) width) (cadr pt1)) p3 (list (+ (car pt1) width) (+ (cadr pt1) height)) p4 (list (car pt1) (+ (cadr pt1) height))) (setvar 'PLINEWID hWidth) (command "_.PLINE" p1 p2 "") (command "_.PLINE" p3 p4 "") (setvar 'PLINEWID vWidth) (command "_.PLINE" (list (car p1) (cadr p1)) (list (car p1) (+ (cadr p1) height)) "") (command "_.PLINE" (list (car p2) (cadr p2)) (list (car p2) (+ (cadr p2) height)) "") (princ) ) Edited March 27 by Nikon Quote
Nikon Posted March 27 Author Posted March 27 (edited) 2 hours ago, GLAVCVS said: Define 'be combined', please 4 separate polylines = a closed rectangle. closed rectangle.dwg Edited March 27 by Nikon Quote
GLAVCVS Posted March 27 Posted March 27 Do you mean building a single polyline that preserves the thickness of each segment? Quote
Nikon Posted March 27 Author Posted March 27 Just now, GLAVCVS said: Do you mean building a single polyline that preserves the thickness of each segment? Yes... Quote
GLAVCVS Posted March 27 Posted March 27 (edited) You should replace (ssget) with the name of the sset in which you have included the created polylines Edited March 27 by GLAVCVS Quote
GLAVCVS Posted March 27 Posted March 27 Or, if there are no more polylines in the drawing, use (ssget "_X" '((0 . "LWP*"))) Quote
Nikon Posted March 27 Author Posted March 27 6 minutes ago, GLAVCVS said: (command "_pedit" "_m" (ssget) "" "_j" 0 "") @GLAVCVS thanks, it works, but the created polylines need to be selected... Quote
Nikon Posted March 27 Author Posted March 27 5 minutes ago, GLAVCVS said: You should replace (ssget) with the name of the sset in which you have included the created polylines It's not clear to me. Quote
Nikon Posted March 27 Author Posted March 27 5 minutes ago, GLAVCVS said: Or, if there are no more polylines in the drawing, use (ssget "_X" '((0 . "LWP*"))) There are other polylines in the drawing. Quote
Stefan BMR Posted March 27 Posted March 27 Use entmakex. ; A 1000x500 rectangle with horizontal sides with a global width of 40, vertical sides with a global width of 0. (defun c:RectWidth-hor40 (/ pt1 pt2 hWidth vWidth p1 p2 p3 p4 pl) (setq width 1000 ; Rectangle width height 500 ; Rectangle height hWidth 40 ; Global width of horizontal sides vWidth 0) ; Global width of vertical sides (setq pt1 (getpoint "\nSpecify the insertion point: ")) (setq p1 pt1 p2 (list (+ (car pt1) width) (cadr pt1)) p3 (list (+ (car pt1) width) (+ (cadr pt1) height)) p4 (list (car pt1) (+ (cadr pt1) height))) (setq pl (entmakex (list '(0 . "LWPOLYLINE") '(100 . "AcDbEntity") '(100 . "AcDbPolyline") '(90 . 4) '(70 . 1) (cons 10 p1) (cons 40 hWidth) (cons 41 hWidth) (cons 10 p2) (cons 40 vWidth) (cons 41 vWidth) (cons 10 p3) (cons 40 hWidth) (cons 41 hWidth) (cons 10 p4) (cons 40 vWidth) (cons 41 vWidth) ) ) ) (princ) ) 1 1 Quote
Nikon Posted March 27 Author Posted March 27 11 minutes ago, Stefan BMR said: Use entmakex. @Stefan BMR thank you very much, a closed rectangle is immediately created, this is what I need! Quote
GLAVCVS Posted March 27 Posted March 27 14 minutes ago, ronjonp said: @Nikon Use the JOIN command. Code is not needed. I think your explanation is too short. I assume you mean there are better ways to do it than with 'command'. But I'm not sure Nikon would understand if you didn't explain it a little more. Quote
Nikon Posted March 27 Author Posted March 27 (edited) 9 minutes ago, GLAVCVS said: I assume you mean there are better ways to do it than with 'command'. But I'm not sure Nikon would understand if you didn't explain it a little more. I think you just need to type JOIN into the command prompt and select the objects to combine, without any code... But I just wanted to complete the code. Edited March 27 by Nikon Quote
GLAVCVS Posted March 27 Posted March 27 This is the easiest way to do it, taking advantage of your code (defun c:RectWidth-hor40 (/ pt1 pt2 hWidth vWidth p1 p2 p3 p4 cj) (setq width 1000 ; Rectangle width height 500 ; Rectangle height hWidth 40 ; Global width of horizontal sides vWidth 0) ; Global width of vertical sides (setq pt1 (getpoint "\nSpecify the insertion point: ")) (setq p1 pt1 p2 (list (+ (car pt1) width) (cadr pt1)) p3 (list (+ (car pt1) width) (+ (cadr pt1) height)) p4 (list (car pt1) (+ (cadr pt1) height))) (setvar 'PLINEWID hWidth) (setq cj (ssadd)) (command "_.PLINE" p1 p2 "") (ssadd (entlast) cj) (command "_.PLINE" p3 p4 "") (ssadd (entlast) cj) (setvar 'PLINEWID vWidth) (command "_.PLINE" (list (car p1) (cadr p1)) (list (car p1) (+ (cadr p1) height)) "") (ssadd (entlast) cj) (command "_.PLINE" (list (car p2) (cadr p2)) (list (car p2) (+ (cadr p2) height)) "") (ssadd (entlast) cj) (command "_pedit" "_m" cj "" "_j" 0 "") (princ) ) 1 Quote
ronjonp Posted March 27 Posted March 27 (edited) 13 minutes ago, Nikon said: I think you just need to type JOIN into the command prompt and select the objects to combine, without any code... Exactly. Why don't you use a block for this? (defun c:foo (/ p) (cond ((null (tblobjname "block" "FOO")) (entmake '((0 . "BLOCK") (100 . "AcDbEntity") (67 . 0) (8 . "0") (100 . "AcDbBlockReference") (2 . "FOO") (10 0. 0. 0.) (70 . 0) ) ) (entmake '((0 . "LWPOLYLINE") (100 . "AcDbEntity") (67 . 0) (8 . "L-MVIEW") (100 . "AcDbPolyline") (90 . 4) (70 . 129) (38 . 0.) (39 . 0.) (10 1000. 0.) (40 . 0.) (41 . 0.) (42 . 0.) (91 . 0) (10 1000. 500.) (40 . 40.) (41 . 40.) (42 . 0.) (91 . 0) (10 0. 500.) (40 . 0.) (41 . 0.) (42 . 0.) (91 . 0) (10 0. 0.) (40 . 40.) (41 . 40.) (42 . 0.) (91 . 0) ) ) (entmake '((0 . "ENDBLK") (100 . "AcDbBlockEnd") (8 . "0"))) ) ) (while (setq p (getpoint "\\nPick a point: ")) (entmakex (list '(0 . "INSERT") '(2 . "FOO") (cons 10 p))) ) (princ) ) Edited March 27 by ronjonp 1 Quote
ronjonp Posted March 27 Posted March 27 @Nikon It's also good practice to retrieve variables before changing them. ;; Change this (setq vwidth 0) ;; To this (setq vwidth (getvar 'plinewid)) 1 Quote
Nikon Posted March 27 Author Posted March 27 @GLAVCVS @ronjonp Thank you, your codes are working well! Quote
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.