Topic: An AutoLISP/AutoCAD oddity... (also: multiple join layers LISP routine)

[alanjt]

All I use is :

Code: [Select]

               (setq all (ssget "_X"
                                (list '(0 . "ARC,LINE,LWPOLYLINE")
                                      (cons 410 (getvar 'CTAB))
                                      (car (setq lst (cons l lst)))
                                )
                         )
               )

What if you are working in a viewport?

Code: [Select]

needs
                                more
                                                                tabs

and cowbell!

[CAB]

What if you are working in a viewport?

Still returns the Tab Name, but if you are in an active VP your method get all of model space not just what you see.
I always move to Model space, seldom do anything through the vp that affects all of model space.
I now see your intent though. Just not the way I work. 

[alanjt]

What if you are working in a viewport?

Still returns the Tab Name, but if you are in an active VP your method get all of model space not just what you see.
I always move to Model space, seldom do anything through the vp that affects all of model space.
I now see your intent though. Just not the way I work. 

I rarely ever work through the viewport (find it to be bad practice), but even I go against my own practices and when I do, I want it to select properly.

[Pad]

and here's the rewrite I did today:

Code: [Select]

(defun c:MJL (/ pedit 4ten ss i l lst all)
  ;; Join all on selected object(s)' layer
  ;; Alan J. Thompson, 06.28.11

  (if (setq pedit (eq (getvar 'PEDITACCEPT) 1)
            4ten  (if (eq (getvar 'CVPORT) 1)
                    (cons 410 (getvar 'CTAB))
                    (cons 410 "Model")
                  )
            ss    (ssget "_:L")
      )
    (repeat (setq i (sslength ss))
      (if (and (setq l (assoc 8 (entget (ssname ss (setq i (1- i))))))
               (not (vl-position l lst))
               (setq all (ssget "_X"
                                (list '(0 . "ARC,LINE,LWPOLYLINE")
                                      4ten
                                      (car (setq lst (cons l lst)))
                                )
                         )
               )
          )
        (if pedit
          (vl-cmdf "_.pedit" "_m" all "" "_J" "" "")
          (vl-cmdf "_.pedit" "_m" all "" "_Y" "_J" "" "")
        )
      )
    )
  )
  (princ)
)

Hi Alan.  this is a very useful routine.  Wondered if it was possible to add a check on the linetype to the mix.  So that if two polylines which are on the same layer but one is continuous linetype and the other hidden then they aren't joined.  Cheers P

[VovKa]

Alan, the error is obvious, you are tying to entget entities that were already pedited/joined and therefore deleted
think of two "connected" lines on the same layer as the initial selection set