Topic: capturing point features

[viva]

hello everybody,
          i had developed one lisp program for capturing the point features at the starting and ending point point of the polyline. here point feature and polyline is in different layer.it is working fine in some drawing and it is not working properly in many drawing. i had posted the code for ur verification. can anyone help me solve the problem.

Code: [Select]

(defun c:chk_ski()
  (command "zoom" "e")
(setq echo (getvar "cmdecho")
osmode (getvar "osmode"))
  (setvar "CMDECHO" 0)
  (setvar "OSMODE" 0)
  (setq laynam (getstring " Enter the Ski layer :"))
  (setq sec_tsp(getstring " Enter the TSP layer :"))
  (setq skiinfo(ssget "x" (list(cons 0 "LWPOLYLINE,POLYLINE")(cons 8 laynam))))
  (if skiinfo
    (progn
 
  (setq cnnt 0)
 
  (setq ftsp nil)
  (repeat (sslength skiinfo)
    (setq ski_plinfo(entget(ssname skiinfo cnnt)))
    (setq ski_fpt(cdr(assoc 10 ski_plinfo)))
    (setq ftsp(ssget "_C" ski_fpt ski_fpt(list(cons 0 "POINT")(cons 8 sec_tsp))))
    (setq ski_rev(reverse ski_plinfo))
    (setq ski_lpt(cdr(assoc 10 ski_rev)))
    (setq ltsp(ssget "_C" ski_lpt ski_lpt(list(cons 0 "POINT")(cons 8 sec_tsp))))
   
    (if (= ftsp nil)
           (create_circle ski_fpt 0.0002 "0" 4)

     )
    (if (= ltsp nil)
     
      (create_circle ski_lpt 0.0002 "0" 4)
     
      )
   
   
    (setq cnnt(+ cnnt 1))
    ))
   
(alert " SKI LAYER IS NOT A POLYLINE FEATURE")
    )
(setvar "CMDECHO" echo)
(setvar "OSMODE" osmode)

)
 

;-------------------------------------------------------------
    (defun create_circle (cir_pnt cir_radius la_name cir_color)
  (entmake
    (list
      (cons 0 "circle")
      (cons 10 cir_pnt)
      (cons 40 cir_radius)
      (cons 8 la_name)
      (cons 62 cir_color)

    )
  )
)

EDIT: Encapsulated the code in [ code ] tags for easier viewing

[Kerry]

works for me ... but ..

what style is the point entity ? .. does it actually pass through the endpoint ?

The selection crossing may be better as a box, just to make sure .. though it does work as it is ..

Localise your variables,

Code: [Select]

