no functions definion in line 478 col 4, can someone help me

[Satya]

[Steven P]

Hi Satya, Did you work this out?

 

As a stand alone line it works on my CAD. 

[mhupp]

Just a guess but ssget didn't find anything so ssbo is nil. When calling sslenght on line 479 its looking at nil rather then a selection set and errors.

Add an if in front of the ssget. So if it doesn't find anything it skips the code.

 

(if (setq ssbo (ssget '((0 . "LWPOLYLINE") (8 . "BATAS BIDANG"))))
  (repeat (setq slbo (sslength ssbo))
    ...
    ...
    (setq klikpolykor (list entbo korbo))
  )
)

 

-edit

Its best to post the whole code. Something else could be happening. Its like taking your car the the mechanic but only letting him look at it from 20' away or at a picture and then asking whats wrong.

Edited January 6, 2023 by mhupp