麻烦大师写一段AutoLISP或VisualLISP或cad VBA或ADS ADS或ObjectARX代码，运行于CAD2008，实现以下功能：步骤1 输入垂直管线命令：czgx步骤2 出现对话框。（1）提示用户从图纸中按属性批量选择设备或从图纸中选择某一台设备；（2）提示用户填写从每台设备引出垂直管线的方向、长度、根数、类型。步骤3 生成与设备连接的垂直管线。这里指空间内上下垂直管线，并非水平面内的互相垂直管线。