Distance Lisp Routine Help

[Opie]

My ATTDIA variable set to (1)!

Temporarily change it to >0< for this experiment. Then run the command again. I don't think this will fix the problem but I'm running out of options. After you run it let me know your results. And then you can change it back to >1<.

Thanks.

[BCrouse]

Temporarily change it to >0< for this experiment. Then run the command again. I don't think this will fix the problem but I'm running out of options. After you run it let me know your results. And then you can change it back to >1<.

Thanks.

Nothing happened when I set the attdia to (0). Try the routine with just a circle and text.

Brad

[Opie]

Brad,

Try this version. I think the original version was not working due to a core AutoCAD routine that was improved in version 2005. (Zoom to object).

This version will work down to ACAD 2000. With the Evacuation Distance Tag block you supplied earlier.

Let me know how it works.

[BCrouse]

Brad,

Try this version. I think the original version was not working due to a core AutoCAD routine that was improved in version 2005. (Zoom to object).

This version will work down to ACAD 2000. With the Evacuation Distance Tag block you supplied earlier.

Let me know how it works.

Thank you, I works great. Just one more thing. Is there a way to have an arrow to end at the end point?

Brad

[Opie]

Thank you, I works great. Just one more thing. Is there a way to have an arrow to end at the end point?

Brad

Do you want an arrowhead at each break point in addition to the current arrowheads?

[peter]

Try this.

(defun C:Evacuation (/ intAttDia lstSelection objSelection)
(vl-load-com)
(setq intAttdia (getvar "attdia"))
(setvar "attdia" 0)
(setq lstSelection (entselwithfilter '(list (cons 0 "POLYLINE"))
									 "\nSelect polyline evacuation route: "
					)
	 objSelection (vlax-ename->vla-object (car lstSelection))
)
(vl-cmdf "insert" "EVACUATION DISTANCE TAG" (cadr lstSelection) "" "" "" "")
(setvar "attdia" intAttDia)(vla-put-textstring
(vlax-ename->vla-object (entnext (entlast)))
(rtos (vlax-curve-getDistAtParam objSelection
		 (vlax-curve-getEndParam objSelection)
		)
		4
		0
)
)
(prin1)
)
(defun entselWithFilter (lstOfFilters strPrompt / intOSMode lstPoint ssSelections)
(vl-load-com)
(if strPrompt
(princ (strcat "\n" strPrompt))
)
(setq intOSMode (getvar "osmode"))
(setvar "osmode" 512)
(while (not (setq ssSelections (ssget (setq lstPoint (getpoint)) (eval lstOfFilters))))
(princ "\nInvalid Selection Please Select Again: ")
)
(setvar "osmode" intOSMode)
(print (getvar "lastpoint"))
(list (ssname ssSelections 0) lstPoint)
)

[Opie]

Peter, I hope you don't mind. I borrowed this bit (in red) of your code.

 (vla-put-textstring
  (vlax-ename->vla-object (entnext (entlast)))
  (rtos (vlax-curve-getDistAtParam objSelection
		 (vlax-curve-getEndParam objSelection)
		)
		4
		0
  )
 )

Brad, Let me know how this works.

I included the block that I was using.

Richard

[BCrouse]

Peter, I hope you don't mind. I borrowed this bit (in red) of your code.

Brad, Let me know how this works.

I included the block that I was using.

Richard

Richard,

That is really awesome. Thank you very much. It really looks and works great! I will be adding to your rep.

Brad

[BCrouse]

Peter, I hope you don't mind. I borrowed this bit (in red) of your code.

Brad, Let me know how this works.

I included the block that I was using.

Richard

Thank you you Peter.

It is nice to such a diverse group of AUGI member with great knowledge of LISP.


Brad

[Opie]

Thank you you Peter.

It is nice to such a diverse group of AUGI member with great knowledge of LISP.


Brad

Brad,

You are welcome. If it wasn't for Peter, I would have been stumped on the attribute portion for a bit. I havn't learned VLisp to its fullest extent, yet.

And yes, Thank you as well Peter.