pedit

could anyone point out where i am going wrong with this very basic lsp...

(Defun c:clp (/)
(setq sls1 (ssget))
(foreach item (sls1) (dowork))
)

(Defun dowork ()
(command "pedit" item "cl" "")
)


Many thanks

spencer

 

Foreach won't work on a selection set.

Bill

 

Try this instead, notice the check to make sure entity selected is a
lwpolyline
(defun C:CLP (/ SLS1 KK KS EG)
(if (setq SLS1 (ssget))
(progn
(setq KK 0 KS (sslength SLS1))
(while (< KK KS)
(setq EG (entget (ssname SLS1 KK)))
(if (= (cdr (assoc 0 EG)) "LWPOLYLINE")
(command "PEDIT" (ssname SLS1 KK) "CL" "")
)
(setq KK (1+ KK))
)
)
)
(princ)
)

 

thanks,

Is there a way to incorperate a fillet command into this?

ie

(command "fillet" "r" "10" "p" (ssname))

I cant see how I can do it

 

(command "fillet" "r" "10" "p" (ssname SLS1 KK))

 

ive allready tried that and cannot get it to work,

 

I forgot you have to pass a point to the fillet command.
(defun C:CLP ()
(if (setq SLS1 (ssget))
(progn
(setq KK 0 KS (sslength SLS1))
(while (< KK KS)
(setq EG (entget (ssname SLS1 KK)))
(if (= (cdr (assoc 0 EG)) "LWPOLYLINE")
(progn
(command "ID" (cdr (assoc 10 EG)))
(command "PEDIT" (ssname SLS1 KK) "CL" "")
(command "FILLET" "P" "@")
)
)
(setq KK (1+ KK))
)
)
)
(princ)
)

 

Many thanks

spencer