List manipulations

johnd · ‎05-05-2023

I'm stuck trying to create a list for comparison.

This code (which is part of the AddPointstoagroup routine I found on the web):

(setq pipeline (entsel"\nPick Pline to extract from..."))

(setq pipeline (car pipeline))

(setq plist (mapcar 'cdr (vl-remove-if-not '(lambda (x) (= (car x) 10)) (entget pipeline))))

creates a list like this:

((840184.0 6.80043e+06) (840185.0 6.80043e+06))

[I'm only vaguely familiar with what is happening above, but I kinda get gist of it]

Later in the code, it does this:

(setq ss (ssget "_f" plist '((0 . "AECC_COGO_POINT"))))

This makes a set of all the Cogo Points that reside on the polyline.

My goal is to check which vertex in the Plist does not have a cogo point listed in SS

I'm trying to create a list to compare the xy values in the list of the first call by picking apart the set made from the second call, but when I make the list and append the xy values I get this:

(840184.0 6.80043e+06 840184.0 6.80043e+06)

What is the difference between these two lists and how do I achieve the first example?

And while I'm at it, how do I compare what is NOT a member of the list opposed to what is?

Is there a "Not a member" command?

I hope I provided enough info.

Thanks,

Jeff_M · ‎05-05-2023

Please post your full code, right now we can only guess what your code is doing that could be changed to do what you want.

For "not member": (if (not (member xy list))

Jeff_M, also a frequent Swamper

johnd · ‎05-05-2023

Here's the sub and main.

What is happening is the first selection in the main grabs the polyline to make a set of all the points that make up

that line. It is a 3Dpolyline so I copy and convert it to 2D and use "_f" to get the cogo points off it.

If the line selected to form Plist, has no cogo point at the vertex I want to circle the vertex so that it can be spotted.

It all works, I just can't find away to make a list to compare together.

I can make it draw a circle at each vertex that has a cogo point, but that is opposite of what I need.

Please forgive the gibberish code, I'm learning as I go.

;********************************************************************************************
;*****************This is where I want to make the comparing list***********************
;********************************************************************************************
(defun AsbuiltLineF ()
(setq ss (ssget "_f" plist '((0 . "AECC_COGO_POINT")))) ;I want to make an xy list of this set.
(setq countcheck (sslength ss))
(repeat countcheck ;(setq scnt (sslength ss))
(setq pnt (ssname ss membercnt))!
(setq obj (vlax-ename->vla-object pnt))
(setq easting (vlax-get obj 'easting))
(setq northing (vlax-get obj 'northing))
(setq clist (list easting northing))
(setq desc (vlax-get obj 'rawdescription))
(setq desc (substr desc 1 5))
(member clist pipelinelist)
(if ;(and (or (= desc "WLD_C")
;(= desc "LOOSE")
;(= desc "BEND ")
;(= desc "FLG E")
;(= desc "VALVE")
;(= desc "VENT ")
;(= desc "RISER")
;(= desc "TEST_")
😉
(member clist pipelinelist)
😉
(progn
(setq lstnumbers (append lstnumbers (list (vlax-get Obj 'Number))))
(setq rptcnt (+ rptcnt 1))
)
)

(setq membercnt (+ membercnt 1))
);end repeat
(clear2dpline)
(Alert "Converted 2D Selection Pline deleted....")
)

(defun c:Pnts2Grp ()
(setvar "CMDECHO" 0)
(OP:c3ddoc)
(MakeCodeList)
(setq membercnt 0)
(setq strName (getstring "\nEnter new point group name..."))
(MakeAGroup)
(QueryBuild)
(setq lstnumbers nil)
(setq assoc0 nil)
(setq assoc70 nil)
(setq num 0)
(setq rptcnt 0)
(setq newgroup nil)
(setq ptype nil)
(setq smode nil)

;************************************************************************************
;**************************This is where the first list is made**********************
;************************************************************************************

(setq pipeline (entsel"\nPick Pline to extract from..."))
(3Dplinetest)
(setq pipeline (car pipeline));return from 3Dplinetest
(setq pipelinelist (mapcar 'cdr (vl-remove-if-not '(lambda (x) (= (car x) 10)) (entget pipeline))))
(setq plist (mapcar 'cdr (vl-remove-if-not '(lambda (x) (= (car x) 10)) (entget pipeline))))
(setq ptype (strcase(getstring "\nEnter [P] for Prelimary Pline or [A] for Asbuilt Pipeline...")))
(setq smode (strcase(getstring "\nEnter [F] for points only on Pline or [CP] for points inside polygon...")))
(cond
((and (= ptype "P")(= smode "F")) (FENCE))
((and (= ptype "P")(= smode "CP")) (CORRIDOR))
((and (= ptype "A")(= smode "F")) (ASBUILTLINEF))
((and (= ptype "A")(= smode "CP")) (ASBUILTLINECP))
(T (PRINt "\nOne of the selections you made is incorrect..."))
)
(AddPnt2Grp)

);end Pnts2Grp

hosneyalaa · ‎05-06-2023

Hi @johnd

Can you attached example drawing AND full code AS SAID Jeff_M

_$ 
; error: no function definition: MAKECODELIST
_1$ 

"S" 
_1$ 
_$ 
; error: no function definition: QUERYBUILD
_1$

;********************************************************************************************
;*****************This is where I want to make the comparing list***********************
;********************************************************************************************
(defun AsbuiltLineF ()
(setq ss (ssget "_f" plist '((0 . "AECC_COGO_POINT")))) ;I want to make an xy list of this set.
(setq countcheck (sslength ss))
(repeat countcheck ;(setq scnt (sslength ss))
(setq pnt (ssname ss membercnt))!
(setq obj (vlax-ename->vla-object pnt))
(setq easting (vlax-get obj 'easting))
(setq northing (vlax-get obj 'northing))
(setq clist (list easting northing))
(setq desc (vlax-get obj 'rawdescription))
(setq desc (substr desc 1 5))
(member clist pipelinelist)
(if ;(and (or (= desc "WLD_C")
;(= desc "LOOSE")
;(= desc "BEND ")
;(= desc "FLG E")
;(= desc "VALVE")
;(= desc "VENT ")
;(= desc "RISER")
;(= desc "TEST_")
;‌‌
(member clist pipelinelist)
‌‌
(progn
(setq lstnumbers (append lstnumbers (list (vlax-get Obj 'Number))))
(setq rptcnt (+ rptcnt 1))
)
)

(setq membercnt (+ membercnt 1))
);end repeat
(clear2dpline)
(Alert "Converted 2D Selection Pline deleted....")
)

 

(defun c:Pnts2Grp ()
(setvar "CMDECHO" 0)
(OP:c3ddoc)
(MakeCodeList)
(setq membercnt 0)
(setq strName (getstring "\nEnter new point group name..."))
(MakeAGroup)
(QueryBuild)
(setq lstnumbers nil)
(setq assoc0 nil)
(setq assoc70 nil)
(setq num 0)
(setq rptcnt 0)
(setq newgroup nil)
(setq ptype nil)
(setq smode nil)


;************************************************************************************
;**************************This is where the first list is made**********************
;************************************************************************************


(setq pipeline (entsel"\nPick Pline to extract from..."))
(3Dplinetest)
(setq pipeline (car pipeline));return from 3Dplinetest
(setq pipelinelist (mapcar 'cdr (vl-remove-if-not '(lambda (x) (= (car x) 10)) (entget pipeline))))
(setq plist (mapcar 'cdr (vl-remove-if-not '(lambda (x) (= (car x) 10)) (entget pipeline))))
(setq ptype (strcase(getstring "\nEnter [P] for Prelimary Pline or [A] for Asbuilt Pipeline...")))
(setq smode (strcase(getstring "\nEnter [F] for points only on Pline or [CP] for points inside polygon...")))
(cond
((and (= ptype "P")(= smode "F")) (FENCE))
((and (= ptype "P")(= smode "CP")) (CORRIDOR))
((and (= ptype "A")(= smode "F")) (ASBUILTLINEF))
((and (= ptype "A")(= smode "CP")) (ASBUILTLINECP))
(T (PRINt "\nOne of the selections you made is incorrect..."))
)
(AddPnt2Grp)


);end Pnts2Grp

johnd · ‎05-06-2023

As requested here is the full code and example dwg.

johnd · ‎05-06-2023

Oh, I forgot mention, when you run the routine the only options used for this are:

Choose A for Asbuilt

Choose F for Fence

that is the section I have been concentrating on.

Jeff_M · ‎05-08-2023

@johnd I have only updated the main function and the AsBuiltLineF function and added the getplinecoords function

By using the new function it eliminates the need to check for a 3dpline and convert it. I won't comment on the rest of the code other than to say it could be cleaned up quite a bit...I think you already know that based on your comment about forgiving the gibberish code 😀

(defun AsbuiltLineF ()
  (setq ss (ssget "_f" plist '((0 . "AECC_COGO_POINT"))))
  (setq countcheck (sslength ss))
  (repeat countcheck			;(setq scnt (sslength ss))
    (setq pnt (ssname ss membercnt))
    
    (setq obj (vlax-ename->vla-object pnt))
    (setq easting (vlax-get obj 'easting))
    (setq northing (vlax-get obj 'northing))
    (setq clist (list easting northing))
    (setq cogolist (cons clist cogolist))
    (setq desc (vlax-get obj 'rawdescription))
    (setq desc (substr desc 1 5))
    (if					;(and (or (= desc "WLD_C")
					;(= desc "LOOSE")
					;(= desc "BEND ")
					;(= desc "FLG E")
					;(= desc "VALVE")
					;(= desc "VENT ")
					;(= desc "RISER")
					;(= desc "TEST_") 
					;)
      (member clist plist)
					;)
       (progn
	 (setq lstnumbers
		(append lstnumbers (list (vlax-get Obj 'Number)))
	 )
	 (setq rptcnt (+ rptcnt 1))
       )
    )

    (setq membercnt (+ membercnt 1))
  )					;end repeat
)

;;new function
(defun getpline2dcoords (pline / idx coords c pt)
  (setq idx (vlax-curve-getstartparam pline)
	coords nil)
  (while (< idx (vlax-curve-getendparam pline))
    (setq pt (vlax-curve-getpointatparam pline idx)
	  c (list (car pt) (cadr pt))
	  coords (cons c coords)
	  idx (1+ idx)
	  )
    )
  coords
  )

;;and the portion of main function that I edited					;************************************************************************************  
					;**************************This is where the first list is made**********************
					;************************************************************************************ 

  (setq cogolist nil)
  (setq pipeline (entsel "\nPick Pline to extract from..."))
  (setq pipeline (car pipeline))	
  (setq	plist (getpline2dcoords pipeline))
  (setq	ptype
	 (strcase
	   (getstring
	     "\nEnter [P] for Prelimary Pline or [A] for Asbuilt Pipeline..."
	   )
	 )
  )
  (setq	smode
	 (strcase
	   (getstring
	     "\nEnter [F] for points only on Pline or [CP] for points inside polygon..."
	   )
	 )
  )
  (cond
    ((and (= ptype "P") (= smode "F")) (FENCE))
    ((and (= ptype "P") (= smode "CP")) (CORRIDOR))
    ((and (= ptype "A") (= smode "F")) (ASBUILTLINEF))
    ((and (= ptype "A") (= smode "CP")) (ASBUILTLINECP))
    (T
     (PRINt "\nOne of the selections you made is incorrect...")
    )
  )
  (AddPnt2Grp)
  (foreach p plist
    (if (not (member p cogolist))
      (progn
	;;;create the circle for no point at vertice here
	)
      )
    )

Hope that helps!

Jeff_M, also a frequent Swamper

johnd · ‎05-08-2023

thank you sir, that will get me going.

Learn a little more every day.

Community

List manipulations

List manipulations

List manipulations