It sets it near the top:
Either remove that line, or change it to what you want.Code:(command "style" "standard" "wgsimpl.shx" "" "" "" "" "")
Registered forum members do not see this ad.
Does anyone know how to change text style in this lisp routine (font..)?
Thanks for the answer Lee Mac.
I saw that and I did it,but...
If I modify it or erase it, it won't recognize the greek fonts.
When you select a polyline it automatically adds a letter in every vertex in order. A,B,C ect (but in greek Α,Β,Γ..)
See these samples with the previous routine (with some changings)
The result is in 1.jpg but I need the second one (2.jpg)
Is this correct?Code:(command "style" "standard" "arial.shx" "" "" "" "" "")
Once again correct...
Can you explain me where exactly is the code that adds the next letter in the next vertex (etc.)
I think is in the next one sample.
I congratulate you one more time not only for your help but for your lisp you gave us (- Incremental Numbering Suite - Automatic Numbering - Attribute Modification Suite - Dynamic Information Tool - Curve Aligned Text - Piping Program -). Very usefulCode:;**************LABELS ON LANDMARKS********************** (setq ptp (polar (nth i pllst) angtxt (* ht 1.5))) (if (= i 17) (setq alfa 194) ) (command "text" "j" "c" ptp ht 100 (if (< i 24) (strcat prfx "%%" (itoa (+ i alfa)) sufx) (strcat prfx "%%217" (itoa (- i 23)) sufx) ) );endtext
Last edited by tagkelas; 22nd Aug 2009 at 11:42 pm.