topic Re: change exploding linetype lisp in Visual LISP, AutoLISP and General Customization Forum

change exploding linetype lisp

mruPRQUJ — Thu, 09 May 2024 15:12:19 GMT

Hi there,

The below lisp is used to exploding linetype to dashed line.

Could you please modify the lisp to exploding linetype to continuous (solid) line?

Please see the lisp below, it was attached as well, thank you very much in advance. 🙂

;;
;;;
;;; By Dominic Panholzer
;;;
;;; Modified original TXTEXP.LSP from Express Tools
;;; Copyright © 1999 by Autodesk, Inc.
;; LINEXP.LSP modifications by CAD Studio
;;;
;;; Your use of this software is governed by the terms and conditions of the
;;; License Agreement you accepted prior to installation of this software.
;;; Please note that pursuant to the License Agreement for this software,
;;; "[c]opying of this computer program or its documentation except as
;;; permitted by this License is copyright infringement under the laws of
;;; your country. If you copy this computer program without permission of
;;; Autodesk, you are violating the law."
;;;
;;; AUTODESK PROVIDES THIS PROGRAM "AS IS" AND WITH ALL FAULTS.
;;; AUTODESK SPECIFICALLY DISCLAIMS ANY IMPLIED WARRANTY OF
;;; MERCHANTABILITY OR FITNESS FOR A PARTICULAR USE. AUTODESK, INC.
;;; DOES NOT WARRANT THAT THE OPERATION OF THE PROGRAM WILL BE
;;; UNINTERRUPTED OR ERROR FREE.
;;;
;;; Use, duplication, or disclosure by the U.S. Government is subject to
;;; restrictions set forth in FAR 52.227-19 (Commercial Computer
;;; Software - Restricted Rights) and DFAR 252.227-7013(c)(1)(ii)
;;; (Rights in Technical Data and Computer Software), as applicable.
;;;
;;; ----------------------------------------------------------------
;;;
;;; External Functions:
;;;
;;; ACET-ERROR-INIT --> ACETUTIL.FAS Intializes bonus error routine
;;; ACET-ERROR-RESTORE --> ACETUTIL.FAS Restores old error routine
;;; ACET-GEOM-ZOOM-FOR-SELECT --> ACETUTIL.FAS Zoom boundry to include points given
;;; ACET-LAYER-LOCKED --> ACETUTIL.FAS Checks to see if layer is locked
;;; ACET-GEOM-PIXEL-UNIT --> ACETUTIL.FAS Size of pixel in drawing units
;;; ACET-GEOM-TEXTBOX --> ACETUTIL.FAS Returns the textbox for any text
;;; ACET-GEOM-MIDPOINT --> ACETUTIL.FAS Returns midpoint between two points
;;; ACET-GEOM-VIEW-POINTS --> ACETUTIL.FAS Returns corner points of screen or viewport
;;; ACET-STR-FORMAT --> ACETUTIL.ARX String builder
;;; ACET-WMFIN --> ACETUTIL.FAS Brings in WMF file
;;;

