‎2010-09-14 07:07 AM
‎2010-09-24 02:14 AM
From Erika's Original Requirements
1. I could optionally display its alphanumeric key and/or the description text.
2. Rearranging the order of a sheet's notes would automatically update the placed keynotes [within that layer combination].
3. It could be connected to one's specifications. (with hyperlinks too)
4. One could have a master keynote list for an entire project
5. One could have separate keynotes by sheet type i.e floor plan, RCP, etc aka the layer combination.
From Erika's Original RequirementsThe Zip file Contains a Quick Tutorial.
6. It would be a part of the file data that can be extruded from one's model.
7. It would be user friendly.
‎2010-09-24 02:16 AM
‎2010-09-24 06:53 AM
‎2010-09-24 05:32 PM
‎2010-09-25 10:12 AM
‎2010-09-28 03:09 AM
‎2010-09-28 12:16 PM
Actually that is what I have been doing here: loading the Text file as Linked Library. But even if you reload the library (containing of course our txt file) the label does not show the updated text. Note that the object itself - its script - can read the txt file and can recognize the change. You can check that by opening the Label settings window, under Parameters, you will see the "Select an option:" field updated!.I haven't had a look into your code, but it works with text files well for me. Aslong as it is not a teamwork project.
What it means to me is that the script is capable of recognize and read the changes made to the txt file, But is not capable of update the 2D Representation of the text related to that parameter.
‎2010-10-04 02:13 AM
!! --declarations
dim value_a[]
dim value_f[]
dim codes[]
string1 = ""
string2 = ""
string10 = " "
string20 = "
TXSH = ""
row = 0
!!---Open channel
ch1=OPEN("TEXT",filename,"MODE=RO,LIBRARY")
!!!!!!!!!!!******counting the total number of rows*********!!!!!
do
row= row+1
n=INPUT(ch1,row,1,string1,string2)
codes[row] = string1
if strstr(string1+string2,fndit) then
s=s+1
value_f = string1+ "-" +string2
endif
if string1 = search then
string20 = string2
string10 = string1
endif
while n>-1
CLOSE (ch1)
IF SELCODE= "Only Code" THEN
TXSH= string10
ENDIF
IF SELCODE= "Only Name" THEN
TXSH= string20
ENDIF
IF SELCODE= "Code & Name" THEN
TXSH= string10+ "" + SEPCOD + "" +string20
ENDIF
!!---Create Value lists
values "valuelist_a" string10 + " - " + string20
values "valuelist_f" value_f
values "SELCODE" "Only Code", "Only Name", "Code & Name"
values "TXSHOWN" TXSH
values 'search' codes !,custom
And!!!!********* DEFINE THE PARAGRAPH STYLE
DEFINE STYLE{2} TypA LABEL_FONT_NAME, LABEL_TEXT_SIZE*GLOB_SCALE/1000, LABEL_FONT_STYLE
PARAGRAPH "PARRAFO" LABEL_TEXT_ALIGN, 1*GLOB_SCALE/1000, 1*GLOB_SCALE/1000, 1*GLOB_SCALE/1000, 1, 0
PEN 1
SET STYLE "TypA"
"" + TXSH
ENDPARAGRAPH
IF LABEL_TEXT_ALIGN=1 THEN
GLAS=4
ANGFN= 0
ENDIF
IF LABEL_TEXT_ALIGN=3 THEN
GLAS=6
ANGFN= 180
ENDIF
IF LABEL_TEXT_ALIGN=2 THEN
GLAS=8
ANGFN= 90
ENDIF
IF LABEL_TEXT_ALIGN=4 THEN
GLAS=4
ANGFN= 0
ENDIF
IF HOR THEN
AGL=270
ELSE
AGL=0
ENDIF
TANRE= TANCM*GLOB_SCALE
TEXTBLOCK "FIFI" TANRE, GLAS, AGL, 1, 1, 0, "PARRAFO"
RICHTEXT2 FNX, FNY, "FIFI"
‎2010-10-16 06:13 PM
‎2010-10-17 01:55 PM