Point Layer Counter

[trconnet]

The purpose of this programs is to make a list of information embedded in points - x coordinate, y coordinate, a database key, the layer of the point, and a counter of the points on the layer.

The most recent error is:
; error: bad argument type: listp #<SUBR @0752b514 ENTLAST>

Any help is appreciated.
Thanks,
TC

(defun c:ptlayerct (/ alldots fn curlay alldotsct layerlist layeritem layerstring ctdel)
(setq fn (open "ptlayerct.txt" "a"))
;(setq alldotsct 0)
(setq alldots (ssget "X" '((0 . "point"))))
(repeat (sslength alldots);a
(setq cur_lay (cdr (assoc 8 entlast))))
(setq ct 0)
;(setq alldotsct (1+ alldotsct))
(setq layerlist (ssget "X" '((8 . (curlay))))); this is where a problem is occuring
(repeat (sslength layerlist) ;b
(setq layeritem (entget (ssname layerlist ct)))
(setq ct (1+ ct))
(setq layerstring (strcat "0" "t" (itoa (cadr (cdr (assoc 10 layeritem)))) "t" curlay "t" ct))
(write-line layerstring fn)
  ); b ends
(setq ctdel 0)
(repeat (sslength layerlist) ;c
(setq layeritem (entget (ssname layerlist ctdel)))
(setq ctdel (1+ ctdel))
(entdel layeritem)) ; c ends
  (CLOSE fn)
  )

Moderator Note:

How to use [ CODE ] tags...

[Opie]

The most recent error is:
; error: bad argument type: listp #<SUBR @0752b514 ENTLAST>

(defun c:ptlayerct (/ alldots fn curlay alldotsct layerlist layeritem layerstring ctdel)
(setq fn (open "ptlayerct.txt" "a"))
;(setq alldotsct 0)
(setq alldots (ssget "X" '((0 . "point"))))
(repeat (sslength alldots);a
(setq cur_lay (cdr (assoc 8 entlast))))
(setq ct 0)
;(setq alldotsct (1+ alldotsct))
(setq layerlist (ssget "X" '((8 . (curlay))))); this is where a problem is occuring
(repeat (sslength layerlist) ;b
(setq layeritem (entget (ssname layerlist ct)))
(setq ct (1+ ct))
(setq layerstring (strcat "0" "t" (itoa (cadr (cdr (assoc 10 layeritem)))) "t" curlay "t" ct))
(write-line layerstring fn)
  ); b ends
(setq ctdel 0)
(repeat (sslength layerlist) ;c
(setq layeritem (entget (ssname layerlist ctdel)))
(setq ctdel (1+ ctdel))
(entdel layeritem)) ; c ends
  (CLOSE fn)
  )

ENTLAST does not return a list, it returns an entity name. You will need to ENTGET the list from the entity name before you can extract the layer name of the last entity.

[Adesu]

Hi

(defun c:ptlayerct (/ alldots cnt ct cur_lay f fol layerlist
		    layerstring li sse sse_cur_lay ssl
		    ssl_layerlist ssn ssn_cur_lay)
  (if
    (setq alldots (ssget "X" '((0 . "point"))))
    (progn
      (setq ssl (sslength alldots))
      (setq cnt 0)
      (repeat
	ssl
	(setq ssn (ssname alldots cnt))
	(setq sse (entget ssn))
	(setq cur_lay (cdr (assoc 8 sse)))
	(setq layerlist (ssget "X" (list (cons 8 cur_lay))))
	(setq ssl_layerlist (sslength layerlist))
	(setq ct 0)
	(repeat
	  ssl_layerlist
	  (setq ssn_cur_lay (ssname layerlist ct))
	  (setq sse_cur_lay (entget ssn_cur_lay))
	  (setq li (cadr (cdr (assoc 10 sse_cur_lay))))
	  (setq layerstring (strcat "0" "t" (rtos li) "t" cur_lay "t" (itoa ct)))
	  (setq fol "D:/YBI/Temp/ptlayerct.txt")
	  (setq f (open fol "w"))
	  (write-line layerstring f)
	  (close f)
	  (command "_erase" ssn_cur_lay "")
	  (setq ct (1+ ct))
	  ) ; repeat
	(setq cnt (1+ cnt))
	)   ; repeat
      )     ; progn
    (alert "\nThere is not object POINT")
    )       ; if
  (princ)
  )         ; defun

Very sorry this still problem in ssget function, look at result test
Command: ptlayerct
; error: bad SSGET list value

[trconnet]

I am trying something different. The current problem is the output is blank. The acad_strlsort seems to be failing. I probably have a bad counter or something. Thank you for any help,
TC

(defun C:HYDLISTPT (/ ALLDOTS ALLDOTSCT DL DLIST HYDIDLIST1 HYDIDLIST2 CT2 CTDLIST KEYCT FN FINAL HCT)
(setq ALLDOTSCT 0) (SETQ FN (OPEN "PTLYAERCT.TXT" "A"))
(setq ALLDOTS (ssget "X" '((0 . "POINT"))))
(REPEAT ; THIS REPEAT MAKE A LIST OF LAYERS AND Y COORDINATES
  (SSLENGTH ALLDOTS)
  (SETQ DL NIL)
(setq DL
       (list (CONS "HYD_ID" (ASSOC 8 (ENTGET (SSNAME ALLDOTS ALLDOTSCT))) )))
      (SETQ DL (APPEND (LIST (CONS "HYD_KEY" (ITOA (FIX (CADR (CDR (ASSOC 10 (ENTGET (SSNAME ALLDOTS ALLDOTSCT)) ))))) )) DL))
      	(SETQ DLIST (LIST DL DLIST)))
(repeat ;THIS REPEAT CREATES THE LIST OF LAYERS
  (sslength ALLDOTS)
	(setq HYDIDLIST1  (APPEND (LIST (CADR (ASSOC 8 (ENTGET (SSNAME ALLDOTS ALLDOTSCT)))) HYDIDLIST1))))
	(SETQ HYDIDLIST1 (ACAD_STRLSORT HYDIDLIST1)) (SETQ HCT 0); THIS SORTS THE LAYERS IN SOME ORDER
(WHILE ;THIS FINDS THE LAST OCCURANCES OF EACH LAYER AND MAKE A LIST
  	(IF (= (NTH HCT HYDIDLIST1) (NTH (1+ HCT) HYDIDLIST1)) (SETQ HCT (1+ HCT))
	(PROGN
		(SETQ HYDIDLIST2 (APPEND (LIST (NTH HCT HYDIDLIST1)) HYDIDLIST2)) (SETQ HCT (1+ HCT))
	);END PROGN
	  );END IF
  		);END WHILE
(SETQ CT2 0 CTDLIST 0 KEYCT 0)
(WHILE (
	(WHILE (= (NTH CT2 HYDIDLIST2) (NTH CTDLIST (CADR (CDR (ASSOC "HYD_ID" DLIST)))))
	(SETQ FINAL (LIST (CADR (CDR (ASSOC "HYD_ID" DLIST))) (CADR (CDR (ASSOC "HYD_KEY" DLIST))) (itoa (1+ KEYCT)))) (SETQ CTDLIST (1+ CTDLIST))
	); END 2ND WHILE
	) (SETQ CT2 (1+ CT2) CTDLIST 0 KEYCT 0)(write-line FINAL FN)
	)
(CLOSE FN);END 1ST WHILE
  (PRINC))