Kuinka tehdä Multipath käyttäjien panos netnames ammattitaitovaatimusten?

[pranjal_ccna961]

Kuinka tehdä Multipath käyttäjien panos netnames ammattitaitovaatimusten?

lecreatepath on yksi tällainen vaihtoehto, kukaan voi haluta auttaa minua tässä.

 

[Loktik_Vitalij]

hiSetBindKey ( "Layout" "F8" "linja ()")
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; enterpath ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;
menettelyä (linja ()
let ((path_width path_space path_number path_point leveys cvId kerros tarkoitukseen list_draw_layer)
path_Form ()
path_width = pathForm-> path_widthID-> arvo
path_space = pathForm-> path_spaceID-> arvo
path_number = pathForm-> path_numberID-> arvo
path_point = pathForm-> path_pointID-> arvo
leveys = (path_width path_space) * path_number-path_space

cvId = getEditRep ()
kerros = auto (leGetEntryLayer ()); LSW kerros
tarkoitukseen = cadr (leGetEntryLayer ()); LSW tarkoitukseen
list_draw_layer = luettelo (layer tarkoitus); LSW Layer

menettelyä (pathDone (w tehnyt p)
if (tehnyt sitten
printf ( "Polku tuli oli% L. \ n" p)
get_draw_path (p path_width path_space path_number list_draw_layer leveys);
muuten
println ( "Polku maahantulon aborted.")
), jos
); menettely
enterPath (? kehotteita; enterpath
luettelosta ( "Anna ensimmäinen kohta."
"Anna seuraava kohta.")
? doneProc "pathDone"; enterpath
? wantPoints path_point; enterpath
? pathWidth leveys
? pathStyle "katkaista"; enterpath tyyli
); enterpath
), antaa
); procedure_line
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; PATH ;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;
menettelyä (get_draw_path (path_list path_width path_space path_number list_draw_layer leveys)
let ((path_pitch len path_obj plogon_path List1 List2 move_d i)
path_pitch = path_width path_space
move_d = path_space path_width / 2
len = pituus (path_list)
path_obj = leCreatePath (cvId list_draw_layer path_list leveys)
plogon_path = dbConvertPathToPolygon (path_obj)
List1 = plogon_path ~> kohdat
List2 = käänteinen (List1)
dbDeleteObject (plogon_path)
(i 1 path_number
get_new_path_list (List1 List2 path_pitch len)
List1 = käänteinen (list_new_get)
leCreatePath (cvId list_draw_layer list_new_get path_width)
), että
), antaa
); menettely
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; polku (luettelo );;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
menettelyä (get_new_path_list (list11 list22 path_pitch_g len_g)
let ((xnew ynew listxy11 listxy22 x1 y1 x2 Y2)
list_new = luettelo ()
(i 1 len_g
listxy11 = Nth (i-1 list11)
listxy22 = Nth (i-1 list22)
x1 = auto (listxy11)
y1 = cadr (listxy11)
x2 = auto (listxy22)
Y2 = cadr (listxy22)
if (x2 == x1 sitten
if (Y2> y1 sitten
xnew = x1
ynew = y1 path_pitch
muuten
xnew = x1
ynew = y1-path_pitch
), jos
muuten
if (x2> x1 sitten
m = (Y2-y1) / (x2-x1)
xnew = x1 path_pitch
ynew = y1 m * (xnew-x1)
muuten
m = (Y2-y1) / (x2-x1)
xnew = x1-path_pitch
ynew = y1 m * (xnew-x1)
), jos

), jos
list_new = xcons (list_new luettelo (xnew ynew))
), että
list_new_get = list_new
println (list_new_get)
), antaa
); menettely
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;
(menettely path_Form ()
(PROG (slot_widthID slot_heighID slot_width_pitchID slot_heigh_pitchID slotFormID)

path_widthID = hiCreateFloatField (
? nimi "path_widthID
? kehote "reitin leveys:"
? arvo 1,0
? defValue 1.0
? vaihteluväli (vaihteluväli 0 100)
;? muokattavissa nollassa
)

path_spaceID = hiCreateFloatField (
? nimi "path_spaceID
? kehote "reitin tilaa:"
? arvo 1,0
? defValue 1.0
? vaihteluväli (vaihteluväli 0 100)
;? muokattavissa nollassa
)
path_numberID = hiCreateIntField (
? nimi "path_numberID
? kehote "reitin numero:"
? arvo 5
? defValue 5
? vaihteluväli (vaihteluväli 1 100)
;? muokattavissa nollassa
)
path_pointID = hiCreateIntField (
? nimi "path_pointID
? kehote "reitin numero:"
? arvo 5
? defValue 5
? vaihteluväli (vaihteluväli 1 100)
;? muokattavissa nollassa
)

pathFormID = hiCreateForm (
"pathForm
"Luotu MULTI PATH"
(luettelo "()")
luettelosta (
(luettelo path_widthID 0:20 200:30 100)
(luettelo path_spaceID 250:20 200:30 100)
(luettelo path_numberID 0:50 200:30 100)
(luettelo path_pointID 250:50 200:30 100)
)
nolla nolla
)

(hiDisplayForm pathForm)

); prog
); proc_form

 

[pranjal_ccna961]

http://phorum.study-area.org/index.php?topic=49563.0YP Lin ohjelman ...Mennyt läpi ..

Ole kovin selvä, että minä olen aloittelija ammattitaitovaatimusten
Haluan antaa netto nimensä mukaisesti i piirtää

 

[erikl]

pranjal_ccna961 wrote:Haluan antaa netto nimensä mukaisesti i piirtää

 

[pranjal_ccna961]

rodcreatepath fn tekee sen ...

tarvitse kaivaa syvälle se

<img src="http://www.edaboard.com/images/smiles/icon_smile.gif" alt="Hymyillä" border="0" />Kiitos Buddy!

tässä on linkki: http://sourcelink.cadence.com/docs/files/Release_Info/Docs/roduser/roduser6.1/chap3.html