Topic: only once

[rude dog]

If you were to draw two lines on the screen and run this small routine
it will only takes out the info needed on the first line choosen
and when you pick the second line it returns back the info from the first line?
Do I have a variable problem here?

Code: [Select]


(defun c:ss (/ p1 pt en e1 es ee)
(command "setvar" "osmode" "0")
(command "setvar" "osmode" "514")
(setq p1 (getpoint "\nselect line"))
(command "setvar" "osmode" "0")
(setq p1 (ssget p1))(setq pt (ssname p1 0)) (setq en (entnext)) (setq e1 (cdr (entget en)))
(princ "\n")
(princ "Start of line in space is @:")
(setq es (cdr (assoc 10 e1)))(princ es)
(princ "\nEnd of line in space is @:")
(setq ee (cdr (assoc 11 e1)))
)
(princ)



[SpeedCAD]

Hi...

The error is in line (setq en (entnext)), this take the next line...

Example:

Code: [Select]

(defun c:ss (/ entity p1 p2)
  (setq entity (car (entsel "\nSelect Line: ")))
  (princ "\n")
  (princ "Start of line in space is @:")
  (princ (setq p1 (cdr (assoc 10 (entget entity)))))
  (princ "\nEnd of line in space is @:")
  (setq p2 (cdr (assoc 11 (entget entity))))
) ;_defun

[rude dog]

I was looking to pick the line using the osnap nearest <512>
And since I use a SSGET I thought I had to  use  (setq en (entnext))
after reading this on the ACAD help files:

The entities selected by ssget are main entities, not attributes of blocks or vertices of polylines. You can access the internal structure of these complex entities by walking through the subentities with entnext. Once you obtain a subentity's name, you can operate on it like any other entity.

[Mark]

If you want to "step" through the entities in a selection set you would use ssname. For example:

Code: [Select]


(setq ss (ssget)) ; select what you want.
(setq ss0 (ssname ss 0)) ; entity 1 in selection set (zero based index)
(setq es (cdr (assoc 10 ss0))) ; X value
(setq ss1 (ssname ss 1)); entity 2 in selection set


HTH

[rude dog]

Code: [Select]


(defun c:ss (/ p1 pss pt e1 es ee)
(setvar "cmdecho" 0)
(command "setvar" "osmode" "0")
(command "setvar" "osmode" "514")
(setq p1 (getpoint "\nselect line"))
(command "setvar" "osmode" "0")
(setq pss (ssget p1))(setq pt (ssname pss 0)) (setq e1 (entget pt))
(princ "\n")
(princ "Start of line in space is @:")
(setq es (cdr (assoc 10 e1)))(princ es)
(princ "\nEnd of line in space is @:")
(setq ee (cdr (assoc 11 e1)))
)
(princ)



you were both right.... works fine now thanks for the hand

[DEVITG]

Hi...

The error is in line (setq en (entnext)), this take the next line...

Example:

Code: [Select]

(defun c:ss (/ entity p1 p2)
  (setq entity (car (entsel "\nSelect Line: ")))
  (princ "\n")
  (princ "Start of line in space is @:")
  (princ (setq p1 (cdr (assoc 10 (entget entity)))))
  (princ "\nEnd of line in space is @:")
  (setq p2 (cdr (assoc 11 (entget entity))))
) ;_defun

As I see , it shall be so


(princ  (setq p2 (cdr (assoc 11 (entget entity)))))


If not the p2 value is not shown.