TheSwamp

Code Red => AutoLISP (Vanilla / Visual) => Topic started by: TJAM51 on November 04, 2004, 01:04:30 PM

Title: Acad LT leader / balloon macro
Post by: TJAM51 on November 04, 2004, 01:04:30 PM
I am trying to work on a macro that will allow me to create a balloon calout in Acad LT 2005. I have the following so far. It breaks the line as long as the balloon and leader are at 0 and 90 degree planes. Any help would be greatly appreciated.


^C^C_qleader;\\;^C^C_explode;l;^C^C_id;_endpoint;\-insert;balloon;_none;$m=$(getvar,lastpoint);$m=$(getvar,ltscale);;0;_break;\_first;_none;$m=$(eval,$(+,$(index,0,$(getvar,lastpoint)),$(*,$(getvar,ltscale),0.1442))","$(index,1,$(getvar,lastpoint)));_none;$m=$(eval,$(-,$(index,0,$(getvar,lastpoint)),$(*,$(getvar,ltscale),0.1442))","$(index,1,$(getvar,lastpoint)));