Leaderboard

STLIMPORT there is just so much stuff out there now for 3d printing will admit have not tried doing it. Just being doing some basic 3d printing at home of pre created objects.

You need to be aware that the error routine within this lisp will replace autocad error routine for the duration of the drawing session. It should really be inside the (defun c:..) routines where it is reset when the lisp finishes. I didn't want to move this as it would have broken any other routines that relied on it. I did however convert it's command calls to command-s calls as they would trigger spurious "(*pop-error-mode*) underflow" errors.

Yes, the ITC (IntelliCAD Consortium) has been working hard over roughly the past two years adding .NET support to IntellICAD. There are several OEMs of the IntellICAD Engline and I believe nearly all of them include .NET support. One of our favorites is the CMS IntelliCAD which weighs in less than BricsCAD Classic.

*97,11,lca 024,043,04d,02c,2,047,1,040,2,02e,0 use character "a" it has 11 items its name is known as lca *65,56,ARROW 4,250,4,4,3,29,3,55,3,243,002,9,(8,5),(0,0),001,9,(108,0),(-43,43),(15,0),(48,-48),(-48,-48),(-15,0),(43,43),(-108,0) (0,10),(0,0),002,9,(-8,-5),(0,0),001,4,243,4,55,4,29,3,4,3,250,0 Just add more items *66,6,BOX 014,020,02C,028,014,0

Thanks, rkmcswain That does help a bit, although it does seem a bit complex.

The code you have posted would not (and does not) exhibit the behaviour you have described - the prompt must originate from another part of the code, or as a result of how your code is being evaluated.

On the same theme prints out blocks in a pattern. block insert.lsp

You're most welcome

(defun c:diago ( / CC CNTR ENTX I IT LINEPR PL_OBJ PT_LST PT_LST_CNT SSPX) (setq sspx (ssget (list '(0 . "*POLYLINE")))) (setq i -1) (repeat (sslength sspx) (setq pt_lst nil) (setq it (ssname sspx (setq i (1+ i)))) (setq entx (entget it)) (setq linepr '()) (if (cdr (assoc 6 entx)) (setq linepr (cons (cons 6 (cdr (assoc 6 entx))) linepr))) (if (cdr (assoc 8 entx)) (setq linepr (cons (cons 8 (cdr (assoc 8 entx))) linepr))) (if (cdr (assoc 43 entx)) (setq linepr (cons (cons 43 (cdr (assoc 43 entx))) linepr))) (if (cdr (assoc 62 entx)) (setq linepr (cons (cons 62 (cdr (assoc 62 entx))) linepr))) (setq pl_obj (vlax-ename->vla-object it) cc (vla-get-Coordinates pl_obj)) (setq pt_lst_cnt (/ (length (vlax-safearray->list (vlax-variant-value cc) ) ) 2 ) ) (setq cntr 0) (repeat pt_lst_cnt (setq pt_lst (cons (append (vlax-safearray->list (vlax-variant-value (vla-get-Coordinate pl_obj cntr)) ) (list 0)) pt_lst ) cntr (1+ cntr) ) ) (if (> (length pt_lst) 3) (progn (LWPoly (list (nth 0 pt_lst)(nth 2 pt_lst)) linepr) (LWPoly (list (nth 1 pt_lst)(nth 3 pt_lst)) linepr) ) ) );repeat ) ;;;;; By Lee MAC (defun LWPoly (lst lprx) (setq ll (list (cons 0 "LWPOLYLINE") (cons 100 "AcDbEntity") (cons 100 "AcDbPolyline") (cons 90 (length lst)) )) (setq all (append ll lprx )) (entmakex (append all (mapcar (function (lambda (p) (cons 10 p))) lst))) )