(DEFUN c:chk_ski (/ boxhalfsize circlesize box
  CNNT ECHO FTSP LAYNAM LTSP OSMODE SEC_TSP
                        SKIINFO SKI_FPT SKI_LPT SKI_PLINFO SKI_REV)
;;............
add this

Code: [Select]

(DEFUN _boxpoint (pt halfsize)
  (LIST (LIST (- (CAR pt) halfsize) (- (CADR pt) halfsize) 0)
(LIST (+ (CAR pt) halfsize) (+ (CADR pt) halfsize) 0)
  )
)
modify this

Code: [Select]

(PROGN (SETQ cnnt 0
             ftsp nil
             boxhalfsize 1
             circlesize 5
       )
       (REPEAT (SSLENGTH skiinfo)
         (SETQ ski_plinfo (ENTGET (SSNAME skiinfo cnnt))
               ski_fpt    (CDR (ASSOC 10 ski_plinfo))
               box        (_boxpoint ski_fpt 1)
               ftsp       (SSGET "_C"
                                 (CAR box)
                                 (CADR box)
                                 (LIST (CONS 0 "POINT") (CONS 8 sec_tsp))
                          )
               ski_rev    (REVERSE ski_plinfo)
               ski_lpt    (CDR (ASSOC 10 ski_rev))
               box        (_boxpoint ski_lpt 1)
               ltsp       (SSGET "_C"
                                 (CAR box)
                                 (CADR box)
                                 (LIST (CONS 0 "POINT") (CONS 8 sec_tsp))
                          )
         )
         (IF (NOT ftsp)
           (create_circle ski_fpt circlesize "0" 4)
         )
         (IF (NOT ltsp)
           (create_circle ski_lpt circlesize "0" 4)
         )
         (SETQ cnnt (+ cnnt 1))
       )
)



added
set the variables boxhalfsize and circlesize to values that suit you.

[viva]

hello kerry brown,
               thanks for ur immediate reply. watr i had understand from ur coding is that ur placing a box around the starting / ending point of the polyline. Then u r capturing the point data which lies within the box. i think this is a  logic that u had used.
                  but in my case the point data is exactly snap with eithier start/end point of the polyline. my task is to check whether the point data is exactly snapped or not. if its not there means i want 2 place a circle.

regards
vivek

works for me ... but ..

what style is the point entity ? .. does it actually pass through the endpoint ?

The selection crossing may be better as a box, just to make sure .. though it does work as it is ..

Localise your variables,

Code: [Select]

(DEFUN c:chk_ski (/ boxhalfsize circlesize box
  CNNT ECHO FTSP LAYNAM LTSP OSMODE SEC_TSP
                        SKIINFO SKI_FPT SKI_LPT SKI_PLINFO SKI_REV)
;;............
add this

Code: [Select]

(DEFUN _boxpoint (pt halfsize)
  (LIST (LIST (- (CAR pt) halfsize) (- (CADR pt) halfsize) 0)
(LIST (+ (CAR pt) halfsize) (+ (CADR pt) halfsize) 0)
  )
)
modify this

Code: [Select]

(PROGN (SETQ cnnt 0
             ftsp nil
             boxhalfsize 1
             circlesize 5
       )
       (REPEAT (SSLENGTH skiinfo)
         (SETQ ski_plinfo (ENTGET (SSNAME skiinfo cnnt))
               ski_fpt    (CDR (ASSOC 10 ski_plinfo))
               box        (_boxpoint ski_fpt 1)
               ftsp       (SSGET "_C"
                                 (CAR box)
                                 (CADR box)
                                 (LIST (CONS 0 "POINT") (CONS 8 sec_tsp))
                          )
               ski_rev    (REVERSE ski_plinfo)
               ski_lpt    (CDR (ASSOC 10 ski_rev))
               box        (_boxpoint ski_lpt 1)
               ltsp       (SSGET "_C"
                                 (CAR box)
                                 (CADR box)
                                 (LIST (CONS 0 "POINT") (CONS 8 sec_tsp))
                          )
         )
         (IF (NOT ftsp)
           (create_circle ski_fpt circlesize "0" 4)
         )
         (IF (NOT ltsp)
           (create_circle ski_lpt circlesize "0" 4)
         )
         (SETQ cnnt (+ cnnt 1))
       )
)



added
set the variables boxhalfsize and circlesize to values that suit you.

[Kerry]

There was no need to quote my code, I know what I wrote. I also explained the reason behind the method I was using.  Several of the "points" do not have a selectable part at their insertion insert, therefore if one of those points are used, the routine will report that there is nothing there.


I would have been good if you had explained your expected functionality in your first post .. when you say " working fine in some drawing and it is not working properly in many drawing" and nothing else there is not a lot we can do except guess.

[Kerry]

my task is to check whether the point data is exactly snapped or not. if its not there means i want 2 place a circle.

if this is your goal, you need to test for a "POINT", get its insert location, compare it to the line origin ... if your PDMODE is say 33 or 65 for instance. I asked and you didn't respond .. what style of point are you using ? ?

[Kerry]

 .. and all points except one may pass your ssget location test and still NOT have their insertion at the ssget location.

.. just a warning .. 

[viva]

hi kerry brown

        thanks for ur suggestion. in the drawing PDMODE is 65. if u dont mind can u explain me little bit breifly abut ur last post.

regards
vivek
           

[Kerry]

It's pretty simple ..
some of the 'points' do not have anything selectable at their insertion node, so if you do a ssget at that point you will not be able to select the point object.

For example, in the SELECT piccy, the green area is the crossing selected, butONLY the line will be selected because the POINT entity does not cross the end of the line.  This may be your problem ... be sure to use a PDMODE like 66 which actually passes through the insert node.