LISP routine not working correctly on all DWG files

[noadea]

I've problem on this routine. When I run my code (tagger1.lsp) on the drawing (tagger.dwg) it cannot work perfectly. But after I've deleted a few line like in the drawing (tagger1.dwg) it can work well. How to make it work properly on the drawing (tagger.dwg)? Please help me solve this problem. Thanks.

[Tom Beauford]

What's it supposed to do?
What is it doing in tagger1.dwg that it isn't in tagger.dwg?

[abdulhuck]

I've problem on this routine. When I run my code (tagger1.lsp) on the drawing (tagger.dwg) it cannot work perfectly. But after I've deleted a few line like in the drawing (tagger1.dwg) it can work well. How to make it work properly on the drawing (tagger.dwg)? Please help me solve this problem. Thanks.

Your lisp routine is supposed to work with polylines (lwpolylines). In tagger.dwg, all of them are lines. I pedited them to polylines and it works fine. The problem with the deleted lines seems to be an additional vertex (a small segment), which was not getting joined.

Regards,

Abdul Huck

[noadea]

Abdul Huck,
How the lisp routine that can convert lines to polylines look like?
Please help me solve this problem. Thanks.

[abdulhuck]

Abdul Huck,
How the lisp routine that can convert lines to polylines look like?
Please help me solve this problem. Thanks.

The built-in command in AutoCAD is PEDIT, then use the Join option. If you have Express tools installed, you can use MPEDIT, which will convert and joins all lines globally.

Regards,
Abdul Huck

[noadea]

which part i need to add the pedit or mpedit command in my lisp (tagger1.lsp)?

[Adesu]

Hi rohaya,
test this code

(defun c:test (/ ss sse otyp sp ep)
  (if
    (setq ss (car (entsel "\nSelect an object line")))
    (progn
      (setq sse (entget ss))
      (setq otyp (cdr (assoc 0 sse)))
      (if
	(= otyp "LINE")
	(progn
	  (setq sp (cdr (assoc 10 sse)))
	  (setq ep (cdr (assoc 11 sse)))
	  (command "_pline" sp ep "")
	  (command "_erase" ss "")
	  )         ; progn
	)           ; if
      )             ; progn
    (alert "\nThere is not object,try again")
    )               ; if
  (princ)
  )                 ; defun

Abdul Huck,
How the lisp routine that can convert lines to polylines look like?
Please help me solve this problem. Thanks.

[abdulhuck]

which part i need to add the pedit or mpedit command in my lisp (tagger1.lsp)?

Rohaya,

You don't need to. Open your drawing, run MPEDIT command and convert all lines to polylines, then run your lisp.

Regards,

Abdul Huck

[noadea]

I've tried already but it can't work properly. I've attached the drawing after I converted them to polylines then I run my lisp. Hope you guys can help me. I want it be each circle on each tip. Thanks.

[abdulhuck]

I want it be each circle on each tip. Thanks.

Sorry, I'm not very clear about the concept of this drawing, nor do I know the values to input. Could you please explain a bit more? A snapshot of your final dwg will give a better idea.

Regards,

Abdul Huck