(defun c:linexp (/ grplst getgname blknm FLTR GLST GDICT SS VIEW UPLFT TMPFIL TBX
TMPFIL CNT PT1 PT2 ENT TXT TXTYP PTLST ZM LOCKED GNAM vpna vplocked)
(acet-error-init
(list
(list "cmdecho" 0
"highlight" 1
"osmode" 0
"Mirrtext" 1
"limcheck" 0
)
T
)
)

; --------------------- GROUP LIST FUNCTION ----------------------
; This function will return a list of all the group names in the
; drawing and their entity names in the form:
; ((<ename1> . <name1>) ... (<enamex> . <namex>))
; ----------------------------------------------------------------

(defun acet-txtexp-grplst (/ GRP ITM NAM ENT GLST)

(setq GRP (dictsearch (namedobjdict) "ACAD_GROUP"))
(while (setq ITM (car GRP)) ; While edata item is available
(if (= (car ITM) 3) ; if the item is a group name
(setq NAM (cdr ITM) ; get the name
GRP (cdr GRP) ; shorten the edata
ITM (car GRP) ; get the next item
ENT (cdr ITM) ; which is the ename
GRP (cdr GRP) ; shorten the edata
GLST ; store the ename and name
(if GLST
(append GLST (list (cons ENT NAM)))
(list (cons ENT NAM))
)
)
(setq GRP (cdr GRP)) ; else shorten the edata
)
)
GLST ; return the list
)

; ------------------- GET GROUP NAME FUNCTION --------------------
; This function returns a list of all the group names in GLST
; where ENT is a member. The list has the same form as GLST
; ----------------------------------------------------------------

(defun acet-txtexp-getgname (ENT GLST / GRP GDATA NAM NLST)
(if (and GLST (listp GLST))
(progn
(foreach GRP GLST
(setq GDATA (entget (car GRP)))
(foreach ITM GDATA ; step through the edata
(if (and
(= (car ITM) 340) ; if the item is a entity name
(eq (setq NAM (cdr ITM)) ENT) ; and the ename being looked for
)
(setq NLST ; store the ename and name
(if NLST
(append NLST (list (cons (car GRP) (cdr GRP))))
(list (cons (car GRP) (cdr GRP)))
)
)
)
)
)
)
)
NLST
)

; ----------------------------------------------------------------
; MAIN PROGRAM
; ----------------------------------------------------------------

(if (and ; Are we in plan view?
(equal (car (getvar "viewdir")) 0 0.00001)
(equal (cadr (getvar "viewdir")) 0 0.00001)
(> (caddr (getvar "viewdir")) 0)
)

(progn

(prompt "\nSelect lines to be EXPLODED: ")

(Setq FLTR '((-4 . "<AND")
(-4 . "<OR") ; filter for mtext and text
(0 . "MTEXT")
(0 . "TEXT")
(-4 . "OR>")
(-4 . "<NOT")
(102 . "{ACAD_REACTORS") ; and not leader text
(-4 . "NOT>")
(-4 . "AND>")
)
GLST (acet-txtexp-grplst) ; Get all the groups in drawing
GDICT (if GLST
(dictsearch (namedobjdict) "ACAD_GROUP")
)
SS (ssget); FLTR)
CNT 0
)
;; filter out the locked layers
(if SS
(setq SS (car (bns_ss_mod SS 1 T)))
) ;if

;; if we have anything left
(if SS
(progn
(setq CNT 0) ; Reset counter
(while (setq ENT (ssname SS CNT)) ; step through each object in set

(and
GLST ; if groups are present in the drawing
(setq GNAM (acet-txtexp-getgname ENT GLST)) ; and the text item is in one or more
(foreach GRP GNAM ; step through those groups
(command "_.-group" "_r" ; and remove the text item
(cdr GRP) ENT ""
)
)
)

(setq TBX (acet-geom-textbox (entget ENT) 0)) ; get textbox points

(setq TBX (mapcar '(lambda (x)
(trans x 1 0) ; convert the points to WCS
)
TBX
)
)

(setq PTLST (append PTLST TBX)) ; Build list of bounding box
; points for text items selected

(setq CNT (1+ CNT)) ; get the next text item
); while

(setq PTLST (mapcar '(lambda (x)
(trans x 0 1) ; convert all the points
) ; to the current ucs
PTLST
)
)

(if (setq ZM (acet-geom-zoom-for-select PTLST)) ; If current view does not contain
(progn ; all bounding box points
(setq ZM
(list
(list (- (caar ZM) (acet-geom-pixel-unit)) ; increase zoom area by
(- (cadar ZM) (acet-geom-pixel-unit)) ; one pixel width to
(caddar ZM) ; sure nothing will be lost
)
(list (+ (caadr ZM) (acet-geom-pixel-unit))
(+ (cadadr ZM) (acet-geom-pixel-unit))
(caddr (cadr zm))
)
)
)
(if (setq vpna (acet-currentviewport-ename))
(setq vplocked (acet-viewport-lock-set vpna nil))
);if
(command "_.zoom" "_w" (car ZM) (cadr ZM)) ; zoom to include text objects
)
)

(setq VIEW (acet-geom-view-points)
TMPFIL (strcat (getvar "tempprefix") "txtexp.wmf")
PT1 (acet-geom-midpoint (car view) (cadr view))
PT2 (list (car PT1) (cadadr VIEW))
)

(if (acet-layer-locked (getvar "clayer")) ; if current layer is locked
(progn
(command "_.layer" "_unl" (getvar "clayer") "") ; unlock it
(setq LOCKED T)
)
)

(command "_.mirror" SS "" PT1 PT2 "_y"
"_.WMFOUT" TMPFIL SS "")

(if (findfile tmpfil) ; Does WMF file exist?
(progn
(command "_.ERASE" SS "") ; erase the orignal text
(setq ss (acet-wmfin TMPFIL)) ; insert the WMF file
(command "_.mirror" ss "" PT1 PT2 "_y")
) ;progn
) ;if

(if LOCKED
(command "_.layer" "_lock" (getvar "clayer") "") ; relock if needed
) ;if

(if ZM (command "_.zoom" "_p")) ; Restore original view if needed
(if vplocked
(acet-viewport-lock-set vpna T) ;re-lock the viewport if needed.
);if
(prompt (acet-str-format "\n%1 object(s) have been exploded to lines." CNT))
(prompt "\nThe line objects have been placed on layer 0.")
)
)
)
(prompt "\nView needs to be in plan (0 0 1).")
);if equal
(acet-error-restore) ; Retsore values
(princ)
)

(princ)

Re: change exploding linetype lisp

pendean — Thu, 09 May 2024 15:24:37 GMT

@mruPRQUJ wrote:
...Could you please modify the lisp to exploding linetype to continuous (solid) line?...

Wouldn't that just be the same as changing the linetype to CONTINUOUS for example?

Re: change exploding linetype lisp

ronjonp — Thu, 09 May 2024 15:29:14 GMT

@pendean Exactly:

