如何吸引技能与用户输入netnames多径?

P

pranjal_ccna961

Guest
如何吸引技能与用户输入netnames多径?

lecreatepath就是这样的一个选项,可以请人帮助这个我。

 
hiSetBindKey(“布局”,按“F8”“行()”)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; enterpath ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;
程序(线()
让((path_width path_space path_number path_point层宽度CVID的目的list_draw_layer)
path_Form()
path_width = pathForm,“path_widthID ->”数据
path_space = pathForm,“path_spaceID ->”数据
path_number = pathForm,“path_numberID ->”数据
path_point = pathForm,“path_pointID ->”数据
宽度=(path_width path_space)* path_number - path_space

CVID的= getEditRep()
层=汽车(leGetEntryLayer()); LSW层
目的= cadr(leGetEntryLayer()); LSW目的
list_draw_layer =列表(层的目的); LSW层

程序(pathDone(瓦特做积分)
如果(办呢
printf(“输入的路径是%湖\ N”的积分)
get_draw_path(积分path_width path_space path_number list_draw_layer宽度);
其他的
println(“路径项终止。”)
);若
);程序
enterPath(?提示; enterpath
清单(“输入第一点。”
“输入下一个点。”)
?doneProc“pathDone”; enterpath
?wantPoints path_point; enterpath
?pathWidth宽度
?pathStyle“截断”; enterpath风格
); enterpath
);让
); procedure_line
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;路径;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;
程序(get_draw_path(path_list path_width path_space path_number list_draw_layer宽度)
让((path_pitch plogon_path列表1列表2 move_d i len path_obj)
path_pitch = path_width path_space
move_d = path_space path_width / 2
长度=长度(path_list)
path_obj = leCreatePath(CVID的list_draw_layer path_list宽度)
plogon_path = dbConvertPathToPolygon(path_obj)
列表1 = plogon_path〜>点数“
清单2 =反向(列表1)
dbDeleteObject(plogon_path)
为(一1 path_number
get_new_path_list(列表1列表2 path_pitch LEN)的
列表1 =反向(list_new_get)
leCreatePath(CVID的list_draw_layer list_new_get path_width)
);为
);让
);程序
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;路径(名单);;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
程序(get_new_path_list(list11 list22 path_pitch_g len_g)
让((xnew ynew listxy11 listxy22 x1 Ŷ1 x2 y2)
list_new =列表()
为(一1 len_g
listxy11 = n次(1 - 1 list11)
listxy22 = n次(1 - 1 list22)
x1 =车(listxy11)
Ŷ1 = cadr(listxy11)
χ2=车(listxy22)
y2 = cadr(listxy22)
如果(χ2== x1然后
如果(y2“Ŷ1然后
xnew = x1
ynew = Ŷ1 path_pitch
其他的
xnew = x1
ynew = Ŷ1,path_pitch
);若
其他的
如果(χ2“x1然后
米=(y2 - Ŷ1)/(χ2- x1的)
xnew = x1 path_pitch
ynew = Ŷ1 米*(xnew - x1的)
其他的
米=(y2 - Ŷ1)/(χ2- x1的)
xnew = x1 - path_pitch
ynew = Ŷ1 米*(xnew - x1的)
);若

);若
list_new = xcons(list_new名单(xnew ynew))
);为
list_new_get = list_new
println(list_new_get)
);让
);程序
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;
(程序path_Form()
(prog(slot_widthID slot_heighID slot_width_pitchID slot_heigh_pitchID slotFormID)

path_widthID = hiCreateFloatField(
?名称'path_widthID
?提示“道路宽度:”
?值1.0
?defValue 1.0
?范围(范围0 100)
;?编辑零


path_spaceID = hiCreateFloatField(
?名称'path_spaceID
?提示“路径空间:”
?值1.0
?defValue 1.0
?范围(范围0 100)
;?编辑零

path_numberID = hiCreateIntField(
?名称'path_numberID
?提示“路径号码:”
?值5
?defValue 5
?范围(范围1 100)
;?编辑零

path_pointID = hiCreateIntField(
?名称'path_pointID
?提示“路径点:”
?值5
?defValue 5
?范围(范围1 100)
;?编辑零


pathFormID = hiCreateForm(
'pathForm
“06029075多径”
(名单"()")
名单(
(名单path_widthID 0:20 200:30 100)
(名单path_spaceID 250:20 200:30 100)
(名单path_numberID 0时50 200:30 100)
(名单path_pointID 250:50 200:30 100)

无无


(hiDisplayForm pathForm)

); prog
); proc_form

 
http://phorum.study-area.org/index.php?topic=49563.0YP林的计划...经历了它..

不是我很清楚
, 因为我在新手技能
我想指定net域名
, 我画的线

 
rodcreatepath脚注将做到这一点...

需要详加深

<img src="http://www.edaboard.com/images/smiles/icon_smile.gif" alt="微笑" border="0" />感谢好朋友!

这里是链接:http://sourcelink.cadence.com/docs/files/Release_Info/Docs/roduser/roduser6.1/chap3.html

 

Welcome to EDABoard.com

Sponsor

Back
Top