Jak se k tomu mnohonásobnou doménového portálu ACTIVE uživatelský vstup do Skill?

[pranjal_ccna961]

Jak k tomu mnohonásobnou s doménového portálu ACTIVE vstup uživatele do Skill?

lecreatepath je jedním z takových možností, může někdo prosím, pomozte mi.

 

[Loktik_Vitalij]

hiSetBindKey ( "Layout" "F8" "line ()")
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; enterpath ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;
Postup (linka ()
let ((path_width path_space path_number path_point šířka CVID vrstva účel list_draw_layer)
path_Form ()
path_width = pathForm-> path_widthID-> value
path_space = pathForm-> path_spaceID-> value
path_number = pathForm-> path_numberID-> value
path_point = pathForm-> path_pointID-> value
width = (path_width path_space) * path_number-path_space

CVID getEditRep = ()
layer = auto (leGetEntryLayer ()); LSW vrstva
účel = CADR (leGetEntryLayer ()); LSW účel
list_draw_layer = list (vrstva účel); LSW VRSTVA

Postup (pathDone (w udělat bodů)
if (done then
printf ( "Cesta byla zapsána% L. \ n" bodů)
get_draw_path (díly path_width path_space path_number list_draw_layer width);
jiné
System.out.println ( "Cesta vstup aborted.")
), jestliže
); postup
enterPath (? výzvy; enterpath
seznam ( "Zadejte první bod."
"Zadejte další bod.")
? doneProc "pathDone"; enterpath
? wantPoints path_point; enterpath
? pathWidth šířka
? pathStyle "Zkrátit"; enterpath styl
); enterpath
); let
); procedure_line
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; PATH ;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;
Postup (get_draw_path (path_list path_width path_space path_number list_draw_layer šířka)
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 = length (path_list)
path_obj = leCreatePath (CVID list_draw_layer path_list šířka)
plogon_path = dbConvertPathToPolygon (path_obj)
list1 = plogon_path ~> body
list2 = reverzní (list1)
dbDeleteObject (plogon_path)
for (i 1 path_number
get_new_path_list (list1 list2 path_pitch len)
list1 = reverzní (list_new_get)
leCreatePath (CVID list_draw_layer list_new_get path_width)
), pro
); let
); postup
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; cesty (seznam );;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Postup (get_new_path_list (list11 list22 path_pitch_g len_g)
let ((xnew ynew listxy11 listxy22 x1 y1 x2 y2)
list_new = list ()
for (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 (x1 == x2 poté
if (y2> y1 poté
xnew = x1
ynew = y1 path_pitch
jiné
xnew = x1
ynew = y1-path_pitch
), jestliže
jiné
if (x2> x1 poté
m = (y2-y1) / (x2-x1)
xnew = x1 path_pitch
ynew = y1 m * (xnew-x1)
jiné
m = (y2-y1) / (x2-x1)
xnew = x1-path_pitch
ynew = y1 m * (xnew-x1)
), jestliže

), jestliže
list_new = xcons (list_new list (xnew ynew))
), pro
list_new_get = list_new
System.out.println (list_new_get)
); let
); postup
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;
(postup path_Form ()
(prog (slot_widthID slot_heighID slot_width_pitchID slot_heigh_pitchID slotFormID)

path_widthID = hiCreateFloatField (
? name 'path_widthID
? prompt "path width:"
? hodnota 1,0
? defValue 1,0
? rozsahu (v rozmezí 0 100)
;? upravitelného nula
)

path_spaceID = hiCreateFloatField (
? name 'path_spaceID
? prompt "cesta místo:"
? hodnotu 1.0
? defValue 1,0
? rozsahu (v rozmezí 0 100)
;? upravitelného nula
)
path_numberID = hiCreateIntField (
? name 'path_numberID
? prompt "číslo trasy:"
? hodnotu 5
? defValue 5
? rozsahu (v rozmezí 1 100)
;? upravitelného nula
)
path_pointID = hiCreateIntField (
? name 'path_pointID
? řádku "Cesta bod číslo:"
? hodnotu 5
? defValue 5
? rozsahu (v rozmezí 1 100)
;? upravitelného nula
)

pathFormID = hiCreateForm (
'pathForm
"Created MULTI PATH"
(seznam "()")
Seznam (
(seznam path_widthID 0:20 200:30 100)
(seznam path_spaceID 250:20 200:30 100)
(seznam path_numberID 0:50 200:30 100)
(seznam path_pointID 250:50 200:30 100)
)
nula nula
)

(hiDisplayForm pathForm)

); prog
); proc_form

 

[pranjal_ccna961]

http://phorum.study-area.org/index.php?topic=49563.0YP Lin'S Program ...Už přes to ..

Ne moc se mi jasné, jak jsem nováček v Skill
Chci přiřadit jméno, aby čisté linie i kreslit

 

[erikl]

pranjal_ccna961 napsal:Chci přiřadit jméno, aby čisté linie i kreslit

 

[pranjal_ccna961]

rodcreatepath fn udělá to ...

musí sáhnout hluboko do ní

<img src="http://www.edaboard.com/images/smiles/icon_smile.gif" alt="Úsměv" border="0" />Díky Buddy!

Zde je odkaz: http://sourcelink.cadence.com/docs/files/Release_Info/Docs/roduser/roduser6.1/chap3.html