(defun c:foo (/ s) (cond ((setq s (ssget ":L")) (foreach e (vl-remove-if 'listp (mapcar 'cadr (ssnamex s))) (entmod (append (entget e) '((6 . "Continuous")))) ) (command "_.Explode" s "") ) ) (princ) )

Re: change exploding linetype lisp

mruPRQUJ — Thu, 09 May 2024 15:44:18 GMT

yes, just be the same as changing the linetype to CONTINUOUS, thanks

Re: change exploding linetype lisp

mruPRQUJ — Thu, 09 May 2024 15:46:15 GMT

sorry, I did not say it clearly. In the original lisp, after exploding linetype, the linetype shape will be kept, thanks.

Re: change exploding linetype lisp

ronjonp — Thu, 09 May 2024 15:48:42 GMT

@mruPRQUJ Post a sample drawing of before and after of what you're looking for. I'm a bit confused.

Re: change exploding linetype lisp

mruPRQUJ — Thu, 09 May 2024 16:05:15 GMT

after exploding linetype, keep linetype shape, please see attached file. The original lisp exploded linetype, it changed size as well. If the size can be kept same, that would be great, many thanks.

Re: change exploding linetype lisp

pendean — Thu, 09 May 2024 16:05:48 GMT

@mruPRQUJ wrote:
after exploding linetype, what I can see, no change on the drawings. But objects linetype changed,

Your LISP converts a single line that is dashed and turns it into many smaller individual dashed lines, one for each dash.

And on top of that, you want the LISP to then combine all of those individual lines back into one single line with no dashed.

Yes?

If that is correct, that would be the same as doing this

or this

Nothing more. Do you just need the above 'change properties' automated into a LISP instead of using menus?

Re: change exploding linetype lisp

mruPRQUJ — Thu, 09 May 2024 16:11:19 GMT

yes. is there any gap between lines after changing them from dashed to solid line? there are gaps between dashed lines. I do not want to see the gap, thanks

Re: change exploding linetype lisp

pendean — Thu, 09 May 2024 16:22:22 GMT

@mruPRQUJ

Re: change exploding linetype lisp

mruPRQUJ — Thu, 09 May 2024 16:32:43 GMT

I may say it clearly. After exploding linetype, keep original linetype shape, please see attached file. Is it possible add

convert dashed line to solid line (change properties' automated into a LISP),

We will see what happen,

thanks.

Re: change exploding linetype lisp

Kent1Cooper — Thu, 09 May 2024 16:40:20 GMT

@mruPRQUJ wrote:

.... there are gaps between dashed lines. I do not want to see the gap, thanks

That seems like an entirely different request than the one about turning a ZIGZAG-linetype Line into a series of zigs and zags that are not in a linetype. For dashed-variety linetypes, you should get what you want by just changing the linetype to continuous, which doesn't require any code, but of course that won't get what you appear to want in the ZIGZAG conversion.

Can you post a sample with a greater variety of "before" linetypes and what you are looking for as "after" results?

Re: change exploding linetype lisp

pendean — Thu, 09 May 2024 17:06:39 GMT

@mruPRQUJ You want to JOIN what appear to be end-to-end lines if and when hey occur that are a result of your custom linetype coding then, nothing more. Is that what you've been asking for all along? There are no 'gaps' at all.

If yes, bad news, your linetype creates what appear to be end-to-end lines but that middle point is an INTersection instead.

JOIN command converts them into PLINEs because of that, the two lines are no in perfect alignment, each is a little off

PEDIT command or MPEDIT Express Tool can convert your zigzags into PLINEs is ultimately that is your intent, I don't know how you'll get a single LINE object from two plines that are not truly inline with each other unless you want to go far end to far end, in which case you need a LISP that will redraw your pattern as a series of LINE objects somehow only between the large-closer-to-90 degree angles.

Re: change exploding linetype lisp

komondormrex — Thu, 09 May 2024 18:04:31 GMT

do you want something like this?

Re: change exploding linetype lisp

mruPRQUJ — Thu, 09 May 2024 18:08:15 GMT

Yes, this is what I want, many thanks. 🙂

Re: change exploding linetype lisp

Kent1Cooper — Thu, 09 May 2024 18:25:02 GMT

@pendean wrote:

.... JOIN command converts them into PLINEs because of that, the two lines are no in perfect alignment, each is a little off ..., I don't know how you'll get a single LINE object from two plines that are not truly inline with each other .....

For me, both JOIN and PEDIT/Multiple/{select the pieces}/Join make the whole thing into one Polyline in the "linetype new" sample drawing. [Yes, there's a vertex at the middle of each visual segment, but it's overall a single object.]

Re: change exploding linetype lisp

pendean — Thu, 09 May 2024 18:53:48 GMT

@Kent1Cooper wrote:
@pendean wrote:
.... JOIN command converts them into PLINEs because of that, the two lines are no in perfect alignment, each is a little off ..., I don't know how you'll get a single LINE object from two plines that are not truly inline with each other .....
For me, both JOIN and PEDIT/Multiple/{select the pieces}/Join make the whole thing into one Polyline in the "linetype new" sample drawing. [Yes, there's a vertex at the middle of each visual segment, but it's overall a single object.]

It appears the OP has redefined what they want yet again (post above yours): someday it will become clear.